SAP abap ALV的列颜色、、行颜色、单元格颜色设置

最新推荐文章于 2024-10-29 10:58:40 发布

转载最新推荐文章于 2024-10-29 10:58:40 发布 · 537 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://blog.youkuaiyun.com/SAPmatinal/article/details/132154677

文章标签：

#sql

列颜色设置：

*------------------------定义宏--------------------*

DEFINE INIT_FIELDCAT.

CLEAR GS_FIELDCAT.

GS_FIELDCAT-FIELDNAME = &1. "字段名

GS_FIELDCAT-COLTEXT = &2. "ALV 控制: 列标题

GS_FIELDCAT-EDIT = &3." 是否可编辑

case &1.

when 'VBELN'.

gs_fieldcat-emphasize = 'C601'."颜色设置 1 字体颜色，0 背景颜色

when 'ERDAT'.

gs_fieldcat-emphasize = 'C600'.

ENDCASE.

APPEND GS_FIELDCAT TO GT_FIELDCAT.

END-OF-DEFINITION.

行颜色设置：

FORM FRM_DEALDATA .

*设置行颜色

types：line_color(4) type c,

LOOP AT GT_DATA INTO GS_DATA.

if gs_data-ERNAM = '33440'.

gs_data-line_color = 'C600'.

ENDIF.

MODIFY GT_DATA FROM GS_DATA.

ENDLOOP.

ENDFORM.

FORM FRM_LAYOUT .

gs_layout-info_fname = 'line_color'."行颜色

ENDFORM.

单元格颜色设置：

types：FIELD_COLOR TYPE LVC_T_SCOL, "单元格颜色

FORM FRM_DEALDATA .

*设置单元格颜色

TYPES:BEGIN OF TY_DATA,
        SEL      TYPE    CHAR1,
        STATE    TYPE    CHAR04,
        MESSAGE  TYPE    CHAR255,
        VBELN    TYPE    VBRP-VBELN,  "销售订单蓝底
        POSNR    TYPE    VBRP-POSNR,  "订单项目号蓝底
        AUART    TYPE    VBAK-AUART,  "订单类型
        VKORG    TYPE    VBRP-VKORG_ANA,  "销售组织
        VTWEG    TYPE    VBAP-VTWEG_ANA,  " 分销渠道
        SPART    TYPE    VBAP-SPART_ANA,  "产品组
        KUNNR    TYPE    VBAK-KUNNR,  "客户编号
        NAME1    TYPE    ADRC-NAME1,  " 客户名称
        KUNNR_FK TYPE    VBPA-KUNNR,  "付款方编号
        NAME1_FK TYPE    ADRC-NAME1,  " 付款方名称
        ZTERM    TYPE    VBKD-ZTERM,  "付款条件
        MATNR    TYPE    VBAP-MATNR,  "医嘱
        KWMENG   TYPE    VBAP-KWMENG,  "数量
        VRKME    TYPE    VBAP-VRKME,  "销售单位
        NETWR    TYPE    VBAP-NETWR,  "金额
        WAERK    TYPE    VBAP-WAERK,  "货币
        FIELD_COLOR   TYPE    LVC_T_SCOL, "颜色控制
      END OF TY_DATA.
DATA:GT_DATA TYPE TABLE OF  TY_DATA,
     GS_DATA TYPE TY_DATA.

DATA:LS_SCOL TYPE LVC_S_SCOL.

LOOP AT GT_DATA INTO GS_DATA.

IF GS_DATA-ERNAM = '33440'.

LS_SCOL-FNAME = 'VBELN'.

LS_SCOL-COLOR-COL = 6 .

LS_SCOL-COLOR-INT = 0 .

LS_SCOL-COLOR-INV = 0 .

APPEND LS_SCOL TO GS_DATA-FIELD_COLOR .

ENDIF.

MODIFY GT_DATA FROM GS_DATA.

ENDLOOP.

ENDFORM.

FORM FRM_LAYOUT .

GS_LAYOUT-CTAB_FNAME = 'field_color'."单元格颜色

ENDFORM.
————————————————
版权声明：本文为优快云博主「SAPmatinal」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.youkuaiyun.com/SAPmatinal/article/details/132154677