控制MD61,MD62中WBS元素不能为空

Enhancement     Impl      Exp  M60E0002 User Exit to End Planned Independent Requirements Maintnce

Function exit                  EXIT_SAPLM60E_002

  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S52 { color: #0000FF; } include zx60eu02.

  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L1S31 { font-style. italic; color: #808080; } .L1S32 { color: #3399FF; } .L1S33 { color: #4DA619; } .L1S52 { color: #0000FF; } *&---------------------------------------------------------------------*
*&  Include           ZX60EU02
*&---------------------------------------------------------------------*
**********************************************
tables: zplot,prps.
if sy-tcode = 'MD61' or sy-tcode = 'MD62'.
 loop at fxpbpt.
   if fxpbpt-knttp <> 'Q'.
     clear fxpbpt-knttp.
     fxpbpt-knttp = 'Q'.
   endif.
   select single * from zplot where matnr = fxpbpt-matnr.
   if sy-subrc = 0.
     select single * from prps where posid = zplot-posid.
     clear fxpbpt-pspel.
     fxpbpt-pspel = prps-pspnr.
   endif.
   modify fxpbpt.
*   fxpbpt-PSPEL = 'IL003'.
 endloop.
endif.
**********************************************
data:lv_pbpt like fxpbpt.
clear lv_pbpt.
loop at fxpbpt into lv_pbpt.
  if lv_pbpt-pspel is initial.
    message text-001  type 'W' display like 'E'.
    leave to screen sy-dynnr.
  endif.
endloop.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/166523/viewspace-419004/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/166523/viewspace-419004/