关于F4搜索帮助返回多列值的实现方法

*&---------------------------------------------------------------------*
*& Report  ZTEST_F4
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_F4.

TYPE-POOLS:SHLP.

SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-001. PARAMETERS:L_MATNR TYPE CHAR18, L_SPRAS LIKE MAKT-SPRAS, L_MAKTX LIKE MAKT-MAKTX. SELECTION-SCREEN END OF BLOCK BL1. AT SELECTION-SCREEN OUTPUT . AT SELECTION-SCREEN ON VALUE-REQUEST FOR L_MATNR."给分公司添加search help DATA:BEGIN OF TAB_MAKT OCCURS 0, MATNR LIKE MAKT-MATNR, SPRAS LIKE MAKT-SPRAS, MAKTX LIKE MAKT-MAKTX, END OF TAB_MAKT. SELECT * FROM MAKT INTO CORRESPONDING FIELDS OF TABLE TAB_MAKT. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' "调用函数 EXPORTING RETFIELD = 'MATNR' "搜索帮助内表要输出的的帮助字段名，注：要大写 DYNPPROG = SY-REPID DYNPNR = SY-DYNNR DYNPROFIELD = 'L_MATNR' VALUE_ORG = 'S' CALLBACK_PROGRAM = SY-REPID CALLBACK_FORM = 'BO_CALLBACK_FORM' TABLES VALUE_TAB = TAB_MAKT. "存储搜索帮助内容的内表 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. CLEAR INTERFACE. CLEAR FP. FP-SHLPOUTPUT = 'X'. MODIFY SHLP-FIELDPROP FROM FP TRANSPORTING SHLPOUTPUT WHERE SHLPOUTPUT = SPACE. READ TABLE SHLP-INTERFACE INTO INTERFACE INDEX 1. INTERFACE-SHLPFIELD+4(1) = '1'. "第一个位置。调用F4函数本身就已经有内容，所以会造成选择后面的语言或者是物料描述的时候，物料代码无法更改，所以此处用MODIFY 就可以解决这个问题 INTERFACE-VALFIELD = 'L_MATNR'. MODIFY SHLP-INTERFACE FROM INTERFACE INDEX 1. INTERFACE-SHLPFIELD+4(1) = '2'. "这里的数字 代表F4搜索帮助弹出的ALV对话框，字段的位置，比如此行是显示F4弹出的alv第二列的内容 INTERFACE-VALFIELD = 'L_SPRAS'. APPEND INTERFACE TO SHLP-INTERFACE. INTERFACE-SHLPFIELD+4(1) = '3'. "SHLP-INTERFACE的SHLPFIELD的值是F0003，所以这里加个4(1) 读到列的位置为3 此处注意。不要CLEAR INTERFACE。。。会导致缺少数据 INTERFACE-VALFIELD = 'L_MAKTX'. APPEND INTERFACE TO SHLP-INTERFACE. ENDFORM. "bo_callback_form