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.