DO n_cols_browse1 = 1 TO browse-1:NUM-COLUMNS:
celda_br1[n_cols_browse1] = browse-1:GET-BROWSE-COLUMN(n_cols_browse1).
END.
n_cols_browse1 = browse-1:NUM-COLUMNS.
ON row-display OF browse-1 IN FRAME z DO:
DEF VAR col_act AS INTE NO-UNDO.
DEF VAR cual_celda AS WIDGET-HANDLE NO-UNDO.
IF [condition] THEN DO:
DO col_act = 1 TO n_cols_browse1:
cual_celda = celda_br1[col_act].
cual_celda:BGCOLOR = g_c_w_bg.
END.
END.
END.