Smartforms Dynamic BG Color.

FIELD-SYMBOLS: <f_tab> TYPE tsftabdef. 
 
 
 DATA: l_tabdef  TYPE ssftabdef,     " Work Area for the Table
      t_ltypes  TYPE tsfltype,      " Table - Line types
      l_ltypes  TYPE ssfltype,      " Work Area for the table
      t_colinfo TYPE tsfcolinfo,    " Table - Columns
      l_colinfo TYPE ssfcolinfo,    " Work area for the table
      t_border  TYPE tsfctaba,      " Tables - Borders
      l_border  TYPE ssfctaba.      " Work Area for the border

ASSIGN ('(SAPLSTXBC)TABDEFS') TO <f_tab>.

LOOP AT <f_tab> INTO l_tabdef.


  LOOP AT l_tabdef-tltype INTO l_ltypes.

    LOOP AT l_ltypes-tcolinfo INTO l_colinfo.

      LOOP AT l_colinfo-borders INTO l_border.

        CLEAR: l_border-intensity,              " Intensity
        l_border-fillcolor-red,          " Red
        l_border-fillcolor-used,         " Color Used
        l_border-cfillcolor-color,       " Red color in Hexa
        l_border-cfillcolor-xred.        " Color used in Hexa

        MODIFY l_colinfo-borders FROM l_border.
      ENDLOOP.

      MODIFY l_ltypes-tcolinfo FROM l_colinfo.
    ENDLOOP.

    MODIFY l_tabdef-tltype FROM l_ltypes.
  ENDLOOP.

  MODIFY <f_tab> FROM l_tabdef.
ENDLOOP.
 
 
Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com