EBS日记账冲销API

–日记账冲销分为红字冲销和借贷相反两种，下例为红字冲销日记账。

DECLAREl_request_id NUMBER;--等待请求字段l_bl_result  BOOLEAN;l_phase      VARCHAR2(240);l_status     VARCHAR2(240);l_dev_phase  VARCHAR2(240);l_dev_status VARCHAR2(240);l_message    VARCHAR2(240);l_period_status VARCHAR2(1);l_start_date    DATE;l_end_date      DATE;l_period_num    NUMBER;l_period_year   NUMBER;CURSOR chk_sec_header_status ISSELECT 1FROM   gl_ledgers    gl,gl_je_headers ghWHERE  gl.ledger_id = gh.ledger_idAND    gh.je_header_id = 2AND    gl.ledger_category_code = 'PRIMARY'AND    EXISTS (SELECT 1FROM   gl_je_headers gh1,gl_ledgers    gl1WHERE  gh1.parent_je_header_id = gh.je_header_idAND    gl1.ledger_id = gh1.ledger_idAND    gl1.ledger_category_code = 'SECONDARY'AND    gl1.automate_sec_jrnl_rev_flag IN ('Y','A')AND    gh1.status != 'P');l_has_sec_unpost_hdr_jrnl NUMBER;
BEGINfnd_global.apps_initialize(user_id      => 1110,resp_id      => 50719,resp_appl_id => 20007);--校验期间gl_period_statuses_pkg.select_columns(101,2023,'2018-07',l_period_status,l_start_date,l_end_date,l_period_num,l_period_year);IF (nvl(l_period_status,'X') NOT IN ('O','F')) THENfnd_message.set_name(application => 'SQLGL',NAME        => 'GL_JE_NO_REV_HEADER_BAD_PERIOD');dbms_output.put_line('Error Message  = ' || fnd_message.get);END IF;OPEN chk_sec_header_status;FETCH chk_sec_header_statusINTO l_has_sec_unpost_hdr_jrnl;IF chk_sec_header_status%FOUND THENl_has_sec_unpost_hdr_jrnl := 1;END IF;CLOSE chk_sec_header_status;IF nvl(l_has_sec_unpost_hdr_jrnl,0) = 1 THENfnd_message.set_name(application => 'SQLGL',NAME        => 'GL_COR_SEC_UNPOSTED_ERROR');dbms_output.put_line('Error Message  = ' || fnd_message.get);END IF;UPDATE gl_je_headers bSET    b.accrual_rev_flag             = 'Y',b.accrual_rev_change_sign_flag = 'Y',b.accrual_rev_period_name      = '2018-07'WHERE  b.je_header_id = 2;COMMIT;l_request_id := fnd_request.submit_request(application => 'SQLGL' --应用简称,program     => 'GLPREV' --并发简称:日记帐导入,description => '' --说明,start_time  => '' --请求开始时间，格式为标准日期格式，为空表示立即开始,sub_request => FALSE --是否子请求,argument1   => fnd_profile.value('GL_ACCESS_SET_ID') --帐套标识或者数据访问权限集,argument2   => to_char(2) --日记账头ID,argument3   => chr(0) --参数结束);IF l_request_id <= 0 THENdbms_output.put_line('提交冲销日记账请求失败 ！');ELSECOMMIT;dbms_output.put_line('请求编号：' || l_request_id);l_bl_result := fnd_concurrent.wait_for_request(request_id => l_request_id,INTERVAL   => 1 -- interval second for check ,max_wait   => 360 -- max_wait, Max amount of time to wait (in seconds),phase      => l_phase,status     => l_status,dev_phase  => l_dev_phase,dev_status => l_dev_status,message    => l_message);dbms_output.put_line('  l_phase = ' || l_phase);dbms_output.put_line('  l_status = ' || l_status);dbms_output.put_line('  l_dev_phase = ' || l_dev_phase);dbms_output.put_line('  l_dev_status = ' || l_dev_status);dbms_output.put_line('  l_message = ' || l_message);--请求的状态为完成并且为正常IF l_dev_phase <> 'COMPLETE'OR l_dev_status <> 'NORMAL' THENdbms_output.put_line('Reverse Journal :  冲销日记账出现异常错误，查看请求： ' || l_request_id);dbms_output.put_line('Reverse Journal :  冲销日记账出现异常错误，错误消息： ' || l_message);ELSEdbms_output.put_line('------>03.Reverse Journal :  冲销日记账成功');END IF;END IF;
END;

————————————————
版权声明：本文为CSDN博主「OO好久不见OO」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/longtimetoc/java/article/details/81197853

EBS日记账冲销API相关推荐

oracle中的冲销日记账,OraEBSR12GL日记账业务操作09：日记账冲销处理
OraEBSR1201登录 OraEBSR1202添加收藏夹 OraEBSR1203快捷键查询和保存 OraEBSR1204提交请求查看请求结果 OraEBSR1205修改密码和个人Profile O ...
Oracle EBS PO调用API修改一揽子发放行需求日期或数量引发单价变更
背景: 最近,客户的用户反映批量修改或拆分一揽子发放行的需求日期或承诺日期或数量时,自动修改该发放行的单价为对应PBA行的单价. 解决方法: 通过实际数据分析.参考官方 ...
EBS ORACLE使用API批量取消销售订单
需要切换组织,还有用户的id.下面红色字体代表要修改的地方. /*BEGIN MO_GLOBAL.INIT('M'); MO_GLOBAL.set_policy_context ('S',199); ...
oracle 11i 供应商api,Oracle EBS AP 供应商API
--创建供应商地址上的电话号码 created by jenrry 20170419 DECLARE l_return_status VARCHAR2(1); l_msg_count NUMBER; ...
EBS中如何实现简单的日记账导入
在csdn中搜索EBS日记账导入,都是一个版本的,很是头疼,找不到自己想要的东西.本人最近在学习EBS接口方面的知识,从最基本的日记账导入开始学习,在学习过程中,本人会将学的东西都记录下来,以便让你们 ...
Oracle EBS Interface/API(22)-PO(标准PO、PBA、一揽子发放和采购申请审批)审批API
背景随着OA系统慢慢在企业普及,越来越多公司把所有审批类的业务迁移到OA系统中审批,Oracle EBS采购审批也是迁移至OA系统审批流程之一,特别部分关键审批领导,基本上不会使用Oracle EB ...
Oracle gl总账知识,Oracle ERP EBS R12财务总帐GL模块基本业务操作
课程目标本课程主要目标在于培养以下从业人员的相关技能: 1,Oracle ERP/EBS用户熟练掌握ERP系统的基本操作功能: 2,Oracle ERP/EBS财务初级顾问的学习: 3,其他对Ora ...
oracle erp 财务入门,Oracle ERP EBS 顾问财务模块基本业务操作专题
课程目标: OraEBSR1201登录 OraEBSR1202添加收藏夹 OraEBSR1203快捷键查询和保存 OraEBSR1204提交请求查看请求结果 OraEBSR12 ...
oracle总帐的重估逻辑,OraEBSR12GL日记账业务操作23：汇率重估模板定义
OraEBSR1201登录 OraEBSR1202添加收藏夹 OraEBSR1203快捷键查询和保存 OraEBSR1204提交请求查看请求结果 OraEBSR1205修改密码和个人Profile O ...

EBS日记账冲销API

EBS日记账冲销API相关推荐

最新文章

热门文章