在选择界面中显示alv输出结果

将ALV显示代码写在AT SELECTION-SCREEN OUTPUT事件下

程序代码：

1. TABLES: mara.
   
2. DATA: BEGIN OF i_alv OCCURS 0,
   
3.       matnr TYPE mara-matnr,
   
4.       mtart TYPE mara-mtart,
   
5.       matkl TYPE mara-matkl,
   
6.       groes TYPE mara-groes,
   
7.       maktx TYPE makt-maktx,
   
8.       END OF i_alv.
   
9. DATA: alv_container  TYPE REF TO cl_gui_docking_container.
   
10. DATA: alv_grid       TYPE REF TO cl_gui_alv_grid.
    
11. DATA: layout    TYPE lvc_s_layo.
    
12. DATA: fieldcat  TYPE lvc_t_fcat.
    
13. PARAMETERS: p_check.
    
14. 
    
15. INITIALIZATION.
    
16.   PERFORM get_data.
    
17. 
    
18. AT SELECTION-SCREEN OUTPUT.
    
19.   DATA: variant TYPE  disvariant.
    
20.   DATA: repid TYPE sy-repid.
    
21.   repid = sy-repid.
    
22.   variant-report = sy-repid.
    
23.   variant-username = sy-uname.
    
24.   layout-zebra = 'X'.
    
25.   layout-edit_mode = 'X'.
    
26.   CHECK alv_container IS INITIAL.
    
27.   CREATE OBJECT alv_container
    
28.               EXPORTING repid     = repid
    
29.                         dynnr     = sy-dynnr
    
30.                         side      = alv_container->dock_at_right
    
31.                         extension = 1100.
    
32.   CREATE OBJECT alv_grid
    
33.          EXPORTING
    
34.                i_parent          =  alv_container.
    
35. *  ALV Specific. Data selection.
    
36. *  Populate Field Catalog
    
37.   PERFORM get_fieldcatalog.
    
38.   CALL METHOD alv_grid->set_table_for_first_display
    
39.     EXPORTING
    
40.       is_layout        = layout
    
41.       is_variant       = variant
    
42.       i_save           = 'U'
    
43.       i_structure_name = 'I_ALV'
    
44.     CHANGING
    
45.       it_outtab        = i_alv[]
    
46.       it_fieldcatalog  = fieldcat[].
    
47. 
    
48. START-OF-SELECTION.
    
49. 
    
50. *************************************************************
    
51. * FORM GET_DATA
    
52. *************************************************************
    
53. FORM get_data.
    
54.   SELECT * INTO CORRESPONDING FIELDS OF TABLE i_alv
    
55.         FROM mara
    
56.           INNER JOIN makt
    
57.             ON mara~matnr = makt~matnr
    
58.                    UP TO 100 ROWS
    
59.                WHERE makt~spras = sy-langu.
    
60.   SORT i_alv ASCENDING BY matnr.
    
61. ENDFORM.                    "get_data
    
62. ***************************************************************
    
63. *      Form  Get_Fieldcatalog - Set Up Columns/Headers
    
64. ****************************************************************
    
65. FORM get_fieldcatalog.
    
66.   DATA: ls_fcat TYPE lvc_s_fcat.
    
67.   REFRESH: fieldcat.
    
68.   CLEAR: ls_fcat.
    
69.   ls_fcat-reptext    = 'Material Number'.
    
70.   ls_fcat-fieldname  = 'MATNR'.
    
71.   ls_fcat-ref_table  = 'I_ALV'.
    
72.   ls_fcat-outputlen  = '18'.
    
73.   ls_fcat-fix_column = 'X'.
    
74.   ls_fcat-key        = 'X'.
    
75.   ls_fcat-col_pos    = '1'.
    
76.   APPEND ls_fcat TO fieldcat.
    
77.   CLEAR: ls_fcat.
    
78.   ls_fcat-reptext    = 'Material Type'.
    
79.   ls_fcat-fieldname  = 'MTART'.
    
80.   ls_fcat-ref_table  = 'I_ALV'.
    
81.   ls_fcat-outputlen  = '10'.
    
82.   ls_fcat-fix_column = 'X'.
    
83.   ls_fcat-key        = 'X'.
    
84.   ls_fcat-col_pos    = '2'.
    
85.   APPEND ls_fcat TO fieldcat.
    
86.   CLEAR: ls_fcat.
    
87.   ls_fcat-reptext    = 'Material Group'.
    
88.   ls_fcat-fieldname  = 'MATKL'.
    
89.   ls_fcat-ref_table  = 'I_ALV'.
    
90.   ls_fcat-outputlen  = '12'.
    
91.   ls_fcat-col_pos    = '3'.
    
92.   APPEND ls_fcat TO fieldcat.
    
93.   CLEAR: ls_fcat.
    
94.   ls_fcat-reptext    = 'Size'.
    
95.   ls_fcat-fieldname  = 'GROES'.
    
96.   ls_fcat-ref_table  = 'I_ALV'.
    
97.   ls_fcat-outputlen  = '30'.
    
98.   ls_fcat-col_pos    = '4'.
    
99.   APPEND ls_fcat TO fieldcat.
    
100.   CLEAR: ls_fcat.
     
101.   ls_fcat-reptext    = 'Material Description'.
     
102.   ls_fcat-fieldname  = 'MAKTX'.
     
103.   ls_fcat-ref_table  = 'I_ALV'.
     
104.   ls_fcat-outputlen  = '40'.
     
105.   ls_fcat-col_pos    = '5'.
     
106.   APPEND ls_fcat TO fieldcat.
     
107. ENDFORM.                    "get_fieldcatalog

复制代码

执行效果：