动态创建search help

  Basis or ABAP — 作者 minitaxi @ 09:47

通过在屏幕的逻辑流里面调用FUNCTION F4IF_INT_TABLE_VALUE_REQUEST 可以实现使用动态生成的内表作为search help的内容

在内表中，也可以对内表数据进行组合以后作为新的关键字等使用

definition

TABLES: P0021.
TABLES: PA0021.
TABLES: PA9501.
DATA: PERNR LIKE P9501-PERNR,
ENAME LIKE Q0021-ENAME.
DATA: BEGIN OF ZTABLE_MEMBER OCCURS 0,
ENAME LIKE Q0021-ENAME,
FGBDT LIKE P0021-FGBDT,
FANAM LIKE P0021-FANAM,
FAVOR LIKE P0021-FAVOR,
END OF ZTABLE_MEMBER.

DATA: progname TYPE sy-repid,
dynnum TYPE sy-dynnr,
connection(24) TYPE c.
DATA field_value TYPE TABLE OF DDSHRETVAL WITH HEADER LINE.
DATA ZZCBRXM LIKE P9501-ZCBRXM.
data zreturn like sy-subrc.

input

MODULE ZWRITE_CBRXM_2000 INPUT.

REFRESH ZTABLE_MEMBER.
SELECT FGBDT FANAM FAVOR FROM PA0021
INTO CORRESPONDING FIELDS OF ZTABLE_MEMBER
WHERE PERNR = P9501-PERNR.
APPEND ZTABLE_MEMBER.
ENDSELECT.
LOOP AT ZTABLE_MEMBER .
CONCATENATE ZTABLE_MEMBER-FANAM ZTABLE_MEMBER-FAVOR INTO ENAME
SEPARATED BY SPACE.
ZTABLE_MEMBER-ENAME = ENAME.
MODIFY ZTABLE_MEMBER.
ENDLOOP.

progname = sy-repid.
dynnum = sy-dynnr.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'ENAME'
dynpprog = progname
dynpnr = dynnum
dynprofield = 'CONNECTION'
value_org = 'S'
TABLES
value_tab = ZTABLE_MEMBER
return_tab = field_value.

zreturn = sy-subrc.

logic flow after chain

PROCESS ON VALUE-REQUEST .
FIELD P9501-ZCBRXM MODULE ZWRITE_CBRXM_2000 .