Consulta color en xbrowse

[José Camilo]

Buenas noches gente!!
tengo un xBrowse en el cual muestro una dbf muy simple y quiero poner distintos colores en los registros de acuerdo a si el campo fecha esta vacio o no.
no logro que ponga los colores en los registros.

esta el la seguencia del prg

DEFINE DIALOG oDlg FROM InicioDlg, 50 TO 646, 1550 FONT oFont TITLE 'Propiedades actualizables por Coeficientes' PIXEL
@ InicioBrw,5 XBROWSE oBrw ;
COLUMNS "FecAct","Locatario","NombreLoc","Propiedad","Domicilio","Piso","Dpto","MontoAnt","CoefTotAct","NuevoMonto" ;
HEADERS "Fecha","Loc","Apellido y Nombre", "Prop","Domicilio","Piso","Dpto","Ult Alquiler","% de Act","Nuevo Alq." ;
COLSIZES -10,-10,-10,-10,-10,35,35,-10,-10,-10 OF oDlg ;
SIZE 740,AltoBrw2 PIXEL ;
JUSTIFY .f.,.t.,.f.,.t.,.f.,.f.,.f.,.t.,.t.,.t. ;
ALIAS cAlias AUTOSORT FOOTERS LINES CELL NOBORDER ;
BACKGROUND aQueGrad VERTICAL
// COLSIZES 90,50,120,60,120,40,40,100,60,100 OF oDlg ;

oBrw:nStretchCol := 2
oBrw:nRowHeight := 30
oBrw:nMarqueeStyle := 4
// anulo el doble color d los registros
oBrw:lContrastClr := .f.
oBrw:lHScroll := .f.

oBrw:nHeadStrAligns := AL_CENTER // alinea al centro las cabeceras de columnas

// defino colores de los registros en el browse

oBrw:bClrStd := {|| { iif(empty(_ActxCoe->FecAct),CLR_GREEN,CLR_RED),CLR_WHITE } }
oBrw:bclrSel := {|| { iif(empty(_ActxCoe->FecAct),CLR_GREEN,CLR_RED),CLR_WHITE } } // color del focus

// quitar barra horizontal
//oBrw:lHScroll := .F.

oBrw:bKeyDown:={|nKey,nFlag|iif(veo(@nApu,@oBrw,aBotones,nKey),eval(aBotones[nApu,4]),NIL)}

oBrw:CreateFromCode()
cGrad := PadR( GradStr( BrwGrad( oBrw ) ), 128 )

Activate Dialog oDlg On Init (CentroDlg(@oDlg),Centra( oDlg ),BtnBarNew( oBrw, @oDlg, aBotones)) Valid( Fade( oDlg ), .t. )



lo copie de otro prg que esta funcionando a la perfeccion. no entiendo por que no coloca los colores.
Alguna sugerencia?

Gracias

[cmsoft]

Puedes cambiar

Code: Select all  Expand view  RUN

oBrw:bClrStd := {|| { iif(empty(_ActxCoe->FecAct),CLR_GREEN,CLR_RED),CLR_WHITE } }
oBrw:bclrSel := {|| { iif(empty(_ActxCoe->FecAct),CLR_GREEN,CLR_RED),CLR_WHITE } } // color del focus

Por esto:

Code: Select all  Expand view  RUN

oBrw:bClrStd := {|| { iif(empty((cAlias)->FecAct),CLR_GREEN,CLR_RED),CLR_WHITE } }
oBrw:bclrSel := {|| { iif(empty((cAlias)->FecAct),CLR_GREEN,CLR_RED),CLR_WHITE } } // color del focus

Y probarlo?