Color del Footer en Xbrowse

[José Luis Sánchez]

Hola a todos,
estoy haciendo un browse de ingresos/gastos y en las líneas del browse pinto el color del contenido en color distinto para ingresos y gastos.

oApp():oGrid:bClrRowFocus := { || { iif( AP->ApTipo == "I", oApp():cClrIng, oApp():cClrGas ), oApp():nClrHL } }
oApp():oGrid:bClrSelFocus := { || { iif( AP->ApTipo == "I", oApp():cClrIng, oApp():cClrGas ), oApp():nClrHL } }

El tema es que quiero hacer lo mismo en los footer de la columna que muestran los importes, que cuando sea positivo tenga un color y cuando sea negativo sea de otro, pero esto no sé como hacerlo. El valor del footer lo obtengo en cada columna mediante una función que suma ingresos y resta gastos.

¿ Alguna idea de como cambiar el color al footer de un xbrowse de manera condicional en función de si la suma de la columna es positiva o negativa ?

Muchas gracias,

José Luis

[leandro]

Una idea

Code: Select all

oCol:bClrFooter  = {|| {CLR_BLACK,colorEstado2( cValtoChar( oRsFtr:Fields( "ll_anulad" ):Value ) ) }  }

*****************************************
*CAMBIA EL COLOR DE LA CELDA SELECCIONADO
*****************************************
Function colorEstado2(valor)
IF valor=="A"
    Return nRGB(212,212,212) //gris claro
ELSEIF valor=="D"
    Return nRGB(187,255,187) //verde claro
ELSEIF valor=="E"
    Return nRGB(255,187,187) //rojo claro
ELSEIF valor=="V"
    Return nRGB(255,187,187) //rojo claro
ELSEIF valor=="I"
    Return nRGB(255,251,164) //Amarillo claro
ELSE
    Return nRGB(255,255,255) //Blanco
ENDIF
 

[José Luis Sánchez]

Gracias Leandro, funciona perfectamente.

Saludos,