控制SO的reject reason

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/