如何设置'REUSE_ALV_GRID_DISPLAY'的单个单元格的颜色
2015-06-04 10:18
531 查看
在ALV报表设计有时候需要根据一定条件将特定的单元显示成特定的颜色,具体实现步骤如下:
1. 在需要显示的内表中添加新的字段,字段类型为lvc_t_scol
2. 根据条件设置颜色数据;
3. 设置layout-coltab_fieldname的数据指定显示颜色的字段.
代码如下:(注意红色部分)
REPORT z_alv_color.
TYPE-POOLS: slis.
DATA: BEGIN OF it_flight OCCURS 0,
carrid LIKE sflight-carrid,
connid LIKE sflight-connid,
fldate LIKE sflight-fldate,
seatsmax LIKE sflight-seatsmax,
seatsocc LIKE sflight-seatsocc,
color TYPE lvc_t_scol,
END OF it_flight.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
layout TYPE slis_layout_alv.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'IT_FLIGHT'
i_inclname = sy-repid
CHANGING
ct_fieldcat = it_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2.
SELECT carrid
connid
fldate
seatsmax
seatsocc
FROM sflight
INTO CORRESPONDING FIELDS OF TABLE it_flight
UP TO 20 ROWS.
DATA: col TYPE lvc_s_scol,
coltab TYPE lvc_t_scol,
color TYPE lvc_s_colo.
color-col = '6'.
color-int = '0'.
color-inv = '0'.
LOOP AT it_flight.
IF it_flight-seatsocc Eq 0.
col-fname = 'SEATSOCC'.
col-color = color.
APPEND col TO coltab.
CLEAR col.
it_flight-color = coltab.
MODIFY it_flight.
ENDIF.
ENDLOOP.
layout-coltab_fieldname = 'COLOR'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
is_layout = layout
it_fieldcat = it_fieldcat
TABLES
t_outtab = it_flight
EXCEPTIONS
program_error = 1.
1. 在需要显示的内表中添加新的字段,字段类型为lvc_t_scol
2. 根据条件设置颜色数据;
3. 设置layout-coltab_fieldname的数据指定显示颜色的字段.
代码如下:(注意红色部分)
REPORT z_alv_color.
TYPE-POOLS: slis.
DATA: BEGIN OF it_flight OCCURS 0,
carrid LIKE sflight-carrid,
connid LIKE sflight-connid,
fldate LIKE sflight-fldate,
seatsmax LIKE sflight-seatsmax,
seatsocc LIKE sflight-seatsocc,
color TYPE lvc_t_scol,
END OF it_flight.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
layout TYPE slis_layout_alv.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = sy-repid
i_internal_tabname = 'IT_FLIGHT'
i_inclname = sy-repid
CHANGING
ct_fieldcat = it_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2.
SELECT carrid
connid
fldate
seatsmax
seatsocc
FROM sflight
INTO CORRESPONDING FIELDS OF TABLE it_flight
UP TO 20 ROWS.
DATA: col TYPE lvc_s_scol,
coltab TYPE lvc_t_scol,
color TYPE lvc_s_colo.
color-col = '6'.
color-int = '0'.
color-inv = '0'.
LOOP AT it_flight.
IF it_flight-seatsocc Eq 0.
col-fname = 'SEATSOCC'.
col-color = color.
APPEND col TO coltab.
CLEAR col.
it_flight-color = coltab.
MODIFY it_flight.
ENDIF.
ENDLOOP.
layout-coltab_fieldname = 'COLOR'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
is_layout = layout
it_fieldcat = it_fieldcat
TABLES
t_outtab = it_flight
EXCEPTIONS
program_error = 1.
相关文章推荐
- Mac搭建Git服务器—开启SSH
- IOS 开发学习32 actionSheet的使用
- 要将PDF转换成Word必先有利器
- spring下PropertyPlaceholderConfigurer的使用
- Drawable和Bitmap转换
- maven导出项目依赖的jar包
- 回滚段和撤销表空间(转载)
- 关于编程语言中的取模运算
- Dig A Well For Yourself
- Qt 线程基础
- <数据结构学习与实验指导>2-8用扑克牌计算24点/2-9装箱问题模拟
- ceph技巧3
- DLL/EXE查看工具Dumpbin
- BW的层次结构(hierarchy)在Webi报表中展现
- Maven学习笔记(六)--Maven构件WEB应用和版本管理
- Android实战简易教程-第八枪(ImageSwitcher用法实例)
- 【转】Linux下tar.xz结尾的文件的解压方法--不错
- PICT的安装与使用
- 超声波公式的推导
- 范冰冰李晨爱巢疑曝光 高科技智能停车场甩狗仔