V45A0003 Collector for customer function modulpool MV45A
Function exit EXIT_SAPMV45A_003
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S52 { color: #0000FF; } include zxvvau05 .
SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } *&---------------------------------------------------------------------*
*& Include ZXVVAU05
*&---------------------------------------------------------------------*
tables:zplot,prps,vbap.
data cur type string.
*if sy-tcode = 'VA01'.
* loop at XVBAP.
* select single * from zplot where matnr = xvbap-matnr.
* if sy-subrc = 0.
* select single * from prps where posid = zplot-posid.
* clear xvbap-PS_PSP_PNR.
* xvbap-ps_psp_pnr = Prps-pspnr.
* endif.
* modify xvbap.
* endloop.
*endif.
if sy-tcode = 'VA02'.
if sy-uname = 'SAP013'.
endif.
loop at xvbap.
if xvbap-abgru = 'Z1' or xvbap-abgru = ''.
select single * from vbap where vbeln = xvbap-vbeln and posnr = xvbaP-POSNR.
if vbap-abgru = 'Z1' or vbap-abgru = ''.
else.
concatenate 'ITEM-' vbap-posnr ' previous reject reason is equal to-' VBAP-ABGRU ',not equal to Z1 waiting for approval, don’t allow to cancel the reject reason, please revised.' INTO CUR.
replace '-' with '' into cur.
replace '-' with '' into cur.
message cur type 'E'.
exit.
endif.
endif.
endloop.
endif.
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/166523/viewspace-418977/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/166523/viewspace-418977/