用配置表给WEB DYNPRO做配置报表（限十个查询条件）

因为用户不用GUI客户端，不能用SQVI和query，有时候需要查询某些关联表的时候就有点麻烦。
所以就想着做一个可以配置的报表，把查询字段和结果字段已经关联条件全部配置起来，这样用户要是突发奇想要查点东西，只要简单配置下就可以了。
1，新建配置表：可根据用户配置对应的组件（用户，组件，组件描述，查询from表和关联关系配置）

 2，组件配置表：根据组件，查询/结果条件，字段，字段类型，描述，表字段，查询的表，位置（可以根据S/R区分查询条件和结果字段，根据字段类型动态创建查询和结果结构和表，根据表字段，动态构建查询结果字段）

 两个配置表可以动态分配程序到用户，动态构建查询和结果，动态展示
 
3，新建WEB DYNPRO程序：ZCRM_DYNAMIC_REPORT
组件里添加ALV和SELECTION的组件

 4，组件控制器Component Controller中做动态ALV初始化(也可以在用户选择下拉报表的时候初始化)

1. METHOD wddoinit .
2.   DATA lo_cmp_usage TYPE REF TO if_wd_component_usage.
3.   lo_cmp_usage =   wd_this->wd_cpuse_dynmaic_alv( ).
4.   IF lo_cmp_usage->has_active_component( ) IS INITIAL.
5.     lo_cmp_usage->create_component( ).
6.   ENDIF.
7. ENDMETHOD.

复制代码

3，1 在MAIN视图中，我们新建一个node节点，做拉下用，下拉列表里展示当前登录用户可以选择的报表
    参照上面的配置表1就可以了

 
      2添加一个查询 ViewContainerUIElement （SELECT）
      3添加一个结果展示的 ViewContainerUIElement  （ALV）
4，init中初始化拉下程序列表（init_drop 根据用户取配置表报表）

1. METHOD wddoinit .
2.   init_drop( ).
3.   init_select( ).
4. ENDMETHOD.

复制代码

1. METHOD init_drop .
2.   DATA: lt_value_set TYPE TABLE OF wdy_key_value,
3.         ls_value_set TYPE wdy_key_value.
4.   DATA:lr_node_info TYPE REF TO if_wd_context_node_info.
6.   lr_node_info = wd_context->get_node_info( ).
7.   lr_node_info = lr_node_info->get_child_node( `ZCRMT0209` ).
9.   SELECT component_name AS key text AS value INTO TABLE lt_value_set FROM zcrmt0209 WHERE uname = sy-uname.
11.   lr_node_info->set_attribute_value_set(
12.           name = `COMPONENT_NAME`
13.           value_set = lt_value_set ).
14. ENDMETHOD.

复制代码

1. METHOD init_select .
2. **初始化select option组件
3.   DATA:
4.     lr_componentcontroller TYPE REF TO ig_componentcontroller,
5.     l_ref_cmp_usage        TYPE REF TO if_wd_component_usage.
6.   DATA:
7.     display_btn_cancel  TYPE abap_bool,
8.     display_btn_check   TYPE abap_bool,
9.     display_btn_reset   TYPE abap_bool,
10.     display_btn_execute TYPE abap_bool.
13. * create the used component
14.   l_ref_cmp_usage = wd_this->wd_cpuse_selection( ).
15.   IF l_ref_cmp_usage->has_active_component( ) IS INITIAL.
16.     l_ref_cmp_usage->create_component( ).
17.   ENDIF.
20. * get a pointer to the interface controller of the select options
21. *component
22.   wd_this->m_wd_select_options = wd_this->wd_cpifc_selection( ).
24. * init the select screen
25.   wd_this->m_handler =
26.   wd_this->m_wd_select_options->init_selection_screen( ).
28. * adjust the global options
29.   wd_this->m_handler->set_global_options(
30.       i_display_btn_cancel  = display_btn_cancel
31.       i_display_btn_check   = display_btn_check
32.       i_display_btn_reset   = display_btn_reset
33.       i_display_btn_execute = display_btn_execute ).
36. ENDMETHOD.

