Page 1 of 1

wbrowse suma de columas

Posted: Sat Aug 04, 2007 11:05 pm
by Ruben D. Fernandez
Amigos:

Es posible con el browse de HDC sumar una columna y colocar
el resultado en el footer?, que cambie segun se inserta o borran registros

Muchas gracias
Saludos

Ruben Fernandez

Posted: Sun Aug 05, 2007 2:11 am
by Francisco Horta
Ruben, por supuesto que se puede, mira aqui no es captura, pero se hace igual..
http://hyperupload.com/download/02c9ddd ... s.JPG.html
salu2
paco

Posted: Sun Aug 05, 2007 12:32 pm
by Ruben D. Fernandez
Gracias Paco:

El asunto es como se hace...

Saludos y Gracias

Ruben Fernandez.,

Posted: Sun Aug 05, 2007 2:55 pm
by R.F.
Es muy simple:

Un "footer" es un arreglo de cadenas de caracteres:

oBrw:aFooters := {"Sumas",TRANSFORM(suma(),"99999"), .....}

La magia consiste en recalcular los footers cada vez que haces una insercion o un borrado en la tabla.


La cosa sale mas rapido si haces bloques de codigo en lo footers:

Code: Select all

oLbx2:aFooters := {"Sumas:",;
                              Transform(EVAL({|| SumaSal(aSaldos,2,oLbx2)}),"999,999,999.99"),;
                              Transform(EVAL({|| SumaSal(aSaldos,3,oLbx2)}),"999,999,999.99"),;
                              Transform(EVAL({|| SumaSal(aSaldos,4,oLbx2)}),"999,999,999.99"),;
                              Transform(EVAL({|| SumaSal(aSaldos,5,oLbx2)}),"999,999,999.99")}
y la funcion SumaSal():

Code: Select all

FUNCTION SumaSal(aArreglo,nCol,oBrw)
   LOCAL nSuma := 0
   AEVAL(aArreglo,{|x,y| nSuma += EVAL(x[nCol])},1,oBrw:nAt)
RETURN (nSuma)
Y listo, mas simple ni hacer limonada

Posted: Sun Aug 05, 2007 3:14 pm
by Ruben D. Fernandez
Gracias Maestro Rene

Saludos

Ruben Fernandez.