实战SAP：【总结】ALV TREE

 SCREEN中定义控制区域：ALV1

 

DATA: wa_container TYPE scrfname VALUE 'ALV1',
          alv_grid TYPE REF TO cl_gui_alv_tree_simple,
          wa_custom_container TYPE REF TO cl_gui_custom_container.       "创建对象

DATA ls_list_comm TYPE slis_t_listheader.                                                "创建表头
    DATA ls_alist_comm TYPE slis_listheader.
    ls_alist_comm-typ = 'H'.
    ls_alist_comm-info = 'ALV TREE演示'.
    APPEND ls_alist_comm TO ls_list_comm.

 

代码如下：

 

*&---------------------------------------------------------------------*
*& Report  ZALV_TREE_WYZ
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zalv_tree_wyz.

DATA: ok_code TYPE sy-ucomm,
save_ok LIKE ok_code.
*ALV字段内表、分类字段内表
DATA: gw_fieldcat TYPE lvc_t_fcat,
gb_sortfield TYPE lvc_t_sort.

DATA wa_spfli TYPE TABLE OF spfli.
*赋值
SELECT * INTO TABLE wa_spfli FROM spfli.

DATA: wa_container TYPE scrfname VALUE 'ALV1',
alv_grid TYPE REF TO cl_gui_alv_tree_simple,   "ALV TREE定义
wa_custom_container TYPE REF TO cl_gui_custom_container.

CALL SCREEN 100.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'STATU100'.
*  SET TITLEBAR 'xxx'.
IF wa_custom_container IS INITIAL.
*ALV表头设定
DATA ls_list_comm TYPE slis_t_listheader.
DATA ls_alist_comm TYPE slis_listheader.
ls_alist_comm-typ = 'H'.
ls_alist_comm-info = 'ALV TREE演示'.
APPEND ls_alist_comm TO ls_list_comm.
*字段清单、字段长度、汇总字段方法调用
PERFORM bldcat.
*创建TREE分类字段清单以及先后顺序
PERFORM bldsortfld.
*显示ALV TREE对象
CREATE OBJECT wa_custom_container
EXPORTING container_name = wa_container.
CREATE OBJECT alv_grid
EXPORTING i_parent = wa_custom_container.
*展开第一层
CALL METHOD alv_grid->set_table_for_first_display
EXPORTING
it_list_commentary = ls_list_comm
i_structure_name   = 'SPFLI'
CHANGING
it_sort            = gb_sortfield
it_fieldcatalog    = gw_fieldcat
it_outtab          = wa_spfli.

CALL METHOD alv_grid->expand_tree
EXPORTING
i_level = 1.

ENDIF.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
save_ok = ok_code.
CLEAR ok_code.
CASE save_ok.
WHEN 'EXIT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Form  bldcat
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM bldcat .
*将SPFLI所有结构字段到内表
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'SPFLI'
CHANGING
ct_fieldcat      = gw_fieldcat.
*单条记录
DATA ls_fldcat TYPE lvc_s_fcat.
*记录处理
LOOP AT gw_fieldcat INTO ls_fldcat.
CASE ls_fldcat-fieldname.
*定义四段长度
WHEN 'COUNTRYER'
OR 'CITYFROM'
OR 'COUNTRYTO'
OR 'CITYTO'
OR 'DISTANCE'.
ls_fldcat-outputlen = 15.
WHEN OTHERS.
ls_fldcat-no_out = 'X'.
ENDCASE.
*字段汇总
IF ls_fldcat-fieldname = 'DISTANCE'.
ls_fldcat-do_sum = 'X'.
ENDIF.

MODIFY gw_fieldcat FROM ls_fldcat.
ENDLOOP.
ENDFORM.                    " bldcat
*&---------------------------------------------------------------------*
*&      Form  bldsortfld
*&---------------------------------------------------------------------*
*       text  分类 输出先后顺序
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM bldsortfld .
DATA ls_sortfld TYPE lvc_s_sort.

ls_sortfld-spos = 1.
ls_sortfld-fieldname = 'COUNTRYFR'.
ls_sortfld-up = 'X'.
ls_sortfld-subtot = 'X'.
APPEND ls_sortfld TO gb_sortfield.

ls_sortfld-spos = 2.
ls_sortfld-fieldname = 'CARRID'.
ls_sortfld-up = 'X'.
ls_sortfld-subtot = 'X'.
APPEND ls_sortfld TO gb_sortfield.

ls_sortfld-spos = 3.
ls_sortfld-fieldname = 'CONNID'.
ls_sortfld-up = 'X'.
ls_sortfld-subtot = 'X'.
APPEND ls_sortfld TO gb_sortfield.

ENDFORM.                    " bldsortfld