ALV-TREE -转

****要注意创建相应程序的屏幕0100****

在一些情况下，输出的ALV可能用树形结构更容易展现数据之间的相互关联，为了输出ALV-TREE主要用到的是容器类（如CL_GUI_CONTAINER或CL_GUI_CUSTOM_CONTAINER等）和ALV-TREE控制器类CL_GUI_ALV_TREE。

对于类CL_GUI_ALV_TREE,主要用其ADD_NODE的方法添加节点。

下面直接给出仿照SAP示例程序BCALV_TREE_02创建的一个DEMO:

输出目标（汇总可用库存字段/双击节点对应的文件夹图标能展开其子节点）：

*&---------------------------------------------------------------------*
*& Report Z15540_OOALV_TREE
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT Z15540_OOALV_TREE.
*&---------------------------------------------------------------------*
*&数据对象定义
*&---------------------------------------------------------------------*
DATA:BEGIN OF GS_ALV,
       WERKS TYPE MARD-WERKS,
       LGORT TYPE MARD-LGORT,
       MATNR TYPE MARD-MATNR,
       MAKTX TYPE MAKT-MAKTX,
       LABST TYPE MARD-LABST,
       MEINS TYPE MARA-MEINS,
     END OF GS_ALV.
DATA GT_ALV LIKE TABLE OF GS_ALV.
DATA:GS_FCAT TYPE LVC_S_FCAT,
     GT_FCAT TYPE LVC_T_FCAT.
DATA:LCL_CONTAINER TYPE REF TO CL_GUI_CONTAINER, "容器类引用变量
     LCL_TREE      TYPE REF TO CL_GUI_ALV_TREE. "树形ALV控制器引用变量
DATA:OK_CODE   TYPE SY-UCOMM, "获取100屏幕触发的功能码
     SAVE_CODE TYPE SY-UCOMM.
*&---------------------------------------------------------------------*
*&事件接受类定义
*&---------------------------------------------------------------------*
CLASS LCL_HANDLE DEFINITION.

PUBLIC SECTION.
    "定义双击节点事件触发时的处理方法
    METHODS HANDLE_NODE_DCLICK
                  FOR EVENT NODE_DOUBLE_CLICK OF CL_GUI_ALV_TREE
      IMPORTING NODE_KEY SENDER.
    "其中SENDER这个参数是一个隐式的事件参数，是由ABAP对象运行系统提供，它指向了触发这个事件的实例，可以直接使用它来调用这个实例的方法。

ENDCLASS.

CLASS LCL_HANDLE IMPLEMENTATION.

"定义处理方法的具体实施
  METHOD HANDLE_NODE_DCLICK.
    DATA: LT_CHILDREN TYPE LVC_T_NKEY.
*检查被点击的NODE几点下面有无子节点，有则展开节点。
    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.

ENDCLASS.

START-OF-SELECTION.
  CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'MAIN100'.
  SET TITLEBAR 'TITLE'.
  IF LCL_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'
          TXT1  = 'Internal error:'
          TXT2  = 'A method in the automation queue'
          TXT3  = 'caused a failure.'.
    ENDIF.
  ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form INIT_TREE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM INIT_TREE .
  "1.实例化容器对象
  LCL_CONTAINER = CL_GUI_CONTAINER=>SCREEN0.

"2.实例化TREE控制器
  CREATE OBJECT LCL_TREE
    EXPORTING
      PARENT                      = LCL_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 E208(00) WITH '实例化ALV TREE控制器失败！'.     "
  ENDIF.
  "3.设置NODE描述字段信息
  DATA L_HIERARCHY_HEADER TYPE TREEV_HHDR.
  PERFORM BUILD_HIERARCHY_HEADER CHANGING L_HIERARCHY_HEADER.
  "4.设置ALV字段
  PERFORM FRM_FILLFIELD USING: 'WERKS' '工厂',
                               'LGORT' '仓库',
                               'MATNR' '物料号',
                               'MAKTX' '物料描述',
                               'LABST' '非限制使用库存',
                               'MEINS' '数量单位'.
  "5设置ALV显示字段
  CALL METHOD LCL_TREE->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
      IS_HIERARCHY_HEADER = L_HIERARCHY_HEADER
    CHANGING
      IT_FIELDCATALOG     = GT_FCAT
      IT_OUTTAB           = GT_ALV. "此表必须一直为空，且为全局变量
  "6.设置根节点，填充叶节点数据
  PERFORM CREATE_HIERARCHY.
  "7.注册事件
  PERFORM REGISTER_EVENTS.
