ABAP: ALV row color

gistfile1.txt

* Fiealdcatalog tanımlama
TYPE-POOLS: slis.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      wa_fieldlayout  TYPE    slis_layout_alv.

* * internal tablomuz
DATA: BEGIN OF gt_data OCCURS 0,
  colorname(20),
colcode(4),
clrln(4),
  END OF gt_data.

* * fieldcatalog için macro
DEFINE fill_field_catalog.
  clear gt_fieldcat.
  gt_fieldcat-fieldname     = &1. "alan adı
  gt_fieldcat-ref_tabname   = &2. "referans tablo adı
  gt_fieldcat-ref_fieldname = &3. "referans alan adı
  gt_fieldcat-ddictxt       = &4. "default kolon genişliği, S:Kısa
  "M:Orta L:Uzun
  gt_fieldcat-seltext_s     =     "kısa kolon adı
  gt_fieldcat-seltext_m     =     "orta kolon adı
  gt_fieldcat-reptext_ddic  =     "varyant kısmında görünen metin
  gt_fieldcat-seltext_l     = &5. "uzun kolon adı
  append gt_fieldcat.
END-OF-DEFINITION.

* *tablomuzu dolduralım
gt_data-colorname = 'GreyBlue'.
gt_data-colcode = 'C100'.
gt_data-clrln = 'C100'.
APPEND gt_data.
gt_data-colorname = 'GreyBlue'.
gt_data-colcode = 'C101'.
gt_data-clrln = 'C101'.
APPEND gt_data.
gt_data-colorname = 'GreyBlue'.
gt_data-colcode = 'C110'.
gt_data-clrln = 'C110'.
APPEND gt_data.
gt_data-colorname = 'GreyBlue'.
gt_data-colcode = 'C111'.
gt_data-clrln = 'C111'.
APPEND gt_data.

gt_data-colorname = 'LightGrey'.
gt_data-colcode = 'C200'.
gt_data-clrln = 'C200'.
APPEND gt_data.
gt_data-colorname = 'LightGrey'.
gt_data-colcode = 'C201'.
gt_data-clrln = 'C201'.
APPEND gt_data.
gt_data-colorname = 'LightGrey'.
gt_data-colcode = 'C210'.
gt_data-clrln = 'C210'.
APPEND gt_data.
gt_data-colorname = 'LightGrey'.
gt_data-colcode = 'C211'.
gt_data-clrln = 'C211'.
APPEND gt_data.

gt_data-colorname = 'Yellow'.
gt_data-colcode = 'C300'.
gt_data-clrln = 'C300'.
APPEND gt_data.
gt_data-colorname = 'Yellow'.
gt_data-colcode = 'C301'.
gt_data-clrln = 'C301'.
APPEND gt_data.
gt_data-colorname = 'Yellow'.
gt_data-colcode = 'C310'.
gt_data-clrln = 'C310'.
APPEND gt_data.
gt_data-colorname = 'Yellow'.
gt_data-colcode = 'C311'.
gt_data-clrln = 'C311'.
APPEND gt_data.

gt_data-colorname = 'BlueGreen'.
gt_data-colcode = 'C400'.
gt_data-clrln = 'C400'.
APPEND gt_data.
gt_data-colorname = 'BlueGreen'.
gt_data-colcode = 'C401'.
gt_data-clrln = 'C401'.
APPEND gt_data.
gt_data-colorname = 'BlueGreen'.
gt_data-colcode = 'C410'.
gt_data-clrln = 'C410'.
APPEND gt_data.
gt_data-colorname = 'BlueGreen'.
gt_data-colcode = 'C411'.
gt_data-clrln = 'C411'.
APPEND gt_data.

gt_data-colorname = 'Green'.
gt_data-colcode = 'C500'.
gt_data-clrln = 'C500'.
APPEND gt_data.
gt_data-colorname = 'Green'.
gt_data-colcode = 'C501'.
gt_data-clrln = 'C501'.
APPEND gt_data.
gt_data-colorname = 'Green'.
gt_data-colcode = 'C510'.
gt_data-clrln = 'C510'.
APPEND gt_data.
gt_data-colorname = 'Green'.
gt_data-colcode = 'C511'.
gt_data-clrln = 'C511'.
APPEND gt_data.

gt_data-colorname = 'Red'.
gt_data-colcode = 'C600'.
gt_data-clrln = 'C600'.
APPEND gt_data.
gt_data-colorname = 'Red'.
gt_data-colcode = 'C601'.
gt_data-clrln = 'C601'.
APPEND gt_data.
gt_data-colorname = 'Red'.
gt_data-colcode = 'C610'.
gt_data-clrln = 'C610'.
APPEND gt_data.
gt_data-colorname = 'Red'.
gt_data-colcode = 'C611'.
gt_data-clrln = 'C611'.
APPEND gt_data.

gt_data-colorname = 'Violett'.
gt_data-colcode = 'C700'.
gt_data-clrln = 'C700'.
APPEND gt_data.
gt_data-colorname = 'Violett'.
gt_data-colcode = 'C701'.
gt_data-clrln = 'C701'.
APPEND gt_data.
gt_data-colorname = 'Violett'.
gt_data-colcode = 'C710'.
gt_data-clrln = 'C710'.
APPEND gt_data.
gt_data-colorname = 'Violett'.
gt_data-colcode = 'C711'.
gt_data-clrln = 'C711'.
APPEND gt_data.

* *fieldcatalog doldurma
fill_field_catalog  'COLORNAME' ''  '' 'L' 'Color Name'.
fill_field_catalog  'COLCODE' ''  '' 'L' 'Color Code'.

wa_fieldlayout-colwidth_optimize = 'X'.
wa_fieldlayout-info_fieldname = 'CLRLN'.

* *alv listeleme
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
    it_fieldcat   = gt_fieldcat[]
    is_layout     = wa_fieldlayout
  TABLES
    t_outtab      = gt_data
  EXCEPTIONS
    program_error = 1
    OTHERS        = 2.