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

项目中经常会遇到这种需求，下面我们以MATNR的F4帮助，返回matnr和maktx为例进行说明：

1、程序代码

1. TYPES: shlp_descr_t TYPE shlp_descr .
   
2. DATA: BEGIN OF itab OCCURS 0 ,
   
3.         matnr LIKE mara-matnr ,
   
4.         maktx LIKE makt-maktx ,
   
5.       END OF itab.
   
6. DATA: return_tab TYPE ddshretval OCCURS 0 .
   
7. PARAMETERS: p_matnr LIKE itab-matnr ,
   
8.             p_maktx LIKE itab-maktx .
   
9. 
   
10. INITIALIZATION.
    
11.   SELECT matnr maktx INTO TABLE itab FROM makt UP TO 20 ROWS
    
12.     WHERE spras = '1'.
    
13. 
    
14. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_matnr .
    
15.   PERFORM f4.
    
16. 
    
17. *&---------------------------------------------------------------------*
    
18. *&      Form  f4
    
19. *&---------------------------------------------------------------------*
    
20. FORM f4.
    
21.   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    
22.     EXPORTING
    
23.       retfield         = 'MATNR'   "Name of return field in FIELD_TAB,注意大写
    
24.       dynpprog         = sy-repid  "返回的输入框所在的main program
    
25.       dynpnr           = sy-dynnr  "返回的输入框所在屏幕
    
26.       dynprofield      = 'P_MATNR' "返回的输入框名
    
27.       window_title     = '商品标示'
    
28.       value_org        = 'S'       "Value return: C: cell by cell, S: structured
    
29.       callback_program = sy-repid  "回调程序名称
    
30.       callback_form    = 'CB_FORM' "回调子过程
    
31.     TABLES
    
32.       value_tab        = itab      "储搜索帮助内容的内表
    
33.       return_tab       = return_tab"Return the selected value
    
34.     EXCEPTIONS
    
35.       parameter_error  = 1
    
36.       no_values_found  = 2
    
37.       OTHERS           = 3.
    
38. ENDFORM.                    "f4
    
39. 
    
40. *&---------------------------------------------------------------------*
    
41. *&      Form  cb_form
    
42. *&---------------------------------------------------------------------*
    
43. FORM cb_form TABLES record_tab STRUCTURE seahlpres
    
44.               CHANGING shlp TYPE shlp_descr_t
    
45.                        callcontrol LIKE ddshf4ctrl.
    
46.   DATA: interface LIKE LINE OF shlp-interface.
    
47.   READ TABLE shlp-interface INTO interface INDEX 1.
    
48.   interface-shlpfield+4(1) = '2'.  "这里的数字代表F4搜索帮助弹出的ALV对话框，字段的位置，比如此行是显示F4弹出的alv第二列的内容
    
49.   interface-valfield = 'P_MAKTX'.
    
50.   APPEND interface TO shlp-interface.
    
51. ENDFORM.                    "bo_callback_form

复制代码

2、执行测试



实现原理debug分析

第一行值：F4IF_INT_TABLE_VALUE_REQUEST直接赋值P_MATNR产生的
第二行值：回调perform cb_form子过程产生的
注意：itab内表结构定义时不能直接TYPE C，需要参考数据字典
同样效果也可以通过一下方式实现：DYNP_VALUES_UPDATE 实时更新Selection Screen