wbrowse suma de columas

[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

[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

[Ruben D. Fernandez]

Gracias Paco:

El asunto es como se hace...

Saludos y Gracias

Ruben Fernandez.,

[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  Expand view

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  Expand view

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

[Ruben D. Fernandez]

Gracias Maestro Rene

Saludos

Ruben Fernandez.