Page 1 of 1
Footers con texto xBrowse
Posted: 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
: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
Posted: 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
oBrw:aArrayData=aDatos // donde aDatos es tu array con la info actualizada
oBrw:Refresh()
Saludos
Re: Footers con texto xBrowse
Posted: 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
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
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
Posted: 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
: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
Posted: 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
: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
Posted: Wed Dec 06, 2023 4:25 am
by JoseAlvarez
Listo César,
Tal como indicaste,
Muchas Gracias !!