复制代码

5，根据下拉列表初始化选择条件和alv

1. METHOD onactionselect_comp .
2.   DATA lo_nd_zcrmt0209 TYPE REF TO if_wd_context_node.
3.   DATA lo_el_zcrmt0209 TYPE REF TO if_wd_context_element.
4.   DATA ls_zcrmt0209 TYPE wd_this->element_zcrmt0209.
6. *   navigate from <CONTEXT> to <ZCRMT0209> via lead selection
7.   lo_nd_zcrmt0209 = wd_context->get_child_node( name = wd_this->wdctx_zcrmt0209 ).
8. *   get element via lead selection
9.   lo_el_zcrmt0209 = lo_nd_zcrmt0209->get_element( ).
10. *   get all declared attributes
11.   lo_el_zcrmt0209->get_static_attributes(
12.     IMPORTING
13.       static_attributes = ls_zcrmt0209 ).
15.   CHECK ls_zcrmt0209-component_name IS NOT INITIAL.
16. **初始化select和alv
17.   add_select( ls_zcrmt0209-component_name ).
18.   init_alv( ls_zcrmt0209-component_name ).
20. **控制查询清空按钮显示
21.   DATA lo_el_context TYPE REF TO if_wd_context_element.
22.   DATA ls_context TYPE wd_this->element_context.
23.   DATA lv_bt_vis TYPE wd_this->element_context-bt_vis.
24. *   get element via lead selection
25.   lo_el_context = wd_context->get_element( ).
26. *   @TODO fill attribute
27.   lv_bt_vis = 'X'.
28. *   set single attribute
29.   lo_el_context->set_attribute(
30.     name =  `BT_VIS`
31.     value = lv_bt_vis ).
32. ENDMETHOD.

复制代码

1. METHOD add_select .
2.   DATA:gt_zcrmt0209s TYPE TABLE OF zcrmt0209s,
3.        gw_zcrmt0209s LIKE LINE OF gt_zcrmt0209s.
4.   DATA:
5.     lt_range_table TYPE REF TO data,
6.     rt_range_table TYPE REF TO data,
7.     read_only      TYPE abap_bool,
8.     typename       TYPE string,
9.     id             TYPE string,
10.     desc           TYPE string.
12.   wd_this->m_handler->remove_all_sel_screen_items( ).
13. **根据选择的组件从配置表中带出查询条件并添加到select option中
14.   SELECT * INTO TABLE gt_zcrmt0209s FROM zcrmt0209s WHERE component_name = component_name AND zusage = 'S'.
16.   CHECK gt_zcrmt0209s[] IS NOT INITIAL.
19.   LOOP AT gt_zcrmt0209s INTO gw_zcrmt0209s.
20.     typename = gw_zcrmt0209s-field_type.
21.     id = gw_zcrmt0209s-field.
22.     desc = gw_zcrmt0209s-text.
23. * create a range table that consists of this new data element
24.     lt_range_table = wd_this->m_handler->create_range_table( i_typename = typename ).
25. * add a new field to the selection
26.     wd_this->m_handler->add_selection_field(
27.                             i_id = id
28.                             i_description = desc
29.                             it_result = lt_range_table
30.                             i_read_only = read_only ).
31.   ENDLOOP.
32. ENDMETHOD.

复制代码

根据配置表初始化alv字段结构并绑定到alv

