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.

转载地址:https://blog.csdn.net/champaignwolf/article/details/44676515