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?

[José Camilo]

Cesar. perdón por la demora en la prueba de lo sugerido.
No funciona tampoco. siempre muestra letra negra.
Alguna otra sugerencia?
Gracias por tu tiempo.

[José Camilo]

La ultima prueba que hice fue declarar un nuevo objeto dlg y brw y comparar con otro campo, numerico esta vez.

//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

//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

// oBrwz:bClrStd := {|| { iif(_ActxCoe->NuevoMonto>0,CLR_GREEN,CLR_RED),CLR_WHITE } }
//oBrwz:bclrSel := {|| { iif(_ActxCoe->NuevoMonto>0,CLR_GREEN,CLR_RED),CLR_WHITE } } // color del focus

oBrwz:bClrStd := {|| if(_ActxCoe->NuevoMonto>0,CLR_GREEN,CLR_RED) }
oBrwz:bclrSel := {|| if(_ActxCoe->NuevoMonto>0,CLR_GREEN,CLR_RED) } // color del focus

y siempre sale con letra negra.

si alguno tiene otra sugerencia lo agradezco aunque mas no sea para saber por que no funciona.

Gracias