一个带有变式的简单ALV Grid程序

ALV中要搞布局格式，REUSE_ALV_GRID_DISPLAY函数中要启用参数I_SAVE参数，I_SAVE TYPE C。
I_SAVE有4个可选值： I_SAVE= '' --- 不能保存格式；
                              I_SAVE = 'X' --- 保存标准格式；
                              I_SAVE = 'U' --- 保存特定用户格式；
                              I_SAVE = 'A' --- 保存标准格式和特定用户格式。
为了进一步管理布局，则需要启用IS_VARIANT参数，IS_VARIANT  TYPE disvariant。disvariant是系统中预定义的一个结构。
简单的情况，赋值 ls_variant-report = sy-repid.
有3个与ALV布局相关的函数：REUSE_ALV_VARIANT_DEFAULT_GET 读取默认的布局
                                      REUSE_ALV_VARIANT_EXISTENCE 检测指定布局是否存在
                                      REUSE_ALV_VARIANT_F4 显示布局格式选择对话窗。
REUSE_ALV_VARIANT_F4，selection-screen 中用到的alv的变式的F4的处理函数，REUSE_ALV_VARIANT_EXISTENCE，根据屏幕里面填入的variant 来取的layout,REUSE_ALV_VARIANT_DEFAULT_GET 得到default的变式，最后得到的变式关联到REUSE_ALV_GRID_DISPLAY 这个fm 里面的 IS_VARIANT
可参考标准程序：BALVST02_GRID
NOTE：这里的变式指的是alv变式，定义方法：点击lav界面上部的菜单settings->layout->save
          可参考：定义一个ALV Layout Variant变式

程序执行结果：

程序代码：

1. TABLES : sflight.
   
2. TYPE-POOLS : slis.
   
3. **INTERNAL TABLE DECLARTION
   
4. DATA : wa_sflight TYPE sflight,
   
5.        it_sflight TYPE TABLE OF sflight.
   
6. **DATA DECLARTION
   
7. DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
   
8.       gd_layout    TYPE slis_layout_alv,
   
9.       gd_repid     LIKE sy-repid,
   
10.       g_save TYPE c VALUE 'X',
    
11.       g_variant TYPE disvariant,
    
12.       gx_variant TYPE disvariant,
    
13.       g_exit TYPE c,
    
14.       ispfli TYPE TABLE OF spfli.
    
15. * To understand the importance of the following parameter, click here.
    
16. **SELECTION SCREEN DETAILS
    
17. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002 .
    
18. PARAMETERS: variant LIKE disvariant-variant.
    
19. SELECTION-SCREEN END OF BLOCK b1.
    
20. **GETTING DEFAULT VARIANT
    
21. INITIALIZATION.
    
22.   gx_variant-report = sy-repid.
    
23.   CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    
24.     EXPORTING
    
25.       i_save     = g_save
    
26.     CHANGING
    
27.       cs_variant = gx_variant
    
28.     EXCEPTIONS
    
29.       not_found  = 2.
    
30.   IF sy-subrc = 0.
    
31.     variant = gx_variant-variant.
    
32.   ENDIF.
    
33. **PERFORM DECLARATIONS
    
34. START-OF-SELECTION.
    
35.   PERFORM data_retrivel.
    
36.   PERFORM build_fieldcatalog.
    
37.   PERFORM display_alv_report.
    
38. 
    
39. *&---------------------------------------------------------------------*
    
40. *&      Form  BUILD_FIELDCATALOG
    
41. *&---------------------------------------------------------------------*
    
42. *       text
    
43. *----------------------------------------------------------------------*
    
44. *  -->  p1        text
    
45. *  <--  p2        text
    
46. *----------------------------------------------------------------------*
    
47. FORM build_fieldcatalog .
    
48.   fieldcatalog-fieldname   = 'CARRID'.
    
49.   fieldcatalog-seltext_m   = 'Airline Code'.
    
50.   fieldcatalog-col_pos     = 0.
    
51.   APPEND fieldcatalog TO fieldcatalog.
    
52.   CLEAR  fieldcatalog.
    
53. 
    
54.   fieldcatalog-fieldname   = 'CONNID'.
    
55.   fieldcatalog-seltext_m   = 'Flight Connection Number'.
    
