取消采购订单SQL

最新推荐文章于 2025-07-10 15:08:32 发布

原创

最新推荐文章于 2025-07-10 15:08:32 发布 · 745 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#ebs

这是一个Oracle EBS环境下的PL/SQL代码段，用于取消采购订单。首先初始化应用程序环境，然后调用`po_document_control_pub.control_document`公共包来执行取消操作，并通过`do_approve`重新审批。代码中包含了错误处理和输出调试信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

DECLARE
-- Local variables here
i                 INTEGER;
l_return_status   VARCHAR2(10);
p_retcode         VARCHAR2(2000);
p_errbuf          VARCHAR2(2000);
v_x_return_status VARCHAR2(250);
v_x_exception_msg VARCHAR2(250);
BEGIN
-- Test statements here

/* FOR rec IN (SELECT pha.org_id,
                     pha.segment1,
                     pha.po_header_id erp_header_id
                FROM po_headers_all pha
               WHERE 1 = 1
                 AND pha.org_id = 85
                 AND pha.segment1 LIKE '20903'
                 AND pha.created_by = 1573
                 AND pha.cancel_flag <> 'Y')
LOOP*/

/*    apps.fnd_global.apps_initialize(user_id      => 1150, -- V_USER_ID,
                                    resp_id      => 50758, --P_RESP_ID, 50757 50737 50758
                                    resp_appl_id => 201);
    apps.mo_global.init('PO');*/

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

    --DBMS_OUTPUT.PUT_LINE(P_USER_ID || '*' || V_USER_ID || '*' ||P_RESP_ID);
    dbms_output.put_line('------' || '213'/*rec.segment1 */|| '------');
    dbms_output.