alv list 实现alv多表头或自定义表头（一）

ALV具有强大的数据显示功能，不过其表头形式较为单一，难以适合于一些要求较复杂的报表需求，本例将介绍如何实现ALV表头的自定义格式。

ALV表头的修改首先需要定义表头所需要的具体字段数，然后修改各字段属性，包括名称，横竖线的绘制等。需要注意的是，实现该功能要求ALV必须设置为LIST显示模式，且所生成的报表不适用于排序或Layout的修改；为了使ALV表格与自定义表头对齐，一般建议在设置Fieldcat时指定各字段宽度。

本节主要介绍在一些特别需求中自定义ALV表头的方法，对一些商务应用中的正式报表建议还是采用ScriptForm或SmartForm方式。

程序中所需使用函数及ABAP Report处理事件如下：

REUSE_ALV_LIST_DISPLAY：显示List格式ALV，该例需要设置其IT_EVENTS属性；

REUSE_ALV_EVENTS_GET：获取ALV执行事件，在表头中增加指定行数数据需要调用其"TOP_OF_PAGE"事件。

1. TYPE-POOLS: SLIS.
   
2. TABLES: SPFLI.
   
3. DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
   
4.     LAYOUT    TYPE SLIS_LAYOUT_ALV,
   
5.     W_REPID  LIKE SY-REPID,
   
6.     L_EVENTS TYPE SLIS_T_EVENT,                 "定义ALV事件类型
   
7.     EVENTCAT TYPE SLIS_T_EVENT WITH HEADER LINE.    "定义事件数据保存内表
   
8. 
   
9. DATA: LS_SPFLI TYPE SPFLI.                          "定义查询数据相关内表
   
10. DATA: LSPFLI LIKE STANDARD TABLE OF LS_SPFLI WITH HEADER LINE.
    
11. 
    
12. START-OF-SELECTION.
    
13.   PERFORM EVENTTAB_BUILD CHANGING L_EVENTS.
    
14.   PERFORM GETDATA.
    
15.   PERFORM CATALOG.
    
16.   PERFORM ALVSHOW.
    
17. 
    
18. *---------------------------------------------------------------------*
    
19. *       FORM GetData From DataBase
    
20. *---------------------------------------------------------------------*
    
21. FORM GETDATA.                                   "抓取十条数据作为参考例子
    
22.   SELECT * FROM SPFLI UP TO 10 ROWS
    
23.   INTO CORRESPONDING FIELDS OF TABLE LSPFLI.
    
24. ENDFORM.
    
25. 
    
26. *&---------------------------------------------------------------------*
    
27. *&      Form  CATALOG
    
28. *&---------------------------------------------------------------------*
    
29. FORM CATALOG.
    
30.   W_REPID = SY-REPID.
    
31.   CLEAR FIELDCAT.
    
32. 
    
33. *  通过宏来设置ALV Fieldcat属性，包括字段名、长度、对齐方式等
    
34. DEFINE FIELDCATSET.
    
35. FIELDCAT-REF_TABNAME = 'LSPFLI'.
    
36. FIELDCAT-FIELDNAME = &1.
    
37. FIELDCAT-SELTEXT_L = &1.
    
38. FIELDCAT-COL_POS = &2.
    
39. FIELDCAT-JUST = 'C'.
    
40. FIELDCAT-OUTPUTLEN = &3.
    
41. APPEND FIELDCAT.
    
42.   END-OF-DEFINITION.
    
43. * 调用宏设置Fieldcat
    
44.   CLEAR SY-TABIX.
    
45.   FIELDCATSET 'CARRID' SY-TABIX 6.
    
46.   FIELDCATSET 'COUNTRYFR' SY-TABIX 9.
    
47.   FIELDCATSET 'CITYFROM' SY-TABIX 8.
    
48.   FIELDCATSET 'COUNTRYTO' SY-TABIX 10.
    
49.   FIELDCATSET 'AIRPFROM' SY-TABIX 8.
    
50.   FIELDCATSET 'AIRPTO' SY-TABIX 7.
    
51.   FIELDCATSET 'DEPTIME' SY-TABIX 10.
    
52.   FIELDCATSET 'DISTANCE' SY-TABIX 10.
    
53.   FIELDCATSET 'DISTID' SY-TABIX 6.
    
54.   FIELDCATSET 'FLTYPE' SY-TABIX 6.
    
55.   FIELDCATSET 'PERIOD' SY-TABIX 6.
    
56. ENDFORM.
    
57. 
    
58. *&---------------------------------------------------------------------*
    
59. *&      Form  ALVSHOW
    
60. *&---------------------------------------------------------------------*
    
61. FORM ALVSHOW.
    
