Suma y sigue en FastReport

[charly]

Hola a tod@s.

Esta es la solucion que le he dado al problema, la dejo aqui por si le vale a alguien.

He creado dos variables : nPage y nPageTotal, la primera la pongo a cero en cada inicio de pagina en el evento BeginPage

procedure TDMLstFapCli.frFacturaBeginPage(pgNo: Integer);
begin
nPage := 0;
end;

Y el en evento EndPage, sumo nPage a nPageTotal

procedure TDMLstFapCli.frFacturaEndPage(pgNo: Integer);
begin
nPageTotal := nPageTotal + nPage;
end;

Y para rellenar el valor de nPage uso un campo oculto en el diseño (en la banda MasterData ) llamado [VER] y en el evento OnGetValue pongo lo siguiente:

if ParName = 'VER' then
begin
nPage := nPage + QLinIMPORTE_LINEA.Value;
end;

La verdad es que la solución de guillotmarc erá muy elegante, pero por algun motivo (culpa mia seguro) no me funciona.

Ah, hay que desactivar la doble pasada.

Un saludo.