ABAP ALV行、列、单元格颜色

已于 2023-10-18 09:42:58 修改
阅读量1.6k 收藏 4
点赞数
分类专栏： ABAP笔记 文章标签： 开发语言 程序人生 经验分享
于 2023-08-04 10:48:21 首次发布
by_Jshi
本文链接：https://blog.csdn.net/jzyddfzj/article/details/132088854
版权

前言

有些需求会对其ALV特殊的数据进行标注（颜色展示），这样更有利于区分特殊的数据，视觉效果比较好，下面小例子来介绍ALV展示行、列、单元格颜色的实现方法。

一、介绍

    1.ALV列颜色：

         1.1.列颜色主要由FIELDCAT来进行颜色分配。

        如：fieldname = 'CARRID'  emphasize = 'C510'   

              " 字段名称为'CARRID'

              " C->color 5->颜色7个标准颜色 1->反转颜色开启 0->增强颜色关闭

    2.ALV行颜色：

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

          2.2.GS_LAYOUT-INFO_FNAME      = 'CLR'.            "行颜色设置

          2.3.最后循环ALV数据内表给对应的行CLR赋值颜色代码

    3.ALV单元格颜色：

          3.1单元格颜色跟单元格可编辑很像；  

          3.2在ALV展示数据的内表中，添加cell_color 类型为lvc_t_scol ，用来记录颜色代码，需要设置，颜色的字段名（单元格颜色结构赋值、FNAME、COLOR-COL、COLOR-INT、COLOR-INV）放入对应的cell_color 中；

          3.3.GS_LAYOUT-CTAB_FNAME      = 'CELL_COLOR'。

二、使用步骤

1.代码

代码如下（示例）：

*&---------------------------------------------------------------------*
*& 程 序 名：YTEST_001
*& 程序描述：ABAP ALV行、列、单元格颜色
*& 创 建 者：小涵
*& 创建日期：2023/08/04
*&---------------------------------------------------------------------*
*& 版本     修改者(公司)     日期         修改描述
*& 1.0.0    XXXX           YYYYMMDD      创建程序
*&---------------------------------------------------------------------*
REPORT ytest_001.

*&---------------------------------------------------------------------*
* TYPES
*&---------------------------------------------------------------------*
TABLES:sflight.
TYPES:
  BEGIN OF ty_alv,
    carrid     TYPE sflight-carrid,     " 航线代码
    fldate     TYPE sflight-fldate,     " 航班日期
    price      TYPE sflight-price,      " 航空运费
    planetype  TYPE sflight-planetype,  " 飞机类型
    paymentsum TYPE sflight-paymentsum, " 当前预定总数
    cell_color TYPE lvc_t_scol,         " 单元格颜色
    clr        TYPE char4,              " 列颜色：颜色代码分配用
  END OF ty_alv,
  tt_alv TYPE STANDARD TABLE OF ty_alv.

*&---------------------------------------------------------------------*
* CONSTANTS
*&---------------------------------------------------------------------*
CONSTANTS:
  BEGIN OF c_ucomm,
    action01 TYPE sy-ucomm VALUE '&ZALL',text01 TYPE text VALUE '全选    ',
    action02 TYPE sy-ucomm VALUE '&ZSAL',text02 TYPE text VALUE '取消全选',
  END OF c_ucomm,

  BEGIN OF c_fcat,
    name01 TYPE fieldname VALUE 'CARRID     ',text01 TYPE fieldtext VALUE '航线代码',
    name02 TYPE fieldname VALUE 'FLDATE     ',text02 TYPE fieldtext VALUE '航班日期',
    name03 TYPE fieldname VALUE 'PRICE      ',text03 TYPE fieldtext VALUE '航空运费',
    name04 TYPE fieldname VALUE 'PLANETYPE  ',text04 TYPE fieldtext VALUE '飞机类型',
    name05 TYPE fieldname VALUE 'PAYMENTSUM ',text05 TYPE fieldtext VALUE '当前预定总数',
  END OF c_fcat.

*&---------------------------------------------------------------------*
* DEFIEN ALV
*&---------------------------------------------------------------------*
DATA:go_container TYPE REF TO cl_gui_docking_container,
     go_grid      TYPE REF TO cl_gui_alv_grid,
     gt_exclude   TYPE ui_functions,
     gt_fieldcat  TYPE lvc_t_fcat,
     gs_layout    TYPE lvc_s_layo,
     gs_variant   TYPE disvariant,
     gv_save,
     ok_code      TYPE sy-ucomm,
     save_code    TYPE sy-ucomm.

*&---------------------------------------------------------------------*
* GLOBAL INTERNAL TABLES
*&---------------------------------------------------------------------*
DATA:
  gt_out TYPE tt_alv.

