sumatorias por paginas

[[Lepe]]

Necesitas un QRGroupBand, pones un QRExpr dentro y en la expresión le añades Sum(nombreCampo). Añades un QrLabel con el texto: Suma Parcial:


En el BeforePrint del QrLabel, tienes que añadir algo parecido a esto, lo digo de memoria, pero con el code insight de delphi seguro que lo encuentras:

Código Delphi [-]
procedure qreport1.qrlabe1Print(...; Value:Text);
begin
// si es la ultima pagina, cambiamos el "suma parcial" por suma total
  if qreport1.qrprinter.PageNumber = qreport1.qrprinter.PageCount -1 then 
    QrLabel1.caption := 'Suma Total';
end;

saludos

[vtdeleon]

Saludos

He realizado un pequeño ejemplo (algo feo, pero funciona).

He utilizado un QrExp en la seccion de Page Footer, en Detail presento los registros con un QrDBText y uala.