Code:
error_cell-col_id = fcat-col_pos.
* error_cell-col_id = sy-tabix.
* error_cell-type = 0. " all red, text&border, ignores cell style
* error_cell-type = 1. " yellow border
* error_cell-type = 2. " green border
error_cell-type = 3. " red border
append error_cell to error_cells[].
...
call function 'DP_CONTROL_ASSIGN_TABLE'
exporting
h_cntl = h_control_1
medium = cndp_medium_r3table
propertyname = 'ErrorCells'
tables
data = error_cells[]
exceptions
others = 1.
где h_control_1-obj-handle:
Code:
create object alv_1
exporting
i_parent = ..
.
" must be right after: CREATE OBJECT ALV_1
create object h_control_1-obj 'SAP.Functions'.
subtract 1 from h_control_1-obj-handle.
..
alv_1->set_ready_for_input( ). " 4.7, comment if newer
(можно сделать проще, через внешний журнал (protocol), тогда будет работать навигация по ошибкам, но у меня не включилась подсветка ячеек, наверное нужен set_ready_for_input)
но если много ошибок - рябит в глазах, рекомендую подкрашивать шрифт через стили (layout-ctab_fname), inverse color