ABAP ALV 颜色设置（行，列，单元格）

 BCALV_EDIT_03

http://blog.sina.com.cn/s/blog_a87b19300102who3.html

 

关于ALV表格颜色，这种需求在项目中会经常用到。

 

• 列颜色

列的颜色很简单，在构成ALV字段的FIELDCAT内表中有一个字段是EMPHASIZE，将一个char型4位的颜色代码分配到FIELDCAT内表这个字段即可。

1 LW_FCAT-EMPHASIZE = 'C710'. "设置字段的颜色 2 3 MODIFY IT_FIELDCAT FROM LW_FCAT 4 TRANSPORTING EMPHASIZE 5 WHERE FIELDNAME = 'ESLRY'.

• 行颜色

1. 在构成ALV数据的内表中，添加一个char型4位的字段（CLR），用来记录颜色代码

1 TABLES ZEMP_TEST.
2 
3 TYPES: BEGIN OF TY_ZEMP. 4 INCLUDE STRUCTURE ZEMP_TEST. 5 TYPES: CLR TYPE CHAR4,"可以控制行颜色 6 END OF TY_ZEMP. 7 8 DATA: IT_ZEMP TYPE STANDARD TABLE OF TY_ZEMP, 9 IW_ZEMP TYPE TY_ZEMP.

 

2. 循环内表，设置颜色代码

1   LOOP AT IT_ZEMP INTO IW_ZEMP.
2 "员工编号为‘3的行，颜色为红色 3 IF IW_ZEMP-EMPID = '3'. 4 IW_ZEMP-CLR = 'C610'. 5 MODIFY IT_ZEMP FROM IW_ZEMP. 6 CLEAR IW_ZEMP. 7 ENDIF. 8 ENDLOOP.

3. LAYOUT结构中INFO_FIELDNAME的值指定为 CLR

  IW_LAYOUT-INFO_FIELDNAME = 'CLR'.  "行颜色代码的字段

• 单元格颜色

单元格颜色的设置与行颜色设计基本一致

1. 在构成ALV数据的内表中，添加一个内表 CellColor，用来记录颜色代码，需要设置颜色的字段名

1 TYPES: BEGIN OF TY_ZEMP.
2 INCLUDE STRUCTURE ZEMP_TEST. 3 TYPES: CLR TYPE CHAR4, 4 CELLCOLOR TYPE LVC_T_SCOL, "单元格颜色 5 END OF TY_ZEMP.

CellColor的结构：FNAME        ALV 控制: 内部表字段的字段名称 　　　　　　　　

COLOR        ALV 控制: 颜色代码     COLOR是一个结构：COL      ALV 控制: 颜色 　　　　　

                                                                            INT      ALV 控制: 强化    1/0 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　

                                                                            INV      ALV 控制: 相反    1/0    设置颜色是前景，或者是背景 　　　　　　　　

NOKEYCOL  ALV 控制: 覆盖码颜色

2. 循环内表，设置颜色代码

 1   LOOP AT IT_ZEMP INTO IW_ZEMP.
 2 
 3      "员工编号为‘3’的行，颜色为红色
 4      IF IW_ZEMP-EMPID = '3'.
 5        IW_ZEMP-CLR = 'C610'.
 6 
 7        MODIFY IT_ZEMP FROM IW_ZEMP.
 8        CLEAR IW_ZEMP.
 9 
10      ENDIF.
11 
12      IF IW_ZEMP-EMPID = '2'.
13        IW_CELLCOLOR-FNAME = 'ENAME'.
14        "员工编号为‘2’的行的‘ENAME’字段颜色为 黄色
15        IW_CELLCOLOR-COLOR-COL = 3.
16        IW_CELLCOLOR-COLOR-INT = 1.
17        IW_CELLCOLOR-COLOR-INV = 0.
18 
19        APPEND IW_CELLCOLOR TO IW_ZEMP-CELLCOLOR.
20        MODIFY IT_ZEMP FROM IW_ZEMP.
21        CLEAR IW_ZEMP.
22 
23      ENDIF.
24   ENDLOOP.

 

3. LAYOUT结构中COLTAB_FIELDNAME的值指定为CELLCOLOR

  IW_LAYOUT-COLTAB_FIELDNAME = 'CELLCOLOR'. "单元格颜色内表字段

最后在调用ALV函数时，设置layout，fieldcat参数

     IS_LAYOUT                         = IW_LAYOUT
     IT_FIELDCAT                       = IT_FIELDCAT

• ALV工具栏

