ABAP TREE 开发实例

*DEFINATION

TABLES: ztmm004_01 .

TYPE-POOLS: slis.

CLASS lcl_application DEFINITION DEFERRED.
CLASS cl_gui_cfw DEFINITION LOAD.

DATA: g_application TYPE REF TO lcl_application.

TYPES: BEGIN OF gts_alv ,
         box_fname TYPE c,
         mode      TYPE c.
    INCLUDE STRUCTURE  ztmm004_01 .                                          "定义内表和工作区
TYPES:  END OF gts_alv .

TYPES: BEGIN OF gts_mo ,
         box_fname TYPE c,
         mode      TYPE c,
         flag      TYPE c,
         zcyf      TYPE ztmm004_01-zcyf,  "承运方
         zthfs     TYPE ztmm004_01-zthfs, "提货方式
         zcph      TYPE ztmm004_01-zcph,  "车牌号
         zzcbz     TYPE ztmm004_01-zzcbz, "装车班组
         zckrp     TYPE ztmm004_01-zckrp, "出库日期
         zcksj     TYPE ztmm004_01-zcksj, "出库时间
         zckr      TYPE ztmm004_01-zckr.  "出库人
TYPES:  END OF gts_mo .

DATA: mode TYPE c .

DATA: gt_data TYPE TABLE OF ztmm004_01,
      gs_data TYPE ztmm004_01.

DATA: gt_alv TYPE TABLE OF gts_alv,
      gs_alv TYPE gts_alv.

DATA: gv_bztm TYPE ztmm004_01-bztm .

DATA: gt_alv_ts TYPE TABLE OF gts_alv,
      gs_alv_ts TYPE gts_alv.

DATA: gs_mo TYPE gts_mo.

"tree node table
TYPES: node_table_type LIKE STANDARD TABLE OF mtreesnode
           WITH DEFAULT KEY.

DATA: gt_node TYPE node_table_type,
      wa_node TYPE mtreesnode.
DATA: g_node_old TYPE tv_nodekey.

DATA: g_container TYPE REF TO cl_gui_custom_container,
      g_tree      TYPE REF TO cl_gui_simple_tree.

"物料主数据
TYPES: BEGIN OF ty_tab,
         sel,
         zgcms TYPE t001w-name1. "工厂描述
    INCLUDE STRUCTURE zzxs_zsj_wlzsj.
TYPES: END OF ty_tab.

DATA: gt_tab TYPE TABLE OF ty_tab,
      wa_tab TYPE ty_tab.
DATA: gt_tab_del    TYPE TABLE OF ty_tab,
      gt_tab_old    TYPE TABLE OF ty_tab,
      gt_tab_upload TYPE TABLE OF ty_tab.

"物料中类/物料小类
DATA: gt_wlzl TYPE TABLE OF zmm_zsj_wlzl_zx WITH HEADER LINE,
      gt_wlxl TYPE TABLE OF zmm_zsj_wlxl_zx WITH HEADER LINE.

DATA: BEGIN OF wa_message,
        msgty TYPE char4, "用红绿灯表示消息类型
        matnr TYPE mara-matnr,
        werks TYPE marc-werks,
        msg   TYPE string,
      END OF wa_message.

DATA: gt_message LIKE TABLE OF wa_message.

DATA: g_alv TYPE REF TO cl_gui_alv_grid,
      g_con TYPE REF TO cl_gui_custom_container.

*&SPWIZARD: DECLARATION OF TABLECONTROL 'TAB' ITSELF
CONTROLS: tab TYPE TABLEVIEW USING SCREEN 0100.

*&SPWIZARD: LINES OF TABLECONTROL 'TAB'
DATA:     g_tab_lines  LIKE sy-loopc.

DATA: g_excel        TYPE ole2_object,
      g_book         TYPE ole2_object,
      g_sheet        TYPE ole2_object,
      g_range        TYPE ole2_object,
      g_borders      TYPE ole2_object,
      g_rows         TYPE ole2_object,
      g_cell         TYPE ole2_object,
      g_columns      TYPE ole2_object,
      g_sheet_number TYPE i.


DATA: ok_code LIKE sy-ucomm,
      ok_save TYPE sy-ucomm.

*----------------------------------------------------------------------*
*       CLASS lcl_application DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_application DEFINITION.
  PUBLIC SECTION.
    METHODS:
      handle_node_double_click
      FOR EVENT node_double_click
                    OF cl_gui_simple_tree
        IMPORTING node_key,
      handle_node_selection
      FOR EVENT selection_changed
                    OF cl_gui_simple_tree
        IMPORTING node_key.

ENDCLASS.                    "lcl_application DEFINITION

*----------------------------------------------------------------------*
*       CLASS lcl_application IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS lcl_application IMPLEMENTATION.
  METHOD  handle_node_double_click.
    "使用selection_changed 事件, 不再使用双击事件
    "PERFORM frm_node_double_click USING node_key.
  ENDMETHOD.                    "handle_node_double_click

  METHOD handle_node_selection.
*    PERFORM frm_node_selection USING node_key.
  ENDMETHOD.                    "handle_node_selection
ENDCLASS.                    "lcl_application IMPLEMENTATION

 

 

 

*SCREEN 100

PROCESS BEFORE OUTPUT.
*&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'TC_CTRL'
  MODULE tc_ctrl_change_tc_attr.
*&SPWIZARD: MODULE TC_CTRL_CHANGE_COL_ATTR.
  LOOP AT   gt_alv
       INTO gs_alv
       WITH CONTROL tc_ctrl
       CURSOR tc_ctrl-current_line.
    MODULE tc_ctrl_get_lines.
*&SPWIZARD:   MODULE TC_CTRL_CHANGE_FIELD_ATTR
  ENDLOOP.

  MODULE status_0100.
  MODULE init_0100.