*&---------------------------------------------------------------------*
* GLOBAL MACROS
*&---------------------------------------------------------------------*
DEFINE macro_fcat.
  ls_fieldcat-fieldname = &1.
  ls_fieldcat-reptext   = &2.
  APPEND ls_fieldcat TO ct_fieldcat.
  CLEAR ls_fieldcat.
END-OF-DEFINITION.

*&---------------------------------------------------------------------*
* SELECTION-SCREEN
*&---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK b01 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:
  s_carrid FOR sflight-carrid.
SELECTION-SCREEN END OF BLOCK b01.

*&----------------------------------------------------------------------
*& INITIALIZATION.
*&----------------------------------------------------------------------
INITIALIZATION.
* 初始化
  PERFORM frm_initial_data.

*&----------------------------------------------------------------------
*& AT SELECTION-SCREEN OUTPUT
*&----------------------------------------------------------------------
AT SELECTION-SCREEN OUTPUT.

*&----------------------------------------------------------------------
*& AT SELECTION-SCREEN
*&----------------------------------------------------------------------
AT SELECTION-SCREEN.

*&----------------------------------------------------------------------
*& START-OF-SELECTION
*&----------------------------------------------------------------------
START-OF-SELECTION.
* 数据处理
  PERFORM frm_get_data.
  PERFORM frm_show_alv.

*&---------------------------------------------------------------------*
*& Form FRM_INITIAL_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_initial_data .

  CLEAR gt_out.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_GET_DATA
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_get_data .

  SELECT *
    FROM sflight
    WHERE carrid IN @s_carrid
    INTO CORRESPONDING FIELDS OF TABLE @gt_out
    UP TO 20 ROWS.

  LOOP AT gt_out ASSIGNING FIELD-SYMBOL(<fs_alv>).

*   行颜色 红色
    IF <fs_alv>-fldate = '20230925'.
      <fs_alv>-clr    = 'C610'.
    ENDIF.

*   单元格颜色
    IF <fs_alv>-fldate = '20230725'.
      "航班日期为20230725的单元格变成黄色。
      APPEND INITIAL LINE TO <fs_alv>-cell_color ASSIGNING FIELD-SYMBOL(<fs_color>).
      <fs_color>-fname      = 'FLDATE'.
      <fs_color>-color-col  =  3.
      <fs_color>-color-int  =  1.
      <fs_color>-color-inv  =  0.
    ENDIF.

  ENDLOOP.


ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SHOW_ALV
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_show_alv .

  CALL SCREEN 9000.

ENDFORM.
*&---------------------------------------------------------------------*
*& Module STATUS_9000 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_9000 OUTPUT.

  DATA:lv_title TYPE string.
  CLEAR lv_title.

  lv_title = 'ABAP ALV行、列、单元格颜色'.

  SET PF-STATUS '9000'.               " 定义gui状态
  SET TITLEBAR '9000'  WITH lv_title. " 定义gui标题

ENDMODULE.
*&---------------------------------------------------------------------*
*& Module ALV_DES OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE alv_des OUTPUT.

  DATA:lt_sort TYPE lvc_t_sort.

  IF go_grid IS INITIAL .
    CREATE OBJECT go_container
      EXPORTING
        repid     = sy-repid
        dynnr     = '9000'
        extension = 2050
        side      = cl_gui_docking_container=>property_floating.
    CREATE OBJECT go_grid
      EXPORTING
        i_parent = go_container.

*   获取字段目录
    PERFORM prepare_field_catalog CHANGING gt_fieldcat .

*   获取样式
    PERFORM prepare_layout CHANGING gs_layout .

*   锚定ALV变式标记
    CLEAR gs_variant.
    gs_variant = sy-repid.
    gv_save = 'A'.
    gs_variant-report = |{ sy-repid }{ sy-dynnr }|.

*-----显示ALV-------------------------------------------
    PERFORM frm_alv_display USING gt_out.
  ELSE .
*----------------------------刷新ALV----------------------
    " 刷新ALV
    PERFORM frm_refresh_alv.
  ENDIF .

ENDMODULE.
*&---------------------------------------------------------------------*
*&      Form  PREPARE_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PS_LAYOUT  text
*----------------------------------------------------------------------*
FORM prepare_layout
  CHANGING ps_layout TYPE lvc_s_layo.

  ps_layout-cwidth_opt      = 'X'.               " 优化行宽度
  ps_layout-zebra           = 'X'.               " 斑马纹
  ps_layout-sel_mode        = 'D'.               " 选择方式
  ps_layout-box_fname       = 'SEL'.             " 指定行选择字段
  gs_layout-info_fname      = 'CLR'.             " 行颜色设置
  gs_layout-ctab_fname      = 'CELL_COLOR'.      " 单元格颜色设置

ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_ALV_DISPLAY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> GT_OUT
*&---------------------------------------------------------------------*
FORM frm_alv_display
  USING pt_table.

  CALL METHOD go_grid->set_table_for_first_display
    EXPORTING
      is_layout            = gs_layout
      it_toolbar_excluding = gt_exclude
      is_variant           = gs_variant
      i_save               = gv_save
    CHANGING
      it_outtab            = pt_table
      it_fieldcatalog      = gt_fieldcat.

ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_REFRESH_ALV
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_refresh_alv .

  DATA:ls_stable TYPE lvc_s_stbl.
  "刷新ALV
  ls_stable-row = 'X'.
  ls_stable-col = 'X'.
  CALL METHOD go_grid->refresh_table_display
    EXPORTING
      is_stable = ls_stable.

