ALV TREE实现CJ20N的WBS按层级展示

前提：创建一个屏幕，并增加一个名为’CCONTAINER1’的控件
选择屏幕为一个WBS编码，通过WBS编码带出该WBS所属的项目定义下的所有WBS编码并按层级展示
&---------------------------------------------------------------------
*& Report ZTEST_WBS
&---------------------------------------------------------------------
*&
&---------------------------------------------------------------------
REPORT ztest_wbs.

DATA: g_alv_tree TYPE REF TO cl_gui_alv_tree,
g_custom_container TYPE REF TO cl_gui_custom_container,
c_dragdropalv TYPE REF TO cl_dragdrop.
DATA: gt_fcat TYPE lvc_t_fcat,
gs_fcat TYPE lvc_s_fcat.

*DATA:

• grid TYPE REF TO cl_gui_alv_grid, "alv控件名
• g_container TYPE scrfname VALUE ‘OOALV’, "重新定义本地容器对象名
• is_layout TYPE lvc_s_layo,
• g_custom_container1 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.

PARAMETERS: p_posid TYPE prps-posid OBLIGATORY.
----------------------------------------------------------------------

•   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

START-OF-SELECTION.

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 = ‘标识’(300).
p_hierarchy_header-tooltip = ‘标识’(400).
p_hierarchy_header-width = 30.
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 TO SCREEN 0.

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: ms_wbs TYPE ty_wbs,
mt_wbs TYPE ty_wbs OCCURS 0.

DATA: gt_prhi TYPE TABLE OF prhi,
gs_prhi TYPE prhi.
DATA: lt_prhi TYPE TABLE OF prhi,
ls_prhi TYPE prhi.

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.
DATA: lv_up TYPE prhi-up.

CALL FUNCTION ‘CONVERSION_EXIT_ABPSP_INPUT’
EXPORTING
input = p_posid
IMPORTING
output = lv_up.

DATA:lw_psphi TYPE prps-psphi.
DATA: lw_proj TYPE proj.

SELECT SINGLE psphi FROM prps INTO lw_psphi WHERE posid = p_posid.
SELECT posid post1 stufe FROM prps INTO TABLE lt_wbs WHERE psphi = lw_psphi.
SELECT SINGLE * FROM proj INTO lw_proj WHERE pspnr = lw_psphi.

LOOP AT lt_wbs INTO ls_wbs.
ls_wbs-stufe = ls_wbs-stufe + 1.
MODIFY lt_wbs FROM ls_wbs.
CLEAR ls_wbs.
ENDLOOP.
ls_wbs-posid = lw_proj-pspid.
ls_wbs-post1 = lw_proj-post1.
ls_wbs-stufe = 1.
APPEND ls_wbs TO lt_wbs.
CLEAR ls_wbs.
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 = ‘30’. " 输出长度
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