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.