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.
Última edición por charly fecha: 04-07-2003 a las 12:47:49.
|