ALV Tree demo(WBS元素分层显示)[引用别人的]

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了ALV Tree demo(WBS元素分层显示)[引用别人的]相关的知识,希望对你有一定的参考价值。

原文地址:http://www.xuebuyuan.com/1666753.html

按层次显示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

 

以上是关于ALV Tree demo(WBS元素分层显示)[引用别人的]的主要内容,如果未能解决你的问题,请参考以下文章

创建list ALV tree[RS_TREE_LIST_DISPLAY]

DEMO ALV :CL_SALV_TABLE系列

ABAP DEMO ALV-监听数据修改

WBS

ALV demo 02:cl_salv_table 添加排序和汇总

ALVtree 显示BOM结构