Problema con PageFooter usando QRCompositeReport

[hassasin]

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]

Y mas o menos... ¿Como incorporas los Qreport al composite?, ¿Utilizas alguna propiedad adicional?, que version?.

Saludos

[hassasin]

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:

Código Delphi [-]
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 :

Código Delphi [-]
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]

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]

Solo para verificar:

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

Código Delphi [-]
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:

Código Delphi [-]
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:

Código Delphi [-]
    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]

Empezado por hassasin

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]

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

Código Delphi [-]
        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.