关于ALV颜色的控制

本文转自http://scnblogs.techweb.com.cn/qq19851116/archives/3.html

ALV的颜色控制可以分3中级别：

1.数据LIST中某一行颜色的控制

2.数据LIST中某一列颜色的控制

3.数据LIST中某个单元格颜色的控制

如果在ALV中这三种颜色控制同时存在时，它们会有一个优先级的。单元格控制的优先级别最高，下来是行控制的优先级，最后是列控制的优先级。

效果如下



代码如下

TH_LAYOUT-coltab_fieldname

这个属性里面放的是内表中表示行颜色字段的CODE

TH_FIELDCAT-emphasize = ‘C110′.

这个属性里面放的是内表中表示列颜色字段的属性，在ALV的FIELDCAT属相设置时把颜色代码值（C110)填入即可.

TH_LAYOUT-info_fieldname = ‘LNCOLOR’.

这里面放的字段是内表中单元格颜色字段的CODE.

COLOR TYPE slis_t_specialcol_alv,

在内表中要定义一个字段（COLOR）参考这个内表，slis_t_specialcol_alv它里面有FIELDNAME，COL,INT,INV属性需要设置。分别是字段名字，颜色代码，背景深浅度，字体深浅度控制。

TH_COLOR-fieldname = ‘COUNTRYFR’.
TH_COLOR-color-col = ‘6′.
TH_COLOR-color-int = ‘1′.
TH_COLOR-color-inv = ‘1′.
REPORT ZTEST_SPFLI MESSAGE-ID zf.

INCLUDE <icon>.

INCLUDE <symbol>.

TYPE-POOLS:slis.

TABLES:
SPFLI.

TYPES:
BEGIN OF TYP_SPFLI,
CARRID TYPE SPFLI-CARRID,
CONNID TYPE SPFLI-CONNID,
COUNTRYFR TYPE SPFLI-COUNTRYFR,
COUNTRYTO TYPE SPFLI-COUNTRYTO,
CITYFROM TYPE SPFLI-CITYFROM,
CITYTO TYPE SPFLI-CITYTO,
END OF TYP_SPFLI,

BEGIN OF TYP_OUTPUT,
CHECK TYPE C,
ICON TYPE icon_d,
SYMBOL TYPE icon_d,
CARRID TYPE SPFLI-CARRID,
CONNID TYPE SPFLI-CONNID,
COUNTRYFR TYPE SPFLI-COUNTRYFR,
COUNTRYTO TYPE SPFLI-COUNTRYTO,
CITYFROM TYPE SPFLI-CITYFROM,
CITYTO TYPE SPFLI-CITYTO,
COLOR TYPE slis_t_specialcol_alv,
LNCOLOR TYPE CHAR4,
HAND TYPE INT4,
LINK TYPE string,
END OF TYP_OUTPUT.

DATA:
TH_SPFLI TYPE TYP_SPFLI,
TD_SPFLI TYPE TABLE OF TYP_SPFLI,

BEGIN OF TYP_DATA.
INCLUDE STRUCTURE zcddi.
DATA: A1 TYPE C,
A3 TYPE N,
* zcddi
END OF TYP_DATA,

TH_COLOR TYPE slis_specialcol_alv,
TD_COLOR TYPE TABLE OF slis_specialcol_alv,

TH_LAYOUT TYPE SLIS_LAYOUT_ALV,
TH_FIELDCAT TYPE slis_fieldcat_alv,
TD_FIELDCAT TYPE TABLE OF slis_fieldcat_alv,

TH_OUTPUT TYPE TYP_OUTPUT,
TD_OUTPUT TYPE TABLE OF TYP_OUTPUT.
START-OF-SELECTION.

* PARAMETERS: gjahr LIKE glpca-RYEAR MEMORY ID gjr OBLIGATORY.

SELECT-OPTIONS:
S_CARRID FOR SPFLI-CARRID,
S_CONNID FOR SPFLI-CONNID.

PERFORM FRM_GET_DATA.

PERFORM FRM_EDIT_DATA.

PERFORM FRM_DISPLAY_DATA.

*&———————————————————————*
*& Form FRM_GET_DATA
*&———————————————————————*
* GET MAIN DATA
*———————————————————————-*
FORM FRM_GET_DATA .

SELECT CARRID
CONNID
COUNTRYFR
COUNTRYTO
CITYFROM
CITYTO
INTO TABLE TD_SPFLI
FROM SPFLI
WHERE CARRID IN S_CARRID
AND CONNID IN S_CONNID.

IF SY-SUBRC <> 0.
MESSAGE S001 DISPLAY LIKE ‘E’.
LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM. ” FRM_GET_DATA
*&———————————————————————*
*& Form FRM_DISPLAY_DATA
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
FORM FRM_DISPLAY_DATA .
PERFORM FRM_SET_TITLE.

