1.需求想要实现如下:
1.1.下拉框与F4帮助
1.2.实现方法
PROCESS ON VALUE-REQUEST.
FIELD G_CARRID
MODULE GET_LIST.
FIELD G_CARRNAME
MODULE GET_LIST.
MODULE GET_LIST INPUT.
SELECT * INTO CORRESPONDING FIELDS OF TABLE L_TAB_CARRID FROM SCARR.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'CARRID' "KEY值
DYNPPROG = SY-REPID "程序名,SY-REPID表示本程序
DYNPNR = SY-DYNNR "屏幕,Y-DYNNR表示当前屏幕
* DYNPROFIELD = 'CARRNAME' "需要在下拉框显示的字段
* DYNPROFIELD = 'CARRID' "需要在下拉框显示的字段CARRID
VALUE_ORG = 'S' "C表示CELL,S表示STRUCTURE
CALLBACK_PROGRAM = SY-REPID"
TABLES
VALUE_TAB = L_TAB_CARRID "关联的内表
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3.
ENDMODULE.