Colores en las filas de un xbrowse

[TOTOVIOTTI]

Hola estimados!!
Les hago una consulta: se puede colorear filas de un xbrowse sin tener algo fijo,
por ejemplo, necesito colorear las filas cuyos comprobantes corresponden al mismo cliente,
o son de la misma fecha, o lo que sea, controlar el color de las filas dependiendo el contenido de las mismas,
no con algo fijo, por ejemplo, si el cliente es igual a "xxxx", sino, colorear de cualquier color, los comprobantes
que sean del mismo cliente... ?

Lo necesito para un caso especial, el ejemplo no es el más conveniente, pero para que se entienda, lo explico así...

Desde ya, muchas gracias!!

Roberto

[karinha]

Mira se ayuda,

https://www.fivetechsoft.com/forums/vie ... td#p234927

Regards, saludos.

[TOTOVIOTTI]

Gracias Karinha por tu ayuda!
Pero no, en este caso hay una condición prestablecida, ya sé
porque "condición" debo colorear.
En mi caso, esa condición será variable, depende por ejemplo, que coincida
la fecha del comprobante, o el número de comprobante o el cliente.

Saludos
Muchas gracias!
Roberto

[sysctrl2]

Muy interesante, yo tampoco he encontrado como hacerlo con xBrowse,
sería un efecto pijama basado en el código del cliente,

[TOTOVIOTTI]

César,
una solución interesante que me propuso el amigo César Gómez de Argentina..

FUNCTION Roberto()
LOCAL oBrw, oCn, oRs, oForm
oCn := maria_Connect( "localhost:3306,test,root,prueba", .t. )
if oCn == nil
? "can not connect to server"
return nil
endif
oRs := oCn:query("SELECT * from roberto order by fecha ")
DEFINE DIALOG oForm TITLE "Roberto" FROM 05,15 TO 36,99

@05,05 XBROWSE oBrw DATASOURCE oRs;
COLUMNS "fecha","nombre","comprobante","importe";
HEADERS "Fecha","Cliente","Comprobante","Importe";
SIZES 80,200,100,90;
FOOTERS;
OF oForm CELL SIZE 300,200 PIXEL
WITH OBJECT oBrw
:bClrStd := { || { CLR_BLACK, RGB(255-44*oRs:codcli,255-66*oRs:codcli,11*oRs:codcli) } }
END
oBrw:CreateFromCode()
ACTIVATE DIALOG oForm CENTER


RETURN nil

Hay que trabajar un poquito el tema de los colores y el rango entre 1 y 255, pero la idea está!

Saludos

Roberto

[sysctrl2]

a seguir probando
saludos !

[jacgsoft]

Lo que tienes que hacer primero es, en tu resultado a mostrar en el xBrowse, es tener una columna adicional el cual tendrá un correlativo del 1 al infinito. El numero representa el agrupamiento de lo que tu desees (Código de la empresa, código de cliente, fecha de venta, etc.)

Ejemplo:

Codigo fecha nombre Ventas Columna adicional
------------------------------------------------- -----------------------
10 2024-01-01 Empresa1 100.20 1
10 2024-01-20 Empresa1 500.80 1
11 2024-01-01 Empresa2 80.20 2
11 2024-01-31 Empresa2 180.20 2
20 2024-02-01 Empresa3 10.20 3
30 2024-02-20 Empresa3 50.80 3


Luego aplicar lo ya conocido, para el efecto Pijama sobre la columna adicional.

oBrw:bClrStd = { || If( oBrw:oCol('Columna adicional'):value % 2 == 0, ;
{ CLR_BLACK, RGB( 198, 255, 198 ) }, ;
{ CLR_BLACK, RGB( 232, 255, 232 ) } ) }

[russimicro]

Code: Select all | Expand

                     :bClrStd    := { || If( (cAliTab  )->(oBrwFW2:KeyNo()) % 2 == 0, ;
                                    {  RGB(0,0,0), IF( (cAliTab  )->cEstProTra == "S", RGB(136,119,134), ;
                                                                    IF( (cAliTab )->cEstadoTra == "I", RGB(190,224,156),  RGB( 234,234,234 ))  ) },;
                                    {  RGB(0,0,0), IF((cAliTab  )->cEstProTra == "S", RGB(136,119,134), ;
                                                                    IF( (cAliTab )->cEstadoTra == "I", RGB(190,224,156),  RGB( 255,255,242 ) )  ) } ) }