alv tree

最新推荐文章于 2021-05-19 12:12:47 发布

shiyanghua

最新推荐文章于 2021-05-19 12:12:47 发布

阅读量1.4k

点赞数

分类专栏： alv 文章标签： tree hierarchy build events list header

本文链接：https://blog.csdn.net/shiyanghua/article/details/2584838

版权

alv 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

*&---------------------------------------------------------------------* *& Report BCALV_TREE_SIMPLE_DEMO * *& * *&---------------------------------------------------------------------* *& * *& * *&---------------------------------------------------------------------*

report bcalv_tree_simple_demo.

class cl_gui_column_tree definition load. class cl_gui_cfw definition load.

data tree1 type ref to cl_gui_alv_tree_simple.

include <icon>. include bcalv_simple_event_receiver.

data: gt_sflight type sflight occurs 0, "Output-Table gt_fieldcatalog type lvc_t_fcat, "Fieldcatalog gt_sort type lvc_t_sort, "Sortiertabelle ok_code like sy-ucomm. "OK-Code

start-of-selection.

end-of-selection.

call screen 100.

*&---------------------------------------------------------------------* *& Form BUILD_FIELDCATALOG *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* form build_fieldcatalog. * get fieldcatalog call function 'LVC_FIELDCATALOG_MERGE' exporting i_structure_name = 'SFLIGHT' changing ct_fieldcat = gt_fieldcatalog.

* change fieldcatalog data: ls_fieldcatalog type lvc_s_fcat. loop at gt_fieldcatalog into ls_fieldcatalog. case ls_fieldcatalog-fieldname. when 'CARRID' or 'CONNID' or 'FLDATE'. ls_fieldcatalog-no_out = 'X'. ls_fieldcatalog-key = ''. when 'PRICE' or 'SEATSOCC' or 'SEATSMAX' or 'PAYMENTSUM'. ls_fieldcatalog-do_sum = 'X'. endcase. modify gt_fieldcatalog from ls_fieldcatalog. endloop.

endform. " BUILD_FIELDCATALOG *&---------------------------------------------------------------------* *& Form BUILD_OUTTAB *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* form build_outtab.

select * from sflight into table gt_sflight. * up to 1 rows.

endform. " BUILD_OUTTAB

*&---------------------------------------------------------------------* *& Form BUILD_SORT_TABLE *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* form build_sort_table.

data ls_sort_wa type lvc_s_sort.

* create sort-table ls_sort_wa-spos = 1. ls_sort_wa-fieldname = 'CARRID'. ls_sort_wa-up = 'X'. ls_sort_wa-subtot = 'X'. append ls_sort_wa to gt_sort.

ls_sort_wa-spos = 2. ls_sort_wa-fieldname = 'CONNID'. ls_sort_wa-up = 'X'. ls_sort_wa-subtot = 'X'. append ls_sort_wa to gt_sort.

ls_sort_wa-spos = 3. ls_sort_wa-fieldname = 'FLDATE'. ls_sort_wa-up = 'X'. append ls_sort_wa to gt_sort.

endform. " BUILD_SORT_TABLE *&---------------------------------------------------------------------* *& Module PBO OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* module pbo output. if tree1 is initial. perform init_tree. endif. set pf-status 'MAIN100'.

endmodule. " PBO OUTPUT *&---------------------------------------------------------------------* *& Module PAI INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* module pai input.

case ok_code. when 'EXIT' or 'BACK' or 'CANC'. perform exit_program.

when others. call method cl_gui_cfw=>dispatch. endcase. clear ok_code. endmodule. " PAI INPUT *&---------------------------------------------------------------------* *& Form exit_program *&---------------------------------------------------------------------* * free object and leave program *----------------------------------------------------------------------* form exit_program.

call method tree1->free. leave program.

endform. " exit_program *&---------------------------------------------------------------------* *& Form register_events *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* form register_events. * define the events which will be passed to the backend data: lt_events type cntl_simple_events, l_event type cntl_simple_event.

