在ooalv中，自定义alv控件的工具条按钮，显示选中行明细

在ALV的工具条上增加一个自定义的按钮，单击它弹出窗口提示选择行数据内容，执行效果如下。


注：该实例是在屏幕上建立custom control控件，实现oolav输出报表 的扩展，如阅读有困难可先参考它。

程序处理流程说明：
定义alv控件相关事件、接口和实现方法等，主要定义以下事件。
（1）、alv控件的工具条处理事件，定义了新按钮的功能码；
（2）、alv控件的功能码处理事件，定义用户单击按钮产生的功能码事件

主程序：

1. REPORT  ZDEMON_004.
   
2. INCLUDE <ICON>."引用系统的图标 按钮
   
3. CLASS LCL_EVENT_RECEIVER DEFINITION DEFERRED."DEFERRED大概就是 “预定义”类，先告诉你会有这么一个类，可被别的地方用，之后它还是要定义的
   
4. DATA EVENT_RECEIVER TYPE REF TO  LCL_EVENT_RECEIVER. "定义事件
   
5. 
   
6. DATA OK_CODE TYPE SY-UCOMM. " SY-UCOMM：Function code that PAI triggered
   
7. DATA:IT_SPFLI TYPE TABLE OF SPFLI,
   
8.      A_SPFLI TYPE SPFLI.
   
9. DATA:S_CONTAINER TYPE SCRFNAME VALUE 'ALVDATA',  " SCRFNAME: Name of a Screen Element  只能为该类型
   
10.       ALV_GRID TYPE REF TO CL_GUI_ALV_GRID, "参考CL_GUI_ALV_GRID类，定义对象ALV_GRID
    
11.       LO_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
    
12. 
    
13. SELECT *
    
14.   INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI
    
15.   FROM SPFLI.
    
16. 
    
17. CALL SCREEN 100.
    
18. *定义事件的属性和方法
    
19. CLASS LCL_EVENT_RECEIVER DEFINITION.
    
20.   PUBLIC SECTION.
    
21.     METHODS:
    
22. *按钮处理方法
    
23.     HANDLE_TOOLBAR
    
24.       FOR EVENT TOOLBAR OF CL_GUI_ALV_GRID
    
25.         IMPORTING E_OBJECT E_INTERACTIVE,
    
26. *用户交互事件处理
    
27.     HANDLE_USER_COMMAND
    
28.       FOR EVENT USER_COMMAND OF CL_GUI_ALV_GRID
    
29.         IMPORTING E_UCOMM .
    
30. ENDCLASS.
    
31. *实现方法
    
32. CLASS LCL_EVENT_RECEIVER IMPLEMENTATION.
    
33. *处理按钮事件
    
34.   METHOD HANDLE_TOOLBAR.
    
35.     DATA:LS_TOOLBAR TYPE STB_BUTTON.
    
36.     CLEAR LS_TOOLBAR.
    
37.     MOVE 3 TO LS_TOOLBAR-BUTN_TYPE.
    
38. *取工具条接口
    
39.     APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
    
40. *append an icon to show booking table
    
41.     CLEAR LS_TOOLBAR.
    
42. *加入功能码
    
43.     MOVE 'SHOW_DETA' TO LS_TOOLBAR-FUNCTION.
    
44. *图标 可以使用showicon系统程序查阅使用的图标
    
45.     MOVE ICON_PPE_VNODE TO LS_TOOLBAR-ICON.
    
46. *按钮文本和提示
    
47.     MOVE '航班明细显示' TO LS_TOOLBAR-QUICKINFO.
    
48.     MOVE '航班明细显示'(112) TO LS_TOOLBAR-TEXT.
    
49.     MOVE '' TO LS_TOOLBAR-DISABLED.
    
50. *添加到工具条
    
51.     APPEND LS_TOOLBAR TO E_OBJECT->MT_TOOLBAR.
    
52.    ENDMETHOD.
    
53. *处理功能码事件
    
54.    METHOD HANDLE_USER_COMMAND.
    
55.      DATA:LT_ROWS TYPE LVC_T_ROW.
    
56.      CASE E_UCOMM.
    
57. *定义的按钮事件
    
58.              WHEN 'SHOW_DETA'.
    
59. *取得所以选择行
    
60.         CALL METHOD ALV_GRID->GET_SELECTED_ROWS
    
