Re: Agilizar los totales de un Browse con DbfDataSet

[zeasoftware]

Lei tu mensaje en otro foro:
ando un poco a la carrera, te pongo un proceso que hago pero algo complejo
por valores que uso de oros lados, pero puede servirte de guia.
Luego pon comentarios y te apoyo con mis pequeños conocimientos.
METHOD ColAccounting( oSender ) CLASS ZCatMaintenance
Local nLibros
MemVar oData
oData := ::oDataSet
With Object oSender
With Object ::oManttoProgressBar
:lVisible := .t.
:nMax := ::oDataSet:KeyCount()
End With
//aplica el valor al pie
::oDataSet:SaveState( .t. )
::oDataSet:GoTop()
::oDBBrowse1:lFooter := .t.
nLibros := 0.0
While !::oDataSet:Eof()
// ProcessMessages()
::oManttoProgressBar:nValue++
IF ::EventAssigned( "OnColAccounting" )
nLibros += ::OnColAccounting( ::oDataSet, :oDataField:cName )
Else
nLibros += &( "oData:" + :oDataField:cName )
End
::oDataSet:Skip(1)
End
::oDataSet:RestoreState( .t. )
:cFooter := Transform(nLibros, "999,999,999,999,999.99")
::oManttoProgressBar:lVisible := .f.
End With
RETURN ( .f. )
//---------------------------------------------------------- --------------------
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com