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