|
可以实现
i_edelnr = it_mdps-delnr.
CLEAR it_mdrq . REFRESH it_mdrq .
if it_mdps-delkz = 'LA' or it_mdps-delkz = 'BE'.
CALL FUNCTION 'MD_PEGGING_NODIALOG'
EXPORTING
EDELET = 0001
edelkz = it_mdps-delkz
edelnr = i_edelnr
edelps = it_mdps-delps
* EPLSCN = 000
ematnr = gt_qty-matnr
ewerks = gt_qty-werks
* EPLWRK = ' '
* EPLAAB = ' '
* EPLANR = ' '
* EBERID = ' '
* EDAT00 = 00000000
TABLES
* EMDPSX =
imdrqx = it_mdrq
EXCEPTIONS
error = 1
no_requirements_found = 2
order_not_found = 3
OTHERS = 4
.
endif. |
|