PERFORM FRM_SET_FIELDCAT.
PERFORM FRM_CALL_FUNCTION.
ENDFORM. ” FRM_DISPLAY_DATA

*&———————————————————————*
*& Form FRM_SET_TITLE
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
FORM FRM_SET_TITLE .
TH_LAYOUT-colwidth_optimize = ‘X’.
TH_LAYOUT-coltab_fieldname = ‘COLOR’.
TH_LAYOUT-window_titlebar = ’spfli data’.
TH_LAYOUT-detail_popup = ‘X’.
TH_LAYOUT-COLWIDTH_OPTIMIZE = ‘X’.
TH_LAYOUT-info_fieldname = ‘LNCOLOR’.
ENDFORM. ” FRM_SET_TITLE
*&———————————————————————*
*& Form FRM_SET_FIELDCAT
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
FORM FRM_SET_FIELDCAT .
PERFORM FRM_SET_VALUE USING ‘1′ ‘CHECK’ ‘CHECK’ ‘1′ ‘X’.
PERFORM FRM_SET_VALUE USING ‘2′ ‘ICON’ ‘ICON’ ‘5′ ‘ ‘.
PERFORM FRM_SET_VALUE USING ‘3′ ‘SYMBOL’ ‘SYMBOL’ ‘5′ ‘ ‘.

PERFORM FRM_SET_VALUE USING ‘4′ ‘CARRID’ ‘航线承运人ID’ ‘3′ ”.
PERFORM FRM_SET_VALUE USING ‘5′ ‘CONNID’ ‘航班连接 Id’ ‘4′ ”.
PERFORM FRM_SET_VALUE USING ‘6′ ‘COUNTRYFR’ ‘国家代码FROM’ ‘3′ ”.
PERFORM FRM_SET_VALUE USING ‘7′ ‘COUNTRYTO’ ‘国家代码TO’ ‘3′ ”.
PERFORM FRM_SET_VALUE USING ‘8′ ‘CITYFROM’ ‘起飞城市’ ‘20′ ”.
PERFORM FRM_SET_VALUE USING ‘9′ ‘CITYTO’ ‘目标城市’ ‘20′ ”.

ENDFORM. ” FRM_SET_FIELDCAT
*&———————————————————————*
*& Form FRM_SET_VALUE
*&———————————————————————*
* text
*———————————————————————-*
* –>P_COL_POS text NO_ROWMARK
* –>P_FIELDNAME text
* –>P_SELTEXT_L text
* –>P_OUTPUTLEN text
*———————————————————————-*
FORM FRM_SET_VALUE USING I_COL_POS
I_FIELDNAME
I_SELTEXT_L
I_OUTPUTLEN
I_CHECKBOX.

TH_FIELDCAT-COL_POS = I_COL_POS.
TH_FIELDCAT-FIELDNAME = I_FIELDNAME.
TH_FIELDCAT-SELTEXT_L = I_SELTEXT_L.
TH_FIELDCAT-OUTPUTLEN = I_OUTPUTLEN.
IF I_FIELDNAME = ‘CARRID’.

ELSEIF I_FIELDNAME = ‘CHECK’.
TH_FIELDCAT-SELTEXT_M = ‘SELECT’.
TH_FIELDCAT-CHECKBOX = ‘X’.
TH_FIELDCAT-OUTPUTLEN = 1.
TH_FIELDCAT-EDIT = ‘X’.
ELSEIF I_FIELDNAME = ‘CITYFROM’ OR I_FIELDNAME = ‘CITYTO’.
TH_FIELDCAT-emphasize = ‘C110′.
ELSEIF I_FIELDNAME = ‘ICON’.
TH_FIELDCAT-icon = ‘X’.
ELSEIF I_FIELDNAME = ‘SYMBOL’.
TH_FIELDCAT-symbol = ‘X’.
ENDIF.
APPEND TH_FIELDCAT TO TD_FIELDCAT.
CLEAR TH_FIELDCAT.

ENDFORM. ” FRM_SET_VALUE
*&———————————————————————*
*& Form FRM_CALL_FUNCTION
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
FORM FRM_CALL_FUNCTION .
CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
EXPORTING
I_CALLBACK_USER_COMMAND = ‘FRM_SET_COMMAND’
IS_LAYOUT = TH_LAYOUT
IT_FIELDCAT = TD_FIELDCAT
I_SAVE = ‘A’
TABLES
T_OUTTAB = TD_OUTPUT
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

ENDFORM. ” FRM_CALL_FUNCTION
*&———————————————————————*
*& Form FRM_EDIT_DATA
*&———————————————————————*
* text
*———————————————————————-*
* –> p1 text
* <– p2 text
*———————————————————————-*
FORM FRM_EDIT_DATA .
DATA:
LW_INDEX TYPE SY-INDEX,
LW_MOD TYPE I.
LOOP AT TD_SPFLI INTO TH_SPFLI.
LW_INDEX = SY-TABIX.
LW_MOD = LW_INDEX MOD 3.

