常用的MRP函数
* ------------------------------------------------*
* MRP Function 'MD_STOCK_REQUIREMENTS_LIST_API'
*-------------------------------------------------*
data: lt_mdpsx like table of mdps with header line.
loop at t_out.
l_enddate = sy-datum + t_out-plifz.
* MRP Function 'MD_STOCK_REQUIREMENTS_LIST_API'
*-------------------------------------------------*
data: lt_mdpsx like table of mdps with header line.
loop at t_out.
l_enddate = sy-datum + t_out-plifz.
call function 'MD_STOCK_REQUIREMENTS_LIST_API'
exporting
* PLSCN =
matnr = t_out-maty
werks = t_out-werks
* BERID = T_OUT-WERKS
* ERGBZ =
* AFIBZ =
* INPER =
* DISPLAY_LIST_MDPSX =
* DISPLAY_LIST_MDEZX =
* DISPLAY_LIST_MDSUX =
* IMPORTING
* E_MT61D =
* E_MDKP =
tables
mdpsx = lt_mdpsx
* MDEZX =
* MDSUX =
* EXCEPTIONS
* MATERIAL_PLANT_NOT_FOUND = 1
* PLANT_NOT_FOUND = 2
* OTHERS = 3.
exporting
* PLSCN =
matnr = t_out-maty
werks = t_out-werks
* BERID = T_OUT-WERKS
* ERGBZ =
* AFIBZ =
* INPER =
* DISPLAY_LIST_MDPSX =
* DISPLAY_LIST_MDEZX =
* DISPLAY_LIST_MDSUX =
* IMPORTING
* E_MT61D =
* E_MDKP =
tables
mdpsx = lt_mdpsx
* MDEZX =
* MDSUX =
* EXCEPTIONS
* MATERIAL_PLANT_NOT_FOUND = 1
* PLANT_NOT_FOUND = 2
* OTHERS = 3.
(2) Function: READ_MRP_LIST
data:itab2 like table of mdtb with header line.
data:m_dtnum like mdkp-dtnum.
clear itab2.
refresh itab2.
select max( dtnum )
into m_dtnum
from mdkp
where matnr = p_matnr
and dtart = 'MD'
and plwrk = p_werks.
data:m_dtnum like mdkp-dtnum.
clear itab2.
refresh itab2.
select max( dtnum )
into m_dtnum
from mdkp
where matnr = p_matnr
and dtart = 'MD'
and plwrk = p_werks.
call function 'READ_MRP_LIST'
exporting
idtnum = m_dtnum
icflag = 'X'
tables
mdtbx = itab2.
append itab2.
exporting
idtnum = m_dtnum
icflag = 'X'
tables
mdtbx = itab2.
append itab2.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/15117617/viewspace-630801/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
OLE上传EXCEL
下一篇：
SAP DIALOG
请登录后发表评论
登录
全部评论
