ACTUALIZAR VALOR DE FOOTER EN TSBROWSE

[EASYSOFT]

Buenas noches amigos de foro

Quiero actualizar el footer de una columna que nunca edito es decir no puedo utilizar el preedit ni posedit, cargo el vector cada que presiono un boton y en ese momento quiero que se actualizar el footer e intentado de todo


ADD COLUMN TO BROWSE oBrw ARRAY ELEMENT 5 PICT "99,999,999.99" ;
HEADER oemtoansi("Saldo") WIDTH 100 ;
ALIGN DT_CENTER ;
MOVE DT_MOVE_DOWN;
COLORS CLR_RED,CLR_HGRAY;
FOOTER { || aSaldo += Sumasaldo( aTestData,oBrw,oDlg) }
// activando footers
oBrw:lFooting := .T.

oBrw:aColumns[ 2 ]:cFooting := "Saldo Total.."

* oBrw:Acolumns[ 5 ]:cFooting := { || LTrim( Transform( aSaldo, "#,###,###.##" ) ) }

* oBrw:aDefault := {0,0,0,0,{ || aSaldo:= Sumasaldo( aTestData,oBrw,oDlg),oBrw:DrawFooters(),0 } }

* oBrw:Acolumns[ 5 ]:cFooting := { || LTrim( Transform( aSaldo, "#,###,###.##" ) ),oBrw:DrawFooters() }

* FOOTER { | uVal | aSaldo += ( uVal - aSaldo ),Sumasaldo( aTestData,oBrw,oDlg) }

* FOOTER { || Ltrim( Str( aSaldo,9,2 )) }

[Joel Andujo]

Oscar intenta :

*--// Defino Footer
oBrw:aColumns[3]:cFooting:={ || tran( op:nTotCap,'9999,999.99') }

*--// Modifico variable y pinto de nuevo el Footer
op:nTotCap:=Suma()
oBrw4:DrawFooters()

Espero te sirva, saludos
Joel Andujo[/url]

[EASYSOFT]

Joel

Primero gracias por tu respuesta, lo he probado pero no me funciona lo estoy haciedo de esta manera.


ADD COLUMN TO BROWSE oBrw ARRAY ELEMENT 5 PICT "99,999,999.99" ;
HEADER oemtoansi("Saldo") WIDTH 100 ;
ALIGN DT_CENTER ;
MOVE DT_MOVE_DOWN;
COLORS CLR_RED,CLR_HGRAY
// activando footers
oBrw:lFooting := .T.
*--// Defino Footer
oBrw:aColumns[5]:cFooting:={ || tran( aSaldo,'9999,999.99') }

*--// Modifico variable y pinto de nuevo el Footer
*aSaldo := Sumasaldo( aTestData,Obrw,oDlg)
*oBrw:DrawFooters()



y el draw en la funcion por que en el browse de daun error


FUNCTION carga_mes(manio,oBrwp,aTestData,mcuenta)
local SetArray,j,mesdsc,mmes,asaldo

aTestData:= {}
DBSELECTAREA("tmeses")
ordSetfocus("imeses")
dbgotop()

DBSELECTAREA("ttotmens")
ordSetfocus("itotmen1")
dbgotop()
oBrwp:SetArray( aTestdata )
FOR J = 0 to 12
mmes := RTRIM(LTRIM(str(j,2)))
IF len(mmes) = 1
mmes := '0'+mmes
endif
DBSELECTAREA("tmeses")
ordSetfocus("imeses")
dbgotop()
dbseek(mmes)
mesdsc := tmeses->mesdesc
DBSELECTAREA("ttotmens")
ordSetfocus("itotmen1")
dbgotop()
dbseek(space(4)+mcuenta+manio+mmes)
aAdd(aTestdata,{mmes,mesdsc,ttotmens->tddebe,ttotmens->tdhaber,ttotmens->tddebe-ttotmens->tdhaber})
NEXT
aSaldo := 0.00
AEval( aTestData, {|aItem| asaldo += aItem[5] } )
*aSaldo := Sumasaldo( aTestData,Obrwp,oDlg)
?? aSaldo
oBrwp:DrawFooters()
oBrwp:SetArray( aTestdata )
oBrwp:ResetBarPos()
oBrwp:Refresh()

return nil


Si algo esta mal o hay otra manera agradeceria tu ayuda

[mmercado]

Quiero actualizar el footer de una columna que nunca edito es decir no puedo utilizar el preedit ni posedit

Puedes actualizar el footer de una columna desde la edición de otra(s), sobre todo si la edición de dicha(s) columna(s) afecta el valor del footer de la columna en cuestión.

cargo el vector cada que presiono un boton y en ese momento quiero que se actualizar el footer e intentado de todo

También puedes actualizar el valor del footer desde una función ajena al browse, solamente tendrás que refrescar el footer con oBrw:DrawFooters() o con oBrw:Refresh()

* oBrw:aDefault := {0,0,0,0,{ || aSaldo:= Sumasaldo( aTestData,oBrw,oDlg),oBrw:DrawFooters(),0 } }

* oBrw:Acolumns[ 5 ]:cFooting := { || LTrim( Transform( aSaldo, "#,###,###.##" ) ),oBrw:DrawFooters() }

El codeblock que asigna el valor al footer, debe devolver el dato correcto. Ya que estoy viendo que el codeblock que defines devuelve una referencia al mismo browse (oBrw:DrawFooters), quita esa instrucción del codeblock y llamala externamente aprovechando algún otro evento, preferentemente desde la(s) funcion(es) que modifica(n) el valor del footer.

Un abrazao.

Manuel Mercado.

[EASYSOFT]

Listo Funciono



Gracias Joel

Gracias Sr. Mercado