2019.03.30 Dialog demo 一个标准使用的dialog程序

Posted 2021-11-23 jxzhu

1 PROGRAM zdemo_dialog.
2 
3 INCLUDE zdemo_dialogtop.
4 INCLUDE zdemo_dialogo01.
5 INCLUDE zdemo_dialogi01.
6 INCLUDE zdemo_dialogf01.
7 INCLUDE zdemo_dialoghelp.

*&---------------------------------------------------------------------*
*& 包含               ZDEMO_DIALOGTOP
*&---------------------------------------------------------------------*


"屏幕元素定义
DATA: "ok_code      TYPE sy-ucomm,
  input_one    TYPE char10,
  input_two    TYPE char10,
  output_three TYPE char10,
  cb_descri    TYPE char1.
DATA subinput_one TYPE char10.
TABLES:t001w,t001l,makt,marc.

*&SPWIZARD: FUNCTION CODES FOR TABSTRIP ‘TABSTRIP_01‘
CONSTANTS: BEGIN OF c_tabstrip_01,
             tab1 LIKE sy-ucomm VALUE ‘TABSTRIP_01_FC1‘, "功能代码
             tab2 LIKE sy-ucomm VALUE ‘TABSTRIP_01_FC2‘,
             tab3 LIKE sy-ucomm VALUE ‘TABSTRIP_01_FC3‘,
           END OF c_tabstrip_01.
*&SPWIZARD: DATA FOR TABSTRIP ‘TABSTRIP_01‘
CONTROLS:  tabstrip_01 TYPE TABSTRIP.
DATA: BEGIN OF g_tabstrip_01,
        subscreen   LIKE sy-dynnr, "子屏幕
        prog        LIKE sy-repid VALUE ‘ZDEMO_DIALOG‘, "程序名
        pressed_tab LIKE sy-ucomm VALUE c_tabstrip_01-tab1, "按下去得按钮
      END OF g_tabstrip_01.
DATA:      ok_code LIKE sy-ucomm.

*排除按钮 EXCLUDING BUTTON
DATA :gt_status TYPE TABLE OF sy-ucomm, "EXCLUDING GT_STATUS
      gs_status TYPE sy-ucomm. "

*标题 TITLE
DATA gv_title TYPE  c LENGTH 10.

"标识 SIGN

DATA gv_sign_01 TYPE c.


*内表 TABLE CTRL 显示 表
TYPES:BEGIN OF ty_tab,
        id    TYPE id,
        matnr TYPE mard-matnr,
        werks TYPE mard-werks,
        lgort TYPE mard-lgort,
      END OF ty_tab.
DATA: lt_tab TYPE TABLE OF ty_tab,
      ls_tab TYPE  ty_tab.

*table control 控制表
TYPES:BEGIN OF ty_tab_crl,
        cbox  TYPE checkbox,
        id    TYPE id,
        matnr TYPE mard-matnr,
        werks TYPE mard-werks,
        lgort TYPE mard-lgort,
      END OF ty_tab_crl.
DATA:gt_tab TYPE TABLE OF ty_tab_crl,
     gs_tab TYPE ty_tab_crl.

*TABLE CONTROL 控制表2
DATA :gt_tab_1 TYPE TABLE OF ty_tab_crl,
      gs_tab_1 TYPE ty_tab_crl.
*&SPWIZARD: DECLARATION OF TABLECONTROL ‘TC_CTRL‘ ITSELF
CONTROLS: tc_ctrl TYPE TABLEVIEW USING SCREEN 0120. "table control 的控制器

*&SPWIZARD: LINES OF TABLECONTROL ‘TC_CTRL‘
DATA:     g_tc_ctrl_lines  LIKE sy-loopc."行数

*DATA:     OK_CODE LIKE SY-UCOMM.

*&SPWIZARD: DECLARATION OF TABLECONTROL ‘TC_CTRL_TAB‘ ITSELF
CONTROLS: tc_ctrl_tab TYPE TABLEVIEW USING SCREEN 0130.

*&SPWIZARD: LINES OF TABLECONTROL ‘TC_CTRL_TAB‘
DATA:     g_tc_ctrl_tab_lines  LIKE sy-loopc.

DATA gv_field TYPE lvc_s_fcat-fieldname.
DATA gv_lines TYPE i.
*DATA:     OK_CODE LIKE SY-UCOMM.


*创建选择界面
SELECTION-SCREEN BEGIN OF SCREEN 0111 AS SUBSCREEN.
SELECT-OPTIONS s_werks FOR marc-werks.
SELECTION-SCREEN END OF SCREEN 0111.

*&SPWIZARD: DECLARATION OF TABLECONTROL ‘TC_CTRL_TAB_1‘ ITSELF
CONTROLS: tc_ctrl_tab_1 TYPE TABLEVIEW USING SCREEN 0110.

*&SPWIZARD: LINES OF TABLECONTROL ‘TC_CTRL_TAB_1‘
DATA:     g_tc_ctrl_tab_1_lines  LIKE sy-loopc.

