BOMショー

CS_BOM_EXPL_MAT_V2
* ＆------------------------------------------------ --------------------- * 
* ＆フォームBOM_EXPLOSION 
* ＆---------------------- ----------------------------------------------- * 
FORMのbom_explosion 。
  DATA：g_ccxfeld TYPEのccxfeld。

  IF r_nobom = ' X ' 。
    g_ccxfeld = '' 。
  ELSE 。
    g_ccxfeld = ' X '。  " 展BOM 
  ENDIF 。

  CALLの FUNCTION  ' CS_BOM_EXPL_MAT_V2 '
    EXPORTING 
* "VALUE（FTREL）LIKE CSDATA-XFELDのデフォルトSPACE 
*を" VALUE CSDATA-XFELDデフォルトSPACE LIKE（ALEKZ）
* "CSDATA-XFELDデフォルトSPACE LIKE VALUE（ALTVO）
* CSDATA-XFELDデフォルトSPACE LIKE VALUE（AUFSW）" 
* "VALUE（AUMGB）LIKE CSDATA-XFELDデフォルト空間
* STKO-BMENGのDEFAULT 0 LIKE" VALUE（AUMNG）
* "VALUE（AUSKZ）CSDATA-XFELDデフォルト空間LIKE 
* " CSDATA-XFELDデフォルト空間のような値（AMIND）
* "VALUE （BAGRP）LIKE MARA-MATNR DEFAULTのSPACE 
* "VALUE（BEIKZ）LIKE STPO-BEIKZデフォルトSPACE 
*"CSDATA-XFELDデフォルト空間のような値（BESSL）
* CSDATA-XFELDデフォルト空間のような値（BGIXO）" 
* "CSDATA-XFELDデフォルト空間のような値（BREMS） 
      capid = ' PP01 ' 
* VALUE（CHLST）LIKE CSDATA-XFELD" DEFAULT空間
* "CSDATA-XFELDデフォルト空間のような値（COSPR）
* " VALUE（CUOBJ）MARC-CUOBJ DEFAULT 000000000000000 LIKE 
* "VALUE（CUOVS）TYPE IBVERSIONのDEFAULT 0 
* CSDATA-XFELDデフォルト空間LIKE" VALUE（CUOLS） 
      datuv = SY- データム
 * "VALUE（DELNL）CSDATA-XFELDデフォルトSPACE LIKE 
*"CSDATA-XFELDデフォルト空間のような値（DRLDT）
* CSDATA-XFELDデフォルト空間のような値（EHNDL）" 
* "STKO-BMENGのDEFAULT 0のような値（EMENG）
* VALUE（ERSKZ）LIKE STPO-ERSKZデフォルトSPACE" 
* "VALUE CSDATA-XFELDデフォルト空間LIKE（ERSSL）
* "VALUE（FBSTP）CSDATA-XFELDデフォルト空間LIKE 
* " VALUE（KNFBA）LIKE CSDATA-XFELDデフォルト空間
* "CSDATA-XFELDデフォルト空間のような値（KSBVO）
* " VALUE（MBWLS ）CSDATA-XFELDデフォルトSPACE LIKE 
* "VALUE（MKTLS）LIKE CSDATA-XFELDのDEFAULT 'X' 
* "VALUE（MDMPS）LIKE CSDATA-XFELDデフォルトSPACE
      mehrs = g_ccxfeld   " X：多階、空白：單階
* " VALUE（MKMAT）LIKE CSDATA-XFELDデフォルト空間
* "CSDATA-XFELDデフォルト空間のような値（MMAPS）
* CSDATA-XFELDデフォルト空間のような値（SALWW）" 
* "CSDATA-XFELDデフォルト空間のような値（SPLWW）
* CSDATA-XFELDデフォルト空間のような値（MMORY）" 
      mtnrv = gt_input-MATNR " gt_data-MATNR 
* " VALUE（NLINK）LIKE CSDATA-XFELDデフォルト空間
* "VALUE（POSTP） STPO-POSTPデフォルトSPACE LIKE 
* CSDATA-XFELDデフォルトSPACE LIKE "VALUE（RNDKZ）
*"STPO-RVRELデフォルト空間のような値（RVREL）
* STPO-SANFEデフォルト空間のような値（SANFR）" 
* "STPO-山陰デフォルト空間のような値（山陰）
* STPO-散香デフォルト空間のような値（散香）" 
* "VALUE STPO-三光DEFAULT空間LIKE（SANKO）
* "STPO-SANVSデフォルト空間のような値（SANVS）
* STPO-SCHGTデフォルト空間のような値（SCHGT）" 
* "STPO-STKKZデフォルト空間のような値（STKKZ）
* VALUE"（STLAL ）LIKE STKO-STLAL DEFAULT空間
* STZU-STLANデフォルト空間LIKE "VALUE（STLAN） 
      stpst = 0 
*"VALUE（SVWVO）LIKE CSDATA-XFELDデフォルト'X' 
      WERKS = gt_input-WERKS " 'BP01' 
* "CSDATA-XFELDデフォルト空間のような値（NORVL）
* CSDATA-XFELDデフォルト空間のような値（MDNOT）" 
* 」の値（ CSDATA-XFELDデフォルト空間LIKE PANOT）
* "TMQ2-USEQU DEFAULT空間のような値（QVERW） 
      verid = ' X ' 
* CSDATA-XFELDデフォルトのような値（VRSVO） 'X'"
    IMPORTING 
      topmat = topmatx
     TABLESを
      STB     = stbp
     例外
      alt_not_found 
      call_invalid
      material_not_found 
      missing_authorization 
      no_bom_found 
      no_plant_data 
      no_suitable_bom_found 
      CONVERSION_ERROR。

  IF  NOT SY-SUBRC = 0 。
    EXIT 。
  ENDIF 。
ENDFORM。「BOM_EXPLOSION
おすすめ
