SAP ABAP 动态内表设置单元格颜色，可编辑等字段属性

本文链接：https://blog.youkuaiyun.com/Noooo0ob/article/details/139629072

问题灵感来源于ABAP贴吧，闲逛的时候，看到问题：动态内表要设置字段可编辑，颜色等
对于是否可编辑好说，只需要LOOP循环FIELDCAT，然后使用指针设置即可，如下：

  LOOP AT gt_fieldcat ASSIGNING FIELD-SYMBOL(<FS_FIELDCAT>).
    CASE <FS_FIELDCAT>-fieldname.
    WHEN 'WERKS'.
        <FS_FIELDCAT>-edit = 'X'.
    ENDCASE.
  ENDLOOP.

本篇重点在于如何设置单元格颜色。

先说方法：去SE11 定义一张属性表，再通过fieldcat生成内表，后续数据操作，均使用生成的内表，包括颜色。最后输出这个张生成的内表。

由于FIELDCAT中没办法定义一个表结构，所以，直接定义一张自建表，用来给fieldcat参考就行

  init_fill_fcat 'CELLCOLOR' 'XXX' 'ZCOLOR' 'CELLCOLOR'  '' '' '' '' ''.

剩下的就是数据操作，赋值了。没有什么特殊的，代码段如下。在最后有完整的代码。

 "通过fielcat生成内表
  CALL METHOD cl_alv_table_create=>create_dynamic_table
    EXPORTING
      it_fieldcatalog = gt_fieldcat
    IMPORTING
      ep_table        = dy_table.

  " 用表类型指针 <dyn_table> 指向 数据对象的内容.
  ASSIGN dy_table->* TO <dyn_alv>.

  "建立一个与动态内表结构相同的数据对象，且数据对象为是一个结构
  CREATE DATA gs_line LIKE LINE OF <dyn_alv>.

  " 用<dyn_wa>指针指向该结构
  ASSIGN gs_line->* TO <dyn_wa>.

  MOVE-CORRESPONDING gt_data TO gt_alv.
  
  "在FIELDCAT中
  LOOP AT gt_alv INTO gs_alv.
    MOVE-CORRESPONDING gs_alv TO <dyn_wa>.
    ASSIGN COMPONENT 'CELLCOLOR' OF STRUCTURE <dyn_wa> TO <dyn_color>.
    ls_lvc-fname = 'MATNR'.
    ls_lvc-color-int = '1'.
    ls_lvc-color-inv = '0'.
    ls_lvc-color-col = '6'. "红色
    APPEND ls_lvc TO <dyn_color>.   "单元格颜色
    APPEND <dyn_wa> TO <dyn_alv>.
    CLEAR:<dyn_wa>,lv_flag,gs_alv.
  ENDLOOP.
"定义字段可编辑
  LOOP AT gt_fieldcat ASSIGNING FIELD-SYMBOL(<FS_FIELDCAT>).
    CASE <FS_FIELDCAT>-fieldname.
    WHEN 'WERKS'.
        <FS_FIELDCAT>-edit = 'X'.
    ENDCASE.
  ENDLOOP.
"删掉CELLCOLOR的显示
  DELETE gt_fieldcat WHERE fieldname = 'CELLCOLOR'.

  "针对动态内表排序
  CLEAR:lt_sort.
  lt_sort = VALUE #(
                    ( name = 'MATNR' descending = '' astext = '' )
                   ).

  SORT <dyn_alv> BY (lt_sort).

完整代码如下：

*&---------------------------------------------------------------------*
*& Report ZMM021
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ztest12.

TABLES:mara,mard,ausp,makt,resb.
DATA:BEGIN OF gs_data,
       matnr TYPE matnr,
     END OF gs_data.
DATA:gt_data LIKE TABLE OF gs_data.
DATA:gt_alv LIKE TABLE OF gs_data.
DATA:gs_alv LIKE gs_data.

*----------------------------------------------------------------------*
*ALV参数声明
*----------------