*DATA:     OK_CODE LIKE SY-UCOMM.

  1 *&---------------------------------------------------------------------*
  2 *& 包含               ZDEMO_DIALOGO01
  3 *&---------------------------------------------------------------------*
  4 *&---------------------------------------------------------------------*
  5 *& Module STATUS_0100 OUTPUT
  6 *&---------------------------------------------------------------------*
  7 *&
  8 *&---------------------------------------------------------------------*
  9 MODULE status_0100 OUTPUT.
 10   SET PF-STATUS ‘STATUS_0100‘ EXCLUDING gt_status.
 11   SET TITLEBAR ‘TITLE_0100‘ WITH gv_title.
 12 ENDMODULE.
 13 *&---------------------------------------------------------------------*
 14 *& Module PBO_0100 OUTPUT
 15 *&---------------------------------------------------------------------*
 16 *&
 17 *&---------------------------------------------------------------------*
 18 MODULE pbo_0100 OUTPUT.
 19   IF input_one IS NOT INITIAL.
 20     output_three = input_one.
 21   ELSE.
 22     output_three = ‘NONE‘.
 23   ENDIF.
 24 
 25   IF gv_sign_01 = abap_off.
 26     cb_descri = ‘X‘.
 27   ENDIF.
 28 
 29 
 30   IF cb_descri EQ abap_on.
 31     LOOP AT SCREEN .
 32       IF screen-group1 = ‘GP1‘.
 33         screen-active = ‘1‘.
 34       ENDIF.
 35       MODIFY SCREEN.
 36     ENDLOOP.
 37   ELSE.
 38     LOOP AT SCREEN .
 39       IF screen-group1 = ‘GP1‘.
 40         screen-active = ‘0‘.
 41       ENDIF.
 42       MODIFY SCREEN.
 43     ENDLOOP.
 44   ENDIF.
 45 
 46 
 47 ENDMODULE.
 48 
 49 *&SPWIZARD: OUTPUT MODULE FOR TS ‘TABSTRIP_01‘. DO NOT CHANGE THIS LINE!
 50 *&SPWIZARD: SETS ACTIVE TAB
 51 MODULE tabstrip_01_active_tab_set OUTPUT.
 52   tabstrip_01-activetab = g_tabstrip_01-pressed_tab.
 53   CASE g_tabstrip_01-pressed_tab."根据 按下得页签 来 获取 子屏幕
 54     WHEN c_tabstrip_01-tab1.
 55       g_tabstrip_01-subscreen = ‘0110‘.
 56       gv_title = ‘-Create‘.
 57     WHEN c_tabstrip_01-tab2.
 58       g_tabstrip_01-subscreen = ‘0120‘.
 59       gv_title = ‘-Modify‘.
 60     WHEN c_tabstrip_01-tab3.
 61       g_tabstrip_01-subscreen = ‘0130‘.
 62       gv_title = ‘-Display‘.
 63     WHEN OTHERS.
 64 *&SPWIZARD:      DO NOTHING
 65   ENDCASE.
 66 ENDMODULE.
 67 *&---------------------------------------------------------------------*
 68 *& Module STATUS_0110 OUTPUT
 69 *&---------------------------------------------------------------------*
 70 *&
 71 *&---------------------------------------------------------------------*
 72 MODULE status_0110 OUTPUT.
 73 * SET PF-STATUS ‘xxxxxxxx‘.
 74 * SET TITLEBAR ‘xxx‘.
 75   subinput_one = input_two.
 76 
 77 ENDMODULE.
 78 
 79 *&SPWIZARD: OUTPUT MODULE FOR TC ‘TC_CTRL‘. DO NOT CHANGE THIS LINE!
 80 *&SPWIZARD: UPDATE LINES FOR EQUIVALENT SCROLLBAR
 81 MODULE tc_ctrl_change_tc_attr OUTPUT.
 82   DESCRIBE TABLE lt_tab LINES tc_ctrl-lines."获取行数
 83 *  DESCRIBE TABLE LT_TAB OCCURS LV_LINES."初始化大小
 84   DESCRIBE TABLE lt_tab OCCURS DATA(lv_lines)."初始化大小
 85   DESCRIBE TABLE lt_tab KIND DATA(lv_type)."表类型
 86 
 87 ENDMODULE.
 88 
 89 *&SPWIZARD: OUTPUT MODULE FOR TC ‘TC_CTRL‘. DO NOT CHANGE THIS LINE!
 90 *&SPWIZARD: GET LINES OF TABLECONTROL
 91 MODULE tc_ctrl_get_lines OUTPUT.
 92   g_tc_ctrl_lines = sy-loopc.
 93   CALL FUNCTION ‘CONVERSION_EXIT_MATN1_OUTPUT‘
 94     EXPORTING
 95       input  = ls_tab-matnr
 96     IMPORTING
 97       output = ls_tab-matnr.
 98 
 99 *  CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_OUTPUT‘
