EBS采购申请创建

最新推荐文章于 2023-04-21 11:21:12 发布

蜗牛先生快跑

最新推荐文章于 2023-04-21 11:21:12 发布

阅读量2.1k

点赞数 1

文章标签： ebs

本文链接：https://blog.csdn.net/u013711561/article/details/77887690

版权

这段PL/SQL代码演示了如何在Oracle E-Business Suite (EBS) 中通过API `PROCESS_REQUEST` 创建一个采购申请。代码首先初始化必要的全局变量，然后定义并打开两个游标来获取接口组ID和组织ID。接着，插入一条采购申请记录到`po_requisitions_interface_all`表，并提交一个请求来导入该采购申请。最后，检查请求的完成状态和错误处理。

摘要由CSDN通过智能技术生成

/*
begin
fnd_global.apps_initialize(user_id      => 8162,
                             resp_id      => 50692,
                             resp_appl_id => 20003);
mo_global.init('M');
end;
*/

declare
    l_api_name CONSTANT VARCHAR2(30) := 'PROCESS_REQUEST';

    CURSOR cur_interface_group_s IS
      SELECT po_requisitions_interface_s.nextval FROM dual;

    CURSOR cur_org_id IS
      SELECT 295
        FROM DUAL;

    rec_interface po_requisitions_interface_all%ROWTYPE;

    l_request_id NUMBER;
    l_batch_id   NUMBER;

    l_dev_phase VARCHAR2(80);
    l_dev_status VARCHAR2(80);
    l_message    VARCHAR2(2000);
    l_count      NUMBER := 0;
    g_org_id    number;

    ll_trx_request_id NUMBER;
    ll_wait_req       BOOLEAN;
    ll_child_phase    VARCHAR2(80);
    ll_child_status   VARCHAR2(80);
    ll_dev_phase      VARCHAR2(80);
    ll_dev_status     VARCHAR2(80);
    ll_message        VARCHAR2(2000);

BEGIN

    -- API body
    OPEN cur_interface_group_s;
    FETCH cur_interface_group_s
      INTO l_batch_id;
    CLOSE cur_interface_group_s;

    OPEN cur_org_id;
    FETCH cur_org_id
      INTO rec_interface.org_id;
    CLOSE cur_org_id;

    g_org_id := rec_interface.org_id;

-- FOR rec_mtl_schedule IN cur_mtl_schedule LOOP
rec_i