ALV Tree实例，对同类数据归类，并分类汇总

在sap业务系统中，大量的使用到ALV tree对象，该对象在表格基础上对同类数据进行归类，并对各分类能进行数据汇总，执行效果如下：

注：distance 字段在数据库值为空，所以输出为空

以航班表（spfli）为例：
1）、按国家、航线、航班分类；
2）、在右半屏幕对字段字段进行数量汇总；
3）、在右屏幕输出起飞国家、起飞城市、目的国家、目的城市、距离字段，并控制其输出长度。

处理过程：
1）、建立程序和屏幕，在屏幕上建立定制控制对象，定义好工作流；
2）、建立好PAI、PBO事件；
3）、在pai中定义建立定制控制对象，并建立alv tree对象；
4）、建立alv tree对象的标题；
5）、建立右屏幕输出字段清单、字段长度、汇总字段等内容；
6）、建立tree分类字段清单及输出先后顺序；
7）、显示alv tree对象。

注：该实例是在屏幕上建立custom control控件，实现oolav输出报表 的扩展，如阅读有困难可先参考它。

主程序：

1. REPORT  ZDEMON_008.
   
2. DATA OK_CODE TYPE SY-UCOMM. " SY-UCOMM：Function code that PAI triggered
   
3. DATA IT_SPFLI TYPE TABLE OF SPFLI.
   
4. 
   
5. *ALV字段内表、分类字段内表
   
6. DATA: GB_FIELDCAT TYPE LVC_T_FCAT,
   
7.       GB_SORTFIELD TYPE LVC_T_SORT.
   
8. DATA:S_CONTAINER TYPE SCRFNAME VALUE 'ALVDATA',  " SCRFNAME: Name of a Screen Element  只能为该类型
   
9. *      ALV_GRID TYPE REF TO CL_GUI_ALV_GRID, "参考CL_GUI_ALV_GRID类，定义对象ALV_GRID
   
10.       ALV_GRID TYPE REF TO CL_GUI_ALV_TREE_SIMPLE,
    
11.       LO_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.
    
12. *ALV TREE对象，此处是直接从 alv_grid的定义更改
    
13. 
    
14. 
    
15. SELECT *
    
16.   INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI
    
17.   FROM SPFLI.
    
18. 
    
19. CALL SCREEN 100.
    
20. 
    
21. *----------------------------------------------------------------------*
    
22. *  MODULE STATUS_0100 OUTPUT
    
23. *----------------------------------------------------------------------*
    
24. *
    
25. *----------------------------------------------------------------------*
    
26. MODULE STATUS_0100 OUTPUT.
    
27.   SET PF-STATUS 'STATUS1'.
    
28.   SET TITLEBAR 'ALV TITLEBAR'.
    
29. ENDMODULE.                 " STATUS_0100  OUTPUT
    
30. 
    
31. *----------------------------------------------------------------------*
    
32. *  MODULE USER_COMMAND_0100 INPUT
    
33. *----------------------------------------------------------------------*
    
34. *
    
35. *----------------------------------------------------------------------*
    
36. MODULE USER_COMMAND_0100 INPUT.
    
37.   CASE OK_CODE.
    
38.     WHEN 'CANCEL'.
    
39.       LEAVE PROGRAM.
    
40.     WHEN 'BACK' OR 'EXIT'.
    
41.       LEAVE TO SCREEN 0.
    
42.   ENDCASE.
    
43. ENDMODULE.                 " USER_COMMAND_0100  INPUT
    
44. 
    
45. *----------------------------------------------------------------------*
    
46. *  MODULE CLEAR_OK_CODE OUTPUT
    
47. *----------------------------------------------------------------------*
    
48. *
    
49. *----------------------------------------------------------------------*
    
50. MODULE CLEAR_OK_CODE OUTPUT.
    
51.   CLEAR OK_CODE.
    
52. ENDMODULE.                 " CLEAR_OK_CODE  OUTPUT
    
53. 
    
54. *----------------------------------------------------------------------*
    
55. *  MODULE DISPLAY_OOALV OUTPUT
    
56. *----------------------------------------------------------------------*
    
57. *
    
58. *----------------------------------------------------------------------*
    
59. MODULE DISPLAY_OOALV OUTPUT.
    
60.   IF LO_CUSTOM_CONTAINER IS INITIAL. "如果LO_CUSTOM_CONTAINE RDialog容器对象不存在，实例化该对象
    
61. *ALV表头设定
    
62.     DATA LS_LIST_COMM TYPE SLIS_T_LISTHEADER.
    
63.     DATA LS_ALIST_COMM TYPE SLIS_LISTHEADER.
    
64.     LS_ALIST_COMM-TYP = 'H'.
    
65.     LS_ALIST_COMM-INFO = 'ALV TREE演示'.
    