100 *    EXPORTING
101 *      input  = ls_tab-id
102 *    IMPORTING
103 *      output = ls_tab-id.
104 ENDMODULE.
105 *&---------------------------------------------------------------------*
106 *& Module GET_TABLE_DATA OUTPUT
107 *&---------------------------------------------------------------------*
108 *&
109 *&---------------------------------------------------------------------*
110 MODULE get_table_data OUTPUT.
111 
112   IF lt_tab[] IS INITIAL.
113     SELECT matnr werks lgort FROM mard INTO CORRESPONDING FIELDS OF TABLE lt_tab
114       UP TO 50 ROWS
115       ORDER BY werks lgort.
116     LOOP AT lt_tab ASSIGNING FIELD-SYMBOL(<fs>).
117       <fs>-id = sy-tabix.
118     ENDLOOP.
119   ENDIF.
120 
121 ENDMODULE.
122 
123 *&SPWIZARD: OUTPUT MODULE FOR TC ‘TC_CTRL_TAB‘. DO NOT CHANGE THIS LINE!
124 *&SPWIZARD: UPDATE LINES FOR EQUIVALENT SCROLLBAR
125 MODULE tc_ctrl_tab_change_tc_attr OUTPUT.
126   DESCRIBE TABLE gt_tab LINES tc_ctrl_tab-lines.
127 ENDMODULE.
128 
129 *&SPWIZARD: OUTPUT MODULE FOR TC ‘TC_CTRL_TAB‘. DO NOT CHANGE THIS LINE!
130 *&SPWIZARD: GET LINES OF TABLECONTROL
131 MODULE tc_ctrl_tab_get_lines OUTPUT.
132   g_tc_ctrl_tab_lines = sy-loopc.
133   CALL FUNCTION ‘CONVERSION_EXIT_MATN1_OUTPUT‘
134     EXPORTING
135       input  = gs_tab-matnr
136     IMPORTING
137       output = gs_tab-matnr.
138 
139 *  CALL FUNCTION ‘CONVERSION_EXIT_ALPHA_OUTPUT‘
140 *    EXPORTING
141 *      input  = gs_tab-id
142 *    IMPORTING
143 *      output = gs_tab-id.
144 ENDMODULE.
145 *&---------------------------------------------------------------------*
146 *& Module GET_TABLE_DATA_130 OUTPUT
147 *&---------------------------------------------------------------------*
148 *&
149 *&---------------------------------------------------------------------*
150 MODULE get_table_data_130 OUTPUT.
151   IF gt_tab[] IS INITIAL.
152     SELECT matnr werks lgort FROM mard INTO CORRESPONDING FIELDS OF TABLE gt_tab
153       UP TO 50 ROWS
154       ORDER BY werks lgort.
155     LOOP AT gt_tab ASSIGNING FIELD-SYMBOL(<fs1>).
156       <fs1>-id = sy-tabix.
157     ENDLOOP.
158   ENDIF.
159 ENDMODULE.
160 
161 *&SPWIZARD: OUTPUT MODULE FOR TC ‘TC_CTRL_TAB_1‘. DO NOT CHANGE THIS LIN
162 *&SPWIZARD: UPDATE LINES FOR EQUIVALENT SCROLLBAR
163 MODULE tc_ctrl_tab_1_change_tc_attr OUTPUT.
164   DESCRIBE TABLE gt_tab_1 LINES tc_ctrl_tab_1-lines.
165 ENDMODULE.
166 
167 *&SPWIZARD: OUTPUT MODULE FOR TC ‘TC_CTRL_TAB_1‘. DO NOT CHANGE THIS LIN
168 *&SPWIZARD: GET LINES OF TABLECONTROL
169 MODULE tc_ctrl_tab_1_get_lines OUTPUT.
170   g_tc_ctrl_tab_1_lines = sy-loopc.
171 ENDMODULE.
172 *&---------------------------------------------------------------------*
173 *& Module GET_TABLE_DATA_110 OUTPUT
174 *&---------------------------------------------------------------------*
175 *&
176 *&---------------------------------------------------------------------*
177 MODULE get_table_data_110 OUTPUT.
178   IF gt_tab_1[] IS INITIAL.
179     APPEND INITIAL LINE TO gt_tab_1.
180   ENDIF.
181 ENDMODULE.
182 *&---------------------------------------------------------------------*
183 *& Module TC_CTRL_TAB_CHANGE_FIELD_ATTR OUTPUT
184 *&---------------------------------------------------------------------*
185 *&
186 *&---------------------------------------------------------------------*
187 MODULE tc_ctrl_tab_change_field_attr OUTPUT.
188 *  IF gs_tab-cbox = ‘X‘.
189 *    LOOP AT SCREEN."控制摸个单元格可输入 可输出
190 *      IF screen-name = ‘GS_TAB-ID‘.
191 *        screen-input = ‘1‘.
192 *        MODIFY SCREEN.
193 *      ENDIF.
194 *    ENDLOOP.
195 *  ENDIF.
196 "光标处回车 可编辑
197   IF tc_ctrl_tab-current_line = gv_lines + tc_ctrl_tab-top_line - 1.
198     LOOP AT SCREEN.
199       IF screen-name = gv_field.
200         screen-input = ‘1‘.
201         MODIFY SCREEN.
202       ENDIF.
203     ENDLOOP.
204   ENDIF.
205 ENDMODULE.

  1 *&---------------------------------------------------------------------*
  2 *& 包含               ZDEMO_DIALOGI01
  3 *&---------------------------------------------------------------------*
  4 *&---------------------------------------------------------------------*
  5 *&      Module  USER_COMMAND_0100  INPUT
  6 *&---------------------------------------------------------------------*
  7 *       text
  8 *----------------------------------------------------------------------*
  9 MODULE user_command_0100 INPUT.
 10 
 11   ok_code = sy-ucomm.
 12 
 13   CASE ok_code.
 14     WHEN ‘BACK‘ OR ‘CANC‘.
 15       LEAVE TO SCREEN 0.
 16     WHEN ‘EXIT‘.
 17       LEAVE PROGRAM.
 18     WHEN ‘BT_BACK‘.
 19       LEAVE TO SCREEN 0.
 20 *  WHEN ‘BT_EXIT‘.
 21 *    LEAVE PROGRAM.
 22   ENDCASE.
 23 
 24   "滚轮和回车都会触发 PBO 和 PAI 所以需要在function code 使用过后清空
 25   CLEAR ok_code.
 26   CLEAR sy-ucomm.
 27 ENDMODULE.
 28 *&---------------------------------------------------------------------*
 29 *&      Module  EXIT_COMMAND  INPUT
 30 *&---------------------------------------------------------------------*
 31 *       text
 32 *----------------------------------------------------------------------*
 33 MODULE exit_command INPUT.
 34   ok_code = sy-ucomm.
 35   CASE ok_code.
 36 *    WHEN ‘BACK‘ OR ‘CANC‘.
 37 *      LEAVE TO SCREEN 0.
 38 *    WHEN ‘EXIT‘.
 39 *      LEAVE PROGRAM.
 40 *    WHEN ‘BT_BACK‘.
 41 *      LEAVE TO SCREEN 0.
 42     WHEN ‘BT_EXIT‘.
 43       LEAVE PROGRAM.
 44   ENDCASE.
 45 
 46   CLEAR ok_code.
 47   CLEAR sy-ucomm.
 48 ENDMODULE.
 49 *&---------------------------------------------------------------------*
 50 *&      Module  CHECK_PLANT  INPUT
 51 *&---------------------------------------------------------------------*
 52 *       text
 53 *----------------------------------------------------------------------*
 54 MODULE check_plant INPUT.
 55 
 56   SELECT SINGLE name1 INTO t001w-name1 FROM t001w
 57     WHERE werks = t001w-werks.
 58   IF sy-subrc NE 0.
 59     CLEAR :t001w-werks,t001w-name1.
 60   ENDIF.
 61 
 62 
 63 ENDMODULE.
 64 *&---------------------------------------------------------------------*
 65 *&      Module  CHECK_WAREHOUSE  INPUT
 66 *&---------------------------------------------------------------------*
 67 *       text
 68 *----------------------------------------------------------------------*
 69 MODULE check_warehouse INPUT.
 70 
 71   IF t001w-werks IS NOT INITIAL.
 72     SELECT SINGLE lgobe INTO t001l-lgobe FROM t001l
 73       WHERE werks = t001w-werks AND lgort = t001l-lgort.
 74     IF sy-subrc NE 0.
 75       CLEAR: t001l-lgort,t001l-lgobe.
 76     ENDIF.
 77   ELSE.
 78     CLEAR: t001l-lgort,t001l-lgobe.
 79   ENDIF.
 80 ENDMODULE.
 81 *&---------------------------------------------------------------------*
 82 *&      Module  CHECK_MATERIAL  INPUT
 83 *&---------------------------------------------------------------------*
 84 *       text
 85 *----------------------------------------------------------------------*
 86 MODULE check_material INPUT.
 87   IF t001w-werks IS NOT INITIAL
 88   AND t001l-lgort IS NOT INITIAL.
 89     SELECT SINGLE maktx INTO makt-maktx FROM makt
 90       WHERE matnr = makt-matnr AND spras = sy-langu.
 91   ELSE.
 92     CLEAR:makt-matnr,makt-maktx.
 93   ENDIF.
 94 ENDMODULE.
 95 
 96 *&SPWIZARD: INPUT MODULE FOR TS ‘TABSTRIP_01‘. DO NOT CHANGE THIS LINE!
 97 *&SPWIZARD: GETS ACTIVE TAB
 98 MODULE tabstrip_01_active_tab_get INPUT.
 99   ok_code = sy-ucomm.
