业务背景：

       有时候我们可能对自建屏幕上的字段要进行双击操作，要触发自建屏幕的双击需要设置一些东西，本文将介绍一种触发自建屏幕字段双击的例子。

• 解决步骤

1. 新建一个程序，然后再新建一个屏幕，注意勾选回应双击
2. 处理屏幕的PBO和PAI，设置STATUS和USER_COMMOND。
   
   ABAP

   PROCESS BEFORE OUTPUT. *&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'ZTAB_CTRL' MODULE ZTAB_CTRL_INIT. *&SPWIZARD: MODULE ZTAB_CTRL_CHANGE_TC_ATTR. *&SPWIZARD: MODULE ZTAB_CTRL_CHANGE_COL_ATTR. LOOP AT G_ZTAB_CTRL_ITAB INTO G_ZTAB_CTRL_WA WITH CONTROL ZTAB_CTRL CURSOR ZTAB_CTRL-CURRENT_LINE. *&SPWIZARD: MODULE ZTAB_CTRL_CHANGE_FIELD_ATTR MODULE ZTAB_CTRL_MOVE. MODULE ZTAB_CTRL_GET_LINES. ENDLOOP. MODULE STATUS_0100. PROCESS AFTER INPUT. *&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'ZTAB_CTRL' LOOP AT G_ZTAB_CTRL_ITAB. CHAIN. FIELD ZTIF_LOG-ZIFID. FIELD ZTIF_LOG-ZIFNO. FIELD ZTIF_LOG-TYPE. FIELD ZTIF_LOG-CRDAT. FIELD ZTIF_LOG-CRTIM. FIELD ZTIF_LOG-ZBZNO. MODULE ZTAB_CTRL_MODIFY ON CHAIN-REQUEST. ENDCHAIN. ENDLOOP. MODULE ZTAB_CTRL_USER_COMMAND. *&SPWIZARD: MODULE ZTAB_CTRL_CHANGE_TC_ATTR. *&SPWIZARD: MODULE ZTAB_CTRL_CHANGE_COL_ATTR. MODULE USER_COMMAND_0100.

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

   PROCESS BEFORE OUTPUT. *&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'ZTAB_CTRL'   MODULE ZTAB_CTRL_INIT. *&SPWIZARD: MODULE ZTAB_CTRL_CHANGE_TC_ATTR. *&SPWIZARD: MODULE ZTAB_CTRL_CHANGE_COL_ATTR.   LOOP AT   G_ZTAB_CTRL_ITAB        INTO G_ZTAB_CTRL_WA        WITH CONTROL ZTAB_CTRL        CURSOR ZTAB_CTRL-CURRENT_LINE. *&SPWIZARD:   MODULE ZTAB_CTRL_CHANGE_FIELD_ATTR     MODULE ZTAB_CTRL_MOVE.     MODULE ZTAB_CTRL_GET_LINES.   ENDLOOP.   MODULE STATUS_0100.   PROCESS AFTER INPUT. *&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'ZTAB_CTRL'   LOOP AT G_ZTAB_CTRL_ITAB.     CHAIN.       FIELD ZTIF_LOG-ZIFID.       FIELD ZTIF_LOG-ZIFNO.       FIELD ZTIF_LOG-TYPE.       FIELD ZTIF_LOG-CRDAT.       FIELD ZTIF_LOG-CRTIM.       FIELD ZTIF_LOG-ZBZNO.       MODULE ZTAB_CTRL_MODIFY ON CHAIN-REQUEST.     ENDCHAIN.   ENDLOOP.   MODULE ZTAB_CTRL_USER_COMMAND. *&SPWIZARD: MODULE ZTAB_CTRL_CHANGE_TC_ATTR. *&SPWIZARD: MODULE ZTAB_CTRL_CHANGE_COL_ATTR.   MODULE USER_COMMAND_0100.

   
   其中模块STATUS_0100和USER_COMMAND_0100是需要我们完成的，其他字段皆是TAB_CTRL向导模式生成的。
