Oracel EBS 展开多级清单 BOMPEXPL.EXPLODER_USEREXIT

注意点

API参数中BOM_OR_ENG为下层需要展开的BOM类型，非顶层BOM的类型：
输入1：仅展开下层组件中制造BOM
输入2：同时展开下层组件中制造及研发BOM

DECLARE
  P_ITEM_NUMER VARCHAR2(10) ;
  L_SESSION_ID  NUMBER;
  L_GROUP_ID    NUMBER;
  V_OUT_CODE    NUMBER;
  V_OUT_MESSAGE VARCHAR2(240);

  V_ORGANIZATION_ID NUMBER; 
  V_ITEM_ID         NUMBER;
BEGIN
  BEGIN
    SELECT MSI.INVENTORY_ITEM_ID
      INTO V_ITEM_ID
      FROM MTL_SYSTEM_ITEMS_B MSI
     WHERE MSI.SEGMENT1 = P_ITEM_NUMER
       AND MSI.ORGANIZATION_ID = V_ORGANIZATION_ID;
  EXCEPTION
    WHEN OTHERS THEN
      V_ITEM_ID := NULL;
  END;
  IF V_ITEM_ID IS NOT NULL THEN
  
   
      --展开BOM
      SELECT BOM_EXPLOSION_TEMP_S.NEXTVAL INTO L_GROUP_ID FROM DUAL;
    
      SELECT BOM_EXPLOSION_TEMP_SESSION_S.NEXTVAL
        INTO L_SESSION_ID
        FROM DUAL;
    
      BOMPEXPL.EXPLODER_USEREXIT(VERIFY_FLAG       => 0, /*CONSTANT*/
                                 ORG_ID            => V_ORGANIZATION_ID, /*ORG_ID*/
                                 ORDER_BY          => 1, /*CONSTANT*/
                                 GRP_ID            => L_GROUP_ID, /*CONSTANT*/
                                 SESSION_ID        => L_SESSION_ID, /*CONSTANT*/
                                 LEVELS_TO_EXPLODE => 10, /*CONSTANT*/
                                 BOM_OR_ENG        => 2, /*CONSTANT*/ --BOM类型(1制造/2研发+制造)
                                 IMPL_FLAG         => 1, /*CONSTANT*/
                                 PLAN_FACTOR_FLAG  => 1, /*CONSTANT*/
                                 EXPLODE_OPTION    => 3, /*CONSTANT*/
                                 MODULE            => 2, /*CONSTANT*/
                                 CST_TYPE_ID       => 0, /*CONSTANT*/
                                 STD_COMP_FLAG     => 0, /*CONSTANT*/
                                 EXPL_QTY          => 1, /*CONSTANT*/
                                 ITEM_ID           => V_ITEM_ID, /*TOP_ITEM_ID*/
                                 ALT_DESG          => NULL, /*ALTERNATE_BOM_DESIGNATOR*/
                                 COMP_CODE         => '', /*CONSTANT*/
                                 REV_DATE          => TO_CHAR(SYSDATE,
                                                              'YYYY/MM/DD HH24:MI'), /*CONSTANT*/
                                 ERR_MSG           => V_OUT_MESSAGE, /*CONSTANT*/
                                 ERROR_CODE        => V_OUT_CODE); /*CONSTANT*/
   
  
  END IF;

END;