66.     APPEND LS_ALIST_COMM TO LS_LIST_COMM.
    
67. *字段清单、字段长度、汇总字段方法调用
    
68.     PERFORM BLDCAT.
    
69. *创建TREE分类字段清单以及先后顺序
    
70.     PERFORM BLDSORTFLD.
    
71. 
    
72.     CREATE OBJECT LO_CUSTOM_CONTAINER
    
73.       EXPORTING
    
74.         CONTAINER_NAME = S_CONTAINER.
    
75.     CREATE OBJECT ALV_GRID "实例化alv对象
    
76.            EXPORTING I_PARENT = LO_CUSTOM_CONTAINER.
    
77.     CALL METHOD ALV_GRID->SET_TABLE_FOR_FIRST_DISPLAY "调用alv对象的方法显示报表
    
78.          EXPORTING
    
79.            IT_LIST_COMMENTARY = LS_LIST_COMM
    
80.            I_STRUCTURE_NAME = 'SPFLI'
    
81.          CHANGING
    
82.            IT_SORT            = GB_SORTFIELD
    
83.            IT_FIELDCATALOG    = GB_FIELDCAT
    
84.            IT_OUTTAB = IT_SPFLI.
    
85. 
    
86.     CALL METHOD ALV_GRID->EXPAND_TREE
    
87.       EXPORTING
    
88.         I_LEVEL = 1.
    
89.   ENDIF.
    
90. ENDMODULE.                 " DISPLAY_OOALV  OUTPUT
    
91. 
    
92. *&---------------------------------------------------------------------*
    
93. *&      Form  BLDCAT
    
94. *&---------------------------------------------------------------------*
    
95. *       text
    
96. *----------------------------------------------------------------------*
    
97. FORM BLDCAT .
    
98. *将SPFLI所有结构字段到内表
    
99.   CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    
100.     EXPORTING
     
101.       I_STRUCTURE_NAME = 'SPFLI'
     
102.     CHANGING
     
103.       CT_FIELDCAT      = GB_FIELDCAT.
     
104. *单条记录
     
105.   DATA LS_FLDCAT TYPE LVC_S_FCAT.
     
106. *记录处理
     
107.   LOOP AT GB_FIELDCAT INTO LS_FLDCAT.
     
108.     CASE LS_FLDCAT-FIELDNAME.
     
109. *定义四段长度
     
110.       WHEN 'COUNTRYER'
     
111.         OR 'CITYFROM'
     
112.         OR 'COUNTRYTO'
     
113.         OR 'CITYTO'
     
114.         OR 'DISTANCE'.
     
115.         LS_FLDCAT-OUTPUTLEN = 15.
     
116.       WHEN OTHERS.
     
117.         LS_FLDCAT-NO_OUT = 'X'."不输出
     
118.     ENDCASE.
     
119. *字段汇总  如果是距离字段，定义自动汇总
     
120.     IF LS_FLDCAT-FIELDNAME = 'DISTANCE'.
     
121.       LS_FLDCAT-DO_SUM = 'X'.
     
122.     ENDIF.
     
123. 
     
124.     MODIFY GB_FIELDCAT FROM LS_FLDCAT.
     
125.   ENDLOOP.
     
126. ENDFORM.                    " BLDCAT
     
127. 
     
128. *&---------------------------------------------------------------------*
     
129. *&      Form  BLDSORTFLD
     
130. *&---------------------------------------------------------------------*
     
131. *       text
     
132. *----------------------------------------------------------------------*
     
133. FORM BLDSORTFLD .
     
134.   DATA LS_SORTFLD TYPE LVC_S_SORT.
     
135. 
     
136.   LS_SORTFLD-SPOS = 1.
     
137.   LS_SORTFLD-FIELDNAME = 'COUNTRYFR'.
     
138.   LS_SORTFLD-UP = 'X'.
     
139.   LS_SORTFLD-SUBTOT = 'X'.
     
140.   APPEND LS_SORTFLD TO GB_SORTFIELD.
     
141. 
     
142.   LS_SORTFLD-SPOS = 2.
     
143.   LS_SORTFLD-FIELDNAME = 'CARRID'.
     
144.   LS_SORTFLD-UP = 'X'.
     
145.   LS_SORTFLD-SUBTOT = 'X'.
     
146.   APPEND LS_SORTFLD TO GB_SORTFIELD.
     
147. 
     
148.   LS_SORTFLD-SPOS = 3.
     
149.   LS_SORTFLD-FIELDNAME = 'CONNID'.
     
150.   LS_SORTFLD-UP = 'X'.
     
151.   LS_SORTFLD-SUBTOT = 'X'.
     
152.   APPEND LS_SORTFLD TO GB_SORTFIELD.
     
153. ENDFORM.                    " BLDSORTFLD

复制代码