Выделение ячейки цветом в динамически созданной таблице

max1310

Создал с помощью field catalog динамическую ALV (класс CL_SALV_TABLE). В ней необходимо выделять ячейки цветом. Для этого надо в field catalog до создания таблицы внести структуру типа LVC_S_SCOL. Вопрос как это сделать? Или можно это сделать каким-нибудь другим образом.

John Doe

До создания динамической таблицы проаппендь нужное поле типа LVC_S_SCOL в каталог полей.

max1310

Так у меня вопрос: LVC_S_SCOL это структура, как ее добавить в каталог полей.

Loyso

Насколько я помню, надо не структуру аппендить в field catalog, а таблицу типа LVC_T_SCOL прописать, как одно из полей структуры данных, а потом прописать её, как таблицу данных о цвете. И в этой таблице должно быть столько строк (в каждой строке таблицы данных), сколько полей отображается в ALV.

sy-uname

max1310 написал:

Так у меня вопрос: LVC_S_SCOL это структура, как ее добавить в каталог полей.

У Вас непраильный мёд, т.е. неправильный вопрос.
Насколько помню: В создаваемой таблице должно быть поле с типом LVC_T_SCOL - таблица раскраски для ячеек строки. Исходя из этого и надо формировать каталог полей.

Loyso

Смотрите Package SLIS в SE80. Там куча программ, есть и ваш пример

John Doe

В общем так: для динамического создания придется создать Z-структурку с одним полем типа LVC_T_SCOL (в моем случае ZCOLOR-COLOR).

Code:

DATA: DYNTAB    TYPE STANDARD TABLE OF DNTAB,
      WA_DYNTAB TYPE DNTAB,
      DREF     TYPE REF TO DATA.
DATA: I_FCAT        TYPE LVC_T_FCAT,
      WA_FCAT       TYPE LVC_S_FCAT.

FIELD-SYMBOLS: <NEWTAB> TYPE TABLE.

START-OF-SELECTION.
  CALL FUNCTION 'NAMETAB_GET'
    EXPORTING
      LANGU   = SY-LANGU
      TABNAME = 'SFLIGHT'
    TABLES
      NAMETAB = DYNTAB.

  LOOP AT DYNTAB INTO WA_DYNTAB.
    WA_FCAT-FIELDNAME = WA_DYNTAB-FIELDNAME.
    WA_FCAT-REF_FIELD = WA_DYNTAB-FIELDNAME.
    WA_FCAT-REF_TABLE = WA_DYNTAB-TABNAME.
    APPEND WA_FCAT TO I_FCAT .
  ENDLOOP.

  WA_FCAT-FIELDNAME = 'COLOR'.
  WA_FCAT-REF_FIELD = 'COLOR'.
  WA_FCAT-REF_TABLE = 'ZCOLOR'.
  APPEND WA_FCAT TO I_FCAT.

  CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG = I_FCAT
    IMPORTING
      EP_TABLE        = DREF.
  ASSIGN  DREF->* TO <NEWTAB>.

  SELECT * FROM SFLIGHT INTO CORRESPONDING FIELDS OF TABLE <NEWTAB>.

Одно но, добавить то оно добавилось. Но ALV падает... В общем удачи разобраться. Если получиться - отпишиь здесь о ходе выполненной работы.

max1310

Спасибо, разобрался.
Формирую каталог полей и добавляю в него.
WA_FCAT-FIELDNAME = 'COLOR'.
WA_FCAT-REF_FIELD = 'COLOR'.
WA_FCAT-REF_TABLE = 'ZCOLOR'.
APPEND WA_FCAT TO IT_FCAT.
где ZCOLOR-имя структуры, а COLOR поле структуры с типом LVC_S_SCOL

Далее вызываю метод.
call method cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = it_fcat
IMPORTING
ep_table = ty_table.

assign ty_table->* to <it_tab>.

Далее заполняю таблицу <it_tab> данным.
После заполнения вызываю.
CALL METHOD CL_SALV_TABLE=>FACTORY
IMPORTING
R_SALV_TABLE = gr_alv
CHANGING
T_TABLE = <it_tab>
.
gr_columns = gr_alv->get_columns( ).
gr_columns->set_color_column( value = 'COLOR' ).
gr_alv->display( ).

И все работает.

Правила форума

Выделение ячейки цветом в динамически созданной таблице

Кто сейчас на конференции