ABAP报表开发HANA平台大数据展示工具SALV学习之三

1、sALV双击&单击事件

1. CLASS lcl_handle DEFINITION.
   
2.   PUBLIC SECTION.
   
3.     METHODS double_click FOR EVENT double_click OF if_salv_gui_table_display_opt
   
4.       IMPORTING ev_field_name eo_row_data.
   
5.     METHODS cell_action FOR EVENT cell_action OF if_salv_gui_field_display_opt
   
6.       IMPORTING ev_field_name eo_row_data.
   
7. ENDCLASS.
   
8. 
   
9. CLASS lcl_handle IMPLEMENTATION.
   
10.   METHOD double_click.
    
11.     DATA: ls_vbak TYPE vbak.
    
12.     CHECK ev_field_name = 'VBELN'.
    
13. * read the row data
    
14.     eo_row_data->get_row_data(
    
15.       EXPORTING
    
16.         iv_request_type = if_salv_gui_selection_ida=>cs_request_type-all_fields
    
17.       IMPORTING
    
18.         es_row = ls_vbak ).
    
19. * Display the row data
    
20.     cl_salv_ida_show_data_row=>display( iv_text = 'VBAK Row Info' is_data = ls_vbak ).
    
21.   ENDMETHOD.
    
22.   METHOD cell_action.
    
23.     DATA: ls_vbak TYPE vbak.
    
24.     CHECK ev_field_name = 'VBELN'.
    
25. * read the row data
    
26.     eo_row_data->get_row_data(
    
27.       EXPORTING
    
28.         iv_request_type = if_salv_gui_selection_ida=>cs_request_type-all_fields
    
29.       IMPORTING
    
30.         es_row = ls_vbak ).
    
31. * Display the row data
    
32.     cl_salv_ida_show_data_row=>display( iv_text = 'VBAK Row Info' is_data = ls_vbak ).
    
33.   ENDMETHOD.
    
34. ENDCLASS.
    
35. 
    
36. TABLES: vbak.
    
37. 
    
38. SELECT-OPTIONS: s_vbeln FOR vbak-vbeln.
    
39. 
    
40. START-OF-SELECTION.
    
41. **********************************************************************
    
42. *alv data
    
43. **********************************************************************
    
44.   TRY.
    
45.       CALL METHOD cl_salv_gui_table_ida=>create
    
46.         EXPORTING
    
47.           iv_table_name        = 'VBAK'
    
48.         RECEIVING
    
49.           ro_alv_gui_table_ida = DATA(lr_alv).
    
50.     CATCH cx_salv_db_connection.
    
51.     CATCH cx_salv_db_table_not_supported.
    
52.     CATCH cx_salv_ida_contract_violation.
    
53.   ENDTRY.
    
54. 
    
55. **********************************************************************
    
56. *alv select option
    
57. **********************************************************************
    
58.   DATA:lt_ranges TYPE if_salv_service_types=>yt_named_ranges.
    
59.   DATA:ls_ranges TYPE if_salv_service_types=>ys_named_range.
    
60.   DATA: lr_range TYPE REF TO cl_salv_range_tab_collector.
    
61.   DATA: lr_handle TYPE REF TO lcl_handle.
    
62. 
    
63.   CREATE OBJECT lr_range.
    
64.   lr_range->add_ranges_for_name(
    
65.     EXPORTING
    
66.       iv_name   = 'VBELN'
    
67.       it_ranges = s_vbeln[]
    
68.   ).
    
69. 
    
70.   lr_range->get_collected_ranges(
    
71.     IMPORTING
    
72.       et_named_ranges = lt_ranges[]
    
73.   ).
    
74. 
    
75.   ls_ranges-name = 'WAERK'.
    
76.   ls_ranges-sign = 'I'.
    
77.   ls_ranges-option = 'EQ'.
    
78.   ls_ranges-low = 'USD'.
    
79.   APPEND ls_ranges TO lt_ranges.
    
80. 
    
81.   TRY.
    
