按層次顯示WBS編碼及描述，附加節點雙擊展開事件和Item雙擊跳轉CJ03功能。
因爲本人懶，本例代碼都是從標準的BCALV_TREE_01和BCALV_TREE_02拷貝過來修改的，結構不好請別見怪。
REPORT zmac_alvtree_test.
DATA: g_alv_tree TYPE REF TO cl_gui_alv_tree,
g_custom_container TYPE REF TO cl_gui_custom_container.
TYPES: BEGIN OF ty_wbs,
posid TYPE prps-posid,
post1 TYPE prps-post1,
stufe TYPE prps-stufe,
END OF ty_wbs.
DATA: gt_wbs TYPE STANDARD TABLE OF ty_wbs,
gs_wbs TYPE ty_wbs.
DATA: ok_code LIKE sy-ucomm,
save_ok LIKE sy-ucomm, "OK-Code
g_max TYPE i VALUE 255.
DATA: gt_fcat TYPE lvc_t_fcat,
gs_fcat TYPE lvc_s_fcat.
*----------------------------------------------------------------------*
* CLASS lcl_tree_event_receiver DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_tree_event_receiver DEFINITION.
PUBLIC SECTION.
METHODS handle_node_double_click
FOR EVENT node_double_click OF cl_gui_alv_tree
IMPORTING node_key sender.
METHODS handle_item_double_click
FOR EVENT item_double_click OF cl_gui_alv_tree
IMPORTING fieldname node_key.
ENDCLASS. "lcl_tree_event_receiver DEFINITION
******************************************************************
CLASS lcl_tree_event_receiver IMPLEMENTATION.
METHOD handle_node_double_click.
DATA: lt_children TYPE lvc_t_nkey.
CALL METHOD sender->get_children
EXPORTING
i_node_key = node_key
IMPORTING
et_children = lt_children.
IF NOT lt_children IS INITIAL.
CALL METHOD sender->expand_node
EXPORTING
i_node_key = node_key
i_level_count = 2.
ENDIF.
ENDMETHOD. "handle_node_double_click
METHOD handle_item_double_click.
DATA: l_value TYPE lvc_value,
l_layi TYPE lvc_t_layi,
l_layn TYPE lvc_s_layn .
CALL METHOD g_alv_tree->get_outtab_line
EXPORTING
i_node_key = node_key
IMPORTING
e_outtab_line = gs_wbs
e_node_text = l_value
et_item_layout = l_layi
es_node_layout = l_layn
EXCEPTIONS
node_not_found = 1
OTHERS = 2.
IF sy-subrc = 0.
SET PARAMETER ID 'PRO' FIELD gs_wbs-posid.
CALL TRANSACTION 'CJ03' AND SKIP FIRST SCREEN.
ENDIF.
ENDMETHOD. "handle_item_double_click
ENDCLASS. "lcl_tree_event_receiver IMPLEMENTATION
END-OF-SELECTION.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module PBO OUTPUT
*&---------------------------------------------------------------------*
* process before output
*----------------------------------------------------------------------*
MODULE pbo OUTPUT.
SET PF-STATUS 'MAIN100'.
SET TITLEBAR 'MAINTITLE'.
IF g_alv_tree IS INITIAL.
PERFORM init_tree.
CALL METHOD cl_gui_cfw=>flush
EXCEPTIONS
cntl_system_error = 1
cntl_error = 2.
IF sy-subrc NE 0.
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
titel = 'Automation Queue failure'(801)
txt1 = 'Internal error:'(802)
txt2 = 'A method in the automation queue'(803)
txt3 = 'caused a failure.'(804).
ENDIF.
ENDIF.
ENDMODULE. " PBO OUTPUT
*&---------------------------------------------------------------------*
*& Module PAI INPUT
*&---------------------------------------------------------------------*
* process after input
*----------------------------------------------------------------------*
MODULE pai INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'EXIT' OR 'BACK' OR 'CANC'.
PERFORM exit_program.
WHEN OTHERS.
CALL METHOD cl_gui_cfw=>dispatch.
ENDCASE.
CALL METHOD cl_gui_cfw=>flush.
ENDMODULE. " PAI INPUT
*&---------------------------------------------------------------------*
*& Form init_tree
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM init_tree.
DATA: l_tree_container_name(30) TYPE c.
l_tree_container_name = 'CCONTAINER1'.
CREATE OBJECT g_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.
IF sy-subrc <> 0.
MESSAGE x208(00) WITH 'ERROR'(100).
ENDIF.
* create tree control
CREATE OBJECT g_alv_tree
EXPORTING
parent = g_custom_container
node_selection_mode = cl_gui_column_tree=>node_sel_mode_single
item_selection = 'X'
no_html_header = 'X'
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.
IF sy-subrc <> 0.
MESSAGE x208(00) WITH 'ERROR'. "#EC NOTEXT
ENDIF.
DATA l_hierarchy_header TYPE treev_hhdr.
PERFORM build_hierarchy_header CHANGING l_hierarchy_header.
PERFORM build_fieldcategory.
CALL METHOD g_alv_tree->set_table_for_first_display
EXPORTING
is_hierarchy_header = l_hierarchy_header
CHANGING
it_outtab = gt_wbs "table must be empty !
it_fieldcatalog = gt_fcat.
PERFORM create_hierarchy.
PERFORM register_events.
CALL METHOD g_alv_tree->frontend_update.
ENDFORM. " init_tree
*&---------------------------------------------------------------------*
*& Form build_hierarchy_header
*&---------------------------------------------------------------------*
* build hierarchy-header-information
*----------------------------------------------------------------------*
* -->P_L_HIERARCHY_HEADER strucxture for hierarchy-header
*----------------------------------------------------------------------*
FORM build_hierarchy_header CHANGING
p_hierarchy_header TYPE treev_hhdr.
p_hierarchy_header-heading = 'Wbs number'(300).
p_hierarchy_header-tooltip = 'WBS'(400).
p_hierarchy_header-width = 50.
p_hierarchy_header-width_pix = ' '.
ENDFORM. " build_hierarchy_header
*&---------------------------------------------------------------------*
*& Form exit_program
*&---------------------------------------------------------------------*
* free object and leave program
*----------------------------------------------------------------------*
FORM exit_program.
CALL METHOD g_custom_container->free.
LEAVE PROGRAM.
ENDFORM. " exit_program
*&---------------------------------------------------------------------*
*& Form create_hierarchy
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM create_hierarchy.
DATA: ls_wbs TYPE ty_wbs,
lt_wbs TYPE ty_wbs OCCURS 0.
DATA: lt_nodes TYPE TABLE OF lvc_nkey WITH HEADER LINE,
l_cur_node TYPE lvc_nkey,
l_former_stufe TYPE prps-stufe,
l_index TYPE i.
SELECT posid post1 stufe FROM prps INTO TABLE lt_wbs UP TO 200 ROWS.
SORT lt_wbs BY posid.
LOOP AT lt_wbs INTO ls_wbs.
IF ls_wbs-stufe = '1'.
REFRESH lt_nodes.
l_index = ls_wbs-stufe.
PERFORM add_nodes USING ls_wbs
''
CHANGING l_cur_node.
READ TABLE lt_nodes INDEX l_index.
IF sy-subrc NE 0.
APPEND l_cur_node TO lt_nodes.
ENDIF.
ELSEIF ls_wbs-stufe > l_former_stufe. "on change of l_yyyymm
l_index = ls_wbs-stufe - 1.
READ TABLE lt_nodes INDEX l_index.
PERFORM add_nodes USING ls_wbs
lt_nodes
CHANGING l_cur_node.
*---->保存新的當前節點
APPEND l_cur_node TO lt_nodes.
ELSEIF ls_wbs-stufe < l_former_stufe.
l_index = ls_wbs-stufe - 1.
READ TABLE lt_nodes INDEX l_index.
PERFORM add_nodes USING ls_wbs
lt_nodes
CHANGING l_cur_node.
*---->將當前節點及之後後的所有臨時存儲節點KEY刪除
l_index = l_index + 1.
DELETE lt_nodes INDEX l_index.
DO.
READ TABLE lt_nodes INDEX l_index.
IF sy-subrc = 0.
DELETE lt_nodes INDEX l_index.
ELSE.
EXIT.
ENDIF.
ENDDO.
*---->保存新的當前節點
APPEND l_cur_node TO lt_nodes.
ELSE.
l_index = ls_wbs-stufe - 1.
READ TABLE lt_nodes INDEX l_index.
PERFORM add_nodes USING ls_wbs
lt_nodes
CHANGING l_cur_node.
ENDIF.
l_former_stufe = ls_wbs-stufe.
ENDLOOP.
ENDFORM. " create_hierarchy
*&---------------------------------------------------------------------*
*& Form add_nodes
*&---------------------------------------------------------------------*
FORM add_nodes USING ps_wbs TYPE ty_wbs
p_cnode_key TYPE lvc_nkey
CHANGING p_nnode_key TYPE lvc_nkey.
DATA: l_node_text TYPE lvc_value.
CALL FUNCTION 'CONVERSION_EXIT_ABPSN_OUTPUT'
EXPORTING
input = ps_wbs-posid
IMPORTING
output = l_node_text.
CALL METHOD g_alv_tree->add_node
EXPORTING
i_relat_node_key = p_cnode_key
i_relationship = cl_gui_column_tree=>relat_last_child
i_node_text = l_node_text
is_outtab_line = ps_wbs
IMPORTING
e_new_node_key = p_nnode_key.
ENDFORM. " add_month
*&---------------------------------------------------------------------*
*& Form build_fieldcategory
*&---------------------------------------------------------------------*
FORM build_fieldcategory .
* gs_fcat-fieldname = 'POSID'.
* gs_fcat-seltext = text-f06. " 字段輸出名稱
* gs_fcat-coltext = text-f06. " 字段輸出名稱
* gs_fcat-just = 'L'.
* gs_fcat-outputlen = '40'. " 輸出長度
* APPEND gs_fcat TO gt_fcat.
* CLEAR gs_fcat.
gs_fcat-fieldname = 'POST1'.
gs_fcat-seltext = text-f01. " 字段輸出名稱
gs_fcat-coltext = text-f01. " 字段輸出名稱
gs_fcat-just = 'L'.
gs_fcat-outputlen = '40'. " 輸出長度
APPEND gs_fcat TO gt_fcat.
CLEAR gs_fcat.
ENDFORM. " build_fieldcategory
*&---------------------------------------------------------------------*
*& Form register_events
*&---------------------------------------------------------------------*
FORM register_events .
DATA: lt_events TYPE cntl_simple_events,
l_event TYPE cntl_simple_event,
l_event_receiver TYPE REF TO lcl_tree_event_receiver.
CALL METHOD g_alv_tree->get_registered_events
IMPORTING
events = lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_node_double_click.
APPEND l_event TO lt_events.
l_event-eventid = cl_gui_column_tree=>eventid_item_double_click.
APPEND l_event TO lt_events.
CALL METHOD g_alv_tree->set_registered_events
EXPORTING
events = lt_events
EXCEPTIONS
cntl_error = 1
cntl_system_error = 2
illegal_event_combination = 3.
IF sy-subrc <> 0.
MESSAGE x208(00) WITH 'ERROR'. "#EC NOTEXT
ENDIF.
CREATE OBJECT l_event_receiver.
SET HANDLER l_event_receiver->handle_node_double_click FOR g_alv_tree.
SET HANDLER l_event_receiver->handle_item_double_click FOR g_alv_tree.
ENDFORM. " register_events