FiveTech Support Forums

No funcionó, me pone todo el listbox en negro, así que he tomado la decisión de cambiar el color del texto en función de los dos campos que condicionan el cambio.

Muchas gracias William

Pedro,

Yo lo tengo en una aplicación funcionando con el siguiente código:

oLbx:nClrPane := {|| IIF((oLbx:cAlias)->HDOP<1, CELE,
(IIF((oLbx:cAlias)->HDOP>2, HROJO, GRIS)))}

Donde Hdop es un campo de la tabla y los colores CELE, HROJO Y GRIS, lo tengo definidos en el fichero CH de cabecera.

Normalmente los colores que se aplican es el CELE y el GRIS, y la excepción es cuando HDOP>2

Hola Manuel

Mi problema es que ésta, es una tabla de cobros, que a lo largo del ejercicio sufre los cambios lógicos de las facturas cobradas, no cobradas, y, dentro de estas últimas, las que se pasan del vencimiento. El tema es que a esas que se han pasado de vencimiento y aún no han sido cobradas me gustaría aplicarles un color diferente a la línea donde están en el Listbox.
Lo que ocurre es que la condición es doble, 1º que la fecha de vencimiento sea inferior al día actual,(con lo cual se advierte que esa línea está fuera de fecha) y que además no esté cobrada, de esa forma sólo aquellos registros que cumplan esa condición deben quedar con un color diferente al del resto, que iría en función de si es par o no el registro, que es lo que se basa inicialmente el efecto pijama de todo el listbox. Así las líneas que estén en fecha y no hayan sido cobradas saldrán con el color elegido para hacer el efecto pijama en todo el listbox. No sé si me he explicado.
Aclarar que cuando hablo de un listbox estoy hablando del Wbrowse que es en lo que se convierte el listbox por el preprocesador.

Solo tienes que trabajar un poco el código.

Suponemos que los colores pijama son CELE y GRIS.

Los campos son FVto para lafecha de vencimiento y el campo logico COBRADO.

  oLbx:nClrPane:={|| IIF((oLbx:cAlias)->FVTO <= DATE() .and. ! (oLbx:cAlias)->COBRADO, HROJO, ;
       (IIF((oLbx:cAlias)->(OrdKeyNo())%2==0,CELE, GRIS)) ) }

Fíjate que la primera parte del IIF se refiere a que cumpla la condición y lo ponemos en rojo. Si no cumple la primera condición, vendria otros IIF con el pijama normal.

A mi me funciona perfectamente. Si no te sale, trabaja el código un poco.

[/list:u]

Hola Francisco
El tema de poner la letra en otro color es lo que he hecho, eso no es difícil en el Wbrowse con nClrText. El tema es que quería hacerlo con la línea como dice Manuel.
Manuel me estaba currando el código indicado en tu idea, pero no me salía, en algunos tramos el efecto se iba dejando con un solo color el listbox. Seguiré con esta nueva idea que me aportas, no había pensado quitar de inicio el tema del recno() y ponerlo como segunda condicion, lo miro y te digo algo.

Perfecto Manuel, poniendo como segunda condición si es 2 o no el efecto sale perfecto, me pone las lineas en rojo que son propias de la condición y el resto me lo deja como debe ser.

Muchas gracias

Pedro, que bueno que ya te funciono, nomas como comentario adicional y se me paso decirtelo, en cada funcion tanto de colorcelda como en el bloque bBkColor hay que ir priorizando las condicionantes correctamente para que te vaya respetando el pintado, me paso que yo las puse como me dio la gana y no me salia, hay que ir poniendola en orden de importancia, como quieras los colores.
Saludos
Paco

Francisco Horta wrote:Pedro, sorry me falto una mas

CASO 2


he aqui el codigo
oBCmp:nClrPane := {|| IIF((oBCmp:cAlias)->(OrdKeyNo())%2==0,nRGB(248,248,248),nRGB(220,255,220))} //236,255,236
oBCmp:bTextColor:={|nRow,nCol,nStyleLine| IF(nCol>1 .AND. nStyleLine=0 .AND. (oDCmp)->Status=="C",CLR_HRED,)}

oBCmp:bBkColor := {|nRow,nCol,nStyle| If( nStyle==0 .and. nCol==1, ;
GETSYSCOLOR(COLOR_BTNFACE), ;
If( nCol==1 .AND. nStyle=3 .AND. !oBArt:lCellStyle, ;
GETSYSCOLOR(COLOR_BTNFACE),))}

oBCmp:bFont := {|nRow,nCol,nStyleLine| ;
IF(nStyleLine==1 .AND. nCol==2,oFnt:hFont,) }

Espero sea de tu utilidad
Saludos
Paco

Adrian,
vamos a ver tus puntos

1. aHeaders := {"id","nombre","Costo Unitario"}
   aHeadersNew := {"id","descripcion","Precio Unitario"}

   REDEFINE LISTBOX oBrw ID 100 OF oDlg FIELDS ""

     oBrw:aHeaders := aHeaders
   

   luego en tu condicion en una funcion puedes hacer esto
   oBrw:aHeaders := {}
   oBrw:aHeaders := aHeadersNew
   oBrw:Refresh()

2. para centrar encabezados
   oBrw:aHJustify := {2,2,2} donde 0->izquierda 1->derecha 2->centrado

saludos
paco

Francisco Horta wrote:Adrian,
vamos a ver tus puntos

1. aHeaders := {"id","nombre","Costo Unitario"}
aHeadersNew := {"id","descripcion","Precio Unitario"}

REDEFINE LISTBOX oBrw ID 100 OF oDlg FIELDS ""

oBrw:aHeaders := aHeaders
luego en tu condicion en una funcion puedes hacer esto
oBrw:aHeaders := {}
oBrw:aHeaders := aHeadersNew
oBrw:Refresh()

2. para centrar encabezados
oBrw:aHJustify := {2,2,2} donde 0->izquierda 1->derecha 2->centrado

saludos
paco

Adrian,
pasale el parametro asi :

VALID V_Concepto(@cCostPrep,oLbx2)

y sustituye
STATIC FUNCTION V_CONCEPTO(cCostPrep,oLbx2)

y me comentas
salu2
paco