Subtotales de un grupo en un PageFooter (QuickReport)

[[jcarteagaf]]

Me imagino que para calcular el Subtotal usas un TQRExpr.

Y que tal si colocas un TQRLabel y haces el calculo del total de manera manual (por eventos):

1. Creas una variable a nivel del reporte

Código Delphi [-]
 fTotal : Double;

2. Inicializas a cero la variable cada vez que se imprime la cabecera del Grupo:

Código Delphi [-]
procedure TqrExtracto.QRGroup1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  fTotal := 0;
end;

3. Vas acumulando el valor deseado en la variable por cada linea de detalle impresa

Código Delphi [-]
procedure TqrExtracto.DetailBand1AfterPrint(Sender: TQRCustomBand;
  BandPrinted: Boolean);
begin
  fTotal := fTotal + TuTabla.TuCampo;
end;

4. En el evento OnBeforePrint del Pie de Pagina muestras el total acumulado

Código Delphi [-]
procedure TqrExtracto.PageFooterBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  qrlabel1.Caption := FormatFloat(',0.00',fTotal);
end;

5. Como decimos por aca, listo el Pollo.

Espero que sirva.

Saludos.

[Lord Delfos]

¡Sí! ¡Magistral!

¡Grande, jcarteagaf!

Funcionó maravillosamente... Hacía dos horas que me estaba peleando con variables y eventos... Es que esto de los reportes es nuevo para mí.

Gracias miles, amigo.

Saludongos.

[ContraVeneno]

Pues yo simplemente si quiero un sub total por cada grupo, coloco un TQRExpr en la banda "GroupFooter" y le coloco su propiedad "ResetAfterPrint" a verdadero. De esa forma, me va dando el subtotal de cada grupo.

Y para un total general, colco un TQRExpr en una banda "Summary" con su propiedad "ResetAfterPrint" a Falso.

Y con eso no tengo que codificar ni variables, ni eventos.