Подскажите! Как в Alv покрасить строчку в нужный цвет, можно ли покрасить ячейку, если да, то как, желательно с примером версия 4.6

Вот мой кталог полей

form alv_main_fieldcatalog
changing xt_fieldcat type slis_t_fieldcat_alv.
data: ls_fieldcat type slis_fieldcat_alv.


refresh xt_fieldcat.
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
exporting
i_program_name = gf_repid
i_structure_name = 'ZPERS'
i_bypassing_buffer = 'X'
changing
ct_fieldcat = xt_fieldcat
exceptions
inconsistent_interface = 1
program_error = 2
others = 3.
if sy-subrc <> 0.
exit.
endif.

loop at xt_fieldcat into ls_fieldcat.
case ls_fieldcat-fieldname.
when 'FL'. fill_cat '' 0 ' ' 1.
when 'BUKRS'. fill_cat text-s01 0 ' ' 2.
when 'GJAHR'. fill_cat text-s02 0 ' ' 3.
when 'BELNR'.
ls_fieldcat-no_out = 'X'.
fill_cat ' ' 0 ' ' 4.

when 'DMBTR'. fill_cat text-s03 0 'X' 5. "Обязатетельно X

* when 'DENG'. fill_cat text-s04 0 'X' 15.
when 'SORT'.
ls_fieldcat-no_out = 'X'.
* fill_cat ' ' 0 ' ' 6.
when others . delete xt_fieldcat.
endcase.
endloop.

endform. " alv_main_fieldcatalog


вывод

*&---------------------------------------------------------------------*
*& Form main_output
*&---------------------------------------------------------------------*
form main_output.
data:
ls_print type slis_print_alv.
* REFRESH: lt_fieldcat, ls_sort, lt_evts.
perform alv_main_fieldcatalog changing lt_fieldcat.
*PERFORM alv_main_layout USING ls_layout.

ls_layout-totals_before_items = 'X'.
ls_layout-no_totalline = 'X'.
* Установка поля для цвета
ls_layout-coltab_fieldname = 'INFO'.
* ls_layout-lights_fieldname = 'INFO'.
ls_layout-zebra = 'X'.
ls_layout-colwidth_optimize = 'X'.
ls_layout-box_fieldname = 'FL'.
ls_layout-group_change_edit = 'X'. "Bold
ls_layout-info_fieldname = 'FL'.

perform set_evts changing lt_evts.
perform alv_main_sort changing ls_sort.
* Формат печати
ls_print-no_print_selinfos = 'X'.
ls_print-no_print_listinfos = 'X'.




gf_repid = sy-repid.



call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = gf_repid
i_callback_pf_status_set = 'SET_STATUS'
i_callback_user_command = 'CALL_USER_COMMAND'
i_callback_top_of_page = 'TOP_OF_PAGE'
is_layout = ls_layout
it_fieldcat = lt_fieldcat[]

it_events = lt_evts
i_save = 'A'
* is_variant = gx_variant
is_print = ls_print
it_sort = ls_sort
i_default = 'X'
tables
t_outtab = tabl
exceptions
program_error = 1
others = 2.
*** ВЫЗОВ ФУНКЦИИ ***
if sy-subrc ne 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
leave program.

endif.
endform. " main_output


Как можно добавив сделать раскраску: желтый, зеленый, красный. Помогите!!!

http://help.sap.com/saphelp_47x200/help ... ameset.htm

PS: Когда приводите фрагмент программы, берите его в скобки [сode][/сode], а то не форматированный(выравненный влево текст) плохо читается.

Попробуй:

Спасибо!