可以自定义工具栏，或者添加标准ALV工具栏，然后去除一些不需要的功能，这样可以保留标准工具栏的功能

 1   DATA:BEGIN OF TAB OCCURS 0,  2 FCODE LIKE RSMPE-FUNC,  3 END OF TAB.  4  5 TAB-FCODE = '&OL0'.APPEND TAB.  6 TAB-FCODE = '&OAD'.APPEND TAB.  7 TAB-FCODE = '&AVE'.APPEND TAB.  8  9 SET PF-STATUS 'STANDARD_FULLSCREEN' OF PROGRAM 'SAPLKKBL' 10 EXCLUDING TAB IMMEDIATELY.

 

• 求和

LW_FCAT-DO_SUM = 'X'.  "立即求和，只有I,F,P类型的列可以求和

----------------------------------------------------------

 运行效果如下：

 

在SE38环境下的程序名输入栏输入’DEMO*’后按F4，你可以查到SAP所有的DEMO示例程序，会学到很多ABAP功能的实现方法,

输入’BCALV*’后按F4，你可以查到很多ALV示例程序。

 

附：ALV的颜色代码：http://blog.csdn.net/wren2004/article/details/3941551

　　

*----------------------------------------------------------------------------------------------------------------------------------、

 

  1 INCLUDE <icon>.
  2 
  3 INCLUDE <symbol>.
  4 
  5  
  6 
  7 TYPE-POOLS slis.
  8 
  9  
 10 
 11 TABLES spfli.
 12 
 13  
 14 
 15 TYPES: BEGIN OF ty_layout,
 16 
 17         exception(1),
 18 
 19         checkbox,
 20 
 21         icon TYPE icon_d,
 22 
 23         symbol TYPE icon_d,
 24 
 25         color(4),
 26 
 27         cell_color TYPE slis_t_specialcol_alv,
 28 
 29         hyperlink TYPE string,
 30 
 31         link_handle TYPE int4,
 32 
 33        END OF ty_layout.
 34 
 35 TYPES BEGIN OF ty_spfli.
 36 
 37 INCLUDE TYPE ty_layout.
 38 
 39 INCLUDE TYPE spfli.
 40 
 41 TYPES END OF ty_spfli.
 42 
 43 TYPES ty_tab_spfli TYPE ty_spfli OCCURS 0.
 44 
 45  
 46 
 47 PERFORM f_main.
 48 
 49  
 50 
 51 *&---------------------------------------------------------------------*
 52 
 53 *&      Form  f_main
 54 
 55 *&---------------------------------------------------------------------*
 56 
 57 *       ALV display
 58 
 59 *----------------------------------------------------------------------*
 60 
 61 FORM f_main.
 62 
 63   DATA: lt_spfli TYPE ty_tab_spfli,
 64 
 65         lt_fieldcat TYPE slis_t_fieldcat_alv,
 66 
 67         ls_layout TYPE slis_layout_alv,
 68 
 69         lt_hyperlink TYPE lvc_t_hype,
 70 
 71         lt_add_fieldcat TYPE slis_t_add_fieldcat.
 72 
 73  
 74 
 75   PERFORM get_data TABLES lt_spfli.
 76 
 77  
 78 
 79   PERFORM set_catalog CHANGING lt_fieldcat.
 80 
 81  
 82 
 83   PERFORM set_layout USING ls_layout.
 84 
 85  
 86 
 87   PERFORM hyperlink_build TABLES lt_hyperlink.
 88 
 89  
 90 
 91   PERFORM add_fieldcat_build TABLES lt_add_fieldcat.
 92 
 93  
 94 
 95   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 96 
 97     EXPORTING
 98 
 99       i_callback_program = sy-repid
