在ALV Grid中插入超链接

插入超链接是通过一个含有超级链接和句柄的表来实现的.这个表类型为"LVC_T_HYPE" ,句柄是一个INT4类型的字段,我们需要在数据显示的内表中，加入这样的字段，来告诉ALV,我们的字段指定的句柄,从而找到对应的超级链接.在字段目录中,WEB_FIELD是用来指定对应的句柄名的.

1、创建screen 9000 定义container（CONT） 、ok_code和逻辑流
2、程序代码：

1. TYPES : BEGIN OF y_dataset,
   
2.           product   TYPE char100,
   
3.           variant   TYPE char100,
   
4.           price     TYPE char100,
   
5.           pd_handle TYPE int4,"内表结构定义，我们加入2个句柄字段
   
6.           vr_handle TYPE int4,"内表结构定义，我们加入2个句柄字段
   
7.         END OF y_dataset.
   
8. 
   
9. DATA : ts_data TYPE STANDARD TABLE OF y_dataset,
   
10.        e_fcat  TYPE lvc_s_fcat,
    
11.        ts_fcat TYPE lvc_t_fcat,
    
12.        e_data  TYPE y_dataset,
    
13.        e_hype  TYPE lvc_s_hype,
    
14.        ts_hype TYPE lvc_t_hype.
    
15. 
    
16. DATA : ref_grid TYPE REF TO cl_gui_custom_container,
    
17.        ref_alv  TYPE REF TO cl_gui_alv_grid.
    
18. 
    
19. START-OF-SELECTION.
    
20. 
    
21.   PERFORM f_fill_data.
    
22.   PERFORM f_fill_fieldcat.
    
23.   PERFORM f_fill_hyperlink.
    
24. 
    
25.   CALL SCREEN 9000.
    
26. *&-------------------------------------------------------------------
    
27. *&      Form  F_FILL_DATA
    
28. *&-------------------------------------------------------------------
    
29. *       Populate the list data
    
30. *--------------------------------------------------------------------
    
31. 
    
32. FORM f_fill_data .
    
33.   CLEAR e_data.
    
34.   MOVE : 'iPhone'   TO e_data-product,
    
35.          'iPhone5'  TO e_data-variant,
    
36.          '$599'     TO e_data-price,
    
37.          '1'        TO e_data-pd_handle,
    
38.          '2'        TO e_data-vr_handle.
    
39.   APPEND e_data  TO ts_data.
    
40. 
    
41.   CLEAR e_data.
    
42.   MOVE : 'iPhone'    TO e_data-product,
    
43.          'iPhone 4S' TO e_data-variant,
    
44.          '$399'      TO e_data-price,
    
45.          '1'         TO e_data-pd_handle,
    
46.          '2'         TO e_data-vr_handle.
    
47.   APPEND e_data TO ts_data.
    
48. 
    
49.   CLEAR e_data.
    
50.   MOVE : 'iPhone'   TO e_data-product,
    
51.          'iPhone 4' TO e_data-variant,
    
52.          '$299'     TO e_data-price,
    
53.          '1'        TO e_data-pd_handle,
    
54.          '2'        TO e_data-vr_handle.
    
55.   APPEND e_data TO ts_data.
    
56. ENDFORM.                    " F_FILL_DATA
    
57. *&-------------------------------------------------------------------
    
58. *&      Form  F_FILL_FIELDCAT
    
59. *&-------------------------------------------------------------------
    
60. *       Populate field catalog
    
61. *--------------------------------------------------------------------
    
62. FORM f_fill_fieldcat .
    
63.   FREE ts_fcat.
    
64.   CLEAR : e_fcat.
    
65.   MOVE : 'TS_DATA'   TO e_fcat-tabname,
    
66.          'product'   TO e_fcat-fieldname,
    
67.          1           TO e_fcat-col_pos,
    
68.          1           TO e_fcat-indx_field,
    
69.          20          TO e_fcat-outputlen,
    
70.          'Product'   TO e_fcat-coltext,
    
71.          'PD_HANDLE' TO e_fcat-web_field."通过字段目录FIELDCATLOG来指定相应的句柄字段
    
72.   APPEND e_fcat TO ts_fcat.
    
73. 
    
74.   CLEAR : e_fcat.
    
75.   MOVE : 'TS_DATA'   TO e_fcat-tabname,
    
76.          'variant'   TO e_fcat-fieldname,
    
77.          2           TO e_fcat-col_pos,
    
78.          2           TO e_fcat-indx_field,
    
