[Help] Un CompositeReport Fino.

[nelostanley]

Era una de las alternativas hacerlo de esa forma pero de todas formas no vuelve a mostrar el reporte al 2do intento.

Quizas si tuvieras un ejemplo de como codificas tus reportes Composite me sea una gran ayuda, muchas gracias de antemano.

[[egostar]]

En la ayuda de QReport viene este código.

Código Delphi [-]
procedure MakeComp;
 begin
     comprep := TQRCompositeReport.Create( mainfrm);
     comprep.OnAddReports := mainfrm.CompRepAddReports;
     comprep.Preview;
     comprep.free;
 end;


 procedure Tmainfrm.SpeedButton1Click(Sender: TObject);
 begin
     MakeComp;
 end;


 procedure Tmainfrm.CompRepAddReports(Sender: TObject);
 begin
    comprep.Reports.Add( repfrm1.quickrep1 );
    comprep.Reports.Add( repfrm2.quickrep1 );
 end;

Nada que ver con tu código.

Salud OS.

[waly2k1]

Intentá sacar los create y los destroy/free.
Probá a ver si te funciona. Igualmente estás refrescando los datos.

Salu2 y espero te sirva

[nelostanley]

Gracias a todos por su participación, saque un poco de cada ingrediente y por fin me salio el pastel como queria.

Ahi va la solucion.... para su servidor:

Con mi codigo(pos asi lo hago yo ), sacar del try y el except:

Código Delphi [-]
qr1.Free ;
qr1.Destroy ;

Poner en el try obviamente con el nombre de mi Composite:

Código Delphi [-]
     
comprep := TQRCompositeReport.Create( mainfrm);     
comprep.OnAddReports := mainfrm.CompRepAddReports;     
comprep.Preview;     
comprep.free;

Con esto puedo ver el mismo reporte las veces ke me venga la gana.

Que no daria por el AYUDA del QR4 en los hilos del foro hay un zip pero esta corrupta (baja pero no descomprime), si alguien lo podria subir seria de gran ayuda tanto para mi como para otros.

Muchas Gracias!!!.