100 
101       i_grid_title       = 'Xin''s ALV'
102 
103       it_fieldcat        = lt_fieldcat
104 
105       it_hyperlink       = lt_hyperlink
106 
107       is_layout          = ls_layout
108 
109       it_add_fieldcat    = lt_add_fieldcat
110 
111     TABLES
112 
113       t_outtab           = lt_spfli.
114 
115 ENDFORM.                    "f_main
116 
117  
118 
119 *&---------------------------------------------------------------------*
120 
121 *&      Form  set_layout
122 
123 *&---------------------------------------------------------------------*
124 
125 *       text
126 
127 *----------------------------------------------------------------------*
128 
129 *      -->P_LAYOUT   text
130 
131 *----------------------------------------------------------------------*
132 
133 FORM set_layout USING p_layout TYPE slis_layout_alv.
134 
135   p_layout-zebra = 'X'.
136 
137   p_layout-colwidth_optimize = 'X'.
138 
139   p_layout-window_titlebar = 'LinHuanXin''s ALV Demo'.
140 
141   p_layout-no_hline = 'X'.
142 
143   p_layout-no_vline = 'X'.
144 
145   p_layout-info_fieldname = 'COLOR'.
146 
147   p_layout-coltab_fieldname = 'CELL_COLOR'.
148 
149   p_layout-lights_fieldname = 'EXCEPTION'.
150 
151 ENDFORM.                    "set_layout
152 
153  
154 
155 *&---------------------------------------------------------------------*
156 
157 *&      Form  get_data
158 
159 *&---------------------------------------------------------------------*
160 
161 *       Get the data for output
162 
163 *----------------------------------------------------------------------*
164 
165 *      -->PT_SPFLI   data internal table
166 
167 *----------------------------------------------------------------------*
168 
169 FORM get_data TABLES pt_spfli TYPE ty_tab_spfli.
170 
171  
172 
173   DATA: lt_cell TYPE slis_t_specialcol_alv,
174 
175         ls_cell LIKE LINE OF lt_cell,
176 
177         lwa_spfli LIKE LINE OF pt_spfli.
178 
179  
180 
181   SELECT * FROM spfli INTO CORRESPONDING FIELDS OF TABLE pt_spfli.
182 
183  
184 
185   LOOP AT pt_spfli INTO lwa_spfli.
186 
187  
188 
189     IF lwa_spfli-distid = 'KM'.
190 
191       lwa_spfli-color = 'C610'.
192 
193     ENDIF.
194 
195     IF lwa_spfli-distance < 1000.
196 
197       CLEAR ls_cell.
198 
199       REFRESH lt_cell.
200 
201       ls_cell-fieldname = 'DISTANCE'.
202 
203       ls_cell-color-col = '4'.
204 
205       ls_cell-color-int = '1'.
206 
207       ls_cell-color-inv = '0'.
208 
209       ls_cell-nokeycol = 'X'.
210 
211       APPEND ls_cell TO lt_cell.
212 
213       lwa_spfli-cell_color = lt_cell.
214 
215       lwa_spfli-checkbox = 'X'.
216 
217       lwa_spfli-exception = '1'.
218 
219     ELSE.
220 
221       lwa_spfli-exception = '2'.
222 
223     ENDIF.
224 
225  
226 
227     lwa_spfli-link_handle = sy-tabix.
228 
229     lwa_spfli-hyperlink = 'www.163.com'.
230 
231     lwa_spfli-icon = icon_detail.
232 
233     lwa_spfli-symbol = sym_folder.
234 
235     MODIFY pt_spfli FROM lwa_spfli.
236 
237   ENDLOOP.
238 
239 ENDFORM.                    "get_data
240 
241  
242 
243 *&---------------------------------------------------------------------*
244 
245 *&      Form  add_fieldcat_build
246 
247 *&---------------------------------------------------------------------*
248 
249 *       text
250 
251 *----------------------------------------------------------------------*
252 
253 *      -->PT_FIELDCAT  text
254 
255 *----------------------------------------------------------------------*
256 
257 FORM add_fieldcat_build TABLES pt_fieldcat TYPE slis_t_add_fieldcat.
258 
259   DATA lwa_fieldcat LIKE LINE OF pt_fieldcat.
260 
261  
262 
263   lwa_fieldcat-fieldname = 'HYPERLINK'.
264 
265   lwa_fieldcat-web_field = 'LINK_HANDLE'.
266 
267   APPEND lwa_fieldcat TO pt_fieldcat.
268 
269 ENDFORM.                    "get_data
270 
271  
272 
273 *&---------------------------------------------------------------------*
274 
275 *&      Form  hyperlink_build
276 
277 *&---------------------------------------------------------------------*
278 
279 *       text
280 
281 *----------------------------------------------------------------------*
282 
283 *      -->PT_HYPERLINK  text
284 
285 *----------------------------------------------------------------------*
286 
287 FORM hyperlink_build TABLES pt_hyperlink TYPE lvc_t_hype.
288 
289   DATA lwa_hyperlink LIKE LINE OF pt_hyperlink.
290 
291  
292 
293   DO 13 TIMES.
294 
295     lwa_hyperlink-handle = sy-index.
296 
297     lwa_hyperlink-href   = 'www.sina.com.cn'.
298 
299     APPEND lwa_hyperlink TO pt_hyperlink.
300 
301   ENDDO.
302 
303   DO 13 TIMES.
304 
305     lwa_hyperlink-handle = 13 + sy-index.
306 
307     lwa_hyperlink-href   = 'www.163.com'.
308 
309     APPEND lwa_hyperlink TO pt_hyperlink.
310 
311   ENDDO.
312 
313  
314 
315 ENDFORM.                    "hyperlink_build
316 
317  
318 
319 *&---------------------------------------------------------------------*
320 
321 *&      Form  set_catalog
322 
323 *&---------------------------------------------------------------------*
324 
325 *       set fieldcatalog for alv output
326 
327 *----------------------------------------------------------------------*
328 
329 FORM set_catalog CHANGING pt_fieldcat TYPE slis_t_fieldcat_alv.
330 
331   DATA lwa_fieldcat TYPE slis_fieldcat_alv.
332 
333  
334 
335   "macro
336 
337   DEFINE add_field.
338 
339     clear lwa_fieldcat.
340 
341     lwa_fieldcat-fieldname = &1.
342 
343     lwa_fieldcat-seltext_l = &2.
344 
345     lwa_fieldcat-emphasize = &3.
346 
347     lwa_fieldcat-key = &4.
348 
349     lwa_fieldcat-fix_column = &4.
350 
351     append lwa_fieldcat to pt_fieldcat.
352 
353   END-OF-DEFINITION.
354 
355  
356 
357   "add field catalog
358 
359   add_field 'MANDT'     'Client'                 ''     'X'.
360 
361   add_field 'CARRID'    'Airline Code'           ''     'X'.
362 
363   add_field 'CONNID'    'Fight Number'           ''     'X'.
364 
365   add_field 'COUNTRYFR' 'Country From'           ''     ''.
366 
367   add_field 'CITYFROM'  'City From'              ''     ''.
368 
369   add_field 'AIRPFROM'  'Airpart From'           ''     ''.
370 
371   add_field 'COUNTRYTO' 'Country To'             'C510' ''.
372 
373   add_field 'CITYTO'    'City To'                ''     ''.
374 
375   add_field 'AIRPTO'    'Airpart To'             ''     ''.
376 
377   add_field 'FLTIME'    'Fly Time'               ''     ''.
378 
379   add_field 'DEPTIME'   'Dept Time'              ''     ''.
380 
381   add_field 'ARRTIME'   'Arrive Time'            ''     ''.
382 
383   add_field 'DISTANCE'  'Distance'               ''     ''.
384 
385   add_field 'DISTID'    'Mass unit of distance'  ''     ''.
386 
387   add_field 'FLTYPE'    'Flight type'            ''     ''.
388 
389   add_field 'PERIOD'    'Arrival n day(s) later' ''     ''.
390 
391   add_field 'HYPERLINK' 'HYPERLINK'              ''     ''.
392 
393  
394 
395   "checkbox
396 
397   CLEAR lwa_fieldcat.
398 
399   lwa_fieldcat-fieldname = 'CHECKBOX'.
400 
401   lwa_fieldcat-seltext_l = 'Checkbox'.
402 
403   lwa_fieldcat-checkbox = 'X'.
404 
405   lwa_fieldcat-fix_column = 'X'.
406 
407   APPEND lwa_fieldcat TO pt_fieldcat.
408 
409  
410 
411   "icon
412 
413   CLEAR lwa_fieldcat.
414 
415   lwa_fieldcat-fieldname = 'ICON'.
416 
417   lwa_fieldcat-seltext_l = 'Icon'.
418 
419   lwa_fieldcat-icon = 'X'.
420 
421   APPEND lwa_fieldcat TO pt_fieldcat.
422 
423  
424 
425   "symbol
426 
427   CLEAR lwa_fieldcat.
428 
429   lwa_fieldcat-fieldname = 'SYMBOL'.
430 
431   lwa_fieldcat-seltext_l = 'Symbol'.
432 
433   lwa_fieldcat-symbol = 'X'.
434 
435   APPEND lwa_fieldcat TO pt_fieldcat.
436 
437  
438 
439 ENDFORM.                    "set_catalog

 

1 BUTN_TYPE                  按钮类型
2                                                可用的按钮类型:
3                                                   0 Button(normal)
4                                                   1 Menu and default button
5                                                   2 Menu
6                                                   3 分割符
7                                                   4 Radio button
8                                                   5 Checkbox
9                                                   6 Menu entry

 

转载于:https://www.cnblogs.com/mingdashu/p/color_alv.html