一般做搜索帮助我们需要回车才能带出和搜索帮助相关的值,例:
点击物料的搜索帮助回车带出物料描述,现在帮你省掉敲回车的动作,物料和描述同步粗来啦!
首先在PAI里写:
PROCESS ON VALUE-REQUEST.
FIELD ZPRPEOPL MODULE USER_NAME_F4-1."问题提出人
MODULE USER_NAME_F4-1 INPUT.
data: return_tab like ddshretval occurs 1 with header line,
field_tab like dfies occurs 1 with header line,
dynpfields like dynpread occurs 3 with header line.
*取开发人员(名字)
SELECT
USERID "用户名字ID
USERNAME "用户名ID描述(名字)
INTO CORRESPONDING FIELDS OF TABLE GT_UNAME
FROM ZVXXDEV_UNAME
.
SORT GT_UNAME BY USERID USERNAME.
DELETE ADJACENT DUPLICATES FROM GT_UNAME.
*&----调用展示函数
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
* DDIC_STRUCTURE = ' '
RETFIELD = 'USERID' "表格要显示的字段
* PVALKEY = ' '
DYNPPROG = SY-REPID "返回才程序
DYNPNR = SY-DYNNR "屏幕
DYNPROFIELD = 'ZPRPEOPL' "往页面回填值的地方
* STEPL = 0
* WINDOW_TITLE =
* VALUE = ' '
VALUE_ORG = 'S'
* MULTIPLE_CHOICE = ' '
* DISPLAY = ' '
CALLBACK_PROGRAM = SY-REPID "当前程序
CALLBACK_FORM = 'BO_CALLBACK_FORM' "回调函数
* CALLBACK_METHOD =
* MARK_TAB =
* IMPORTING
* USER_RESET =
TABLES
VALUE_TAB = GT_UNAME
FIELD_TAB = FIELD_TAB
RETURN_TAB = RETURN_TAB
** DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.
ENDMODULE.
form bo_callback_form tables record_tab structure seahlpres
changing shlp type shlp_descr_t
callcontrol like ddshf4ctrl.
data: interface like line of shlp-interface,
fp like line of shlp-fieldprop.
read table shlp-interface into interface index 1.
interface-shlpfield+4(1) = '2'.
interface-valfield = 'ZPRPEOPL2'.
append interface to shlp-interface.
endform.
```