ABAP选择屏幕的实时关联F4帮助的实现案例

在 AT SELECTION-SCREEN 事件中更新 PARAMETER 或 SELECT-OPTIONS 的数值时，当前界面不会立即更新，要按 Enter之后才会更新最新值。
主要用到 'DYNP_VALUES_UPDATE'和 'DYNP_VALUES_READ'两个函数。

程序代码：

1. TYPE-POOLS: slis.
   
2. *----------------------------------------------------------------------*
   
3. *        T A B L E S
   
4. *----------------------------------------------------------------------*
   
5. 
   
6. *----------------------------------------------------------------------*
   
7. *        T Y P E S
   
8. *----------------------------------------------------------------------*
   
9. * Main internal table for process
   
10. TYPES: BEGIN OF ty_bwart,
    
11.   zeile TYPE mseg-zeile,
    
12.   bwart TYPE mseg-bwart,
    
13.   sobkz TYPE mseg-sobkz,
    
14.   rmtxt TYPE string,
    
15. END OF ty_bwart.
    
16. 
    
17. *----------------------------------------------------------------------*
    
18. *        I N T E R N A L   T A B L E
    
19. *----------------------------------------------------------------------*
    
20. DATA: t_bwart         TYPE ty_bwart  OCCURS 0 WITH HEADER LINE.
    
21. 
    
22. *----------------------------------------------------------------------*
    
23. *        W O R K I N G   A R E A S                                     *
    
24. *----------------------------------------------------------------------*
    
25. 
    
26. DATA: w_bwart           TYPE ty_bwart.
    
27. 
    
28. *----------------------------------------------------------------------*
    
29. *        S E L E C T I O N  -  S C R E E N
    
30. *----------------------------------------------------------------------*
    
31. 
    
32. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE c_title.
    
33. PARAMETER: p_bwart LIKE mseg-bwart OBLIGATORY, "MOV Type
    
34.            p_sobkz LIKE mseg-sobkz.            "Special Stock
    
35. SELECTION-SCREEN SKIP 1.
    
36. SELECTION-SCREEN END OF BLOCK b1.
    
37. 
    
38. *----------------------------------------------------------------------*
    
39. *        L O A D - O F - P R O G R A M
    
40. *----------------------------------------------------------------------*
    
41. LOAD-OF-PROGRAM.
    
42. 
    
43. *----------------------------------------------------------------------*
    
44. *        I N I T I A L I Z A T I O N
    
45. *----------------------------------------------------------------------*
    
46. INITIALIZATION.
    
47. 
    
48.   c_title = 'DYNP_VALUES_UPDATE Demo'.
    
49. 
    
50.   t_bwart-bwart = '322'.
    
51.   t_bwart-sobkz = ''.
    
52.   t_bwart-rmtxt = 'Unrest. Use > QI (WH stock)'.
    
53.   APPEND t_bwart.
    
54. 
    
55.   t_bwart-bwart = '344'.
    
56.   t_bwart-sobkz = 'K'.
    
57.   t_bwart-rmtxt = 'Unrest. Use > Blocked (Consignment)'.
    
58.   APPEND t_bwart.
    
59. 
    
60.   t_bwart-bwart = '321'.
    
61.   t_bwart-sobkz = ''.
    
62.   t_bwart-rmtxt = 'QI > to Unrest. Use (WH stock)'.
    
63.   APPEND t_bwart.
    
64. 
    
65.   t_bwart-bwart = '350'.
    
66.   t_bwart-sobkz = 'E'.
    
67.   t_bwart-rmtxt = 'QI > Blocked (SO stock)'.
    
68.   APPEND t_bwart.
    
69. 
    
70.   t_bwart-bwart = '350'.
    
71.   t_bwart-sobkz = 'K'.
    
72.   t_bwart-rmtxt = 'QI > Blocked (Consignment)'.
    
73.   APPEND t_bwart.
    
74. *----------------------------------------------------------------------*
    
75. *        A T   S E L E C T I O N  -  S C R E E N
    
76. *----------------------------------------------------------------------*
    
77. AT SELECTION-SCREEN. "ON VALUE-REQUEST FOR P_LAYOUT.
    
78. 
    
79. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bwart.
    
80.   DATA l_selfield TYPE slis_selfield.
    
81.   DATA: wa_fcat TYPE slis_fieldcat_ALV,
    
82.         fcat TYPE slis_t_fieldcat_alv.
    
83. 
    
84.   "Field Cat. for Error Message Display
    
85.   CLEAR wa_fcat.
    
86.   wa_fcat-row_pos   = '1'.
    
87.   wa_fcat-col_pos   = '1'.
    
88.   wa_fcat-fieldname = 'BWART'.
    
89.   wa_fcat-tabname   = 'T_BWART'.
    
90.   wa_fcat-seltext_m = 'Movement'.
    
