topic-43984

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Footers con texto xBrowse
Posted: Mon Dec 04, 2023 10:12 PM

Hola amigos, saludos

Al entrar a una funcion, hago una consulta SELECT y cargo un oQuery
ese resultado lo paso a un array y luego lo muestro en un xBrowse, colocandole un footer asi:

Code (fw): Select all Collapse

:aCols[2]:cFooter:=" Total Participantes Activos -> "+transform( len(aPart), "@E 9,999,999.99")

pues funciona perfecto la primera vez, al entrar y construir el browse, pero al trabajar y agregar mas datos al arreglo y hacer los respectivos refresh(), maketotals e incluso el RefreshFooters() , nada, no se actualiza el footers. Si al entrar habia 3 registros y agrego 2 mas, sigue mostrando 3.

que me esta faltando?

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

JESUS MARIN

Posts: 199

Joined: Wed Jan 02, 2019 08:36 AM

Re: Footers con texto xBrowse
Posted: Tue Dec 05, 2023 07:14 AM

Buenos dias
Al tratarse de un array, debes refrescar los datos.
Prueba de esta manera :

Code (fw): Select all Collapse

oBrw:aArrayData=aDatos         // donde aDatos es tu array con la info actualizada
oBrw:Refresh()

Saludos

Jesús Marín
deumare@gmail.com

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Footers con texto xBrowse
Posted: Tue Dec 05, 2023 11:18 AM

JESUS MARIN wrote:Buenos dias
Al tratarse de un array, debes refrescar los datos.
Prueba de esta manera :
Code (fw): Select all Collapse
oBrw:aArrayData=aDatos         // donde aDatos es tu array con la info actualizada
oBrw:Refresh()
Saludos

Hola Jesús,
Gracias por tu ayuda.

Sí, de hecho, luego de ingresar o eliminar un registro a la tabla hago esto:

Code (fw): Select all Collapse

    aPart:={}
    aPart:=oQuery:FillArray()
    oBrwPart:aArrayData:=aPart
    oBrwPart:MakeTotals()
    oBrwPart:RefreshFooters()
    oBrwPart:Refresh()

y nada, no totaliza.

uso fw 19.06, mariaDB (local) y MySql (remoto), tdolphin y harbour

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Footers con texto xBrowse
Posted: Tue Dec 05, 2023 11:33 AM

Jose:
Entiendo que es porque lo que pones como footer es un texto fijo (aunque tiene una variable), al momento de armarse toma el valor de dicha variable y ya no cambia.
Lo que puedes hacer es cambiar el cFooter por bFooter asi

Code (fw): Select all Collapse

   :aCols[2]:bFooter:= {|| " Total Participantes Activos -> "+transform( len(aPart), "@E 9,999,999.99")}
...

    aPart:={}
    aPart:=oQuery:FillArray()
    oBrwPart:aArrayData:=aPart
    oBrwPart:RefreshFooters()
    oBrwPart:Refresh()

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Footers con texto xBrowse
Posted: Tue Dec 05, 2023 02:48 PM

cmsoft wrote:Jose:
Entiendo que es porque lo que pones como footer es un texto fijo (aunque tiene una variable), al momento de armarse toma el valor de dicha variable y ya no cambia.
Lo que puedes hacer es cambiar el cFooter por bFooter asi
Code (fw): Select all Collapse
   :aCols[2]:bFooter:= {|| " Total Participantes Activos -> "+transform( len(aPart), "@E 9,999,999.99")}
...

    aPart:={}
    aPart:=oQuery:FillArray()
    oBrwPart:aArrayData:=aPart
    oBrwPart:RefreshFooters()
    oBrwPart:Refresh()

César, un gran saludo amigo.
Voy a probar y te comento.

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Footers con texto xBrowse
Posted: Wed Dec 06, 2023 04:25 AM

Listo César,

Tal como indicaste,

Muchas Gracias !!

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

FiveTech Support Forums

Continue the discussion