ENDFORM.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9000 INPUT.
  save_code = ok_code.
  CLEAR ok_code.
  CASE save_code.
*   定义返回按钮
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT' OR 'EXIT2'.
      LEAVE PROGRAM.
    WHEN 'SAVE'.
    WHEN OTHERS.
      CALL METHOD go_grid->set_function_code
        CHANGING
          c_ucomm = save_code.
  ENDCASE.
ENDMODULE.
*&---------------------------------------------------------------------*
*& Form PREPARE_FIELD_CATALOG
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      <-- GT_FIELDCAT
*&---------------------------------------------------------------------*
FORM prepare_field_catalog
  CHANGING ct_fieldcat TYPE lvc_t_fcat.

  DATA:
    ls_fieldcat TYPE lvc_s_fcat.

  macro_fcat:
    c_fcat-name01 c_fcat-text01,
    c_fcat-name02 c_fcat-text02,
    c_fcat-name03 c_fcat-text03,
    c_fcat-name04 c_fcat-text04.

* 列颜色->航线代码列 绿色
  LOOP AT ct_fieldcat ASSIGNING FIELD-SYMBOL(<fs_fieldcat>).

    IF <fs_fieldcat>-fieldname = 'CARRID'.
      <fs_fieldcat>-emphasize = 'C510'.
    ENDIF.

  ENDLOOP.

ENDFORM.

2.效果如下

总结

这个技巧其实很简单，理解具体的实现方法就很Nice!

