bom展开 CS_BOM_EXPL_MAT_V2

FUNCTION ZRFC_BOM_EXPL.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(I_WERKS) TYPE  WERKS_D OPTIONAL
*"     VALUE(I_MATNR) TYPE  MATNR OPTIONAL
*"     VALUE(I_DATUM) TYPE  DATUM DEFAULT SY-DATUM
*"  TABLES
*"      OUTPUT STRUCTURE  ZRFC_BOM_EXPL OPTIONAL
*"----------------------------------------------------------------------


DATA: GIT_STPOX  LIKE STPOX  OCCURS  0  WITH  HEADER  LINE.
DATA: GIT_CSCMAT  LIKE CSCMAT  OCCURS  0  WITH  HEADER  LINE.

CALL  FUNCTION  'CS_BOM_EXPL_MAT_V2'
        EXPORTING
            CAPID                 =  'PP01'                    "BOM类型，比如生产BOM，研发BOM，销售BOM等等
            DATUV                 = SY-DATUM                            "填入日期，函数据此日期筛选出有效的组件
            EHNDL                 =  '1'
            EMENG                 =  1000                    "设定的用量单位
*            MEHRS                 = 'X'                        "有值表示多层展开，类似事物码CS12
            MTNRV                 =  I_MATNR                           "BOM料号
            STLAN                 =  '1'                         "类似参数CAPID，限定被展开BOM的性质
            WERKS                 = I_WERKS           "
        TABLES
            STB                   = GIT_STPOX            "
            MATCAT                = GIT_CSCMAT.   "


LOOP  AT GIT_STPOX.
       OUTPUT-MATKL = GIT_STPOX-MATKL.
       OUTPUT-IDNRK = GIT_STPOX-IDNRK.
       IF GIT_STPOX-IDNRK <>  ''.
            OUTPUT-DOBJT = GIT_STPOX-IDNRK.
       ELSE.
            OUTPUT-DOBJT = GIT_STPOX-POTX1.
       ENDIF.
       OUTPUT-OJTXP = GIT_STPOX-OJTXP.
       OUTPUT-MNGKO = GIT_STPOX-MENGE.
       OUTPUT-MEINS = GIT_STPOX-MEINS.
       APPEND  OUTPUT.
       CLEAR  OUTPUT.
ENDLOOP.

ENDFUNCTION.