91.   wa_fcat-outputlen = 5.
    
92.   APPEND wa_fcat TO fcat.
    
93. 
    
94.   CLEAR wa_fcat.
    
95.   wa_fcat-row_pos   = '1'.
    
96.   wa_fcat-col_pos   = '2'.
    
97.   wa_fcat-fieldname = 'SOBKZ'.
    
98.   wa_fcat-tabname   = 'T_BWART'.
    
99.   wa_fcat-seltext_m = 'Spec.Stk.'.
    
100.   wa_fcat-outputlen = 5.
     
101.   APPEND wa_fcat TO fcat.
     
102. 
     
103.   CLEAR wa_fcat.
     
104.   wa_fcat-row_pos   = '1'.
     
105.   wa_fcat-col_pos   = '3'.
     
106.   wa_fcat-fieldname = 'RMTXT'.
     
107.   wa_fcat-tabname   = 'T_BWART'.
     
108.   wa_fcat-seltext_m = 'Description'.
     
109.   wa_fcat-outputlen = 50.
     
110.   APPEND wa_fcat TO fcat.
     
111. 
     
112.   CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
     
113.           EXPORTING
     
114.             i_selection          = 'X'
     
115.             i_zebra              = 'X'
     
116.             it_fieldcat          = fcat
     
117.             i_tabname            = 'T_BWART'
     
118. *              I_CHECKBOX_FIELDNAME = 'CHECKBOX'
     
119.           IMPORTING
     
120.             es_selfield          = l_selfield
     
121.           TABLES
     
122.             t_outtab             = t_bwart.
     
123. 
     
124.   IF l_selfield-tabindex GT 0.
     
125.     CLEAR w_bwart.
     
126.     READ TABLE t_bwart INDEX l_selfield-tabindex INTO w_bwart.
     
127.     IF w_bwart-bwart IS NOT INITIAL.
     
128. 
     
129.       DATA: ltab_fields LIKE dynpread OCCURS 0 WITH HEADER LINE.
     
130. 
     
131.       DATA: lc_dyname LIKE sy-repid.
     
132.       DATA: lc_dynumb LIKE sy-dynnr.
     
133. 
     
134.       lc_dyname = sy-repid.
     
135.       lc_dynumb = sy-dynnr.
     
136. 
     
137.       ltab_fields-fieldname  = 'P_BWART'.
     
138.       ltab_fields-fieldvalue = w_bwart-bwart.
     
139.       APPEND ltab_fields.
     
140.       ltab_fields-fieldname  = 'P_SOBKZ'.
     
141.       ltab_fields-fieldvalue = w_bwart-sobkz.
     
142.       APPEND ltab_fields.
     
143. 
     
144.       CALL FUNCTION 'DYNP_VALUES_UPDATE'
     
145.         EXPORTING
     
146.           dyname     = lc_dyname
     
147.           dynumb     = lc_dynumb
     
148.         TABLES
     
149.           dynpfields = ltab_fields
     
150.         EXCEPTIONS
     
151.           OTHERS     = 8.
     
152.     ENDIF.
     
153.   ENDIF.

复制代码

程序执行效果：

p_bwart，F4选择数值之后，p_sobkz里的值会自动更新进去，不用回车

ltab_fields内表值：

PS: DYNP_VALUES_UPDATE函数常用在search help的search help exit里

选择屏幕字段栏位实时更新函数：

1. CALL FUNCTION 'DYNP_VALUES_UPDATE'
   
2.         EXPORTING
   
3.           dyname               = sy-repid
   
4.           dynumb               = sy-dynnr
   
5.         TABLES
   
6.           dynpfields           = dyn_fields
   
7.         EXCEPTIONS
   
8.           invalid_abapworkarea = 1
   
9.           invalid_dynprofield  = 2
   
10.           invalid_dynproname   = 3
    
11.           invalid_dynpronummer = 4
    
12.           invalid_request      = 5
    
13.           no_fielddescription  = 6
    
14.           undefind_error       = 7
    
15.           OTHERS               = 8.

复制代码

选择屏幕字段栏位读取函数：

1. CALL FUNCTION 'DYNP_VALUES_READ'
   
2.     EXPORTING
   
3.        dyname                = sy-repid
   
4.        dynumb                = sy-dynnr
   
5.     TABLES
   
6.        dynpfields            = lt_dynpread
   
7.     EXCEPTIONS
   
8.        invalid_abapworkarea = 1
   
9.        invalid_dynprofield   = 2
   
10.        invalid_dynproname    = 3
    
11.        invalid_dynpronummer = 4
    
12.        invalid_request       = 5
    
13.        no_fielddescription   = 6
    
14.        invalid_parameter     = 7
    
15.        undefind_error        = 8
    
16.        double_conversion     = 9
    
17.        stepl_not_found       = 10
    
18.       OTHERS                = 11.

复制代码