EBS创建采购订单

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

--上PA模块的采购合同导入代码--测试通过20170906，205采购订单--只导入单行，如果是多行，则需要加loop
DECLARE
    l_api_name CONSTANT VARCHAR2(30) := 'create_purchase_order';
    l_savepoint_name       VARCHAR2(30) := '';
    p_batch_id             NUMBER;
    l_header_iface_rec     po_headers_interface%ROWTYPE;
    l_line_iface_rec       po_lines_interface%ROWTYPE;
    l_dist_iface_rec       po_distributions_interface%ROWTYPE;
    l_line_num             NUMBER;
    l_task_id              NUMBER;
    l_chart_of_accounts_id NUMBER;
    l_segment1             VARCHAR2(30);
    l_segment2             VARCHAR2(30);
    l_segment3             VARCHAR2(30);
    l_segment4             VARCHAR2(30);
    l_segment5             VARCHAR2(100);
    l_segment6             VARCHAR2(30);
    l_segment7             VARCHAR2(30);
    l_segment8             VARCHAR2(30);
    l_segment9             VARCHAR2(30);
    l_segment10            VARCHAR2(30);
    l_line_type_id         NUMBER;
    l_expenditure_type     pa_expenditure_types.expenditure_type%TYPE;
    l_charge_account_id    NUMBER;
    l_agent_id             NUMBER;
    l_validate_status      VARCHAR2(1);
 
  BEGIN

    
      l_task_id              := 335351;--NULL;
      l_chart_of_accounts_id := NULL;
      l_segment1             := NULL;
      l_segment2             := NULL;
      l_segment3             := NULL;
      l_segment4             := NULL;
      l_segment6             := NULL;
      l_segment7             := NULL;
      l_segment8             := NULL;
      l_segment9             := NULL;
      l_segment10            := NULL;
      l_line_type_id         := 1;--NULL;
      l_expenditure_type     := NULL;
      l_charge_account_id    := NULL;
      l_agent_id             := NULL;
      
      --project_id=237441 org_id = 351 agent_id = 1034
    

    

    

        
      l_segment5 := 'GT-2016-JZ·G-702';--r