Página 1 de 1

Sumar datos

Publicado: Jue Dic 06, 2007 1:04 pm
por ssi-quita-esto
En que evento y como seria la mejor para sumar todos los datos de una
columna de un dbBrowse cada vez que cambie de linea.
Paco V

Sumar datos

Publicado: Jue Dic 06, 2007 5:50 pm
por Rene Flores
Paco:
Usa el evento OnChange, yo lo hago asi, para que me sume las columnas de
un ArrayBrowse conforme se va moviendo dentro de el:
METHOD SumaSaldos( oSender, lBookMarkChanged ) CLASS Catcue
LOCAL nSumaCargos := 0 , nSumaAbonos := 0
WITH OBJECT oSender
AEVAL(::aSaldos,{|x,y| nSumaCargos += x[3], nSumaABonos +=
x[4]},1,:nArrayAt)
:aCols[3]:cFooter := TRANSFORM(nSumaCargos,"999,999,999.99")
:aCols[4]:cFooter := TRANSFORM(nSumaAbonos,"999,999,999.99")
END
RETURN Nil
Saludos
Rene Flores
http://www.ciber-tec.com
V. escribió:
> En que evento y como seria la mejor para sumar todos los datos de una
> columna de un dbBrowse cada vez que cambie de linea.
>
> Paco V
>
>