Xailer forum

Tengo un pagefooter con los totales de una factura. Le he indicado en el diseñador de informes que este pagefooter se imprima solo en la ultima hoja, pero no lo hace. He desmarcado la casilla de imprimir en primera hoja y en esta no se imprime. Funciona correcto. Pero después se imprime en la segunda y sucesivas. Esta marcado imprimir solo en la ultima hoja. pero se imprime en todas menos en la primera.

datato escribió el mié, 19 noviembre 2014 22:54Tengo un pagefooter con los totales de una factura. Le he indicado en el diseñador de informes que este pagefooter se imprima solo en la ultima hoja, pero no lo hace. He desmarcado la casilla de imprimir en primera hoja y en esta no se imprime. Funciona correcto. Pero después se imprime en la segunda y sucesivas. Esta marcado imprimir solo en la ultima hoja. pero se imprime en todas menos en la primera.
Buenos dí­as,
Este problema que tiene es estrictamente de FR y no de la conexión con Xailer/[x]Harbour. Espero que cualquier usuario de este foro puede echarle una mano.
Un saludo

Alguien que pueda ayudarme, por favor.

Hola, de nuevo, no hay nadie que utilice FR para hacer facturas que pueda ayudar, por favor.

Echa un vistazo aquí­
http://www.xailer.com/download?download=110
Saludos

He leí­do el manual, y en la pagina 128 se indica código pascal para solucionar esto con un Footer1
Ya lo he creado. Y he puesto hay los campos totales. He copiado el código
begin
If Engine.CurY>engine.PageHeight-Footer1.Height-50 Then Engine.Newpage;
Engine.CurY := engine.PageHeight-Footer1.Height-50;
end.
Dentro del evento OnBeforePrint del Footer1 como PascalScript
Y me da el siguiente error:
Access violation at address 05fdd2b6 in module 'Frx.Dll'. Read of address 00000038
No se que estoy haciendo mal.

También he puesto este código y no me da ningún error porque indica BEGIN expected
procedure Footer1OnBeforePrint(Sender: TfrxComponent);
BEGIN
If Engine.CurY>engine.PageHeight-Footer1.Height-50 Then Engine.Newpage;
Engine.CurY := engine.PageHeight-Footer1.Height-50;
end;

Intente BEGIN pequeña así­
procedure Footer1OnBeforePrint(Sender: TfrxComponent);
begin
If Engine.CurY>engine.PageHeight-Footer1.Height-50 Then Engine.Newpage;
Engine.CurY := engine.PageHeight-Footer1.Height-50;
end;

Hola, he probado poniendo el begin pequeño como indicas, ya lo habí­a probado antes, pero he vuelto a hacerlo y el comportamiento es el mismo.
mensaje abajo en el diseñador de reportes "BEGIN expected"

Conseguido de casualidad.
el código que funciona es este
procedure ReportSummary1OnBeforePrint (Sender: TfrxComponent) ;
begin
If Engine.CurY>engine.PageHeight-ReportSummary1.Height-50 Then Engine.Newpage;
Engine.CurY := engine.PageHeight-ReportSummary1.Height-50;
end;

begin
end.