Sumar totales en QReport

[flor]

Hola, tengo un reporte de las ventas del dia que es generado por una consulta en sql, me despliega varias paginas, lo que necesito es que en cada pagina me arroge el total de las ventas de esa pagina.

por ejemplo :

tengo los datos de la venta en el reporte:

en la primera hoja:.

Producto precio cantidad total
anillo 400 2 800
diamante 500 1 500
....

suponiendo que se lleno la hoja con esos datos, el total de esa hoja deberia dar 1300,

si en la segunda hoja los totales suman 1000 entonces el total que se debera ver es la suma del total de la hoja anterior mas el total de la segunda hoja, lo cual sera 2300. y asi sucesibamente.

si pudiera alguien ayudarme con este problema se los agradeceria.:)

[marcoszorrilla]

procedure TForm1.FormCreate(Sender: TObject);
begin
nParcial:=0;
Application.ProcessMessages;
Quickrep1.PreviewModal;
end;

procedure TForm1.QRDBText2Print(sender: TObject; var Value: String);
begin
nParcial:=nParcial + Table1Total.Value;
end;

procedure TForm1.PageFooterBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
qrlabel1.caption:=FormatFloat(',0.00',nParcial);
end;


Creas una variable accesible, desde la unidad nParcial, una banda cabecera, detalle y pie de página, en la banda detalle aprovechamos el evento de cualquiera de los campos para ir dando valores a nParcial, en el evento "BeforePrint", del pie le vamos pasando los valores acumulados a una etiqueta tipo "QrLabel", que previamente hemos creado en dicha sección.

[ContraVeneno]

Pones una banda tipo pié de página ("PageFooter") y le agreguas un TQRExpr el cuál en su propiedad "Expression:" debería tener: SUM(TuCampoASumar)