56.   fieldcatalog-col_pos     = 1.
    
57.   APPEND fieldcatalog TO fieldcatalog.
    
58.   CLEAR  fieldcatalog.
    
59.   fieldcatalog-fieldname   = 'FLDATE'.
    
60.   fieldcatalog-seltext_m   = 'Flight date'.
    
61.   fieldcatalog-col_pos     = 2.
    
62.   APPEND fieldcatalog TO fieldcatalog.
    
63.   CLEAR  fieldcatalog.
    
64.   fieldcatalog-fieldname   = 'PRICE'.
    
65.   fieldcatalog-seltext_m   = 'Airfare'.
    
66.   fieldcatalog-col_pos     = 3.
    
67.   fieldcatalog-outputlen   = 20.
    
68.   APPEND fieldcatalog TO fieldcatalog.
    
69.   CLEAR  fieldcatalog.
    
70. ENDFORM.                    " BUILD_FIELDCATALOG
    
71. 
    
72. 
    
73. *&---------------------------------------------------------------------*
    
74. *&      Form  DISPLAY_ALV_REPORT
    
75. *&---------------------------------------------------------------------*
    
76. *       text
    
77. *----------------------------------------------------------------------*
    
78. *  -->  p1        text
    
79. *  <--  p2        text
    
80. *----------------------------------------------------------------------*
    
81. FORM display_alv_report .
    
82.   gd_repid = sy-repid.
    
83.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    
84.     EXPORTING
    
85.       i_callback_program      = gd_repid
    
86.       i_callback_top_of_page  = 'TOP-OF-PAGE'  "see FORM
    
87.       i_callback_user_command = 'USER_COMMAND'
    
88.       it_fieldcat             = fieldcatalog[]
    
89.       i_save                  = 'X'
    
90.       is_variant              = g_variant
    
91.     TABLES
    
92.       t_outtab                = it_sflight
    
93.     EXCEPTIONS
    
94.       program_error           = 1
    
95.       OTHERS                  = 2.
    
96.   IF sy-subrc <> 0.
    
97. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    
98. *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    
99.   ENDIF.
    
100. ENDFORM.                    "DISPLAY_ALV_REPORT
     
101. " DISPLAY_ALV_REPORT
     
102. *&---------------------------------------------------------------------*
     
103. *&      Form  DATA_RETRIVEL
     
104. *&---------------------------------------------------------------------*
     
105. *       text
     
106. *----------------------------------------------------------------------*
     
107. *  -->  p1        text
     
108. *  <--  p2        text
     
109. *----------------------------------------------------------------------*
     
110. FORM data_retrivel .
     
111.   SELECT * FROM sflight INTO TABLE it_sflight.
     
112. ENDFORM.                    " DATA_RETRIVEL
     
113. *-------------------------------------------------------------------*
     
114. * Form  TOP-OF-PAGE                                                 *
     
115. *-------------------------------------------------------------------*
     
116. * ALV Report Header                                                 *
     
117. *-------------------------------------------------------------------*
     
118. FORM top-of-page.
     
119. *ALV Header declarations
     
120.   DATA: t_header TYPE slis_t_listheader,
     
121.         wa_header TYPE slis_listheader,
     
122.         t_line LIKE wa_header-info,
     
123.         ld_lines TYPE i,
     
124.         ld_linesc(10) TYPE c.
     
125. * Title
     
126.   wa_header-typ  = 'H'.
     
127.   wa_header-info = 'SFLIGHT Table Report'.
     
128.   APPEND wa_header TO t_header.
     
129.   CLEAR wa_header.
     
130. * Date
     
131.   wa_header-typ  = 'S'.
     
132.   wa_header-key = 'Date: '.
     
133.   CONCATENATE  sy-datum+6(2) '.'
     
134.                sy-datum+4(2) '.'
     
135.                sy-datum(4) INTO wa_header-info.   "todays date
     
136.   APPEND wa_header TO t_header.
     
137.   CLEAR: wa_header.
     
138. 
     
139.   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
     
140.     EXPORTING
     
141.       it_list_commentary = t_header
     
142.       i_logo             = 'ENJOYSAP_LOGO'.
     
143. ENDFORM.                    "top-of-page

复制代码