* 更新汇总字段
  CALL METHOD LCL_TREE->UPDATE_CALCULATIONS.
*前端显示数据
  CALL METHOD LCL_TREE->FRONTEND_UPDATE.
ENDFORM.
*&---------------------------------------------------------------------*
*&      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 = '工厂/仓库'.
  P_HIERARCHY_HEADER-TOOLTIP = '节点依据'.
  P_HIERARCHY_HEADER-WIDTH = 50.
  P_HIERARCHY_HEADER-WIDTH_PIX = ''.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_FILLFIELD
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> P_
*&      --> P_
*&---------------------------------------------------------------------*
FORM FRM_FILLFIELD USING P_FIELDNAME TYPE LVC_FNAME
                          P_COLTEXT TYPE LVC_TXTCOL.

CLEAR GS_FCAT.
  GS_FCAT-FIELDNAME = P_FIELDNAME.
  GS_FCAT-COLTEXT = P_COLTEXT.
  IF P_FIELDNAME = 'WERKS' OR P_FIELDNAME = 'LGORT' OR P_FIELDNAME = 'MATNR' .
    GS_FCAT-NO_OUT = 'X'."隐藏右侧输出的MATNR/WERKS/LGORT字段
  ELSEIF P_FIELDNAME = 'LABST'.
    GS_FCAT-QFIELDNAME = 'MEINS'.
    GS_FCAT-DO_SUM = 'X'."汇总可用库存字段
    GS_FCAT-H_FTYPE = 'SUM'.
    GS_FCAT-REF_FIELD = 'LABST'.
    GS_FCAT-REF_TABLE = 'MARD'.
    GS_FCAT-OUTPUTLEN = '30'.
  ELSEIF P_FIELDNAME = 'MAKTX'.
    GS_FCAT-OUTPUTLEN = '30'.
  ENDIF.
  APPEND GS_FCAT TO GT_FCAT.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form CREATE_HIERARCHY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM CREATE_HIERARCHY .
  DATA: LS_NODE      LIKE GS_ALV,
        LS_ALV       LIKE GS_ALV,
        LT_ALV       LIKE TABLE OF GS_ALV,
        L_LAST_WERKS TYPE MARD-WERKS,
        L_LAST_LGORT TYPE MARD-LGORT.
  DATA: L_WERKS_KEY TYPE LVC_NKEY,
        L_LGORT_KEY TYPE LVC_NKEY,
        L_LAST_KEY  TYPE LVC_NKEY,
        L_TOP_KEY   TYPE LVC_NKEY.
  DATA L_NODE_TEXT TYPE LVC_VALUE.

SELECT D~MATNR,
         D~WERKS,
         D~LGORT,
         D~LABST,
         A~MEINS,
         T~MAKTX
  INTO CORRESPONDING FIELDS OF TABLE @LT_ALV UP TO 200 ROWS
  FROM MARD AS D INNER JOIN MARA AS A
  ON D~MATNR = A~MATNR
  LEFT OUTER JOIN MAKT AS T
  ON D~MATNR = T~MATNR
  WHERE T~SPRAS = @SY-LANGU.

SORT LT_ALV BY WERKS LGORT.