100   CASE ok_code.
101     WHEN c_tabstrip_01-tab1.
102       g_tabstrip_01-pressed_tab = c_tabstrip_01-tab1.
103       REFRESH gt_status.
104 *      gs_status = ‘SAVE‘."隐藏按钮
105 *      APPEND gs_status TO gt_status.
106 *      CLEAR gs_status.
107     WHEN c_tabstrip_01-tab2.
108       g_tabstrip_01-pressed_tab = c_tabstrip_01-tab2.
109       REFRESH gt_status.
110     WHEN c_tabstrip_01-tab3.
111       g_tabstrip_01-pressed_tab = c_tabstrip_01-tab3.
112       REFRESH gt_status.
113       gs_status = ‘SAVE‘."隐藏按钮
114       APPEND gs_status TO gt_status.
115       CLEAR gs_status.
116     WHEN OTHERS.
117 *&SPWIZARD:      DO NOTHING
118   ENDCASE.
119 ENDMODULE.
120 *&---------------------------------------------------------------------*
121 *&      Module  SET_SIGNAL  INPUT
122 *&---------------------------------------------------------------------*
123 *       text
124 *----------------------------------------------------------------------*
125 MODULE set_signal INPUT.
126   gv_sign_01 = ‘X‘.
127 ENDMODULE.
128 *&---------------------------------------------------------------------*
129 *&      Module  USER_COMMAND_0110  INPUT
130 *&---------------------------------------------------------------------*
131 *       text
132 *----------------------------------------------------------------------*
133 MODULE user_command_0110 INPUT.
134 
135   ok_code = sy-ucomm.
136 
137   CASE ok_code.
138     WHEN ‘SUBCK‘.
139       IF subinput_one = input_one.
140         MESSAGE ‘Data is right‘ TYPE ‘I‘ DISPLAY LIKE ‘S‘.
141         g_tabstrip_01-pressed_tab = c_tabstrip_01-tab2.
142         REFRESH gt_status.
143       ELSE.
144         MESSAGE ‘No match‘ TYPE ‘I‘ DISPLAY LIKE ‘E‘.
145         RETURN.
146       ENDIF.
147   ENDCASE.
148 
149 
150 ENDMODULE.
151 
152 *&SPWIZARD: INPUT MODULE FOR TC ‘TC_CTRL‘. DO NOT CHANGE THIS LINE!
153 *&SPWIZARD: PROCESS USER COMMAND
154 MODULE tc_ctrl_user_command INPUT.
155   ok_code = sy-ucomm.
156   PERFORM user_ok_tc USING    ‘TC_CTRL‘
157                               ‘LT_TAB‘
158                               ‘ ‘
159                      CHANGING ok_code.
160   sy-ucomm = ok_code.
161 ENDMODULE.
162 
163 *&SPWIZARD: INPUT MODULE FOR TC ‘TC_CTRL_TAB‘. DO NOT CHANGE THIS LINE!
164 *&SPWIZARD: MODIFY TABLE
165 MODULE tc_ctrl_tab_modify INPUT.
166   MODIFY gt_tab
167     FROM gs_tab
168     INDEX tc_ctrl_tab-current_line."只能修改不能新增
169 ENDMODULE.
170 
171 *&SPWIZARD: INPUT MODUL FOR TC ‘TC_CTRL_TAB‘. DO NOT CHANGE THIS LINE!
172 *&SPWIZARD: MARK TABLE
173 MODULE tc_ctrl_tab_mark INPUT.
174   DATA: g_tc_ctrl_tab_wa2 LIKE LINE OF gt_tab.
175   IF tc_ctrl_tab-line_sel_mode = 1
176   AND gs_tab-cbox = ‘X‘.
177     LOOP AT gt_tab INTO g_tc_ctrl_tab_wa2
178       WHERE cbox = ‘X‘.
179       g_tc_ctrl_tab_wa2-cbox = ‘‘.
180       MODIFY gt_tab
181         FROM g_tc_ctrl_tab_wa2
182         TRANSPORTING cbox.
183     ENDLOOP.
184   ENDIF.
185   MODIFY gt_tab
186     FROM gs_tab
187     INDEX tc_ctrl_tab-current_line
188     TRANSPORTING cbox."修改选中的行
189 ENDMODULE.
190 
191 *&SPWIZARD: INPUT MODULE FOR TC ‘TC_CTRL_TAB‘. DO NOT CHANGE THIS LINE!
192 *&SPWIZARD: PROCESS USER COMMAND
193 MODULE tc_ctrl_tab_user_command INPUT.
194   ok_code = sy-ucomm.
195   PERFORM user_ok_tc USING    ‘TC_CTRL_TAB‘
196                               ‘GT_TAB‘
197                               ‘CBOX‘
198                      CHANGING ok_code.
199   sy-ucomm = ok_code.
200 ENDMODULE.
201 
202 *&SPWIZARD: INPUT MODULE FOR TC ‘TC_CTRL_TAB_1‘. DO NOT CHANGE THIS LINE
203 *&SPWIZARD: MODIFY TABLE
204 MODULE tc_ctrl_tab_1_modify INPUT.
205   MODIFY gt_tab_1
206     FROM gs_tab_1
207     INDEX tc_ctrl_tab_1-current_line.
208 ENDMODULE.
209 
210 *&SPWIZARD: INPUT MODUL FOR TC ‘TC_CTRL_TAB_1‘. DO NOT CHANGE THIS LINE!
211 *&SPWIZARD: MARK TABLE
212 MODULE tc_ctrl_tab_1_mark INPUT.
213   DATA: g_tc_ctrl_tab_1_wa2 LIKE LINE OF gt_tab_1.
214   IF tc_ctrl_tab_1-line_sel_mode = 1
215   AND gs_tab_1-cbox = ‘X‘.
216     LOOP AT gt_tab_1 INTO g_tc_ctrl_tab_1_wa2
217       WHERE cbox = ‘X‘.
218       g_tc_ctrl_tab_1_wa2-cbox = ‘‘.
219       MODIFY gt_tab_1
220         FROM g_tc_ctrl_tab_1_wa2
221         TRANSPORTING cbox.
222     ENDLOOP.
223   ENDIF.
224   MODIFY gt_tab_1
225     FROM gs_tab_1
226     INDEX tc_ctrl_tab_1-current_line
227     TRANSPORTING cbox.
228 ENDMODULE.
229 
230 *&SPWIZARD: INPUT MODULE FOR TC ‘TC_CTRL_TAB_1‘. DO NOT CHANGE THIS LINE
231 *&SPWIZARD: PROCESS USER COMMAND
232 MODULE tc_ctrl_tab_1_user_command INPUT.
233   ok_code = sy-ucomm.
234   PERFORM user_ok_tc USING    ‘TC_CTRL_TAB_1‘
235                               ‘GT_TAB_1‘
236                               ‘CBOX‘
237                      CHANGING ok_code.
238   sy-ucomm = ok_code.
239 ENDMODULE.
240 *&---------------------------------------------------------------------*
241 *&      Module  USER_COMMAND_0130  INPUT
242 *&---------------------------------------------------------------------*
243 *       text
244 *----------------------------------------------------------------------*
245 MODULE user_command_0130 INPUT.
246   ok_code = sy-ucomm.
247 
248   CASE ok_code.
249     WHEN ‘ID_BT‘."modify table control lines
250       PERFORM frm_modify_lines.
251     WHEN OTHERS.
252   ENDCASE.
253 
254   CLEAR ok_code.
255   CLEAR sy-ucomm.
256 ENDMODULE.
257 *&---------------------------------------------------------------------*
258 *&      Module  GET_CURSOR  INPUT
259 *&---------------------------------------------------------------------*
260 *       text
261 *----------------------------------------------------------------------*
262 MODULE get_cursor INPUT.
263   GET CURSOR FIELD gv_field LINE gv_lines.
264 ENDMODULE.

  1 *&---------------------------------------------------------------------*
  2 *& 包含               ZDEMO_DIALOGF01
  3 *&---------------------------------------------------------------------*
  4 
  5 *----------------------------------------------------------------------*
  6 *   INCLUDE TABLECONTROL_FORMS                                         *
  7 *----------------------------------------------------------------------*
  8 
  9 *&---------------------------------------------------------------------*
 10 *&      Form  USER_OK_TC
 11 *&      标准FORM 标准按钮  引导自动创建              *
 12 *&---------------------------------------------------------------------*
 13 *&---------------------------------------------------------------------*
 14  FORM user_ok_tc USING    p_tc_name TYPE dynfnam
 15                           p_table_name
 16                           p_mark_name
 17                  CHANGING p_ok      LIKE sy-ucomm.
 18 
 19 *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
 20    DATA: l_ok     TYPE sy-ucomm,
 21          l_offset TYPE i.
 22 *&SPWIZARD: END OF LOCAL DATA------------------------------------------*
 23 
 24 *&SPWIZARD: Table control specific operations                          *
 25 *&SPWIZARD: evaluate TC name and operations                            *
 26    SEARCH p_ok FOR p_tc_name.
 27    IF sy-subrc <> 0.
 28      EXIT.
 29    ENDIF.
 30    l_offset = strlen( p_tc_name ) + 1.
 31    l_ok = p_ok+l_offset.
 32 *&SPWIZARD: execute general and TC specific operations                 *
 33    CASE l_ok.
 34      WHEN ‘INSR‘.                      "insert row
 35        PERFORM fcode_insert_row USING    p_tc_name
 36                                          p_table_name.
 37        CLEAR p_ok.
 38 
 39      WHEN ‘DELE‘.                      "delete row
 40        PERFORM fcode_delete_row USING    p_tc_name
 41                                          p_table_name
 42                                          p_mark_name.
 43        CLEAR p_ok.
 44 
 45      WHEN ‘P--‘ OR                     "top of list
 46           ‘P-‘  OR                     "previous page
 47           ‘P+‘  OR                     "next page
 48           ‘P++‘.                       "bottom of list
 49        PERFORM compute_scrolling_in_tc USING p_tc_name
 50                                              l_ok.
 51        CLEAR p_ok.
 52 *     WHEN ‘L--‘.                       "total left
 53 *       PERFORM FCODE_TOTAL_LEFT USING P_TC_NAME.
 54 *
 55 *     WHEN ‘L-‘.                        "column left
 56 *       PERFORM FCODE_COLUMN_LEFT USING P_TC_NAME.
 57 *
 58 *     WHEN ‘R+‘.                        "column right
 59 *       PERFORM FCODE_COLUMN_RIGHT USING P_TC_NAME.
 60 *
 61 *     WHEN ‘R++‘.                       "total right
 62 *       PERFORM FCODE_TOTAL_RIGHT USING P_TC_NAME.
 63 *
 64      WHEN ‘MARK‘.                      "mark all filled lines
 65        PERFORM fcode_tc_mark_lines USING p_tc_name
 66                                          p_table_name
 67                                          p_mark_name   .
 68        CLEAR p_ok.
 69 
 70      WHEN ‘DMRK‘.                      "demark all filled lines
 71        PERFORM fcode_tc_demark_lines USING p_tc_name
 72                                            p_table_name
 73                                            p_mark_name .
 74        CLEAR p_ok.
 75 
 76 *     WHEN ‘SASCEND‘   OR
 77 *          ‘SDESCEND‘.                  "sort column
 78 *       PERFORM FCODE_SORT_TC USING P_TC_NAME
 79 *                                   l_ok.
 80 
 81    ENDCASE.
 82 
 83  ENDFORM.                              " USER_OK_TC
 84 
 85 *&---------------------------------------------------------------------*
 86 *&      Form  FCODE_INSERT_ROW                                         *
 87 *&---------------------------------------------------------------------*
 88  FORM fcode_insert_row
 89                USING    p_tc_name           TYPE dynfnam
 90                         p_table_name             .
 91 
 92 *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
 93    DATA l_lines_name       LIKE feld-name.
 94    DATA l_selline          LIKE sy-stepl.
 95    DATA l_lastline         TYPE i.
 96    DATA l_line             TYPE i.
 97    DATA l_table_name       LIKE feld-name.
 98    FIELD-SYMBOLS <tc>                 TYPE cxtab_control.
 99    FIELD-SYMBOLS <table>              TYPE STANDARD TABLE.
