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博客 ” ，链接：https://blog.itpub.net/166523/viewspace-419004/ ，如需转载，请注明出处，否则将追究法律责任。
