Page 1 of 1

Footers con texto xBrowse

PostPosted: Mon Dec 04, 2023 10:12 pm
by JoseAlvarez
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: Select all  Expand view
: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?

Re: Footers con texto xBrowse

PostPosted: Tue Dec 05, 2023 7:14 am
by JESUS MARIN
Buenos dias
Al tratarse de un array, debes refrescar los datos.
Prueba de esta manera :

Code: Select all  Expand view

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


Saludos

Re: Footers con texto xBrowse

PostPosted: Tue Dec 05, 2023 11:18 am
by JoseAlvarez
JESUS MARIN wrote:Buenos dias
Al tratarse de un array, debes refrescar los datos.
Prueba de esta manera :

Code: Select all  Expand view

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: Select all  Expand view

    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

Re: Footers con texto xBrowse

PostPosted: Tue Dec 05, 2023 11:33 am
by cmsoft
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: Select all  Expand view

   :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()
 

Re: Footers con texto xBrowse

PostPosted: Tue Dec 05, 2023 2:48 pm
by JoseAlvarez
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: Select all  Expand view

   :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.

Re: Footers con texto xBrowse

PostPosted: Wed Dec 06, 2023 4:25 am
by JoseAlvarez
Listo César,

Tal como indicaste,

Muchas Gracias !!