3. 设置STATUS，注意设置F2（鼠标双击，这是一个SAP预设的功能）的功能码（其实我们注意观察的话，可以看到标准的SAP STATUS都是设置了F2的功能码的）
4. 编写逻辑代码
   
   ABAP

   *&---------------------------------------------------------------------* *& Report ZTEST016 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT ztest016. ***&SPWIZARD: DATA DECLARATION FOR TABLECONTROL 'ZTAB_CTRL' *&SPWIZARD: DEFINITION OF DDIC-TABLE TABLES: ztif_log. *&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'ZTAB_CTRL' TYPES: BEGIN OF t_ztab_ctrl, zifid LIKE ztif_log-zifid, zifno LIKE ztif_log-zifno, type LIKE ztif_log-type, crdat LIKE ztif_log-crdat, crtim LIKE ztif_log-crtim, zbzno LIKE ztif_log-zbzno, END OF t_ztab_ctrl. *&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'ZTAB_CTRL' DATA: g_ztab_ctrl_itab TYPE t_ztab_ctrl OCCURS 0, g_ztab_ctrl_wa TYPE t_ztab_ctrl. "work area DATA: g_ztab_ctrl_copied. "copy flag *&SPWIZARD: DECLARATION OF TABLECONTROL 'ZTAB_CTRL' ITSELF CONTROLS: ztab_ctrl TYPE TABLEVIEW USING SCREEN 0100. *&SPWIZARD: LINES OF TABLECONTROL 'ZTAB_CTRL' DATA: g_ztab_ctrl_lines LIKE sy-loopc. DATA: ok_code LIKE sy-ucomm. *&---调用屏幕 CALL SCREEN 100. *&---------------------------------------------------------------------* *& Module STATUS_0100 OUTPUT *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* MODULE status_0100 OUTPUT. SET PF-STATUS 'STATUS'. * SET TITLEBAR 'xxx'. ENDMODULE. *&---------------------------------------------------------------------* *& Module USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0100 INPUT. DATA: lv_okcode TYPE sy-ucomm, lv_sfield TYPE screen-name, "屏幕字段 lv_vfield1 TYPE char30, "值字段 lv_vfield2 TYPE char30, lv_line TYPE i, lv_msg TYPE string. FIELD-SYMBOLS: <fs> TYPE any. lv_okcode = sy-ucomm. CASE lv_okcode. WHEN '&IC1'. GET CURSOR FIELD lv_sfield LINE lv_line. SPLIT lv_sfield AT '-' INTO lv_vfield1 lv_vfield2. READ TABLE g_ztab_ctrl_itab INTO g_ztab_ctrl_wa INDEX lv_line. IF sy-subrc = 0. ASSIGN COMPONENT lv_vfield2 OF STRUCTURE g_ztab_ctrl_wa TO <fs>. IF <fs> IS ASSIGNED. lv_msg = '我被双击了！ Give Me Five！我的值是：' && <fs>. MESSAGE lv_msg TYPE 'I'. ENDIF. ENDIF. WHEN '&F03'. LEAVE TO SCREEN 0. WHEN '&F04' OR '&F05'. LEAVE PROGRAM. WHEN OTHERS. ENDCASE. ENDMODULE. *&SPWIZARD: OUTPUT MODULE FOR TC 'ZTAB_CTRL'. DO NOT CHANGE THIS LINE! *&SPWIZARD: COPY DDIC-TABLE TO ITAB MODULE ztab_ctrl_init OUTPUT. IF g_ztab_ctrl_copied IS INITIAL. *&SPWIZARD: COPY DDIC-TABLE 'ZTIF_LOG' *&SPWIZARD: INTO INTERNAL TABLE 'g_ZTAB_CTRL_itab' SELECT * FROM ztif_log INTO CORRESPONDING FIELDS OF TABLE g_ztab_ctrl_itab. g_ztab_ctrl_copied = 'X'. REFRESH CONTROL 'ZTAB_CTRL' FROM SCREEN '0100'. ENDIF. ENDMODULE. *&SPWIZARD: OUTPUT MODULE FOR TC 'ZTAB_CTRL'. DO NOT CHANGE THIS LINE! *&SPWIZARD: MOVE ITAB TO DYNPRO MODULE ztab_ctrl_move OUTPUT. MOVE-CORRESPONDING g_ztab_ctrl_wa TO ztif_log. ENDMODULE. *&SPWIZARD: OUTPUT MODULE FOR TC 'ZTAB_CTRL'. DO NOT CHANGE THIS LINE! *&SPWIZARD: GET LINES OF TABLECONTROL MODULE ztab_ctrl_get_lines OUTPUT. g_ztab_ctrl_lines = sy-loopc. ENDMODULE. *&SPWIZARD: INPUT MODULE FOR TC 'ZTAB_CTRL'. DO NOT CHANGE THIS LINE! *&SPWIZARD: MODIFY TABLE MODULE ztab_ctrl_modify INPUT. MOVE-CORRESPONDING ztif_log TO g_ztab_ctrl_wa. MODIFY g_ztab_ctrl_itab FROM g_ztab_ctrl_wa INDEX ztab_ctrl-current_line. ENDMODULE. *&SPWIZARD: INPUT MODULE FOR TC 'ZTAB_CTRL'. DO NOT CHANGE THIS LINE! *&SPWIZARD: PROCESS USER COMMAND MODULE ztab_ctrl_user_command INPUT. ok_code = sy-ucomm. PERFORM user_ok_tc USING 'ZTAB_CTRL' 'G_ZTAB_CTRL_ITAB' 'FLAG' CHANGING ok_code. sy-ucomm = ok_code. ENDMODULE. *----------------------------------------------------------------------* * INCLUDE TABLECONTROL_FORMS * *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form USER_OK_TC * *&---------------------------------------------------------------------* FORM user_ok_tc USING p_tc_name TYPE dynfnam p_table_name p_mark_name CHANGING p_ok LIKE sy-ucomm. *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------* DATA: l_ok TYPE sy-ucomm, l_offset TYPE i. *&SPWIZARD: END OF LOCAL DATA------------------------------------------* *&SPWIZARD: Table control specific operations * *&SPWIZARD: evaluate TC name and operations * SEARCH p_ok FOR p_tc_name. IF sy-subrc <> 0. EXIT. ENDIF. l_offset = strlen( p_tc_name ) + 1. l_ok = p_ok+l_offset. *&SPWIZARD: execute general and TC specific operations * CASE l_ok. WHEN 'INSR'. "insert row PERFORM fcode_insert_row USING p_tc_name p_table_name. CLEAR p_ok. WHEN 'DELE'. "delete row PERFORM fcode_delete_row USING p_tc_name p_table_name p_mark_name. CLEAR p_ok. WHEN 'P--' OR "top of list 'P-' OR "previous page 'P+' OR "next page 'P++'. "bottom of list PERFORM compute_scrolling_in_tc USING p_tc_name l_ok. CLEAR p_ok. * WHEN 'L--'. "total left * PERFORM FCODE_TOTAL_LEFT USING P_TC_NAME. * * WHEN 'L-'. "column left * PERFORM FCODE_COLUMN_LEFT USING P_TC_NAME. * * WHEN 'R+'. "column right * PERFORM FCODE_COLUMN_RIGHT USING P_TC_NAME. * * WHEN 'R++'. "total right * PERFORM FCODE_TOTAL_RIGHT USING P_TC_NAME. * WHEN 'MARK'. "mark all filled lines PERFORM fcode_tc_mark_lines USING p_tc_name p_table_name p_mark_name . CLEAR p_ok. WHEN 'DMRK'. "demark all filled lines PERFORM fcode_tc_demark_lines USING p_tc_name p_table_name p_mark_name . CLEAR p_ok. * WHEN 'SASCEND' OR * 'SDESCEND'. "sort column * PERFORM FCODE_SORT_TC USING P_TC_NAME * l_ok. ENDCASE. ENDFORM. " USER_OK_TC *&---------------------------------------------------------------------* *& Form FCODE_INSERT_ROW * *&---------------------------------------------------------------------* FORM fcode_insert_row USING p_tc_name TYPE dynfnam p_table_name . *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------* DATA l_lines_name LIKE feld-name. DATA l_selline LIKE sy-stepl. DATA l_lastline TYPE i. DATA l_line TYPE i. DATA l_table_name LIKE feld-name. FIELD-SYMBOLS <tc> TYPE cxtab_control. FIELD-SYMBOLS <table> TYPE STANDARD TABLE. FIELD-SYMBOLS <lines> TYPE i. *&SPWIZARD: END OF LOCAL DATA------------------------------------------* ASSIGN (p_tc_name) TO <tc>. *&SPWIZARD: get the table, which belongs to the tc * CONCATENATE p_table_name '[]' INTO l_table_name. "table body ASSIGN (l_table_name) TO <table>. "not headerline *&SPWIZARD: get looplines of TableControl * CONCATENATE 'G_' p_tc_name '_LINES' INTO l_lines_name. ASSIGN (l_lines_name) TO <lines>. *&SPWIZARD: get current line * GET CURSOR LINE l_selline. IF sy-subrc <> 0. " append line to table l_selline = <tc>-lines + 1. *&SPWIZARD: set top line * IF l_selline > <lines>. <tc>-top_line = l_selline - <lines> + 1 . ELSE. <tc>-top_line = 1. ENDIF. ELSE. " insert line into table l_selline = <tc>-top_line + l_selline - 1. l_lastline = <tc>-top_line + <lines> - 1. ENDIF. *&SPWIZARD: set new cursor line * l_line = l_selline - <tc>-top_line + 1. *&SPWIZARD: insert initial line * INSERT INITIAL LINE INTO <table> INDEX l_selline. <tc>-lines = <tc>-lines + 1. *&SPWIZARD: set cursor * SET CURSOR LINE l_line. ENDFORM. " FCODE_INSERT_ROW *&---------------------------------------------------------------------* *& Form FCODE_DELETE_ROW * *&---------------------------------------------------------------------* FORM fcode_delete_row USING p_tc_name TYPE dynfnam p_table_name p_mark_name . *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------* DATA l_table_name LIKE feld-name. FIELD-SYMBOLS <tc> TYPE cxtab_control. FIELD-SYMBOLS <table> TYPE STANDARD TABLE. FIELD-SYMBOLS <wa>. FIELD-SYMBOLS <mark_field>. *&SPWIZARD: END OF LOCAL DATA------------------------------------------* ASSIGN (p_tc_name) TO <tc>. *&SPWIZARD: get the table, which belongs to the tc * CONCATENATE p_table_name '[]' INTO l_table_name. "table body ASSIGN (l_table_name) TO <table>. "not headerline *&SPWIZARD: delete marked lines * DESCRIBE TABLE <table> LINES <tc>-lines. LOOP AT <table> ASSIGNING <wa>. *&SPWIZARD: access to the component 'FLAG' of the table header * ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>. IF <mark_field> = 'X'. DELETE <table> INDEX syst-tabix. IF sy-subrc = 0. <tc>-lines = <tc>-lines - 1. ENDIF. ENDIF. ENDLOOP. ENDFORM. " FCODE_DELETE_ROW *&---------------------------------------------------------------------* *& Form COMPUTE_SCROLLING_IN_TC *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_TC_NAME name of tablecontrol * -->P_OK ok code *----------------------------------------------------------------------* FORM compute_scrolling_in_tc USING p_tc_name p_ok. *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------* DATA l_tc_new_top_line TYPE i. DATA l_tc_name LIKE feld-name. DATA l_tc_lines_name LIKE feld-name. DATA l_tc_field_name LIKE feld-name. FIELD-SYMBOLS <tc> TYPE cxtab_control. FIELD-SYMBOLS <lines> TYPE i. *&SPWIZARD: END OF LOCAL DATA------------------------------------------* ASSIGN (p_tc_name) TO <tc>. *&SPWIZARD: get looplines of TableControl * CONCATENATE 'G_' p_tc_name '_LINES' INTO l_tc_lines_name. ASSIGN (l_tc_lines_name) TO <lines>. *&SPWIZARD: is no line filled? * IF <tc>-lines = 0. *&SPWIZARD: yes, ... * l_tc_new_top_line = 1. ELSE. *&SPWIZARD: no, ... * CALL FUNCTION 'SCROLLING_IN_TABLE' EXPORTING entry_act = <tc>-top_line entry_from = 1 entry_to = <tc>-lines last_page_full = 'X' loops = <lines> ok_code = p_ok overlapping = 'X' IMPORTING entry_new = l_tc_new_top_line EXCEPTIONS * NO_ENTRY_OR_PAGE_ACT = 01 * NO_ENTRY_TO = 02 * NO_OK_CODE_OR_PAGE_GO = 03 OTHERS = 0. ENDIF. *&SPWIZARD: get actual tc and column * GET CURSOR FIELD l_tc_field_name AREA l_tc_name. IF syst-subrc = 0. IF l_tc_name = p_tc_name. *&SPWIZARD: et actual column * SET CURSOR FIELD l_tc_field_name LINE 1. ENDIF. ENDIF. *&SPWIZARD: set the new top line * <tc>-top_line = l_tc_new_top_line. ENDFORM. " COMPUTE_SCROLLING_IN_TC *&---------------------------------------------------------------------* *& Form FCODE_TC_MARK_LINES *&---------------------------------------------------------------------* * marks all TableControl lines *----------------------------------------------------------------------* * -->P_TC_NAME name of tablecontrol *----------------------------------------------------------------------* FORM fcode_tc_mark_lines USING p_tc_name p_table_name p_mark_name. *&SPWIZARD: EGIN OF LOCAL DATA-----------------------------------------* DATA l_table_name LIKE feld-name. FIELD-SYMBOLS <tc> TYPE cxtab_control. FIELD-SYMBOLS <table> TYPE STANDARD TABLE. FIELD-SYMBOLS <wa>. FIELD-SYMBOLS <mark_field>. *&SPWIZARD: END OF LOCAL DATA------------------------------------------* ASSIGN (p_tc_name) TO <tc>. *&SPWIZARD: get the table, which belongs to the tc * CONCATENATE p_table_name '[]' INTO l_table_name. "table body ASSIGN (l_table_name) TO <table>. "not headerline *&SPWIZARD: mark all filled lines * LOOP AT <table> ASSIGNING <wa>. *&SPWIZARD: access to the component 'FLAG' of the table header * ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>. <mark_field> = 'X'. ENDLOOP. ENDFORM. "fcode_tc_mark_lines *&---------------------------------------------------------------------* *& Form FCODE_TC_DEMARK_LINES *&---------------------------------------------------------------------* * demarks all TableControl lines *----------------------------------------------------------------------* * -->P_TC_NAME name of tablecontrol *----------------------------------------------------------------------* FORM fcode_tc_demark_lines USING p_tc_name p_table_name p_mark_name . *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------* DATA l_table_name LIKE feld-name. FIELD-SYMBOLS <tc> TYPE cxtab_control. FIELD-SYMBOLS <table> TYPE STANDARD TABLE. FIELD-SYMBOLS <wa>. FIELD-SYMBOLS <mark_field>. *&SPWIZARD: END OF LOCAL DATA------------------------------------------* ASSIGN (p_tc_name) TO <tc>. *&SPWIZARD: get the table, which belongs to the tc * CONCATENATE p_table_name '[]' INTO l_table_name. "table body ASSIGN (l_table_name) TO <table>. "not headerline *&SPWIZARD: demark all filled lines * LOOP AT <table> ASSIGNING <wa>. *&SPWIZARD: access to the component 'FLAG' of the table header * ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>. <mark_field> = space. ENDLOOP. ENDFORM. "fcode_tc_mark_lines

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438

   *&---------------------------------------------------------------------* *& Report ZTEST016 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT ztest016.   ***&SPWIZARD: DATA DECLARATION FOR TABLECONTROL 'ZTAB_CTRL' *&SPWIZARD: DEFINITION OF DDIC-TABLE TABLES:   ztif_log.   *&SPWIZARD: TYPE FOR THE DATA OF TABLECONTROL 'ZTAB_CTRL' TYPES: BEGIN OF t_ztab_ctrl,          zifid LIKE ztif_log-zifid,          zifno LIKE ztif_log-zifno,          type  LIKE ztif_log-type,          crdat LIKE ztif_log-crdat,          crtim LIKE ztif_log-crtim,          zbzno LIKE ztif_log-zbzno,        END OF t_ztab_ctrl.   *&SPWIZARD: INTERNAL TABLE FOR TABLECONTROL 'ZTAB_CTRL' DATA: g_ztab_ctrl_itab TYPE t_ztab_ctrl OCCURS 0,       g_ztab_ctrl_wa   TYPE t_ztab_ctrl. "work area DATA:     g_ztab_ctrl_copied.           "copy flag   *&SPWIZARD: DECLARATION OF TABLECONTROL 'ZTAB_CTRL' ITSELF CONTROLS: ztab_ctrl TYPE TABLEVIEW USING SCREEN 0100.   *&SPWIZARD: LINES OF TABLECONTROL 'ZTAB_CTRL' DATA:     g_ztab_ctrl_lines  LIKE sy-loopc.   DATA:     ok_code LIKE sy-ucomm.   *&---调用屏幕 CALL SCREEN 100. *&---------------------------------------------------------------------* *& Module STATUS_0100 OUTPUT *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* MODULE status_0100 OUTPUT.   SET PF-STATUS 'STATUS'. * SET TITLEBAR 'xxx'. ENDMODULE.   *&---------------------------------------------------------------------* *&      Module  USER_COMMAND_0100  INPUT *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* MODULE user_command_0100 INPUT.   DATA: lv_okcode  TYPE sy-ucomm,         lv_sfield  TYPE screen-name,     "屏幕字段         lv_vfield1 TYPE char30,          "值字段         lv_vfield2 TYPE char30,         lv_line    TYPE i,         lv_msg     TYPE string.     FIELD-SYMBOLS: <fs> TYPE any.     lv_okcode = sy-ucomm.     CASE lv_okcode.     WHEN '&IC1'.       GET CURSOR FIELD lv_sfield LINE lv_line.       SPLIT lv_sfield AT '-' INTO lv_vfield1 lv_vfield2.         READ TABLE g_ztab_ctrl_itab INTO g_ztab_ctrl_wa INDEX lv_line.       IF sy-subrc = 0.         ASSIGN COMPONENT lv_vfield2 OF STRUCTURE g_ztab_ctrl_wa TO <fs>.         IF <fs> IS ASSIGNED.           lv_msg = '我被双击了！ Give Me Five！我的值是：' && <fs>.           MESSAGE lv_msg TYPE 'I'.         ENDIF.       ENDIF.     WHEN '&F03'.       LEAVE TO SCREEN 0.     WHEN '&F04' OR '&F05'.       LEAVE PROGRAM.     WHEN OTHERS.   ENDCASE. ENDMODULE.   *&SPWIZARD: OUTPUT MODULE FOR TC 'ZTAB_CTRL'. DO NOT CHANGE THIS LINE! *&SPWIZARD: COPY DDIC-TABLE TO ITAB MODULE ztab_ctrl_init OUTPUT.   IF g_ztab_ctrl_copied IS INITIAL. *&SPWIZARD: COPY DDIC-TABLE 'ZTIF_LOG' *&SPWIZARD: INTO INTERNAL TABLE 'g_ZTAB_CTRL_itab'     SELECT * FROM ztif_log        INTO CORRESPONDING FIELDS        OF TABLE g_ztab_ctrl_itab.     g_ztab_ctrl_copied = 'X'.     REFRESH CONTROL 'ZTAB_CTRL' FROM SCREEN '0100'.   ENDIF. ENDMODULE.   *&SPWIZARD: OUTPUT MODULE FOR TC 'ZTAB_CTRL'. DO NOT CHANGE THIS LINE! *&SPWIZARD: MOVE ITAB TO DYNPRO MODULE ztab_ctrl_move OUTPUT.   MOVE-CORRESPONDING g_ztab_ctrl_wa TO ztif_log. ENDMODULE.   *&SPWIZARD: OUTPUT MODULE FOR TC 'ZTAB_CTRL'. DO NOT CHANGE THIS LINE! *&SPWIZARD: GET LINES OF TABLECONTROL MODULE ztab_ctrl_get_lines OUTPUT.   g_ztab_ctrl_lines = sy-loopc. ENDMODULE.   *&SPWIZARD: INPUT MODULE FOR TC 'ZTAB_CTRL'. DO NOT CHANGE THIS LINE! *&SPWIZARD: MODIFY TABLE MODULE ztab_ctrl_modify INPUT.   MOVE-CORRESPONDING ztif_log TO g_ztab_ctrl_wa.   MODIFY g_ztab_ctrl_itab     FROM g_ztab_ctrl_wa     INDEX ztab_ctrl-current_line. ENDMODULE.   *&SPWIZARD: INPUT MODULE FOR TC 'ZTAB_CTRL'. DO NOT CHANGE THIS LINE! *&SPWIZARD: PROCESS USER COMMAND MODULE ztab_ctrl_user_command INPUT.   ok_code = sy-ucomm.   PERFORM user_ok_tc USING    'ZTAB_CTRL'                               'G_ZTAB_CTRL_ITAB'                               'FLAG'                      CHANGING ok_code.   sy-ucomm = ok_code. ENDMODULE.   *----------------------------------------------------------------------* *   INCLUDE TABLECONTROL_FORMS                                         * *----------------------------------------------------------------------*   *&---------------------------------------------------------------------* *&      Form  USER_OK_TC                                               * *&---------------------------------------------------------------------* FORM user_ok_tc USING    p_tc_name TYPE dynfnam                          p_table_name                          p_mark_name                 CHANGING p_ok      LIKE sy-ucomm.   *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*   DATA: l_ok     TYPE sy-ucomm,         l_offset TYPE i. *&SPWIZARD: END OF LOCAL DATA------------------------------------------*   *&SPWIZARD: Table control specific operations                          * *&SPWIZARD: evaluate TC name and operations                            *   SEARCH p_ok FOR p_tc_name.   IF sy-subrc <> 0.     EXIT.   ENDIF.   l_offset = strlen( p_tc_name ) + 1.   l_ok = p_ok+l_offset. *&SPWIZARD: execute general and TC specific operations                 *   CASE l_ok.     WHEN 'INSR'.                      "insert row       PERFORM fcode_insert_row USING    p_tc_name                                         p_table_name.       CLEAR p_ok.       WHEN 'DELE'.                      "delete row       PERFORM fcode_delete_row USING    p_tc_name                                         p_table_name                                         p_mark_name.       CLEAR p_ok.       WHEN 'P--' OR                     "top of list          'P-'  OR                     "previous page          'P+'  OR                     "next page          'P++'.                       "bottom of list       PERFORM compute_scrolling_in_tc USING p_tc_name                                             l_ok.       CLEAR p_ok. *     WHEN 'L--'.                       "total left *       PERFORM FCODE_TOTAL_LEFT USING P_TC_NAME. * *     WHEN 'L-'.                        "column left *       PERFORM FCODE_COLUMN_LEFT USING P_TC_NAME. * *     WHEN 'R+'.                        "column right *       PERFORM FCODE_COLUMN_RIGHT USING P_TC_NAME. * *     WHEN 'R++'.                       "total right *       PERFORM FCODE_TOTAL_RIGHT USING P_TC_NAME. *     WHEN 'MARK'.                      "mark all filled lines       PERFORM fcode_tc_mark_lines USING p_tc_name                                         p_table_name                                         p_mark_name   .       CLEAR p_ok.       WHEN 'DMRK'.                      "demark all filled lines       PERFORM fcode_tc_demark_lines USING p_tc_name                                           p_table_name                                           p_mark_name .       CLEAR p_ok.   *     WHEN 'SASCEND'   OR *          'SDESCEND'.                  "sort column *       PERFORM FCODE_SORT_TC USING P_TC_NAME *                                   l_ok.     ENDCASE.   ENDFORM.                              " USER_OK_TC   *&---------------------------------------------------------------------* *&      Form  FCODE_INSERT_ROW                                         * *&---------------------------------------------------------------------* FORM fcode_insert_row               USING    p_tc_name           TYPE dynfnam                        p_table_name             .   *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*   DATA l_lines_name       LIKE feld-name.   DATA l_selline          LIKE sy-stepl.   DATA l_lastline         TYPE i.   DATA l_line             TYPE i.   DATA l_table_name       LIKE feld-name.   FIELD-SYMBOLS <tc>                 TYPE cxtab_control.   FIELD-SYMBOLS <table>              TYPE STANDARD TABLE.   FIELD-SYMBOLS <lines>              TYPE i. *&SPWIZARD: END OF LOCAL DATA------------------------------------------*     ASSIGN (p_tc_name) TO <tc>.   *&SPWIZARD: get the table, which belongs to the tc                     *   CONCATENATE p_table_name '[]' INTO l_table_name. "table body   ASSIGN (l_table_name) TO <table>.                "not headerline   *&SPWIZARD: get looplines of TableControl                              *   CONCATENATE 'G_' p_tc_name '_LINES' INTO l_lines_name.   ASSIGN (l_lines_name) TO <lines>.   *&SPWIZARD: get current line                                           *   GET CURSOR LINE l_selline.   IF sy-subrc <> 0.                   " append line to table     l_selline = <tc>-lines + 1. *&SPWIZARD: set top line                                               *     IF l_selline > <lines>.       <tc>-top_line = l_selline - <lines> + 1 .     ELSE.       <tc>-top_line = 1.     ENDIF.   ELSE.                               " insert line into table     l_selline = <tc>-top_line + l_selline - 1.     l_lastline = <tc>-top_line + <lines> - 1.   ENDIF. *&SPWIZARD: set new cursor line                                        *   l_line = l_selline - <tc>-top_line + 1.   *&SPWIZARD: insert initial line                                        *   INSERT INITIAL LINE INTO <table> INDEX l_selline.   <tc>-lines = <tc>-lines + 1. *&SPWIZARD: set cursor                                                 *   SET CURSOR LINE l_line.   ENDFORM.                              " FCODE_INSERT_ROW   *&---------------------------------------------------------------------* *&      Form  FCODE_DELETE_ROW                                         * *&---------------------------------------------------------------------* FORM fcode_delete_row               USING    p_tc_name           TYPE dynfnam                        p_table_name                        p_mark_name   .   *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*   DATA l_table_name       LIKE feld-name.     FIELD-SYMBOLS <tc>         TYPE cxtab_control.   FIELD-SYMBOLS <table>      TYPE STANDARD TABLE.   FIELD-SYMBOLS <wa>.   FIELD-SYMBOLS <mark_field>. *&SPWIZARD: END OF LOCAL DATA------------------------------------------*     ASSIGN (p_tc_name) TO <tc>.   *&SPWIZARD: get the table, which belongs to the tc                     *   CONCATENATE p_table_name '[]' INTO l_table_name. "table body   ASSIGN (l_table_name) TO <table>.                "not headerline   *&SPWIZARD: delete marked lines                                        *   DESCRIBE TABLE <table> LINES <tc>-lines.     LOOP AT <table> ASSIGNING <wa>.   *&SPWIZARD: access to the component 'FLAG' of the table header         *     ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.       IF <mark_field> = 'X'.       DELETE <table> INDEX syst-tabix.       IF sy-subrc = 0.         <tc>-lines = <tc>-lines - 1.       ENDIF.     ENDIF.   ENDLOOP.   ENDFORM.                              " FCODE_DELETE_ROW   *&---------------------------------------------------------------------* *&      Form  COMPUTE_SCROLLING_IN_TC *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* *      -->P_TC_NAME  name of tablecontrol *      -->P_OK       ok code *----------------------------------------------------------------------* FORM compute_scrolling_in_tc USING    p_tc_name                                       p_ok. *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*   DATA l_tc_new_top_line     TYPE i.   DATA l_tc_name             LIKE feld-name.   DATA l_tc_lines_name       LIKE feld-name.   DATA l_tc_field_name       LIKE feld-name.     FIELD-SYMBOLS <tc>         TYPE cxtab_control.   FIELD-SYMBOLS <lines>      TYPE i. *&SPWIZARD: END OF LOCAL DATA------------------------------------------*     ASSIGN (p_tc_name) TO <tc>. *&SPWIZARD: get looplines of TableControl                              *   CONCATENATE 'G_' p_tc_name '_LINES' INTO l_tc_lines_name.   ASSIGN (l_tc_lines_name) TO <lines>.     *&SPWIZARD: is no line filled?                                         *   IF <tc>-lines = 0. *&SPWIZARD: yes, ...                                                   *     l_tc_new_top_line = 1.   ELSE. *&SPWIZARD: no, ...                                                    *     CALL FUNCTION 'SCROLLING_IN_TABLE'       EXPORTING         entry_act      = <tc>-top_line         entry_from     = 1         entry_to       = <tc>-lines         last_page_full = 'X'         loops          = <lines>         ok_code        = p_ok         overlapping    = 'X'       IMPORTING         entry_new      = l_tc_new_top_line       EXCEPTIONS *       NO_ENTRY_OR_PAGE_ACT  = 01 *       NO_ENTRY_TO    = 02 *       NO_OK_CODE_OR_PAGE_GO = 03         OTHERS         = 0.   ENDIF.   *&SPWIZARD: get actual tc and column                                   *   GET CURSOR FIELD l_tc_field_name              AREA  l_tc_name.     IF syst-subrc = 0.     IF l_tc_name = p_tc_name. *&SPWIZARD: et actual column                                           *       SET CURSOR FIELD l_tc_field_name LINE 1.     ENDIF.   ENDIF.   *&SPWIZARD: set the new top line                                       *   <tc>-top_line = l_tc_new_top_line.     ENDFORM.                              " COMPUTE_SCROLLING_IN_TC   *&---------------------------------------------------------------------* *&      Form  FCODE_TC_MARK_LINES *&---------------------------------------------------------------------* *       marks all TableControl lines *----------------------------------------------------------------------* *      -->P_TC_NAME  name of tablecontrol *----------------------------------------------------------------------* FORM fcode_tc_mark_lines USING p_tc_name                                p_table_name                                p_mark_name. *&SPWIZARD: EGIN OF LOCAL DATA-----------------------------------------*   DATA l_table_name       LIKE feld-name.     FIELD-SYMBOLS <tc>         TYPE cxtab_control.   FIELD-SYMBOLS <table>      TYPE STANDARD TABLE.   FIELD-SYMBOLS <wa>.   FIELD-SYMBOLS <mark_field>. *&SPWIZARD: END OF LOCAL DATA------------------------------------------*     ASSIGN (p_tc_name) TO <tc>.   *&SPWIZARD: get the table, which belongs to the tc                     *   CONCATENATE p_table_name '[]' INTO l_table_name. "table body   ASSIGN (l_table_name) TO <table>.                "not headerline   *&SPWIZARD: mark all filled lines                                      *   LOOP AT <table> ASSIGNING <wa>.   *&SPWIZARD: access to the component 'FLAG' of the table header         *     ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.       <mark_field> = 'X'.   ENDLOOP. ENDFORM.                                          "fcode_tc_mark_lines   *&---------------------------------------------------------------------* *&      Form  FCODE_TC_DEMARK_LINES *&---------------------------------------------------------------------* *       demarks all TableControl lines *----------------------------------------------------------------------* *      -->P_TC_NAME  name of tablecontrol *----------------------------------------------------------------------* FORM fcode_tc_demark_lines USING p_tc_name                                  p_table_name                                  p_mark_name . *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------*   DATA l_table_name       LIKE feld-name.     FIELD-SYMBOLS <tc>         TYPE cxtab_control.   FIELD-SYMBOLS <table>      TYPE STANDARD TABLE.   FIELD-SYMBOLS <wa>.   FIELD-SYMBOLS <mark_field>. *&SPWIZARD: END OF LOCAL DATA------------------------------------------*     ASSIGN (p_tc_name) TO <tc>.   *&SPWIZARD: get the table, which belongs to the tc                     *   CONCATENATE p_table_name '[]' INTO l_table_name. "table body   ASSIGN (l_table_name) TO <table>.                "not headerline   *&SPWIZARD: demark all filled lines                                    *   LOOP AT <table> ASSIGNING <wa>.   *&SPWIZARD: access to the component 'FLAG' of the table header         *     ASSIGN COMPONENT p_mark_name OF STRUCTURE <wa> TO <mark_field>.       <mark_field> = space.   ENDLOOP. ENDFORM.                                          "fcode_tc_mark_lines

   
   5.效果展示

以上。