点击第二屏alv返回按钮，返回到第一屏alv已访问的记录高亮显示

第一屏的The Basic List

如果我们要检查任意的flights，点击click按钮，将会跳转到第二屏ALV list显示明细

当我们点击退出按钮，将会弹出确认对话框

当我们返回到第一屏时，访问的记录将会被着色
ps：1、添加标准工具栏方法：thread-24-1-1.html
      2、需要添加自定义按钮

1. TABLES:
   
2.    spfli,
   
3.    sflight,
   
4.    sbook.
   
5. 
   
6. TYPE-POOLS:slis.
   
7. 
   
8. DATA:BEGIN OF t_spfli OCCURS 0,
   
9.        checkbox,
   
10.        color(3).
    
11.        INCLUDE STRUCTURE spfli.
    
12. DATA:END OF t_spfli.
    
13. 
    
14. DATA:t_sspfli LIKE STANDARD TABLE OF t_spfli .
    
15. DATA:fs_spfli LIKE LINE OF t_sspfli.
    
16. 
    
17. DATA:BEGIN OF t_sflight OCCURS 0,
    
18.        checkbox,
    
19.        color(3).
    
20.        INCLUDE STRUCTURE sflight.
    
21. DATA:END OF t_sflight.
    
22. 
    
23. DATA:t_ssflight LIKE STANDARD TABLE OF t_sflight.
    
24. DATA:fs_sflight LIKE LINE OF t_ssflight.
    
25. 
    
26. DATA:BEGIN OF t_sbook OCCURS 0.
    
27.        INCLUDE STRUCTURE sbook.
    
28. DATA:END OF t_sbook.
    
29. 
    
30. DATA:fs_layout TYPE  slis_layout_alv,
    
31.      w_program TYPE sy-repid.
    
32. 
    
33. SELECT *
    
34.    FROM spfli
    
35.    INTO CORRESPONDING FIELDS OF TABLE t_spfli.
    
36. 
    
37. fs_layout-info_fieldname = 'COLOR'.
    
38. fs_layout-box_fieldname = 'CHECKBOX'.
    
39. w_program = sy-repid.
    
40. 
    
41. CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    
42.   EXPORTING
    
43.     i_callback_program       = w_program
    
44.     i_callback_pf_status_set = 'FLIGHT'
    
45.     i_callback_user_command  = 'SPFLI_INFO'
    
46.     i_structure_name         = 'SPFLI'
    
47.     is_layout                = fs_layout
    
48.   TABLES
    
49.     t_outtab                 = t_spfli
    
50.   EXCEPTIONS
    
51.     program_error            = 1
    
52.     OTHERS                   = 2.
    
53. IF sy-subrc <> 0.
    
54. * message id sy-msgid type sy-msgty number sy-msgno
    
55. *         with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    
56. ENDIF.
    
57. 
    
58. *&--------------------------------------------------------------------*
    
59. *&      form  flight
    
60. *&--------------------------------------------------------------------*
    
61. *       text
    
62. *---------------------------------------------------------------------*
    
63. *      -->rt_extab   text
    
64. *---------------------------------------------------------------------*
    
65. 
    
66. FORM flight    USING rt_extab TYPE slis_t_extab..
    
67.   SET PF-STATUS 'FLIGHT' EXCLUDING rt_extab.
    
68. ENDFORM.                    "FLIGHT
    
69. 
    
70. *&--------------------------------------------------------------------*
    
71. *&      form  spfli_info
    
72. *&--------------------------------------------------------------------*
    
73. *       text
    
74. *---------------------------------------------------------------------*
    
75. *      -->ucomm      text
    
76. *      -->selfield   text
    
77. *---------------------------------------------------------------------*
    
78. FORM spfli_info USING ucomm LIKE sy-ucomm
    
79.                        selfield TYPE slis_selfield.
    
80. 
    
81.   selfield-refresh = 'X'.        "刷新alv界面
    
82.   CASE ucomm.
    
83.     WHEN 'FLIGHT'.
    
84.       LOOP AT t_spfli.
    
85.         IF t_spfli-checkbox = 'X'.
    
86.           t_spfli-checkbox = ' '.
    
87.           t_spfli-color = 'C51'.
    
88.           MODIFY t_spfli TRANSPORTING checkbox color.
    
89.           fs_spfli = t_spfli.
    
90.           APPEND fs_spfli TO t_sspfli.
    
91.         ENDIF.
    
92.       ENDLOOP.
    
93. 
    
94.       LOOP AT t_sspfli INTO fs_spfli.
    
95.         SELECT *
    
96.           FROM sflight
    
97.      APPENDING CORRESPONDING FIELDS OF TABLE t_sflight
    
98.          WHERE carrid EQ fs_spfli-carrid
    
99.            AND connid EQ fs_spfli-connid.
    
100.       ENDLOOP.
     
101. 
     
102.   ENDCASE.
     
103.   REFRESH t_sspfli.
     
104.   CLEAR fs_spfli.
     
105. 
     
106.   fs_layout-info_fieldname = 'COLOR'.
     
107.   fs_layout-confirmation_prompt = 'X'."退出ALV列表的确认对话框
     
108.   fs_layout-key_hotspot = 'X'.        "alv主键变成hotspot状态
     
109. 
     
110.   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     
111.     EXPORTING
     
112.       i_callback_program = w_program
     
113.       i_structure_name   = 'SFLIGHT'
     
114.       is_layout          = fs_layout
     
115.     TABLES
     
116.       t_outtab           = t_sflight
     
117.     EXCEPTIONS
     
118.       program_error      = 1
     
119.       OTHERS             = 2.
     
120.   IF sy-subrc <> 0.
     
121. * message id sy-msgid type sy-msgty number sy-msgno
     
122. *         with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     
123.   ENDIF.
     
124.   REFRESH t_sflight.
     
125. 
     
126. ENDFORM.                    "SPFLI_INFO

复制代码