Footers con texto xBrowse

Footers con texto xBrowse

Postby JoseAlvarez » 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: Select all  Expand view  RUN
: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.
User avatar
JoseAlvarez
 
Posts: 797
Joined: Sun Nov 09, 2014 5:01 pm

Re: Footers con texto xBrowse

Postby JESUS MARIN » Tue Dec 05, 2023 7:14 am

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

Code: Select all  Expand view  RUN

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


Saludos
Jesús Marín
JESUS MARIN
 
Posts: 176
Joined: Wed Jan 02, 2019 8:36 am

Re: Footers con texto xBrowse

Postby JoseAlvarez » 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: Select all  Expand view  RUN

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  RUN

    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.
User avatar
JoseAlvarez
 
Posts: 797
Joined: Sun Nov 09, 2014 5:01 pm

Re: Footers con texto xBrowse

Postby cmsoft » 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: Select all  Expand view  RUN

   :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()
 
User avatar
cmsoft
 
Posts: 1291
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Footers con texto xBrowse

Postby JoseAlvarez » Tue Dec 05, 2023 2: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: Select all  Expand view  RUN

   :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.
User avatar
JoseAlvarez
 
Posts: 797
Joined: Sun Nov 09, 2014 5:01 pm

Re: Footers con texto xBrowse

Postby JoseAlvarez » Wed Dec 06, 2023 4: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.
User avatar
JoseAlvarez
 
Posts: 797
Joined: Sun Nov 09, 2014 5:01 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], Verhoven and 48 guests