82.       lr_alv->set_select_options(
    
83.     EXPORTING
    
84.       it_ranges    = lt_ranges[]
    
85.   ).
    
86.     CATCH cx_salv_ida_associate_invalid.
    
87.     CATCH cx_salv_db_connection.
    
88.     CATCH cx_salv_ida_condition_invalid.
    
89.     CATCH cx_salv_ida_unknown_name.
    
90.   ENDTRY.
    
91. 
    
92. **********************************************************************
    
93. *alv select option
    
94. **********************************************************************
    
95.   DATA(lr_option) = lr_alv->display_options( ).
    
96.   lr_option->set_title( iv_title = 'VBAK information alv with ida' ).
    
97.   lr_option->enable_alternating_row_pattern( ).
    
98.   lr_option->enable_double_click( ).
    
99.   CREATE OBJECT lr_handle.
    
100.   SET HANDLER lr_handle->double_click FOR ALL INSTANCES.
     
101. **********************************************************************
     
102. *alv field catalog
     
103. **********************************************************************
     
104.   DATA(lr_display) = lr_alv->field_catalog( )->display_options( ).
     
105.   TRY.
     
106.       lr_display->display_as_link_to_action( iv_field_name = 'VBELN' ).
     
107.     CATCH cx_salv_ida_unknown_name.
     
108.     CATCH cx_salv_call_after_1st_display.
     
109.   ENDTRY.
     
110.   SET HANDLER lr_handle->cell_action FOR ALL INSTANCES.
     
111. **********************************************************************
     
112. *alv select option
     
113. **********************************************************************
     
114.   DATA: lt_sort TYPE if_salv_gui_types_ida=>yt_sort_rule.
     
115.   DATA: ls_sort TYPE if_salv_gui_types_ida=>ys_sort_rule.
     
116.   DATA: lt_aggregations TYPE if_salv_gui_types_ida=>yt_aggregation_rule.
     
117.   DATA: ls_aggregations TYPE if_salv_gui_types_ida=>ys_aggregation_rule.
     
118. 
     
119.   CLEAR: ls_sort.
     
120.   ls_sort-field_name = 'ERNAM'.
     
121.   ls_sort-descending = ''.
     
122.   ls_sort-is_grouped = 'X'.   "按照字段ERNAM分类
     
123.   APPEND ls_sort TO lt_sort.
     
124. 
     
125.   CLEAR: ls_aggregations.
     
126.   ls_aggregations-field_name = 'NETWR'.
     
127.   ls_aggregations-function   = 'SUM'. "SUM,AVG,MIN,MAX，按照分类聚合字段NETWR数值
     
128.   APPEND ls_aggregations TO lt_aggregations.
     
129. 
     
130.   DATA(lr_layout) = lr_alv->default_layout( ).
     
131.   TRY.
     
132.       lr_layout->set_sort_order( it_sort_order = lt_sort ).
     
133.     CATCH cx_salv_ida_unknown_name.
     
134.     CATCH cx_salv_ida_duplicate_name.
     
135.   ENDTRY.
     
136. 
     
137.   TRY.
     
138.       lr_layout->set_aggregations( it_aggregations = lt_aggregations ).
     
139.     CATCH cx_salv_key_figure_definition INTO DATA(lv_text).
     
140.     CATCH cx_salv_ida_unknown_name.
     
141.     CATCH cx_salv_ida_contract_violation.
     
142.   ENDTRY.
     
143. **********************************************************************
     
144. *alv rows
     
145. **********************************************************************
     
146.   TRY.
     
147.       lr_alv->set_maximum_number_of_rows(
     
148.         EXPORTING
     
149.           iv_number_of_rows = 20
     
150.       ).
     
151.     CATCH cx_salv_param_out_of_bounds.
     
152.   ENDTRY.
     
153. **********************************************************************
     
154. *alv dispaly
     
155. **********************************************************************
     
156.   TRY.
     
157.       lr_alv->fullscreen( )->display( ).
     
158.     CATCH cx_salv_ida_contract_violation.
     
159.   ENDTRY.

复制代码

2、执行效果