100    FIELD-SYMBOLS <lines>              TYPE i.
101 *&SPWIZARD: END OF LOCAL DATA------------------------------------------*
102 
103    ASSIGN (p_tc_name) TO <tc>.
104 
105 *&SPWIZARD: get the table, which belongs to the tc                     *
106    CONCATENATE p_table_name ‘[]‘ INTO l_table_name. "table body
107    ASSIGN (l_table_name) TO <table>.                "not headerline
108 
109 *&SPWIZARD: get looplines of TableControl                              *
110    CONCATENATE ‘G_‘ p_tc_name ‘_LINES‘ INTO l_lines_name.
111    ASSIGN (l_lines_name) TO <lines>.
112 
113 *&SPWIZARD: get current line                                           *
114    GET CURSOR LINE l_selline.
115    IF sy-subrc <> 0.                   " append line to table
116      l_selline = <tc>-lines + 1.
117 *&SPWIZARD: set top line                                               *
118      IF l_selline > <lines>.
119        <tc>-top_line = l_selline - <lines> + 1 .
120      ELSE.
121        <tc>-top_line = 1.
122      ENDIF.
123    ELSE.                               " insert line into table
124      l_selline = <tc>-top_line + l_selline - 1.
125      l_lastline = <tc>-top_line + <lines> - 1.
126    ENDIF.
127 *&SPWIZARD: set new cursor line                                        *
128    l_line = l_selline - <tc>-top_line + 1.
129 
130 *&SPWIZARD: insert initial line                                        *
131    INSERT INITIAL LINE INTO <table> INDEX l_selline.
132    <tc>-lines = <tc>-lines + 1.
133 *&SPWIZARD: set cursor                                                 *
134    SET CURSOR LINE l_line.
135 
136  ENDFORM.                              " FCODE_INSERT_ROW
137 
138 *&---------------------------------------------------------------------*
139 *&      Form  FCODE_DELETE_ROW                                         *
140 *&---------------------------------------------------------------------*
141  FORM fcode_delete_row
142                USING    p_tc_name           TYPE dynfnam
143                         p_table_name
144                         p_mark_name   .
145 
146 *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
147    DATA l_table_name       LIKE feld-name.
148 
149    FIELD-SYMBOLS <tc>         TYPE cxtab_control.
150    FIELD-SYMBOLS <table>      TYPE STANDARD TABLE.
151    FIELD-SYMBOLS <wa>.
152    FIELD-SYMBOLS <mark_field>.
153 *&SPWIZARD: END OF LOCAL DATA------------------------------------------*
154 
155    ASSIGN (p_tc_name) TO <tc>.
156 
157 *&SPWIZARD: get the table, which belongs to the tc                     *
158    CONCATENATE p_table_name ‘[]‘ INTO l_table_name. "table body
159    ASSIGN (l_table_name) TO <table>.                "not headerline
160 
161 *&SPWIZARD: delete marked lines                                        *
162    DESCRIBE TABLE <table> LINES <tc>-lines.
163 
164    LOOP AT <table> ASSIGNING <wa>.
165 
166 *&SPWIZARD: access to the component ‘FLAG‘ of the table header         *
167      ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.
168 
169      IF <mark_field> = ‘X‘.
170        DELETE <table> INDEX syst-tabix.
171        IF sy-subrc = 0.
172          <tc>-lines = <tc>-lines - 1.
173        ENDIF.
174      ENDIF.
175    ENDLOOP.
176 
177  ENDFORM.                              " FCODE_DELETE_ROW
178 
179 *&---------------------------------------------------------------------*
180 *&      Form  COMPUTE_SCROLLING_IN_TC
181 *&---------------------------------------------------------------------*
182 *       text
183 *----------------------------------------------------------------------*
184 *      -->P_TC_NAME  name of tablecontrol
185 *      -->P_OK       ok code
186 *----------------------------------------------------------------------*
187  FORM compute_scrolling_in_tc USING    p_tc_name
188                                        p_ok.
189 *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
190    DATA l_tc_new_top_line     TYPE i.
191    DATA l_tc_name             LIKE feld-name.
192    DATA l_tc_lines_name       LIKE feld-name.
193    DATA l_tc_field_name       LIKE feld-name.
194 
195    FIELD-SYMBOLS <tc>         TYPE cxtab_control.
196    FIELD-SYMBOLS <lines>      TYPE i.
197 *&SPWIZARD: END OF LOCAL DATA------------------------------------------*
198 
199    ASSIGN (p_tc_name) TO <tc>.
200 *&SPWIZARD: get looplines of TableControl                              *
201    CONCATENATE ‘G_‘ p_tc_name ‘_LINES‘ INTO l_tc_lines_name.
202    ASSIGN (l_tc_lines_name) TO <lines>.
203 
204 
205 *&SPWIZARD: is no line filled?                                         *
206    IF <tc>-lines = 0.
207 *&SPWIZARD: yes, ...                                                   *
208      l_tc_new_top_line = 1.
209    ELSE.
210 *&SPWIZARD: no, ...                                                    *
211      CALL FUNCTION ‘SCROLLING_IN_TABLE‘
212        EXPORTING
213          entry_act      = <tc>-top_line
214          entry_from     = 1
215          entry_to       = <tc>-lines
216          last_page_full = ‘X‘
217          loops          = <lines>
218          ok_code        = p_ok
219          overlapping    = ‘X‘
220        IMPORTING
221          entry_new      = l_tc_new_top_line
222        EXCEPTIONS
223 *        NO_ENTRY_OR_PAGE_ACT  = 01
224 *        NO_ENTRY_TO    = 02
225 *        NO_OK_CODE_OR_PAGE_GO = 03
226          OTHERS         = 0.
227    ENDIF.
228 
229 *&SPWIZARD: get actual tc and column                                   *
230    GET CURSOR FIELD l_tc_field_name
231               AREA  l_tc_name.
232 
233    IF syst-subrc = 0.
234      IF l_tc_name = p_tc_name.
235 *&SPWIZARD: et actual column                                           *
236        SET CURSOR FIELD l_tc_field_name LINE 1.
237      ENDIF.
238    ENDIF.
239 
240 *&SPWIZARD: set the new top line                                       *
241    <tc>-top_line = l_tc_new_top_line.
242 
243 
244  ENDFORM.                              " COMPUTE_SCROLLING_IN_TC
245 
246 *&---------------------------------------------------------------------*
247 *&      Form  FCODE_TC_MARK_LINES
248 *&---------------------------------------------------------------------*
249 *       marks all TableControl lines
250 *----------------------------------------------------------------------*
251 *      -->P_TC_NAME  name of tablecontrol
252 *----------------------------------------------------------------------*
253  FORM fcode_tc_mark_lines USING p_tc_name
254                                 p_table_name
255                                 p_mark_name.
256 *&SPWIZARD: EGIN OF LOCAL DATA-----------------------------------------*
257    DATA l_table_name       LIKE feld-name.
258 
259    FIELD-SYMBOLS <tc>         TYPE cxtab_control.
260    FIELD-SYMBOLS <table>      TYPE STANDARD TABLE.
261    FIELD-SYMBOLS <wa>.
262    FIELD-SYMBOLS <mark_field>.
263 *&SPWIZARD: END OF LOCAL DATA------------------------------------------*
264 
265    ASSIGN (p_tc_name) TO <tc>.
266 
267 *&SPWIZARD: get the table, which belongs to the tc                     *
268    CONCATENATE p_table_name ‘[]‘ INTO l_table_name. "table body
269    ASSIGN (l_table_name) TO <table>.                "not headerline
270 
271 *&SPWIZARD: mark all filled lines                                      *
272    LOOP AT <table> ASSIGNING <wa>.
273 
274 *&SPWIZARD: access to the component ‘FLAG‘ of the table header         *
275      ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.
276 
277      <mark_field> = ‘X‘.
278    ENDLOOP.
279  ENDFORM.                                          "fcode_tc_mark_lines
280 
281 *&---------------------------------------------------------------------*
282 *&      Form  FCODE_TC_DEMARK_LINES
283 *&---------------------------------------------------------------------*
284 *       demarks all TableControl lines
285 *----------------------------------------------------------------------*
286 *      -->P_TC_NAME  name of tablecontrol
287 *----------------------------------------------------------------------*
288  FORM fcode_tc_demark_lines USING p_tc_name
289                                   p_table_name
290                                   p_mark_name .
291 *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*
292    DATA l_table_name       LIKE feld-name.
293 
294    FIELD-SYMBOLS <tc>         TYPE cxtab_control.
295    FIELD-SYMBOLS <table>      TYPE STANDARD TABLE.
296    FIELD-SYMBOLS <wa>.
297    FIELD-SYMBOLS <mark_field>.
298 *&SPWIZARD: END OF LOCAL DATA------------------------------------------*
299 
300    ASSIGN (p_tc_name) TO <tc>.
301 
302 *&SPWIZARD: get the table, which belongs to the tc                     *
303    CONCATENATE p_table_name ‘[]‘ INTO l_table_name. "table body
304    ASSIGN (l_table_name) TO <table>.                "not headerline
305 
306 *&SPWIZARD: demark all filled lines                                    *
307    LOOP AT <table> ASSIGNING <wa>.
308 
309 *&SPWIZARD: access to the component ‘FLAG‘ of the table header         *
310      ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.
311 
312      <mark_field> = space.
313    ENDLOOP.
314  ENDFORM.                                          "fcode_tc_mark_lines
315 *&---------------------------------------------------------------------*
316 *& Form FRM_MODIFY_LINES
317 *&---------------------------------------------------------------------*
318 *& text
319 *&---------------------------------------------------------------------*
320 *& -->  p1        text
321 *& <--  p2        text
322 *&---------------------------------------------------------------------*
323  FORM frm_modify_lines .
324    DATA ls_cols LIKE LINE OF tc_ctrl_tab-cols.
325 
326    LOOP AT tc_ctrl_tab-cols INTO ls_cols.
327      IF ls_cols-index = ‘1‘.
328        IF ls_cols-screen-input = ‘0‘.
329          ls_cols-screen-input = ‘1‘.
330        ELSE.
331          ls_cols-screen-input = ‘0‘.
332        ENDIF.
333        MODIFY tc_ctrl_tab-cols FROM ls_cols.
334      ENDIF.
335    ENDLOOP .
336  ENDFORM.

  1 *----------------------------------------------------------------------*
  2 ***INCLUDE ZDEMO_DIALOGHELP.
  3 *----------------------------------------------------------------------*
  4 *&---------------------------------------------------------------------*
  5 *&      Module  F4_HELP_WAREHOUSE  INPUT
  6 *&---------------------------------------------------------------------*
  7 *       text
  8 *----------------------------------------------------------------------*
  9 MODULE f4_help_warehouse INPUT.
 10   TYPES:BEGIN OF lty_lgort,
 11           werks TYPE t001l-werks,
 12           lgort TYPE t001l-lgort,
 13           lgobe TYPE t001l-lgobe,
 14         END OF lty_lgort.
 15 
 16   DATA:lt_lgort TYPE TABLE OF lty_lgort.
 17 
 18   IF t001w-werks IS NOT INITIAL.
 19     SELECT werks lgort lgobe INTO TABLE lt_lgort FROM t001l WHERE werks = t001w-werks.
 20 
 21     CHECK sy-subrc EQ 0.
 22     CALL FUNCTION ‘F4IF_INT_TABLE_VALUE_REQUEST‘
 23       EXPORTING
 24 *       DDIC_STRUCTURE         = ‘ ‘
 25         retfield     = ‘LGORT‘
 26 *       PVALKEY      = ‘ ‘
 27         dynpprog     = sy-cprog
 28         dynpnr       = sy-dynnr
 29         dynprofield  = ‘T001L-LGORT‘
 30 *       STEPL        = 0
 31         window_title = ‘WAREHOUSE SELECTION‘
 32 *       VALUE        = ‘ ‘
 33         value_org    = ‘S‘
 34 *       MULTIPLE_CHOICE        = ‘ ‘
 35 *       DISPLAY      = ‘ ‘
 36 *       CALLBACK_PROGRAM       = ‘ ‘
 37 *       CALLBACK_FORM          = ‘ ‘
 38 *       CALLBACK_METHOD        =
 39 *       MARK_TAB     =
 40 *     IMPORTING
 41 *       USER_RESET   =
 42       TABLES
 43         value_tab    = lt_lgort
 44 *       FIELD_TAB    =
 45 *       RETURN_TAB   =
 46 *       DYNPFLD_MAPPING        =
 47 *     EXCEPTIONS
 48 *       PARAMETER_ERROR        = 1
 49 *       NO_VALUES_FOUND        = 2
 50 *       OTHERS       = 3
 51       .
 52     IF sy-subrc <> 0.
 53 * Implement suitable error handling here
 54     ENDIF.
 55 
 56   ELSE.
 57     CALL FUNCTION ‘F4IF_FIELD_VALUE_REQUEST‘
 58       EXPORTING
 59         tabname     = ‘T001L‘
 60         fieldname   = ‘LGORT‘
 61 *       SEARCHHELP  = ‘ ‘
 62 *       SHLPPARAM   = ‘ ‘
 63         dynpprog    = sy-repid
 64         dynpnr      = sy-dynnr
 65         dynprofield = ‘T001L-LGORT‘
 66 *       STEPL       = 0
 67 *       VALUE       = ‘ ‘
 68 *       MULTIPLE_CHOICE           = ‘ ‘
 69 *       DISPLAY     = ‘ ‘
 70 *       SUPPRESS_RECORDLIST       = ‘ ‘
 71 *       CALLBACK_PROGRAM          = ‘ ‘
 72 *       CALLBACK_FORM             = ‘ ‘
 73 *       CALLBACK_METHOD           =
 74 *       SELECTION_SCREEN          = ‘ ‘
 75 *     IMPORTING
 76 *       USER_RESET  =
 77 *     TABLES
 78 *       RETURN_TAB  =
 79 *     EXCEPTIONS
 80 *       FIELD_NOT_FOUND           = 1
 81 *       NO_HELP_FOR_FIELD         = 2
 82 *       INCONSISTENT_HELP         = 3
 83 *       NO_VALUES_FOUND           = 4
 84 *       OTHERS      = 5
 85       .
 86     IF sy-subrc <> 0.
 87 * Implement suitable error handling here
 88     ENDIF.
 89 
 90 
 91   ENDIF.
 92 ENDMODULE.
 93 *&---------------------------------------------------------------------*
 94 *&      Module  F4_HELP_MATERIAL  INPUT
 95 *&---------------------------------------------------------------------*
 96 *       text
 97 *----------------------------------------------------------------------*
 98 MODULE f4_help_material INPUT.
 99   TYPES:BEGIN OF lty_matnr,
