根據(jù)期間（D,W,M）匯總MRP信息行

?

? FUNCTION?Z_IF_MRP_TOTAL_LIST.
*"----------------------------------------------------------------------
*"*"Local?interface:
*"??IMPORTING
*"?????VALUE(I_WERKS)?TYPE??BAPI_MRP_MAT_PARAM-PLANT
*"?????VALUE(I_MATNR)?TYPE??BAPI_MRP_MAT_PARAM-MATERIAL?OPTIONAL
*"?????VALUE(I_PERIOD_FLAG)?TYPE??BAPI_MRP_LIST_PARAM-PERIOD_INDICATOR
*"??TABLES
*"??????TB_MRP_ITEM_LINES?STRUCTURE??ZST_MRP_ITEM_LINES?OPTIONAL
*"??????TB_MRP_IND_LINES?STRUCTURE??ZST_MRP_IND_LINES?OPTIONAL
*"??????TB_MRP_TOTAL_LINES?STRUCTURE??ZST_MRP_TOTAL_LINES?OPTIONAL
*"----------------------------------------------------------------------

??DATA:?IT_MRP_TOTAL_LINES?TYPE?TABLE?OF?BAPI_MRP_TOTAL_LINES??WITH?HEADER?LINE.


??DATA:?BEGIN?OF?GT_MRP_ITEM_LINES?OCCURS?0.
??DATA:?MATNR?TYPE?BAPI_MRP_MAT_PARAM-MATERIAL.
??????????INCLUDE?STRUCTURE??BAPI_MRP_ITEMS.
??DATA:?END?OF?GT_MRP_ITEM_LINES.

??DATA??IT_MRP_ITEM_LINES?TYPE?TABLE?OF?BAPI_MRP_ITEMS?WITH?HEADER?LINE.




??DATA:?BEGIN?OF?GT_MRP_IND_LINES?OCCURS?0.
??DATA:?MATNR?TYPE?BAPI_MRP_MAT_PARAM-MATERIAL.
??????????INCLUDE?STRUCTURE??BAPI_MRP_IND_LINES.
??DATA:?END?OF?GT_MRP_IND_LINES.

??DATA?IT_MRP_IND_LINES?TYPE?TABLE?OF?BAPI_MRP_IND_LINES?WITH?HEADER?LINE.

??DATA:?BEGIN?OF?IT_MARC?OCCURS?0,
?????????????????MATNR?TYPE?BAPI_MRP_MAT_PARAM-MATERIAL.
??DATA:?END?OF?IT_MARC.


FIELD-SYMBOLS:??type?table.
FIELD-SYMBOLS:??.


?if?I_MATNR?IS?INITIAL.
??SELECT?MATNR?INTO?TABLE?IT_MARC?FROM?MARC?WHERE?WERKS?=?I_WERKS
??AND?DISMM?IN?('M0','PD').
?ELSE.
??SELECT?MATNR?INTO?TABLE?IT_MARC?FROM?MARC?WHERE?WERKS?=?I_WERKS
??AND?DISMM?IN?('M0','PD')
??AND?MATNR?=?I_MATNR.
?ENDIF.

??CHECK?NOT?IT_MARC[]?IS?INITIAL.

??LOOP?AT?IT_MARC.

????REFRESH:
?????IT_MRP_TOTAL_LINES[],
?????IT_MRP_ITEM_LINES[],
?????IT_MRP_IND_LINES[].

????CALL?FUNCTION?'BAPI_MATERIAL_MRP_LIST'
??????EXPORTING
????????MATERIAL???????????????=?IT_MARC-MATNR
???????PLANT??????????????????=??I_WERKS
*???MRP_AREA???????????????=
*???PLAN_SCENARIO??????????=
*???DISPLAY_FILTER?????????=
???????PERIOD_INDICATOR???????=?I_PERIOD_FLAG
*???VENDOR_NO??????????????=
*???DISPLAY_TO?????????????=
???????GET_ITEM_DETAILS???????='X'
???????GET_IND_LINES??????????=?'X'
???????GET_TOTAL_LINES????????='X'
*???MATERIAL_EVG???????????=
*?IMPORTING
*???MRP_LIST???????????????=
*???RETURN?????????????????=
?????TABLES
???????MRP_ITEMS??????????????=?IT_MRP_ITEM_LINES
???????MRP_IND_LINES??????????=?IT_MRP_IND_LINES
???????MRP_TOTAL_LINES????????=?IT_MRP_TOTAL_LINES
*???EXTENSIONOUT???????????=
??????????????.

????IF?SY-SUBRC?EQ?0.
??????LOOP?AT?IT_MRP_ITEM_LINES.
????????MOVE-CORRESPONDING?IT_MRP_ITEM_LINES?TO?TB_MRP_ITEM_LINES.
????????TB_MRP_ITEM_LINES-MATNR?=?IT_MARC-MATNR.
????????TB_MRP_ITEM_LINES-WERKS?=?I_WERKS.
????????APPEND?TB_MRP_ITEM_LINES.
??????ENDLOOP.

??????LOOP?AT?IT_MRP_IND_LINES.
????????MOVE-CORRESPONDING?IT_MRP_IND_LINES?TO?TB_MRP_IND_LINES.
????????GT_MRP_IND_LINES-MATNR?=?IT_MARC-MATNR.
????????TB_MRP_IND_LINES-WERKS?=?I_WERKS.
????????APPEND?TB_MRP_IND_LINES.
??????ENDLOOP.

??????LOOP?AT?IT_MRP_TOTAL_LINES.
????????MOVE-CORRESPONDING?IT_MRP_TOTAl_LINES?TO?TB_MRP_TOTAL_LINES.
????????TB_MRP_TOTAL_LINES-MATNR?=?IT_MARC-MATNR.
????????TB_MRP_TOTAL_LINES-WERKS?=?I_WERKS.
????????APPEND?TB_MRP_TOTAL_LINES.
??????ENDLOOP.
????ENDIF.


??ENDLOOP.

ENDFUNCTION.

總結(jié)

以上是生活随笔為你收集整理的MRP信息汇总BAPI(Z_IF_MRP_TOTAL_LIST)的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。