采购订单关闭

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 = 86
                 AND pha.segment1 LIKE 'CXY-%'
                 AND pha.created_by = 1150
                 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');
  
    --DBMS_OUTPUT.PUT_LINE(P_USER_ID || '*' || V_USER_ID || '*' ||P_RESP_ID);
    dbms_output.put_line('------' || rec.segment1 || '------');
    dbms_output.put_line(l_return_status);
    apps.po_document_control_pub.control_document(p_api_version      => 1.0, -- p_api_version
                                                  p_init_msg_list    => apps.fnd_api.g_true, -- p_init_msg_list
                                                  p_commit           => apps.fnd_api.g_true, -- p_commit
                                                  x_return_status    => l_return_status, -- x_return_status
                                                  p_doc_type         => 'PO', -- p_doc_type
                                                  p_doc_subtype      => 'STANDARD', -- p_doc_subtype
                                                  p_doc_id           => NULL, -- p_doc_id
                                                  p_doc_num          => rec.segment1, -- p_doc_num
                                                  p_release_id       => NULL, -- p_release_id
                                                  p_release_num      => NULL, -- p_release_num
                                                  p_doc_line_id      => NULL, -- p_doc_line_id
                                                  p_doc_line_num     => NULL, --REC.LINE_NUM, -- p_doc_line_num
                                                  p_doc_line_loc_id  => NULL, --rec.Line_Location_Id, -- p_doc_line_loc_id
                                                  p_doc_shipment_num => NULL, -- p_doc_shipment_num
                                                  p_action           => 'CANCEL', -- p_action
                                                  p_action_date      => SYSDATE, -- p_action_date
                                                  p_cancel_reason    => '期初数据导入错误', -- p_cancel_reason
                                                  p_cancel_reqs_flag => 'N', -- p_cancel_reqs_flag
                                                  p_print_flag       => NULL, -- p_print_flag
                                                  p_note_to_vendor   => NULL,
                                                  p_use_gldate       => NULL, -- <ENCUMBRANCE FPJ>
                                                  p_org_id           => rec.org_id); -- p_note_to_vendor
  
    -- Get any messages returned by the Cancel API
    COMMIT;
    FOR i IN 1 .. apps.fnd_msg_pub.count_msg
    LOOP
      dbms_output.put_line(apps.fnd_msg_pub.get(p_msg_index => i,
                                                p_encoded   => 'F'));
    
      p_errbuf := apps.fnd_msg_pub.get(p_msg_index => i,
                                       p_encoded   => 'F');
    END LOOP;
    COMMIT;
    IF l_return_status = 'S' THEN
      BEGIN
        apps.po_document_action_pvt.do_approve(p_document_id      => rec.erp_header_id, --PO_HEADER_ID
                                               p_document_type    => 'PO',
                                               p_document_subtype => 'STANDARD',
                                               p_note             => NULL,
                                               p_approval_path_id => NULL,
                                               x_return_status    => v_x_return_status,
                                               x_exception_msg    => v_x_exception_msg);
        dbms_output.put_line('V_X_RETURN_STATUS:' || v_x_return_status);
        dbms_output.put_line('V_X_EXCEPTION_MSG:' || v_x_exception_msg);
        IF v_x_return_status = 'S' THEN
          COMMIT;
        ELSE
          ROLLBACK;
        END IF;
      
      END;
    
      dbms_output.put_line('Y');
      dbms_output.put_line('取消成功');
      COMMIT;
    
    ELSE
    
      dbms_output.put_line('E');
      dbms_output.put_line('取消失败:' || p_errbuf);
    
    END IF;
    COMMIT;
    ----update po_header
  ----更新头行的审批状态
  
  END LOOP;

END;

采购订单关闭

原文：http://blog.csdn.net/cai_xingyun/article/details/38949069