61.               IMPORTING ET_INDEX_ROWS = LT_ROWS.
    
62.         CALL METHOD CL_GUI_CFW=>FLUSH.
    
63.         IF SY-SUBRC EQ 0.
    
64.            MESSAGE S001(ZDEMON) WITH '已选择行！'.
    
65. *调用子程序显示选择行内容
    
66.            PERFORM MESSDETA TABLES LT_ROWS.
    
67.         ENDIF.
    
68.      ENDCASE.
    
69.     ENDMETHOD.
    
70. ENDCLASS.
    
71. 
    
72. MODULE STATUS_0100 OUTPUT.
    
73.   SET PF-STATUS 'STATUS1'.
    
74.   SET TITLEBAR 'ALV TITLEBAR'.
    
75. ENDMODULE.                 " STATUS_0100  OUTPUT
    
76. 
    
77. MODULE USER_COMMAND_0100 INPUT.
    
78. CASE OK_CODE.
    
79.   WHEN 'CANCEL'.
    
80.     LEAVE PROGRAM.
    
81.   WHEN 'BACK' OR 'EXIT'.
    
82.     LEAVE TO SCREEN 0.
    
83. ENDCASE.
    
84. ENDMODULE.                 " USER_COMMAND_0100  INPUT
    
85. 
    
86. MODULE CLEAR_OK_CODE OUTPUT.
    
87.   CLEAR OK_CODE.
    
88. ENDMODULE.                 " CLEAR_OK_CODE  OUTPUT
    
89. 
    
90. MODULE DISPLAY_OOALV OUTPUT.
    
91.   IF LO_CUSTOM_CONTAINER IS INITIAL. "如果LO_CUSTOM_CONTAINE RDialog容器对象不存在，实例化该对象
    
92.     CREATE OBJECT LO_CUSTOM_CONTAINER
    
93.            EXPORTING CONTAINER_NAME = S_CONTAINER.
    
94.     CREATE OBJECT ALV_GRID "实例化alv对象
    
95.            EXPORTING I_PARENT = LO_CUSTOM_CONTAINER.
    
96.     CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY "调用alv对象的方法显示报表
    
97.          EXPORTING I_STRUCTURE_NAME = 'SPFLI'
    
98.            CHANGING IT_OUTTAB = IT_SPFLI.
    
99. *创建事件
    
100.     CREATE OBJECT EVENT_RECEIVER.
     
101. *将用户互交事件分配alv
     
102.     SET HANDLER EVENT_RECEIVER->HANDLE_USER_COMMAND FOR ALV_GRID.
     
103. *将按钮相关事件分配alv
     
104.     SET HANDLER EVENT_RECEIVER->HANDLE_TOOLBAR FOR ALV_GRID.
     
105. *调用处理工具条处理方法，使自定义工具条生效
     
106.     CALL METHOD ALV_GRID->SET_TOOLBAR_INTERACTIVE.
     
107.   ENDIF.
     
108. ENDMODULE.                 " DISPLAY_OOALV  OUTPUT
     
109. *显示选择行内容模块
     
110. FORM MESSDETA TABLES P_ET_INDEX_ROWS STRUCTURE LVC_S_ROW.
     
111. *定义选择行
     
112.   DATA:LS_SELECTED_LINE LIKE LVC_S_ROW,
     
113.        LF_ROW_INDEX TYPE LVC_INDEX.
     
114. *定义合并字段及分配字段
     
115.   DATA:S1(200) TYPE C,
     
116.        S2(3) TYPE C.
     
117.   S2 = '-'.
     
118. *读取所有选择行
     
119.   LOOP AT P_ET_INDEX_ROWS INTO LS_SELECTED_LINE.
     
120.       LF_ROW_INDEX = LS_SELECTED_LINE-INDEX.
     
121.       READ TABLE IT_SPFLI INDEX LF_ROW_INDEX INTO A_SPFLI.
     
122.       S1 = '选择行内容'.
     
123.       CONCATENATE S1 A_SPFLI-CONNID A_SPFLI-CARRID A_SPFLI-CITYFROM INTO S1 SEPARATED BY S2.
     
124.       MESSAGE I002(ZDEMON) WITH S1.
     
125.   ENDLOOP.
     
126. ENDFORM.

复制代码