7 декабря 2010 г.

ABAP: Цвета в ALV GRID


Пример:

REPORT  ZTEST_ALV_COLORS.

TYPES: BEGIN OF my_itab_wa,
  COLOR(4)  TYPE C, " Поле для указания цвета строки
  TEXT(255) TYPE C, " Просто текст
  END OF my_itab_wa,
  my_itab_t TYPE TABLE OF my_itab_wa.

DATA: my_itab TYPE my_itab_t.
DATA: my_grid type ref to CL_GUI_ALV_GRID, " грид
      my_g_cont type ref to CL_GUI_DOCKING_CONTAINER, " контейнер
      my_g_fcat type LVC_T_FCAT,
      my_g_layo type LVC_S_LAYO,
      my_g_vari type DISVARIANT.

CALL SCREEN '0100'.

* Заполняем внутреннюю таблицу для ALV
FORM UPDATE_ITAB.
  DATA: lv_c1   TYPE C.
        
  DATA: ls_itab TYPE my_itab_wa.

  lv_c1 = '0'.
  DO 7 TIMES.
    lv_c1 = lv_c1 + 1.
    CONCATENATE 'C' lv_c1 '00' INTO ls_itab-COLOR.
    CONCATENATE 'This is' ls_itab-COLOR INTO ls_itab-TEXT SEPARATED BY SPACE.
    APPEND ls_itab TO my_itab.
    CONCATENATE 'C' lv_c1 '10' INTO ls_itab-COLOR.
    CONCATENATE 'This is' ls_itab-COLOR INTO ls_itab-TEXT SEPARATED BY SPACE.
    APPEND ls_itab TO my_itab.

    CONCATENATE 'C' lv_c1 '01' INTO ls_itab-COLOR.
    CONCATENATE 'This is' ls_itab-COLOR INTO ls_itab-TEXT SEPARATED BY SPACE.
    APPEND ls_itab TO my_itab.

  ENDDO.
ENDFORM.

* Создаем грид
FORM CREATE_ALV_GRID.
  DATA: ls_fcat TYPE LVC_S_FCAT.

  IF my_g_cont IS INITIAL.
    CREATE OBJECT my_g_cont
    EXPORTING
      repid     = sy-repid
      dynnr     = sy-dynnr
      extension = 3000
      side      = cl_gui_docking_container=>dock_at_top.

    CREATE OBJECT my_grid
    EXPORTING
      I_SHELLSTYLE  = 4
      I_PARENT = my_g_cont
      I_APPL_EVENTS = 'X'.

    my_g_vari-REPORT = sy-repid.
    my_g_vari-username = sy-uname.
    my_g_vari-handle = 'MYGR'.

    my_g_layo-cwidth_opt     = ''.
    my_g_layo-sel_mode       = 'A'.

*   В лэйауте указываем имя поля в котором
*   будем хранить цвет строки
    my_g_layo-info_fname     = 'COLOR'.

    ls_fcat-fieldname = 'TEXT'.
    ls_fcat-coltext   = 'Текст'.
    ls_fcat-reptext   = 'Текст'.
    ls_fcat-scrtext_l = 'Текст'.
    ls_fcat-scrtext_m = 'Текст'.
    ls_fcat-scrtext_s = 'Текст'.
    APPEND ls_fcat TO my_g_fcat.

    CALL METHOD my_grid->SET_TABLE_FOR_FIRST_DISPLAY
    EXPORTING
      IS_LAYOUT       = my_g_layo
      IS_VARIANT      = my_g_vari
      I_SAVE          = 'A'
    CHANGING
      IT_OUTTAB       = my_itab
      IT_FIELDCATALOG = my_g_fcat.
  ENDIF.
ENDFORM.

MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS 'GUI_0100'.
  PERFORM UPDATE_ITAB.
  PERFORM CREATE_ALV_GRID.
ENDMODULE.                 " STATUS_0100  OUTPUT

MODULE EXIT_COMMAND_0100 INPUT.
  LEAVE TO SCREEN 0.
ENDMODULE.                 " EXIT_COMMAND_0100  INPUT



Статья на аналогичную тему на английском: Report and ALV Colors 

Комментариев нет:

Отправить комментарий