Oracle Ebs 创建非标工单

DECLARE
  L_IFACE_REC WIP.WIP_JOB_SCHEDULE_INTERFACE%ROWTYPE;
  --任务单--组件
  L_GROUPID        NUMBER := 123456;
  L_ORGANIZATIONID NUMBER := 122;
  L_USERID         NUMBER := 0;
BEGIN
  --*****Start任务单装配件*****----
  SELECT WIP.WIP_JOB_SCHEDULE_INTERFACE_S.NEXTVAL
    INTO L_IFACE_REC.HEADER_ID
    FROM DUAL;
  DBMS_OUTPUT.PUT_LINE(L_IFACE_REC.HEADER_ID);
  L_IFACE_REC.LAST_UPDATE_DATE  := SYSDATE;
  L_IFACE_REC.LAST_UPDATED_BY   := 0;
  L_IFACE_REC.CREATION_DATE     := SYSDATE;
  L_IFACE_REC.CREATED_BY        := 0;
  L_IFACE_REC.LAST_UPDATE_LOGIN := 0;
  L_IFACE_REC.GROUP_ID          := L_IFACE_REC.HEADER_ID;
  L_IFACE_REC.LOAD_TYPE         := 4;
  L_IFACE_REC.PROCESS_PHASE     := 2;
  L_IFACE_REC.PROCESS_STATUS    := 1;
  --1为未发放(UnReleased),3为创建任务单以后状态自动已发放(Released)
  L_IFACE_REC.STATUS_TYPE := 3; --1 UnReleased/3 Released 需要开会计期
  --默认为Y,若为Y时，则无须把组件、工序和资源等等数据插入接口表WIP.WIP_JOB_SCHEDULE_INTERFACE。
  --若为N时，则需要往接口表表WIP.WIP_JOB_SCHEDULE_INTERFACE插入组件、工序和资源等等数据
  L_IFACE_REC.ALLOW_EXPLOSION := 'Y';
  --任务单名称
  L_IFACE_REC.JOB_NAME := WIP_JOB_NUMBER_S.NEXTVAL;
  --组织标识
  L_IFACE_REC.ORGANIZATION_ID := 103;
  --装配件标识
  L_IFACE_REC.PRIMARY_ITEM_ID := 10266168;
  --开始数量
  L_IFACE_REC.START_QUANTITY := 1;
  --开始日期
  L_IFACE_REC.FIRST_UNIT_START_DATE := SYSDATE;
  --任务单来源 自定义
  L_IFACE_REC.SOURCE_CODE := 'WIPPLAN';
  --来源标识 自定义
  L_IFACE_REC.SOURCE_LINE_ID := 0;
  L_IFACE_REC.CLASS_CODE     := 'NF';
  --题头标识 自定义
  --l_iface_rec.Header_Id                  := 3452; 
  L_IFACE_REC.FIRST_UNIT_START_DATE      := SYSDATE;
  L_IFACE_REC.FIRST_UNIT_COMPLETION_DATE := NULL;
  L_IFACE_REC.LAST_UNIT_START_DATE       := NULL;
  L_IFACE_REC.LAST_UNIT_COMPLETION_DATE  := SYSDATE;
  INSERT INTO WIP.WIP_JOB_SCHEDULE_INTERFACE VALUES L_IFACE_REC;
  --*****End 任务单装配件*****----
END;