79.          20          TO e_fcat-outputlen,
    
80.          'Variant'   TO e_fcat-coltext,
    
81.          'VR_HANDLE' TO e_fcat-web_field."通过字段目录FIELDCATLOG来指定相应的句柄字段
    
82.   APPEND e_fcat TO ts_fcat.
    
83. 
    
84.   MOVE : 'TS_DATA'  TO e_fcat-tabname,
    
85.          'Price'    TO e_fcat-fieldname,
    
86.          3          TO e_fcat-col_pos,
    
87.          3          TO e_fcat-indx_field,
    
88.          20         TO e_fcat-outputlen,
    
89.          'Price'    TO e_fcat-coltext,
    
90. *"       Handle from the previous field catalog is carried here
    
91. *"       in order to prevent this handle to continue here pass a null
    
92. *"       value here.
    
93.          ''         TO e_fcat-web_field.
    
94.   APPEND e_fcat TO ts_fcat.
    
95. 
    
96. ENDFORM.                    " F_FILL_FIELDCAT
    
97. *&-------------------------------------------------------------------
    
98. *&      Module  STATUS_9000  OUTPUT
    
99. *&-------------------------------------------------------------------
    
100. *       PBO for screen 9000
     
101. *--------------------------------------------------------------------
     
102. MODULE status_9000 OUTPUT.
     
103.   SET PF-STATUS 'STATUS'.
     
104. 
     
105.   CREATE OBJECT ref_grid
     
106.     EXPORTING
     
107.       container_name              = 'CONT'
     
108.     EXCEPTIONS
     
109.       cntl_error                  = 1
     
110.       cntl_system_error           = 2
     
111.       create_error                = 3
     
112.       lifetime_error              = 4
     
113.       lifetime_dynpro_dynpro_link = 5
     
114.       OTHERS                      = 6.
     
115. 
     
116.   CREATE OBJECT ref_alv
     
117.     EXPORTING
     
118.       i_parent          = ref_grid
     
119.     EXCEPTIONS
     
120.       error_cntl_create = 1
     
121.       error_cntl_init   = 2
     
122.       error_cntl_link   = 3
     
123.       error_dp_create   = 4
     
124.       OTHERS            = 5.
     
125. 
     
126.   CALL METHOD ref_alv->set_table_for_first_display
     
127.     EXPORTING
     
128.       it_hyperlink                  = ts_hype
     
129.     CHANGING
     
130.       it_outtab                     = ts_data
     
131.       it_fieldcatalog               = ts_fcat
     
132.     EXCEPTIONS
     
133.       invalid_parameter_combination = 1
     
134.       program_error                 = 2
     
135.       too_many_lines                = 3
     
136.       OTHERS                        = 4.
     
137. ENDMODULE.                 " STATUS_9000  OUTPUT
     
138. *&-------------------------------------------------------------------
     
139. *&      Module  USER_COMMAND_9000  INPUT
     
140. *&-------------------------------------------------------------------
     
141. *       PAI for screen 9000
     
142. *--------------------------------------------------------------------
     
143. MODULE user_command_9000 INPUT.
     
144.   DATA ok_code TYPE sy-ucomm.
     
145.   CASE ok_code.
     
146.     WHEN 'BACK'.
     
147.       LEAVE TO SCREEN 0.
     
148.     WHEN OTHERS.
     
149.   ENDCASE.
     
150. ENDMODULE.                 " USER_COMMAND_9000  INPUT
     
151. *&-------------------------------------------------------------------
     
152. *&      Form  F_FILL_HYPERLINK
     
153. *&-------------------------------------------------------------------
     
154. *  建立一个超级链接内表,里面存放句柄所对应的超级链接.
     
155. *  创建的时候注意,它参考的表类型,一定是"LVC_T_HYPE"
     
156. *--------------------------------------------------------------------
     
157. FORM f_fill_hyperlink .
     
158.   FREE ts_hype.
     
159.   CLEAR e_hype.
     
160.   MOVE : '1' TO e_hype-handle,
     
161.          'http://www.apple.com' TO e_hype-href.
     
162.   APPEND e_hype TO ts_hype.
     
163. 
     
164.   CLEAR e_hype.
     
165.   MOVE : '2' TO e_hype-handle,
     
166.          'http://www.apple.com/iphone' TO e_hype-href.
     
167.   APPEND e_hype TO ts_hype.
     
168. ENDFORM.                    " F_FILL_HYPERLINK

复制代码

程序执行效果：