获取MD04数据函数及读取BOM LIST

获取MD04函数 ： MD_STOCK_REQUIREMENTS_LIST_API

Eg:

DATA S_MDPS LIKE MDPS OCCURS 0 WITH HEADER LINE.
DATA S_MDEZ LIKE MDEZ OCCURS 0 WITH HEADER LINE.
DATA S_MDSU LIKE MDSU OCCURS 0 WITH HEADER LINE.

REFRESH: S_MDPS,S_MDEZ,S_MDSU.
CLEAR: S_MDPS,S_MDEZ,S_MDSU,FIRST,LABST,OTHERS.
CALL FUNCTION 'MD_STOCK_REQUIREMENTS_LIST_API'
EXPORTING
MATNR = COM_TAB-IDNRK
WERKS = COM_TAB-WERKS
* AFIBZ = 'ZSAP_ALL'
TABLES
MDPSX = S_MDPS
MDEZX = S_MDEZ
MDSUX = S_MDSU
EXCEPTIONS
MATERIAL_PLANT_NOT_FOUND = 1
PLANT_NOT_FOUND = 2
OTHERS = 3.

读取BOM表函数：'CS_BOM_EXPL_MAT_V2'

DATA STB LIKE STPOX OCCURS 0 WITH HEADER LINE.
REFRESH: STB. CLEAR STB.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
EXPORTING
CAPID = 'PP01'
DATUV = SY-DATUM
MEHRS = 'X'
EMENG = 1000
MTNRV = MAT_TAB-MATNR
WERKS = MAT_TAB-WERKS
TABLES
STB = STB
EXCEPTIONS
ALT_NOT_FOUND = 1
CALL_INVALID = 2
MATERIAL_NOT_FOUND = 3
MISSING_AUTHORIZATION = 4
NO_BOM_FOUND = 5
NO_PLANT_DATA = 6
NO_SUITABLE_BOM_FOUND = 7
CONVERSION_ERROR = 8
OTHERS = 9.

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/21277275/viewspace-1019814/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/21277275/viewspace-1019814/