小皮卡沃尼
关注
  • 0
    点赞
  • 踩
  • 4
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
ABAP ALV列、行、单元格颜色设置
天边浮云的博客
08-24 560
SAP ABAP ALV 列、行、单元格颜色
ABAP开发中ALV如何设置行/列/单元格的颜色
王小磊
03-07 7007
在ABAP开发过程中，有的时候,我们需要在 ALV 网格上绘上一些颜色.可以给特定的行，某个特定的列,某个特定的单元格绘制颜色. 如果某列被设置为关键列,这列的颜色将被自动绘制,而不需要我们额外的指定.，ALV的颜色是四位的如C710,第一位是固定死的C，第二位是颜色代码，可能值为1-7，代表颜色如下： 1：Gray-blue —>headers 2：Light gray —>L
ABAP ALV 单元格编辑更改检查，选择行
最新发布
指尖溯光的博客
03-29 329
ABAP ALV 单元格编辑更改检查，选择行
SAP ABAP ALV 颜色设置（行，列，单元格）
SAP李斌，本人承诺所有原创文章均不使用任何AI生成技术，请大家放心阅读。
12-27 3235
以 标准 Demo 程序为例，讲解 SAP ABAP ALV 颜色设置（行，列，单元格）。
ABAP改变ALV行颜色
刘欣的CSDN博客
05-11 271
ABAP改变ALV行颜色
SAP ABAP ALV分页显示
12-22
这个代码是利用了内表数据转到另一个内表的技术.达到最后的分页效果
ABAP OLE颜色代码
06-13
ABAP OLE颜色代码
ALV2：ALV列、行、单元格颜色设置
12-25 4396
1）颜色含义1：海蓝；2：浅清；3：黄色；4：浅蓝；5：青色；6：红色；7：橙色。（1）首位为主颜色；（2）次位为辅助颜色；（3）末位为0时，表示首位数字表为表格的底色；末位为1时，则表示以1为底色，首位数字则表为表格字体的颜色；末位为其它颜色时，则表示底色为ALV的默认颜色；以上三条是本人大概总结出来的规律，本人发现的现象基本如上，但也不一定全部正确。其中C200
ABAP ALV 颜色设置（行，列，单元格）
weixin_30622107的博客
12-08 850
BCALV_EDIT_03 http://blog.sina.com.cn/s/blog_a87b19300102who3.html 关于ALV表格颜色，这种需求在项目中会经常用到。 列颜色 列的颜色很简单，在构成ALV字段的FIELDCAT内表中有一个字段是EMPHASIZE，将一个char型4位的颜色代码分配到FIELDCAT内表这个字段即可。 1 LW_F...
九、SALV 行，列，单元格颜色设定
weixin_42459695的博客
03-13 299
SALV 行，列，单元格颜色设定
ABAP - Function ALV 09 颜色设置（行、列、单元格）
HeathlX的博客
02-27 1001
【代码】ABAP - Function ALV 09 颜色设置（行、列、单元格）
ABAP数据快速填充EXCEL
03-18
ABAP数据快速填充EXCEL，比传统的OLE方式要运行速度快。
ABAP-ALV行颜色展示
04-07
用户想实现对质检及时率做个展示 为了更好的给用户更直观的展示，对超期数据标红展示了，未超期数据蓝色展示。
ABAP_ALV_知识整理.pdf
09-24
ABAP_ALV_知识整理
SAP ABAP ALV 详解
12-11
ALV 详解
abap-ALV.rar_ABAP系统ALV_abap_abap开发alv
09-21
ABAP ALV总结,ALV格式，REUSE_ALV_GRID_DISPLAY_LVC函数使用
ABAP ALV的颜色设定（单元格，行，列的颜色设定）
热门推荐
forever_crazy的专栏
11-04 1万+
abap中如果需要到对某个单元格，某行， 某列想要进行颜色设定的话，有一下几种简单的方面。 注：1：海蓝；2：浅清；3：黄色；4：浅蓝；5：青色；6：红色；7：橙色      （1）首位为主颜色；      （2）次位为辅助颜色；      （3）末位为0时，表示首位数字表为表格的底色；           末位为1时，则表示以1为底色，首位数字则表为表格字体的颜色；
48 行代码给 ABAP ALV 报表的数据行增添颜色效果
SAP 资深技术专家 Jerry Wang 的技术分享
02-19 1819
按照前一步骤 27 行代码开发一个最简单的 SAP ALV 报表完成之后，我们仅使用 27 行代码，就得到了如下图所示的 ABAP ALV 输出： 本步骤我们在此基础上，为这个朴素的 ALV 报表，增添一些颜色效果。 在我们做练习的 zperson 数据库表里再插入两行数据： 最后的 ALV 报表效果如下： 和前一步骤相比，本 ALV 增添了如下功能： 奇数行的颜色为黄色，偶数行为红色。因为 ALV 渲染后，默认选中第一行第一列，所以大家看到 101 这一列颜色为浅蓝色(选中状态)，这不是程序的
SAP ABAP ALV控件设置单元格颜色DEMO（ALV备忘五）
刘欣的CSDN博客
03-12 2538
我们需要控制ALV控件单元格的颜色，满足复杂的需求，这是一个ABAP ALV 控件单元格颜色设置的DEMO。 DEMO运行的效果： 注意数据结构和逻辑：其实在数据表的每一行中，还要加入一张表，用来放这一行，多个列字段的颜色信息。 全部代码如下，以后再来详解： *&------------------------------------------------...
ABAP ALV增加颜色提示
07-09
在ABAP中，可以通过使用ALV列表视图（ALV Grid）来为特定的单元格添加颜色提示。下面是一个简单的示例代码，演示如何在ALV Grid中添加颜色提示： 1. 首先，你需要在程序的顶部包含以下两个库： ```abap TYPE-POOLS: slis. INCLUDE: slis. ``` 2. 然后，在程序中定义一个内部表来存储显示的数据： ```abap DATA: lt_data TYPE TABLE OF spfli. ``` 3. 接下来，使用函数模块REUSE_ALV_GRID_DISPLAY来显示ALV Grid： ```abap CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = sy-repid TABLES t_outtab = lt_data. ``` 4. 然后，使用函数模块REUSE_ALV_FIELDCATALOG_MERGE来定义字段目录： ```abap CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING i_program_name = sy-repid i_internal_tabname = 'SPFLI' CHANGING ct_fieldcat = gt_fieldcat[] EXCEPTIONS inconsistent_interface = 1 program_error = 2 OTHERS = 3. ``` 5. 接下来，在字段目录中定义一个颜色字段，并设置其属性： ```abap LOOP AT gt_fieldcat ASSIGNING FIELD-SYMBOL(<fs_fieldcat>). IF <fs_fieldcat>-fieldname = 'CARRID'. <fs_fieldcat>-color-col = 'C'. <fs_fieldcat>-emphasize = 'X'. ENDIF. ENDLOOP. ``` 在上述代码中，我们为字段'CARRID'定义了一个颜色字段，并设置其颜色属性为'C'，以及强调属性为'X'。 6. 最后，通过调用函数模块REUSE_ALV_GRID_DISPLAY，显示带有颜色提示的ALV Grid： ```abap CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_callback_program = sy-repid TABLES t_outtab = lt_data fieldcat = gt_fieldcat. ``` 以上就是一个简单的示例，演示了如何在ABAP中使用ALV Grid来添加颜色提示。你可以根据自己的需求进行进一步的定制和扩展。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值