fiona написал(а):
А можно ли сделать следующее : по определённому признаку выделять или не выделять строку в алв цветом?
report zalvcolour no standard page heading .
tables: t001w.
*
type-pools: slis.
data: gt_fieldcat type slis_t_fieldcat_alv.
data: wa_fieldcat type slis_fieldcat_alv.
data: gs_layout type slis_layout_alv.
data: farb1 type slis_specialcol_alv.
*
data: begin of itab occurs 10,
werks like t001w-werks,
name1 like t001w-name1,
farb type slis_t_specialcol_alv,
end of itab.
*
refresh gt_fieldcat.
refresh itab.
*
clear wa_fieldcat.
wa_fieldcat-fieldname = 'WERKS'.
wa_fieldcat-ref_tabname = 'T001W'.
wa_fieldcat-emphasize = 'C2'.
append wa_fieldcat to gt_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'NAME1'.
wa_fieldcat-ref_tabname = 'T001W'.
wa_fieldcat-emphasize = 'C2'.
append wa_fieldcat to gt_fieldcat.
*
clear gs_layout.
gs_layout-coltab_fieldname = 'FARB'.
*
select * from t001w up to 5 rows.
clear itab.
move-corresponding t001w to itab.
clear farb1.
farb1-fieldname = 'WERKS'.
farb1-color-col = 2.
append farb1 to itab-farb.
farb1-fieldname = 'NAME1'.
farb1-color-col = 2.
append farb1 to itab-farb.
if sy-dbcnt eq 3 or sy-dbcnt eq 5.
clear itab-farb.
clear farb1.
farb1-fieldname = 'WERKS'.
farb1-color-col = 6.
append farb1 to itab-farb.
farb1-fieldname = 'NAME1'.
farb1-color-col = 6.
append farb1 to itab-farb.
endif.
append itab.
endselect.
*
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
is_layout = gs_layout
it_fieldcat = gt_fieldcat
tables
t_outtab = itab
exceptions
program_error = 1
others = 2.