1. METHOD init_alv .
2.   DATA:lt_child_node TYPE wdr_context_child_info_map,
3.        ls_child_node TYPE wdr_context_child_info.
4.   DATA:lv_name TYPE string.
5.   DATA:gt_zcrmt0209s TYPE TABLE OF zcrmt0209s,
6.        gw_zcrmt0209s LIKE LINE OF gt_zcrmt0209s.
7.   DATA: ls_comp     TYPE LINE OF cl_abap_structdescr=>component_table,
8.         lt_comp     TYPE cl_abap_structdescr=>component_table,
9.         ls_fieldcat TYPE LINE OF lvc_t_fcat,
10.         struct_type TYPE REF TO cl_abap_structdescr.
13.   lt_child_node = wd_context->get_node_info( )->get_child_nodes( ).
14. **取配置表的结果R字段，构建动态的节点，节点名就用报表名
15.   SELECT * INTO TABLE gt_zcrmt0209s FROM zcrmt0209s WHERE component_name = component_name AND zusage = 'R'.
18.   LOOP AT gt_zcrmt0209s INTO gw_zcrmt0209s.
19.     ls_comp-name = gw_zcrmt0209s-field.
20.     ls_comp-type ?= cl_abap_typedescr=>describe_by_name( gw_zcrmt0209s-field_type ).
21.     APPEND ls_comp TO lt_comp.
22.   ENDLOOP.
24. * Create structure defined in lt_comp
25.   struct_type = cl_abap_structdescr=>create( lt_comp ).
26.   lv_name = component_name.
28.   READ TABLE lt_child_node INTO ls_child_node WITH KEY name = lv_name.
29.   IF sy-subrc = 0.
30.   ELSE.
31. * Append dynamic node with name (  )
32.     wd_context->get_node_info( )->add_new_child_node(
33.                             name                = lv_name
34.                             is_mandatory        = abap_true
35.                             is_multiple         = abap_true
36.                             static_element_rtti = struct_type
37.                             is_static           = abap_false ).
39.   ENDIF.
41. **Step 4: Assign this context to ALV
42.   DATA lo_interfacecontroller TYPE REF TO iwci_salv_wd_table .
43.   lo_interfacecontroller =   wd_this->wd_cpifc_dynmaic_alv( ).
45.   lo_interfacecontroller->set_data(
46. *   only_if_new_descr =                 " wdy_boolean
47.   r_node_data = wd_context->get_child_node( lv_name )   " ref to if_wd_context_node
48.   ).
49. **以下是根据配置表控制alv显示的，暂时用默认也可以，先不用
50. *  DATA:gt_zcrmt0209s TYPE TABLE OF zcrmt0209s,
51. *       gw_zcrmt0209s LIKE LINE OF gt_zcrmt0209s.
52. *  DATA: lr_comp_alv    TYPE REF TO if_wd_component_usage,
53. *        lr_comp_if_alv TYPE REF TO iwci_salv_wd_table.
54. *  DATA: lr_column_settings TYPE REF TO if_salv_wd_column_settings,
55. *        lr_column          TYPE REF TO cl_salv_wd_column,
56. *        lr_column_header   TYPE REF TO cl_salv_wd_column_header.
57. *  DATA:gv_string TYPE string.
58. *
59. *  DATA: lt_column TYPE salv_wd_t_column_ref,
60. *        ls_column TYPE salv_wd_s_column_ref.
61. *
62. *****"定义特殊格式的类型
63. *  DATA: lr_input_field TYPE REF TO cl_salv_wd_uie_input_field,
64. *        lr_checkbox    TYPE REF TO cl_salv_wd_uie_checkbox,
65. *        lr_link        TYPE REF TO cl_salv_wd_uie_link_to_action,
66. *        lr_drop        TYPE REF TO cl_salv_wd_uie_dropdown_by_key.
67. *  DATA lr_column_id TYPE string.
68. *
69. *
70. *  CHECK gt_zcrmt0209s[] IS NOT INITIAL.
71. *
72. *
73. *
74. *
75. *  "创建组件/实例化组件
76. *  lr_comp_alv = wd_this->wd_cpuse_dynmaic_alv( ) .
77. *  IF lr_comp_alv->has_active_component( ) IS INITIAL.
78. *    lr_comp_alv->create_component( ).
79. *  ENDIF.
80. *
81. *
82. *  DATA lr_config TYPE REF TO cl_salv_wd_config_table.
83. *  DATA:lr_func_config TYPE REF TO cl_salv_wd_config_table.
84. *  "获取ALV对象的设置对象
85. *  lr_comp_if_alv = wd_this->wd_cpifc_dynmaic_alv( ).
86. *  lr_config      = lr_comp_if_alv->get_model( ).
87. *  lr_func_config      = lr_comp_if_alv->get_model( ).
88. *
89. *  lr_column_settings ?= lr_config .
90. *  lt_column = lr_column_settings->get_columns( )."获取ALV字段
91. *  "取配置表数据
92. *
93. **=========================================================
94. *
95. *  DATA: l_value  TYPE REF TO cl_salv_wd_config_table.
96. *
97. *  l_value = lr_comp_if_alv->get_model( ).
98. *  l_value->if_salv_wd_table_settings~set_fixed_table_layout( abap_false ).  "使列宽不可自动调节
99. *  l_value->if_salv_wd_table_settings~set_width( '100%'  ) .                "设置宽度
100. *  l_value->if_salv_wd_table_settings~set_visible_row_count( '15' ).        "显示的行数
101. *  l_value->if_salv_wd_table_settings~set_scrollable_col_count( '10' )."设置滚动条行数
102. *  l_value->if_salv_wd_table_settings~set_read_only( abap_false )."设置只读
103. *  l_value->if_salv_wd_table_settings~set_display_empty_rows( abap_false )."设置空表也显示alv行
104. *  l_value->if_salv_wd_table_settings~set_selection_mode( cl_wd_table=>e_selection_mode-multi_no_lead )."多选无lead
105. *  l_value->if_salv_wd_function_settings~set_enabled( abap_true ) ."功能
106. *  l_value->if_salv_wd_std_functions~set_edit_check_available( abap_false ) .
107. *  l_value->if_salv_wd_std_functions~set_edit_insert_row_allowed( abap_false ) .
108. *  l_value->if_salv_wd_std_functions~set_export_allowed( abap_true ) ."可excel导出
109. **  l_value->if_salv_wd_std_functions~set_view_list_allowed( abap_false ).
110. *  l_value->if_salv_wd_std_functions~set_pdf_allowed( abap_false ) ."可pdf导出
111. *  l_value->if_salv_wd_std_functions~set_edit_append_row_allowed( abap_false ) .
112. *  l_value->if_salv_wd_std_functions~set_edit_delete_row_allowed( abap_false ) .
113. *  l_value->if_salv_wd_std_functions~set_filter_filterline_allowed( abap_true ).
114. *  l_value->if_salv_wd_std_functions~set_filter_complex_allowed( abap_true )."多字段筛选
115. **  l_value->if_salv_wd_std_functions~set_dialog_settings_allowed( abap_true ).
116. *
117. *  DATA: lr_table_settings TYPE REF TO if_salv_wd_table_settings.
118. *  lr_table_settings ?= l_value.
119. *  lr_table_settings->set_data_check( '01' ).
120. *  lr_table_settings->set_read_only( abap_false ).
121. *
122. *  LOOP AT lt_column INTO ls_column.
123. *    lr_column_id = ls_column-id.
124. *    lr_column = ls_column-r_column.
125. *
126. *    lr_column->set_resizable( value = 'X' ).
127. *    lr_column->set_width( value = '100' ).
128. *
129. *    READ TABLE gt_zcrmt0209s INTO gw_zcrmt0209s WITH KEY field = ls_column-id.
130. *    IF sy-subrc = 0.
131. **      IF gw_zcrmt0209s-visiable = 'X'.
132. *      lr_column_header = ls_column-r_column->create_header( ).
133. **        ls_column-r_column->set_position( gw_ZCRMT0209S-posit ).
134. *      CASE gw_zcrmt0209s-field.
135. *        WHEN 'SEL'.
136. *          CREATE OBJECT lr_checkbox
137. *            EXPORTING
138. *              checked_fieldname = ls_column-id.
139. *          ls_column-r_column->set_cell_editor( lr_checkbox ).
140. *        WHEN 'ZZCON_TYPE'.
141. *          CREATE OBJECT lr_drop
142. *            EXPORTING
143. *              selected_key_fieldname = ls_column-id.
144. *
145. *          lr_drop->set_read_only_fieldname( value = ls_column-id ).
146. *
147. *          ls_column-r_column->set_cell_editor( lr_drop ).
148. *        WHEN 'CTYPE'.
149. *          CREATE OBJECT lr_drop
150. *            EXPORTING
151. *              selected_key_fieldname = ls_column-id.
152. **            lr_drop->set_read_only_fieldname( value = ls_column-id ).
153. *          ls_column-r_column->set_cell_editor( lr_drop ).
154. *        WHEN 'OBJECT_ID'.
155. *          CREATE OBJECT lr_link.
156. *          lr_link->set_text_fieldname( ls_column-id ).
157. *          ls_column-r_column->set_cell_editor( lr_link ).
158. *        WHEN 'E'.
159. *        WHEN 'F'.
160. *        WHEN OTHERS.
161. *      ENDCASE.
162. *      IF gw_zcrmt0209s-text CS 'CRM/'."otr text使用特定格式的
163. *        gv_string = gw_zcrmt0209s-text.
164. *        lr_column_header->set_text( zcl_otr=>get_text( gv_string ) ).
165. *      ELSE.
166. *        IF gw_zcrmt0209s-text IS NOT INITIAL.
167. *          gv_string = gw_zcrmt0209s-text.
168. *          lr_column_header->set_text( gv_string ).
169. *        ENDIF.
170. *      ENDIF.
171. **      ELSE.
172. **        ls_column-r_column->set_position( gw_zcrmt0209s-posit ).
173. **        lr_column = lr_column_settings->get_column( ls_column-id ).
174. **        lr_column->set_visible( if_wdl_core=>visibility_none ).
175. **      ENDIF.
176. *    ELSE.
177. **      ls_column-r_column->set_position( gw_zcrmt0209s-posit ).
178. *      lr_column = lr_column_settings->get_column( ls_column-id ).
179. *      lr_column->set_visible( if_wdl_core=>visibility_none ).
180. *    ENDIF.
181. *  ENDLOOP.
183. ENDMETHOD.

