FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Colores en las filas de un xbrowse
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Colores en las filas de un xbrowse
Posted: Wed Jan 15, 2025 01:54 PM

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

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Colores en las filas de un xbrowse
Posted: Wed Jan 15, 2025 02:06 PM
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Colores en las filas de un xbrowse
Posted: Wed Jan 15, 2025 02:26 PM

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

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Colores en las filas de un xbrowse
Posted: Wed Jan 15, 2025 06:11 PM
Muy interesante, yo tampoco he encontrado como hacerlo con xBrowse,
ser铆a un efecto pijama basado en el c贸digo del cliente, :roll: :roll: :roll: :roll:
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 470
Joined: Fri Feb 05, 2010 11:30 AM
Re: Colores en las filas de un xbrowse
Posted: Thu Jan 16, 2025 01:34 PM

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

Univ@c I.S.I.
Desarrolladores de Software
http://www.elcolegioencasa.ar
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: Colores en las filas de un xbrowse
Posted: Thu Jan 16, 2025 11:00 PM

a seguir probando

saludos !

Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
Posts: 114
Joined: Fri Nov 24, 2006 09:03 PM
Re: Colores en las filas de un xbrowse
Posted: Fri Jan 17, 2025 09:31 PM
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 ) } ) }
Posts: 410
Joined: Sun Jan 31, 2010 03:30 PM
Re: Colores en las filas de un xbrowse
Posted: Sat Jan 18, 2025 10:36 AM
                     :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 ) )  ) } ) }

Continue the discussion