[Lazarus-es] Sumar grupos a partir de una variable en un reporte

[Maxi]

en el evento beforeprint creo deberia llevar alli la cuenta, o usar un
control con la funcion Sum y que reinicie a cero al final de cada
grupo.
No tengo a mano el reporteador.

El día 21 de agosto de 2013 17:04, Ismael L. Donis Garcia
<ismael en citricos.co.cu> escribió:
> Estoy tratando de realizar un reporte con multiple grupos anidados, donde
> cada grupo debe tener una sumatoria de una variable, pero no logro ni
> obtener la sumatoria del primer grupo:
>
> Los grupos serían: Cuenta, subcta, capítulo, subcap, elemento, empresa.
>
> A las variables les paso el valor de la sigiente forma:
>
> procedure Tflbal.rptGetValue(const ParName: String; var ParValue: Variant);
> begin
>   if (ParName = 'SALDEBE') then
>     begin
>       if (UpperCase(dm.rssc3.FieldByName('nat').AsString) <> 'A') then
>        ParValue := dm.rssc3.FieldByName('saldo').AsFloat;
>     end
>   else if (ParName = 'SALHABER') then
>     begin
>       if (UpperCase(dm.rssc3.FieldByName('nat').AsString) = 'A') then
>        ParValue := dm.rssc3.FieldByName('saldo').AsFloat;
>     end;
> end;
>
> El reporte deberia ser por ejemplo:
>
> Cuenta       Nombre                          Debito              Credito
> xxx           xxxx                         suma(saldebe)   suma(salhaber)
>    subcta    Nombre
>    xxx        xxxx                         suma(saldebe)   suma(salhaber)
>    capitulo  Nombre
>    xxx     xxxx                            suma(saldebe)   suma(salhaber)
>
>
> Y así hasta la empresa.
>
> Pero no puedo obtener ni la sumatoria de la cuenta. Y probado de cuanta
> forma se me ha ocurrido. Y no encuentro como hacerlo.
>
> Alguien me podría decir como?
> ========
> | ISMAEL |
> ========
> Only for the small landowners and Cubans companies
> Website: www.sisconge.byethost15.com
>               www.sisconge.hol.es
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>



-- 
El que pregunta aprende, y el que contesta aprende a responder.

No a la obsolecencia programada:
http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml

Linux User #495070
http://domonetic.com/blog