复制代码

6，查询处理，动态构建内表并展示

1. METHOD onactionsearch .
2.   DATA:gt_zcrmt0209s TYPE TABLE OF zcrmt0209s,
3.        gw_zcrmt0209s LIKE LINE OF gt_zcrmt0209s,
4.        gw_zcrmt0209  TYPE zcrmt0209.
5.   DATA lo_nd_zcrmt0209 TYPE REF TO if_wd_context_node.
6.   DATA lo_el_zcrmt0209 TYPE REF TO if_wd_context_element.
7.   DATA ls_zcrmt0209 TYPE wd_this->element_zcrmt0209.
8.   DATA: rt_object_id TYPE REF TO data,
9.         lt_where     TYPE rsds_where_tab,
10.         lt_from      TYPE rsds_where_tab,
11.         lt_sql       TYPE rsds_where_tab,
12.         lv_s         TYPE string,
13.         lv_n         TYPE n LENGTH 2,
14.         lv_line(70)  TYPE c.
15.   DATA: dy_table TYPE REF TO data,
16.         ifc      TYPE        lvc_t_fcat.
17.   FIELD-SYMBOLS:
18.     <fs01> TYPE table,
19.     <fs02> TYPE table,
20.     <fs03> TYPE table,
21.     <fs04> TYPE table,
22.     <fs05> TYPE table,
23.     <fs06> TYPE table,
24.     <fs07> TYPE table,
25.     <fs08> TYPE table,
26.     <fs09> TYPE table,
27.     <fs10> TYPE table.
28.   FIELD-SYMBOLS : <table> TYPE ANY TABLE.
29.   DATA:lr_node TYPE REF TO if_wd_context_node.
31. *   navigate from <CONTEXT> to <ZCRMT0209> via lead selection
32.   lo_nd_zcrmt0209 = wd_context->get_child_node( name = wd_this->wdctx_zcrmt0209 ).
33. *   get element via lead selection
34.   lo_el_zcrmt0209 = lo_nd_zcrmt0209->get_element( ).
35. *   get all declared attributes
36.   lo_el_zcrmt0209->get_static_attributes(
37.     IMPORTING
38.       static_attributes = ls_zcrmt0209 ).
39.   "根据配置表查询条件获得查询参数，限制10个条件
40.   SELECT * INTO TABLE gt_zcrmt0209s FROM zcrmt0209s WHERE component_name = ls_zcrmt0209-component_name AND zusage = 'S'.
41.   LOOP AT gt_zcrmt0209s INTO gw_zcrmt0209s.
42.     CLEAR:lv_line,lv_s.
43.     lv_n = sy-tabix.
44.     lv_s = gw_zcrmt0209s-field.
45.     rt_object_id = wd_this->m_handler->get_range_table_of_sel_field( i_id = lv_s ).
46.     CASE lv_n.
47.       WHEN '01'.
48.         ASSIGN rt_object_id->* TO <fs01>.
49.         IF <fs01>[] IS INITIAL.
50.           CONTINUE.
51.         ENDIF.
52.       WHEN '02'.
53.         ASSIGN rt_object_id->* TO <fs02>.
54.         IF <fs02>[] IS INITIAL.
55.           CONTINUE.
56.         ENDIF.
57.       WHEN '03'.
58.         ASSIGN rt_object_id->* TO <fs03>.
59.         IF <fs03>[] IS INITIAL.
60.           CONTINUE.
61.         ENDIF.
62.       WHEN '04'.
63.         ASSIGN rt_object_id->* TO <fs04>.
64.         IF <fs04>[] IS INITIAL.
65.           CONTINUE.
66.         ENDIF.
67.       WHEN '05'.
68.         ASSIGN rt_object_id->* TO <fs05>.
69.         IF <fs05>[] IS INITIAL.
70.           CONTINUE.
71.         ENDIF.
72.       WHEN '06'.
73.         ASSIGN rt_object_id->* TO <fs06>.
74.         IF <fs06>[] IS INITIAL.
75.           CONTINUE.
76.         ENDIF.
77.       WHEN '07'.
78.         ASSIGN rt_object_id->* TO <fs07>.
79.         IF <fs07>[] IS INITIAL.
80.           CONTINUE.
81.         ENDIF.
82.       WHEN '08'.
83.         ASSIGN rt_object_id->* TO <fs08>.
84.         IF <fs08>[] IS INITIAL.
85.           CONTINUE.
86.         ENDIF.
87.       WHEN '09'.
88.         ASSIGN rt_object_id->* TO <fs09>.
89.         IF <fs09>[] IS INITIAL.
90.           CONTINUE.
91.         ENDIF.
92.       WHEN '10'.
93.         ASSIGN rt_object_id->* TO <fs10>.
94.         IF <fs10>[] IS INITIAL.
95.           CONTINUE.
96.         ENDIF.
97.       WHEN OTHERS.
98.     ENDCASE.
99.     "动态查询条件，第二次拼接需要添加and
100.     CONCATENATE '<fs' lv_n '>' INTO lv_line.
101.     IF lt_where[] IS INITIAL.
102.       CONCATENATE gw_zcrmt0209s-name_on_db 'IN' lv_line INTO lv_line SEPARATED BY space.
103.     ELSE.
104.       CONCATENATE 'AND' gw_zcrmt0209s-name_on_db 'IN' lv_line INTO lv_line SEPARATED BY space.
105.     ENDIF.
107.     APPEND lv_line TO lt_where.
109.   ENDLOOP.
111.   CHECK lt_where[] IS NOT INITIAL.
112.   DATA:lv_name TYPE string.
116.   SELECT name_on_db INTO TABLE lt_sql FROM zcrmt0209s WHERE component_name = ls_zcrmt0209-component_name AND zusage = 'R'.
119.   "根据配置字段属性，构建动态内表
120.   SELECT dd03l~fieldname dd03l~inttype dd03l~leng AS intlen dd03l~decimals INTO CORRESPONDING FIELDS OF TABLE ifc FROM dd03l INNER JOIN zcrmt0209s
121.     ON zcrmt0209s~field = dd03l~fieldname AND zcrmt0209s~dbtabname = dd03l~tabname
122.     WHERE zcrmt0209s~component_name = ls_zcrmt0209-component_name AND zusage = 'R'.
124.   CALL METHOD cl_alv_table_create=>create_dynamic_table
125.     EXPORTING
126.       it_fieldcatalog = ifc
127.     IMPORTING
128.       ep_table        = dy_table.
129.   ASSIGN dy_table->* TO <table>.
130. **另一种动态构建内表的方法
131. *  DATA: ls_comp     TYPE LINE OF cl_abap_structdescr=>component_table,
132. *        lt_comp     TYPE cl_abap_structdescr=>component_table,
133. *        ls_fieldcat TYPE LINE OF lvc_t_fcat,
134. *        struct_type TYPE REF TO cl_abap_structdescr.
135. *  SELECT * INTO TABLE gt_zcrmt0209s FROM zcrmt0209s WHERE component_name = ls_zcrmt0209-component_name AND zusage = 'R'.
136. *  LOOP AT gt_zcrmt0209s INTO gw_zcrmt0209s.
137. *    ls_comp-name = gw_zcrmt0209s-field.
138. *    ls_comp-type ?= cl_abap_typedescr=>describe_by_name( gw_zcrmt0209s-field_type ).
139. *    APPEND ls_comp TO lt_comp.
140. *  ENDLOOP.
141. *
142. ** Create structure defined in lt_comp
143. *  struct_type = cl_abap_structdescr=>create( lt_comp ).
144. *  DATA p_result     TYPE REF TO cl_abap_tabledescr.
145. *
146. *  p_result = cl_abap_tabledescr=>create(
147. *      p_line_type  = CAST #( struct_type )
148. *       p_table_kind = cl_abap_tabledescr=>tablekind_std ).
149. *  DATA: table TYPE REF TO data.
150. *  CREATE DATA table TYPE HANDLE p_result.
151. *  ASSIGN table->* TO <table>.
154.   "查询表连接处理
155.   SELECT SINGLE * INTO gw_zcrmt0209 FROM zcrmt0209 WHERE uname = sy-uname AND component_name = ls_zcrmt0209-component_name.
157.   CHECK gw_zcrmt0209-fromcond IS NOT INITIAL.
158.   SPLIT gw_zcrmt0209-fromcond AT '/' INTO TABLE lt_from.
160.   "动态查询
161.   SELECT (lt_sql)
162.     INTO CORRESPONDING FIELDS OF TABLE <table>
163.     FROM (lt_from)
164.     WHERE (lt_where).
167.   lv_name = ls_zcrmt0209-component_name.
169.   "绑定结果到node显示
170.   lr_node = wd_context->get_child_node( name = lv_name ).
172.   lr_node->bind_table( new_items = <table> set_initial_elements = abap_true ).
176. ENDMETHOD.

复制代码

 
 
效果展示：
配置数据：

 

 

来源：程序园用户自行投稿发布，如果侵权，请联系站长删除
免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！

懂技术并乐意极积无私分享的人越来越少。珍惜

新版吗？好像是停更了吧。

感谢发布原创作品，程序园因你更精彩

这个好，看起来很实用

谢谢分享，辛苦了

感谢发布原创作品，程序园因你更精彩

用心讨论，共获提升！

谢谢楼主提供！

过来提前占个楼

不错，里面软件多更新就更好了

谢谢分享，辛苦了

分享、互助 让互联网精神温暖你我

感谢，下载保存了

感谢，下载保存了

懂技术并乐意极积无私分享的人越来越少。珍惜

谢谢分享，辛苦了

这个有用。

前排留名，哈哈哈

热心回复！