62.   LAYOUT-ZEBRA = 'X' .                          "加上间隔条纹美化ALV显示
    
63. 
    
64.   CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    
65.     EXPORTING
    
66.          I_CALLBACK_PROGRAM = W_REPID
    
67.          IS_LAYOUT          = LAYOUT
    
68.          IT_FIELDCAT        = FIELDCAT[]
    
69.          IT_EVENTS          = EVENTCAT[]    "加入处理事件
    
70.     TABLES
    
71.          T_OUTTAB           = LSPFLI
    
72.     EXCEPTIONS
    
73.          PROGRAM_ERROR  = 1
    
74.          OTHERS             = 2.
    
75.   IF SY-SUBRC <> 0.
    
76. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    
77.          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    
78.   ENDIF.
    
79. ENDFORM.
    
80. 
    
81. *&--------------------------------------------------------------------------------*
    
82. *&      Form  EVENTTAB_BUILD      获取ALV执行事件
    
83. *&--------------------------------------------------------------------------------*
    
84. FORM EVENTTAB_BUILD CHANGING P_EVENTS TYPE SLIS_T_EVENT.
    
85.   DATA L_EVENT TYPE LINE OF  SLIS_T_EVENT.
    
86.   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    
87.     EXPORTING
    
88.          I_LIST_TYPE     = 0
    
89.     IMPORTING
    
90.          ET_EVENTS       = P_EVENTS
    
91.     EXCEPTIONS
    
92.          LIST_TYPE_WRONG = 1
    
93.          OTHERS          = 2.
    
94. 
    
95. * 定义页面首行输出事件
    
96.   READ TABLE P_EVENTS INTO L_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
    
97.   EVENTCAT-NAME  = L_EVENT-NAME.
    
98.   EVENTCAT-FORM = 'F_TOP_OF_PAGE'.
    
99.   APPEND EVENTCAT.
    
100. 
     
101. * 定义List输出后事件
     
102.   READ TABLE P_EVENTS INTO L_EVENT WITH KEY NAME = 'END_OF_LIST'.
     
103.   EVENTCAT-NAME  = L_EVENT-NAME.
     
104.   EVENTCAT-FORM = 'F_END_OF_PAGE'.
     
105.   APPEND EVENTCAT.
     
106. ENDFORM.                    " EVENTTAB_BUILD
     
107. 
     
108. *&--------------------------------------------------------------------*
     
109. *&      Form  F_TOP_OF_PAGE   绘制ALV表头
     
110. *&--------------------------------------------------------------------*
     
111. FORM F_TOP_OF_PAGE.
     
112.   DATA: L_LINE(398) TYPE C.
     
113. 
     
114.   WRITE: / SY-ULINE.
     
115.   WRITE SY-VLINE TO L_LINE+0.
     
116.   WRITE 'Flight Information Report' TO L_LINE+33 .
     
117.   WRITE SY-VLINE  TO L_LINE+97.
     
118.   WRITE: / L_LINE.
     
119.   WRITE: / SY-ULINE+7.
     
120. 
     
121.   CLEAR L_LINE.
     
122.   WRITE SY-VLINE TO L_LINE+0.
     
123.   WRITE SY-VLINE TO L_LINE+7.
     
124.   WRITE 'Country Information'  TO L_LINE+12.
     
125.   WRITE SY-VLINE TO L_LINE+37.
     
126.   WRITE 'Flight detail'  TO L_LINE+50.
     
127.   WRITE SY-VLINE TO L_LINE+97.
     
128.   WRITE: / L_LINE.
     
129. ENDFORM.                    "F_TOP_OF_PAGE
     
130. 
     
131. *&--------------------------------------------------------------------*
     
132. *&      Form  F_TOP_OF_PAGE  在ALV表最后加入描述
     
133. *&--------------------------------------------------------------------*
     
134. FORM F_END_OF_PAGE.
     
135. DATA: L_LINE(398) TYPE C.
     
136. * 重新绘制表头自定义表格和ALV List衔接部分
     
137.   WRITE: / SY-ULINE.
     
138.   WRITE SY-VLINE TO L_LINE+0.
     
139.   WRITE 'Flight Information Report' TO L_LINE+33 .
     
140.   WRITE SY-VLINE  TO L_LINE+97.
     
141.   WRITE: / L_LINE.
     
142.   WRITE: / SY-ULINE+7.
     
143. 
     
144.   WRITE SY-VLINE TO L_LINE+0.
     
145.   WRITE 'Total QTY:10' TO L_LINE+40.
     
146.   WRITE SY-VLINE TO  L_LINE+97.
     
147.   WRITE L_LINE.
     
148.   WRITE : / SY-ULINE.
     
149. ENDFORM.                    "F_END_OF_PAGE

复制代码

执行效果：