IF TH_SPFLI-CARRID IS INITIAL .

TH_COLOR-fieldname = ‘CARRID’.
TH_COLOR-color-col = ‘6′.
TH_COLOR-color-int = ‘1′.
TH_COLOR-color-inv = ‘1′.
APPEND TH_COLOR TO TD_COLOR.
CLEAR TH_COLOR.
ENDIF.

IF TH_SPFLI-CONNID IS INITIAL.
TH_COLOR-fieldname = ‘CONNID’.
TH_COLOR-color-col = ‘6′.
TH_COLOR-color-int = ‘1′.
TH_COLOR-color-inv = ‘1′.
APPEND TH_COLOR TO TD_COLOR.
CLEAR TH_COLOR.
ENDIF.

IF TH_SPFLI-COUNTRYFR IS INITIAL.
TH_COLOR-fieldname = ‘COUNTRYFR’.
TH_COLOR-color-col = ‘6′.
TH_COLOR-color-int = ‘1′.
TH_COLOR-color-inv = ‘1′.
APPEND TH_COLOR TO TD_COLOR.
CLEAR TH_COLOR.
ENDIF.

IF TH_SPFLI-COUNTRYTO IS INITIAL.
TH_COLOR-fieldname = ‘COUNTRYTO’.
TH_COLOR-color-col = ‘6′.
TH_COLOR-color-int = ‘1′.
TH_COLOR-color-inv = ‘1′.
APPEND TH_COLOR TO TD_COLOR.
CLEAR TH_COLOR.
ELSEIF TH_SPFLI-COUNTRYTO = ‘MQ’.
TH_COLOR-fieldname = ‘COUNTRYTO’.
TH_COLOR-color-col = ‘5′.
TH_COLOR-color-int = ‘1′.
TH_COLOR-color-inv = ‘1′.
APPEND TH_COLOR TO TD_COLOR.
CLEAR TH_COLOR.
ELSEIF TH_SPFLI-COUNTRYTO = ‘CA’.
TH_COLOR-fieldname = ‘COUNTRYTO’.
TH_COLOR-color-col = ‘7′.
TH_COLOR-color-int = ‘1′.
TH_COLOR-color-inv = ‘1′.
APPEND TH_COLOR TO TD_COLOR.
CLEAR TH_COLOR.
ENDIF.

IF TH_SPFLI-CITYFROM IS INITIAL.
TH_COLOR-fieldname = ‘CITYFROM’.
TH_COLOR-color-col = ‘6′.
TH_COLOR-color-int = ‘1′.
TH_COLOR-color-inv = ‘1′.
APPEND TH_COLOR TO TD_COLOR.
CLEAR TH_COLOR.
ENDIF.

IF TH_SPFLI-CITYTO IS INITIAL.
TH_COLOR-fieldname = ‘CITYTO’.
TH_COLOR-color-col = ‘6′.
TH_COLOR-color-int = ‘1′.
TH_COLOR-color-inv = ‘1′.
APPEND TH_COLOR TO TD_COLOR.
CLEAR TH_COLOR.
ENDIF.

MOVE-CORRESPONDING TH_SPFLI TO TH_OUTPUT .
CLEAR TH_SPFLI.
TH_OUTPUT-COLOR[] = TD_COLOR[].

IF LW_INDEX >= 3 AND LW_INDEX =< 13.
TH_OUTPUT-LNCOLOR = ‘C700′.
ENDIF.

* TH_OUTPUT-HAND = SY-TABIX.
* TH_OUTPUT-LINK = ‘WWW.BAIDU.COM’.
IF LW_MOD <> 0.
TH_OUTPUT-ICON = ICON_TIME.
TH_OUTPUT-SYMBOL = SYM_LEFT_HAND.
ELSE.
TH_OUTPUT-ICON = ICON_COLOR.
TH_OUTPUT-SYMBOL = sym_folder.
ENDIF.
APPEND TH_OUTPUT TO TD_OUTPUT.
CLEAR:
LW_INDEX,
LW_MOD,
TH_OUTPUT.
REFRESH:
TD_COLOR.
ENDLOOP.
ENDFORM. ” FRM_EDIT_DATA

FORM FRM_SET_COMMAND USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.

CASE r_ucomm.
WHEN ‘&IC1′. “双击事件

* READ TABLE itab INTO wa INDEX rs_selfield-tabindex.
*
* SET PARAMETER ID ‘BLN’ FIELD wa-belnr.
* SET PARAMETER ID ‘BUK’ FIELD wa-bukrs.
* SET PARAMETER ID ‘GJR’ FIELD wa-gjahr.
*
* CALL TRANSACTION ‘FB03′ AND SKIP FIRST SCREEN.
ENDCASE.

ENDFORM.