PDA

Ver la Versión Completa : Problema con PageFooter usando QRCompositeReport


hassasin
25-07-2012, 03:03:27
Hola, estoy intentando unir 2 Quickreports (ambos en el mismo formulario) con el componente TQRCompositeReport, el segundo quickreport muestra un resumen de los datos del primero que contiene una banda detail, cada uno tiene una banda pagefooter, ambos completamente diferentes, para el primer quickreport se generan varias hojas pero solo en la primer hoja me imprime su correspondiente pagefooter y mi problema es que para las siguientes hojas imprime el pagefooter del segundo quickreport y necesito que continue imprimiendo el pagefooter del primero (al cual pertenecen). Espero puedan ayudarme, gracias.

MartinS
25-07-2012, 13:03:29
Y mas o menos... ¿Como incorporas los Qreport al composite?, ¿Utilizas alguna propiedad adicional?, que version?.

Saludos

hassasin
25-07-2012, 19:41:37
Uso la versión 5.02 de quickreport en delphi 2007 y firebird 2.5, no modifique ni una sola propiedad del componente QRCompositeReport, como mencione ambas hojas o plantillas de quickreport estan en un solo formulario, el QRCompositeReport se encuentra en la misma ventana y en su propiedad OnAddReports se encuentra lo siguiente:

procedure TfrmEstimations.QRCompositeReport2AddReports(Sender: TObject);
begin
QRCompositeReport1.Reports.Clear;
with QRCompositeReport1.Reports do
begin
Add(qrEstimations);
Add(qrSummary);
end;
end;

Llamo al informe desde una ventana principal de reportes, el código para llamar a este reporte es :

procedure TfrmEstimationsReports.btnGenerateReportsClick(Sender: TObject);
begin
with frmReport_Estimations do
begin
if fcnInitialization then
begin
qrEstimations.Prepare;
qrEstimations.PreviewModal;
end;
end
end;

La función fcnInitialization la uso para preparar los SQL.

La información se muestra correctamente, se unen ambos reportes, pero el pie de página del segundo lo muestra en lugar del pie de página del primero, ese es el único problema. Por ejemplo si se generan 6 hojas del primer quikcreport y obviamente una del segundo quickreport, se imprime el pie de página del primero únicamente en la primer hoja y en las restantes 5 se imprime el pie de página del segundo quickreport cuando deberia de seguir imprimiendo el pie de página del primer quickreport. Si no uno los reportes y visualizo únicamente el primer quickreport si se imprime bien el pie de página en todas las hojas, y si únicamente visualizo el segundo quickreport también se imprimen los datos de forma correcta. De antemano gracias por responder.

hassasin
25-07-2012, 20:30:33
Aún no me permiten colocar enlaces o imagenes en el foro, por eso dejo los links de esta forma. :(

Imagen de Propiedades de TQRCompositReport :

flickr.com/photos/83458604@N03/7644921348/in/photostream/lightbox/

Imagen de Propiedades de TQuickRep (son las mismas para ambos reportes) :

flickr.com/photos/83458604@N03/7644930684/in/photostream/lightbox/

MartinS
25-07-2012, 21:12:04
Solo para verificar:

1.- QrEstimacions que serian?
2.- Y si haces la llamada al TQrcompositeReport así:

procedure TfrmEstimationsReports.btnGenerateReportsClick(Sender: TObject);
begin
with frmReport_Estimations do
begin
if fcnInitialization then
begin
// qrEstimations.Prepare;
// qrEstimations.PreviewModal;
QRCompositeReport1.Preview; // Para una preliminar
end;
end
end;

Puse QRCompositeReport1 ya que a ese le estas asignando los reportes unitarios o estoy equivocado?
a modo de ejemplo yo lo uso asi:

procedure TPImpInstitucional.ConjuntoAddReports(Sender: TObject);
begin
With Conjunto.Reports do
Begin
Add(RepActitud);
Add(RepTrayectoria);
End;
end;
Donde conjunto es un TQRCompositeReport y despues de acuerdo a un selector de impresion hago esto:

case destinoImpresion of
0: Conjunto.Preview;
1: Conjunto.Print;
2: Begin
SaveDialog1.FileName := ConsInt.FieldByName('Apellidos').AsString+', '+
ConsInt.FieldByName('Nombres').AsString+'.pdf';
SaveDialog1.Execute();
Conjunto.ExportToFilter(TQRPDFDocumentFilter.Create(SaveDialog1.FileName+'.pdf') );
End;
end;


Saludos.-

Casimiro Notevi
25-07-2012, 21:17:37
Aún no me permiten colocar enlaces o imagenes en el foro, por eso dejo los links de esta forma. :(

Pon el enlace de esta forma, por ejemplo:

ww.loquesea.com/foto.jpg
ttp://www.unsitio/algunafoto.jpg


Y algún moderador te pone la letra que falta para que salga la imagen.

hassasin
25-07-2012, 21:48:46
Lo siento (no llamo a qrEstimations para la vista previa), qrEstimations es el primer reporte unitario y qrSummary el segundo, ciertamente como mencionas, a QRCompositeReport1 le asigno los reportes unitarios como lo describi anteriormente y uso el mismo QRCompositeReport1 (soló tengo un componente de este tipo) para la previsualización.



Tengo el código de vista previa de esta forma


frmReport_Estimations.QRCompositeReport1.Preview;


He estado probando las propiedades FisrtPageHeader y LastPageFooter tanto del QRCompositeReport1 como de los quickreports pero no me resuleve el problema. No he modificado propiedades de las hojas, más que la orientación de las mismas (Landscape) y desactivar las propiedades PrevShowSearch y PrevShowThumbs que no me parecen relevantes para el problema. no se si sea un bug del QRCompositeReport o me falta verificar alguna propiedad del componente o de las hojas.