Quickreport, unir dos informes

[Alexis7788]

Hola a todos, sé que quickreport da la opción de unir dos informes en uno solo pero por más que busco no encuentro documentación acerca de cómo poder hacer esto. ¿Alguien sabe cómo?? Gracias

[[Lepe]]

Busca en la ayuda por TCompositeReport.

Se trata de crear un composite y después añadir los informes:
(vagamente):

Código Delphi [-]
var c:TcompositeReport;
begin

   c := Tcompositereport.create(self);
   c.add(qrclientes); // añado un QuickReport que ya existe y se llama qrclientes;
   c.Add(qrDirecciones); // añado otro quickreport;
   c.PreviewModal;

FreeAndnil(c);

Saludos

[Alexis7788]

algo faltará que no consigo ver, me sale el composite vacío

[[Lepe]]

Según he visto por el foro, (que hay bastante sobre el compositeReport) tienes que poner a true la propiedad PrintifEmpty de cada informe.

Por supuesto tendrás que abrir las consultas o tablas de donde saques los datos para cada informe, parece obvio, pero igual se olvida.

Aquí tienes una guía rápida, supongo que habrás hecho eso mismo, o muy parecido.

Edito: en tu carpeta de delphi\demos tienes varios ejemplos de QR3 y uno en concreto del compositeReport

Por mi parte, nunca he usado el CompositeReport, así que no puedo darte más información.

Saludos.

[marlulipe]

Hola... también estoy con un problema con el composite, pero un poco diferente. Les cuento: tengo 3 formularios A, B y C

A: se llama desde el menu y se eligen alumno y curso al que pertenece para mostrar en los reports los examenes q rindio y notas
B: es llamado por A y contiene un quick report con varios datos tomados de la BD. Ademas contiene el composite report
C: contiene otro quick report que quiero adosar al reporte en A.

Hago lo siguiente, en el Form A cuando hace click en el botón para ver el reporte:

// FORM A
procedure tFormA.ButtonClick(Sender...){
if(FormB=nil) then
Application.CreateForm(TFormB, FormB);
}

// FORM B
procedure tFormB.FormCreate(Sender...){
// ... tomo datos de la BD

QRCompositeReport.Preview;

// ...
}

procedure TFormB.QRCompositeReportAddReports(Sender..);
begin
with (QRCompositeReport.Reports) do begin
Add(QuickRenFormB);
Add(FormC.QuickRenFormC);
end;
end;

En la línea de código marcada en rojo es en la cual tengo problemas, porque mi form C es nil, no está creado aún. Intenté varias cosas como crearlo antes del preview del composite pero solo me muestra el form C y luego cuando intenta hacer el preview me da error.
Nunca creo los formularios hasta que los necesito, y luego los destruyo, Sé cuál es el error pero no sé cómo solucionarlo y no sé cómo se suelen manejar uds en la creación de forms

Agradeceré muchísimo su ayuda!!! Espero que entiendan el resumido código que puse y sino no duden en preguntar!

[chavi]

Estoy intentando el ejemplo de Lepe 1º y me da el error:

[Error] Polizas.pas(2712): Undeclared identifier: 'TCompositeReport'

Al declarar

Var
c:TCompositeReport;

Tengo que llamar alguna 'Uses'? Llamo a Printers y tampoco.
Uso QR 3.0.5

Saludos

Chavi

[chavi]

Estoy intentando el ejemplo de Lepe 1º y me da el error:

[Error] Polizas.pas(2712): Undeclared identifier: 'TCompositeReport'

Al declarar

Var
c:TCompositeReport;

Tengo que llamar alguna 'Uses'? Llamo a Printers y tampoco.
Uso QR 3.0.5

Saludos

Chavi

[[Lepe]]

Además de crear el FormC, tendrás que abrir las consultas,

Código Delphi [-]
procedure TFormB.QRCompositeReportAddReports(Sender..);
begin
    with (QRCompositeReport.Reports) do begin

      Add(QuickRenFormB);

   if not Assigned(FormC) then
   begin
      FormC := TFormC.Create(self);
      FormC.ABrirConsultas;    
      Add(FormC.QuickRenFormC);
    end;
end;

Saludos