*
PROCESS AFTER INPUT.
*&SPWIZARD: PAI FLOW LOGIC FOR TABLECONTROL 'TC_CTRL'
  LOOP AT gt_alv.
    CHAIN.
      FIELD gs_alv-mode.
      FIELD gs_alv-bztm.
      FIELD gs_alv-vbeln.
      FIELD gs_alv-posnr.
      FIELD gs_alv-wlxl.
      FIELD gs_alv-bjbz.
      FIELD gs_alv-hbtm.
      FIELD gs_alv-zcyf.
      FIELD gs_alv-zthfs.
      FIELD gs_alv-zcph.
      FIELD gs_alv-zzcbz.
      FIELD gs_alv-zckrp.
      FIELD gs_alv-zcksj.
      FIELD gs_alv-zckr.
      MODULE tc_ctrl_modify ON CHAIN-REQUEST.
    ENDCHAIN.
*    FIELD gs_alv-box_fname
*      MODULE tc_ctrl_mark ON REQUEST.
  ENDLOOP.

 

*在PBO中添加TREE对象

MODULE init_0100 OUTPUT.
  "初始化树对象
  IF g_tree IS INITIAL.
    PERFORM frm_init_tree.
  ENDIF.
ENDMODULE.

*&---------------------------------------------------------------------*
*& Form FRM_INIT_TREE
*&---------------------------------------------------------------------*
*& 初始化树对象
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_init_tree .
  DATA l_hierarchy_header TYPE treev_hhdr.
  DATA: events TYPE cntl_simple_events,
        event  TYPE cntl_simple_event.

* Create container and alv tree object
  CREATE OBJECT g_container
    EXPORTING
      container_name              = 'TREE_CONTAINER'
    EXCEPTIONS
      cntl_error                  = 1
      cntl_system_error           = 2
      create_error                = 3
      lifetime_error              = 4
      lifetime_dynpro_dynpro_link = 5.

  CHECK sy-subrc = 0.

  CREATE OBJECT g_tree
    EXPORTING
*     lifetime                    =
      parent                      = g_container
*     shellstyle                  =
      node_selection_mode         = g_tree->node_sel_mode_single
*     hide_selection              =
*     name                        =
    EXCEPTIONS
      lifetime_error              = 1
      cntl_system_error           = 2
      create_error                = 3
      failed                      = 4
      illegal_node_selection_mode = 5
      OTHERS                      = 6.

  CHECK sy-subrc = 0.

  CALL METHOD g_tree->set_alignment
    EXPORTING
      alignment = 15.

  "注册双击事件
*  event-eventid = cl_gui_simple_tree=>eventid_node_double_click.
*  event-appl_event = 'X'.                                   "
*  APPEND event TO events.

  event-eventid = cl_gui_simple_tree=>eventid_selection_changed.
  event-appl_event = 'X'.                                   "
  APPEND event TO events.

  CALL METHOD g_tree->set_registered_events
    EXPORTING
      events                    = events
    EXCEPTIONS
      cntl_error                = 1
      cntl_system_error         = 2
      illegal_event_combination = 3.
  IF sy-subrc <> 0.
  ENDIF.

  CREATE OBJECT g_application.
  "SET HANDLER g_application->handle_node_double_click FOR g_tree.
  SET HANDLER g_application->handle_node_selection FOR g_tree.

  "设置node
  REFRESH gt_node.
  PERFORM frm_node_table.

  CALL METHOD g_tree->add_nodes
    EXPORTING
      table_structure_name           = 'MTREESNODE'
      node_table                     = gt_node
    EXCEPTIONS
      failed                         = 1
      error_in_node_table            = 2
      dp_error                       = 3
      table_structure_name_not_found = 4
      OTHERS                         = 5.
  IF sy-subrc <> 0.
*
  ENDIF.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  FRM_NODE_TABLE
*&---------------------------------------------------------------------*
*       设置节点表数据
*----------------------------------------------------------------------*
FORM frm_node_table .
  "第一层节点'
  CLEAR wa_node.
  wa_node-node_key = 'ROOT'.
  wa_node-text = '存货分类'.
  wa_node-isfolder = 'X'.
  APPEND wa_node TO gt_node.

  "第二层节点(物料中类)
  REFRESH gt_wlzl.
  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE gt_wlzl
    FROM zmm_zsj_wlzl_zx.

  LOOP AT gt_wlzl.
    CLEAR wa_node.
    wa_node-node_key = gt_wlzl-zwlzl.
    CONCATENATE '(' gt_wlzl-zwlzl ')' INTO wa_node-text.
    CONCATENATE wa_node-text gt_wlzl-zms INTO wa_node-text SEPARATED BY space.
    wa_node-isfolder = 'X'.
    wa_node-relatkey = 'ROOT'.
    wa_node-relatship = cl_gui_simple_tree=>relat_last_child.
    APPEND wa_node TO gt_node.
  ENDLOOP.

  "第三层节点(物料小类)
  REFRESH gt_wlxl.
  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE gt_wlxl
    FROM zmm_zsj_wlxl_zx.

  LOOP AT gt_wlxl.
    CLEAR wa_node.

    wa_node-node_key = gt_wlxl-zwlxl.

    CONCATENATE '(' gt_wlxl-zwlxl ')' INTO wa_node-text.
    CONCATENATE wa_node-text gt_wlxl-zms INTO wa_node-text SEPARATED BY space.

    wa_node-relatkey = gt_wlxl-zwlzl.
    wa_node-relatship = cl_gui_simple_tree=>relat_last_child.
    APPEND wa_node TO gt_node.

  ENDLOOP.

ENDFORM.                    " FRM_NODE_TABLE

显示效果：