参考代码
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
SELECT SINGLE *
FROM CDPOS
WHERE OBJECTCLAS = 'EINKBELEG'
AND OBJECTID = GS_PO_HEAER-EBELN
AND TABNAME = 'EKKO'
AND FNAME = 'FRGZU'
AND VALUE_NEW = 'XXX'.
IF SY-SUBRC = 0.
SELECT SINGLE CDHDR~USERNAME
INTO GS_PO_HEAER-ERNAM
FROM CDHDR
WHERE OBJECTCLAS = 'EINKBELEG'
AND OBJECTID = CDPOS-OBJECTID
AND CHANGENR = CDPOS-CHANGENR.
ENDIF.
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/16181884/viewspace-747310/ ，如需转载，请注明出处，否则将追究法律责任。