"添加祖节点
  CALL METHOD LCL_TREE->ADD_NODE
    EXPORTING
      I_RELAT_NODE_KEY = ''
      I_RELATIONSHIP   = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD
      I_NODE_TEXT      = '可用库存'
    IMPORTING
      E_NEW_NODE_KEY   = L_TOP_KEY. "祖节点标识
  "按照工厂->仓库层次设置节点，设置”叶片“，填充"叶片"数据
  LOOP AT  LT_ALV INTO LS_ALV.
    "设置工厂节点
    IF L_LAST_WERKS NE LS_ALV-WERKS.
      L_LAST_WERKS = LS_ALV-WERKS.
      "若此次循环到的工厂与上一次不相同，则创造新的工厂节点
      "ADD NODE
      CLEAR L_NODE_TEXT.
      L_NODE_TEXT = LS_ALV-WERKS.
      CALL METHOD LCL_TREE->ADD_NODE
        EXPORTING
          I_RELAT_NODE_KEY = L_TOP_KEY "处于祖节点之下
          I_RELATIONSHIP   = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD
          I_NODE_TEXT      = L_NODE_TEXT
          IS_OUTTAB_LINE   = LS_NODE
        IMPORTING
          E_NEW_NODE_KEY   = L_WERKS_KEY. "工厂节点标识
      CLEAR L_LAST_LGORT."当创建新的工厂节点时，清空上一个库存节点
    ENDIF.

"设置库存节点
    IF L_LAST_LGORT NE LS_ALV-LGORT.
      L_LAST_LGORT = LS_ALV-LGORT.
      "若此次循环到的库存点点与上一次不相同，则创造新的库存节点
      "ADD NODE
      CLEAR L_NODE_TEXT.
      L_NODE_TEXT = LS_ALV-LGORT.
      CALL METHOD LCL_TREE->ADD_NODE
        EXPORTING
          I_RELAT_NODE_KEY = L_WERKS_KEY "处于工厂节点之下
          I_RELATIONSHIP   = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD
          I_NODE_TEXT      = L_NODE_TEXT
          IS_OUTTAB_LINE   = LS_NODE
        IMPORTING
          E_NEW_NODE_KEY   = L_LGORT_KEY. "工厂节点标识
    ENDIF.
    "设置”叶片“，填充"叶片"数据
    CLEAR L_NODE_TEXT.
    L_NODE_TEXT = LS_ALV-MATNR.
    CALL METHOD LCL_TREE->ADD_NODE
      EXPORTING
        I_RELAT_NODE_KEY = L_LGORT_KEY "处于库存节点之下
        I_RELATIONSHIP   = CL_GUI_COLUMN_TREE=>RELAT_LAST_CHILD
        I_NODE_TEXT      = L_NODE_TEXT
        IS_OUTTAB_LINE   = LS_ALV "有数据
      IMPORTING
        E_NEW_NODE_KEY   = L_LAST_KEY. "工厂节点标识

ENDLOOP.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form REGISTER_EVENTS
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM REGISTER_EVENTS .
  "注册前端后后端事件
  DATA: LT_EVENTS        TYPE CNTL_SIMPLE_EVENTS,
        L_EVENT          TYPE CNTL_SIMPLE_EVENT,
        L_EVENT_RECEIVER TYPE REF TO LCL_HANDLE.

*1。获取已注册的前端事件
  CALL METHOD LCL_TREE->GET_REGISTERED_EVENTS
    IMPORTING
      EVENTS = LT_EVENTS.
  "2.添加前端双击时间
  L_EVENT-EVENTID = CL_GUI_COLUMN_TREE=>EVENTID_NODE_DOUBLE_CLICK.
  APPEND L_EVENT TO LT_EVENTS.

*3.重新设置前端注册时间
  CALL METHOD LCL_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 E208(00) WITH '注册前端事件失败！'.                      "#EC NOTEXT
  ENDIF.
*--------------------
  "4.注册后端事件
  CREATE OBJECT L_EVENT_RECEIVER.
  SET HANDLER L_EVENT_RECEIVER->HANDLE_NODE_DCLICK FOR LCL_TREE.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
  SAVE_CODE = OK_CODE.
  CLEAR OK_CODE.

CASE SAVE_CODE.
    WHEN 'EXIT' OR 'BACK' OR 'CANC'.
      "释放容器，退出程序
      CALL METHOD LCL_CONTAINER->FREE.
      LEAVE PROGRAM.
    WHEN OTHERS.
      "为正确调用工具栏按钮功能，必须调用该方法
      CALL METHOD CL_GUI_CFW=>DISPATCH.

ENDCASE.

CALL METHOD CL_GUI_CFW=>FLUSH.
ENDMODULE.

 

本文转载自：https://www.cnblogs.com/jianglaizhen/p/8870859.html

打赏点赞 (0)收藏 (0)

 分享