|
可以考虑,对组件SUSR0001 写CMOD的增强,使用一个POPUP_GET_VALUES_USER_HELP的功能
参考类似代码:
DATA: CODE TYPE C.
DATA:TAZ TYPE TABLE OF SVAL WITH HEADER LINE.
DATA:GETD(200) TYPE C.
TABLES:ZTXXXXXX.
CLEAR TAZ.
TAZ-TABNAME = 'LFA1'.
TAZ-FIELDNAME = 'NAME1'.
APPEND TAZ.
"弹出填写数据的框
IF SY-UNAME = 'XXXXXXXXX'.
CALL FUNCTION 'POPUP_GET_VALUES_USER_HELP'
EXPORTING
POPUP_TITLE = '请输入上班城市'
"programname = 'ZTEST'
"formname = 'TESTFORM'
IMPORTING
RETURNCODE = CODE
TABLES
FIELDS = TAZ.
CLEAR:GETD.
GETD = TAZ-VALUE.
ZTXXXXXX-YYYY = GETD.
INSERT ZTXXXXXX.
ENDIF. |
|