* define the events which will be passed to the backend l_event-eventid = cl_gui_column_tree=>eventid_node_context_menu_req. append l_event to lt_events. l_event-eventid = cl_gui_column_tree=>eventid_item_context_menu_req. append l_event to lt_events. l_event-eventid = cl_gui_column_tree=>eventid_header_context_men_req. append l_event to lt_events. l_event-eventid = cl_gui_column_tree=>eventid_expand_no_children. append l_event to lt_events. l_event-eventid = cl_gui_column_tree=>eventid_header_click. append l_event to lt_events. l_event-eventid = cl_gui_column_tree=>eventid_item_keypress. append l_event to lt_events.

call method tree1->set_registered_events exporting events = lt_events exceptions cntl_error = 1 cntl_system_error = 2 illegal_event_combination = 3.

* set Handler data: l_event_receiver type ref to lcl_tree_event_receiver. create object l_event_receiver. set handler l_event_receiver->on_add_hierarchy_node for tree1. endform. " register_events *&---------------------------------------------------------------------* *& Form build_header *&---------------------------------------------------------------------* * build table for html_header *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* form build_comment using pt_list_commentary type slis_t_listheader p_logo type sdydo_value.

data: ls_line type slis_listheader. * * LIST HEADING LINE: TYPE H clear ls_line. ls_line-typ = 'H'. * LS_LINE-KEY: NOT USED FOR THIS TYPE ls_line-info = 'ALV-tree-simple-Demo: flight-overview'. "#EC NOTEXT append ls_line to pt_list_commentary. * STATUS LINE: TYPE S clear ls_line. ls_line-typ = 'S'. ls_line-key = 'valid to'. "#EC NOTEXT ls_line-info = 'January 29 1999'. "#EC NOTEXT append ls_line to pt_list_commentary. ls_line-key = 'time'. ls_line-info = '2.00 pm'. "#EC NOTEXT append ls_line to pt_list_commentary. * ACTION LINE: TYPE A clear ls_line. ls_line-typ = 'A'. * LS_LINE-KEY: NOT USED FOR THIS TYPE ls_line-info = 'up-to-date data'. "#EC NOTEXT append ls_line to pt_list_commentary.

p_logo = 'ENJOYSAP_LOGO'. endform. *&---------------------------------------------------------------------* *& Form init_tree *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM init_tree. perform build_fieldcatalog.

perform build_outtab.

perform build_sort_table.

* create container for alv-tree data: l_tree_container_name(30) type c, l_custom_container type ref to cl_gui_custom_container. l_tree_container_name = 'TREE1'.

create object l_custom_container exporting container_name = l_tree_container_name exceptions cntl_error = 1 cntl_system_error = 2 create_error = 3 lifetime_error = 4 lifetime_dynpro_dynpro_link = 5.

* create tree control create object tree1 exporting i_parent = l_custom_container i_node_selection_mode = cl_gui_column_tree=>node_sel_mode_multiple i_item_selection = 'X' i_no_html_header = '' i_no_toolbar = '' exceptions cntl_error = 1 cntl_system_error = 2 create_error = 3 lifetime_error = 4 illegal_node_selection_mode = 5 failed = 6 illegal_column_name = 7.

* create info-table for html-header data: lt_list_commentary type slis_t_listheader, l_logo type sdydo_value. perform build_comment using lt_list_commentary l_logo.

* repid for saving variants data: ls_variant type disvariant. ls_variant-report = sy-repid.

* register events perform register_events.

* create hierarchy call method tree1->set_table_for_first_display exporting it_list_commentary = lt_list_commentary i_logo = l_logo i_background_id = 'ALV_BACKGROUND' i_save = 'A' is_variant = ls_variant changing it_sort = gt_sort it_outtab = gt_sflight it_fieldcatalog = gt_fieldcatalog.

* expand first level call method tree1->expand_Tree exporting i_level = 1.

* optimize column-width call method tree1->column_optimize exporting i_start_column = tree1->c_hierarchy_column_name i_end_column = tree1->c_hierarchy_column_name.

ENDFORM. " init_tree