WIP 离散工单导入 API Demo

DECLARE
  l_iface_rec    wip.wip_job_schedule_interface%ROWTYPE; --工单任务接口表
  l_group_id     NUMBER;
  l_returnstatus VARCHAR2(40);
  l_errormsg     VARCHAR2(2000);
  l_error        VARCHAR2(2000);
BEGIN
  l_group_id := wip.wip_job_schedule_interface_s.NEXTVAL; --每次导入给定唯一的group_id，也可以不给

  fnd_global.APPS_INITIALIZE(user_id      => 0,
                             resp_id      => 20560,
                             resp_appl_id => 706);
  --
  l_iface_rec.last_update_date := to_date('2014-02-01', 'yyyy-mm-dd');
  l_iface_rec.last_updated_by  := fnd_global.user_id;
  l_iface_rec.creation_date    := to_date('2014-02-01', 'yyyy-mm-dd');
  l_iface_rec.created_by       := fnd_global.user_id;
  --
  l_iface_rec.group_id := l_group_id;
  /*================================================
   WIP_LOAD_TYPE        MFG_LOOKUPS
   ------------        --------------
       1              Create Standard Job
       2              Create Repetitive Schedule
       3              Update Discrete Job
       4              Create Non–standard Job
  ================================================*/
  l_iface_rec.load_type       := 1; --接口记录类型
  l_iface_rec.allow_explosion := 'Y'; -- Y自动用标准BOM和Routing展开  -N:需要自定义组件需求和工序，写入wip_job_dtls_interface
  l_iface_rec.process_phase   := '2'; --导入时，此字段为2
  /*Possible PROCESS_PHASE values include:
  2 Validation
  3 Explosion
  4 Complete
  5 Creation*/
  l_iface_rec.process_status := '1'; --导入时，此字段为1
  /*1 Pending
  2 Running
  3 Error
  4 Complete
  5 Warning*/
  l_iface_rec.status_type           := '1'; --工单状态 ：未发放
  l_iface_rec.job_name              := 'li_test001'; --工单名--唯一
  l_iface_rec.organization_id       := 683; --组织id
  l_iface_rec.class_code            := '200-OSA'; --WIP工单类型 分类名
  l_iface_rec.primary_item_id       := 51129; --装配件ID
  l_iface_rec.start_quantity        := 100;
  l_iface_rec.scheduling_method     := '1';
  l_iface_rec.first_unit_start_date := SYSDATE;
  l_iface_rec.source_code           := 'li test'; --来源代码，随便给，一般是来源系统名
  --l_iface_rec.source_line_id        := 987654321;

  INSERT INTO wip.wip_job_schedule_interface VALUES l_iface_rec;
  --API
  wip_massload_pub.massloadjobs(p_groupid         => l_group_id, -- Group ID
                                p_validationlevel => 2, -- Validation Level
                                p_commitflag      => 0, -- Commit 1 =Yes , 0 ='No'
                                x_returnstatus    => l_returnstatus,
                                x_errormsg        => l_errormsg);

  dbms_output.put_line('1' || l_returnstatus);
  dbms_output.put_line('2' || l_errormsg);
  IF (l_returnstatus <> fnd_api.g_ret_sts_success) THEN
  
    select error
      into l_error
      from wip_interface_errors
     where interface_id = (select interface_id
                             from wip_job_schedule_interface
                            where group_id = l_group_id);
    dbms_output.put_line('x_return_message: ' || l_error);
  
  END IF;

END;
/
select * from wip_interface_errors where last_update_date >= sysdate - 1;--错误接口表

select *
  from wip.wip_job_schedule_interface
 where last_update_date >= sysdate - 1;--接口表