Hi
With this code, you change the color each 2 records.
Put it in the main-block.
It suposes your browse is called browse-1
DEF VAR celda_br AS WIDGET-HANDLE EXTENT 15 NO-UNDO.
DEF VAR cual_celda AS WIDGET-HANDLE NO-UNDO.
DEF VAR n_cols_browse AS INT NO-UNDO.
DEF VAR col_act AS INT NO-UNDO.
DEF VAR t_col_br AS INT NO-UNDO INITIAL 11.
DEF VAR vg_col_eti_b AS INT NO-UNDO INITIAL 28.
ON ROW-DISPLAY OF browse-1
DO:
IF CURRENT-RESULT-ROW("browse-1") / 2 <> INT (CURRENT-RESULT-ROW("browse-1") / 2) THEN RETURN.
DO col_act = 1 TO n_cols_browse.
cual_celda = celda_br[col_act].
cual_celda:BGCOLOR = t_col_br.
END.
END.
DO n_cols_browse = 1 TO browse-1:NUM-COLUMNS.
celda_br[n_cols_browse] = browse-1:GET-BROWSE-COLUMN(n_cols_browse).
cual_celda = celda_br[n_cols_browse].
IF vg_col_eti_b <> 0 THEN cual_celda:LABEL-BGCOLOR = vg_col_eti_b.
IF n_cols_browse = 15 THEN LEAVE.
END.
n_cols_browse = browse-1:NUM-COLUMNS.
IF n_cols_browse > 15 THEN n_cols_browse = 15.
If you need one color for a specific value of a field, then change the trigger ON ROW-DISPLAY OF browse-1
remove the line IF CURRENT-RESULT-ROW("browse-1") / 2 <> INT (CURRENT-RESULT-ROW("browse-1") / 2) THEN RETURN.
and put something like this:
IF table.field = 'XYZ' THEN
MRobles