100           werks TYPE mard-werks,
101           lgort TYPE mard-lgort,
102           matnr TYPE mard-matnr,
103           maktx TYPE makt-maktx,
104         END OF lty_matnr.
105 
106   DATA:lt_matnr TYPE TABLE OF lty_matnr.
107 
108   IF t001w-werks IS NOT INITIAL
109    AND t001l-lgort IS NOT INITIAL.
110     SELECT a~werks a~lgort a~matnr b~maktx
111       INTO TABLE lt_matnr
112       FROM mard AS a
113       INNER JOIN makt AS b ON b~matnr = a~matnr AND b~spras = sy-langu
114       WHERE a~werks = t001w-werks
115       AND a~lgort = t001l-lgort.
116 
117     CHECK sy-subrc EQ 0.
118     CALL FUNCTION ‘F4IF_INT_TABLE_VALUE_REQUEST‘
119       EXPORTING
120 *       DDIC_STRUCTURE         = ‘ ‘
121         retfield     = ‘MATNR‘
122 *       PVALKEY      = ‘ ‘
123         dynpprog     = sy-cprog
124         dynpnr       = sy-dynnr
125         dynprofield  = ‘MAKT-MATNR‘
126 *       STEPL        = 0
127         window_title = ‘MATERIAL SELECTION‘
128 *       VALUE        = ‘ ‘
129         value_org    = ‘S‘
130 *       MULTIPLE_CHOICE        = ‘ ‘
131 *       DISPLAY      = ‘ ‘
132 *       CALLBACK_PROGRAM       = ‘ ‘
133 *       CALLBACK_FORM          = ‘ ‘
134 *       CALLBACK_METHOD        =
135 *       MARK_TAB     =
136 *     IMPORTING
137 *       USER_RESET   =
138       TABLES
139         value_tab    = lt_matnr
140 *       FIELD_TAB    =
141 *       RETURN_TAB   =
142 *       DYNPFLD_MAPPING        =
143 *     EXCEPTIONS
144 *       PARAMETER_ERROR        = 1
145 *       NO_VALUES_FOUND        = 2
146 *       OTHERS       = 3
147       .
148     IF sy-subrc <> 0.
149 * Implement suitable error handling here
150     ENDIF.
151 
152   ELSE.
153     CALL FUNCTION ‘F4IF_FIELD_VALUE_REQUEST‘
154       EXPORTING
155         tabname     = ‘MAKT‘
156         fieldname   = ‘MATNR‘
157 *       SEARCHHELP  = ‘ ‘
158 *       SHLPPARAM   = ‘ ‘
159         dynpprog    = sy-repid
160         dynpnr      = sy-dynnr
161         dynprofield = ‘MAKT-MATNR‘
162 *       STEPL       = 0
163 *       VALUE       = ‘ ‘
164 *       MULTIPLE_CHOICE           = ‘ ‘
165 *       DISPLAY     = ‘ ‘
166 *       SUPPRESS_RECORDLIST       = ‘ ‘
167 *       CALLBACK_PROGRAM          = ‘ ‘
168 *       CALLBACK_FORM             = ‘ ‘
169 *       CALLBACK_METHOD           =
170 *       SELECTION_SCREEN          = ‘ ‘
171 *     IMPORTING
172 *       USER_RESET  =
173 *     TABLES
174 *       RETURN_TAB  =
175 *     EXCEPTIONS
176 *       FIELD_NOT_FOUND           = 1
177 *       NO_HELP_FOR_FIELD         = 2
178 *       INCONSISTENT_HELP         = 3
179 *       NO_VALUES_FOUND           = 4
180 *       OTHERS      = 5
181       .
182     IF sy-subrc <> 0.
183 * Implement suitable error handling here
184     ENDIF.
185 
186 
187   ENDIF.
188 ENDMODULE.

DEMO 得效果图如下，屏幕就自己画下哈， TABLE Control he  tablstrip 都是用引导功能画得