CompositeReport con reportes anidados
 

Bueno, la cosa viene así.
Estoy haciendo un software para un campo de cria de vacas. Hay dos reportes diferentes Pesajes y Enfermedades.

Me están pidiendo que muestre un "informe completo" (pesajes + enfermedades) para toda la colección de animales.
Para que se entienda mejor, por cada animal debo mostrar el informe combinado. Por supuesto, para el propietario esto es un solo informe que ve en la vista previa e imprime.
Lo que hice fue poner un CompositeReport y a través de un for ir cambiando los valores de cada animal al momento del Add.

Un poco mas gráfico sería...

Código Delphi [-]
procedure TFrmBuscarPesajes.qrcrInformeMasivoAddReports(Sender: TObject);
begin
  With qrcrInformeMasivo.Reports, datamodule1, grillaBovinos1 do
  begin
    try
    //Iniciamos la iteración
      for i:= 1 to rowCount - 2 do
      begin
      //Con el pase de las variables globales, se evita el pase de las mismas
      //en cada informe por separado...
        globCodCaravana:=strToInt(cells[0, i]);
        Globcaravana:=cells[1, i];
        globMarca:=cells[2, i];
        globtatuaje:=cells[3, i];
        globcabana:=cells[4, i];
        globFcha_Nac:=cells[5, i];
        globtipo_bovino:=cells[6, i];
        globRaza:=cells[8, i];
        globFoto:=cells[7, i];
       //Agregamos una carátula por ser informe general
        Add(FrmInfGral.ReporteGral);
      //Informes comunes a todos...
        Add(FrmInPesajes.ReportePesajes);
        Add(FrmInfEnfermededes.ReporteEnfermedades);
     end; //del for...
    except
      raise;
    end;
  end; //del with
end;

Las variables "glob..." son las que ponen los diversos datos en los reportes.
Por ejemplo, en el caso de tener 10 vacas, me salen 10 hojas, pero los datos que pone en las 10 hojas corresponden a la última vaca de la lista.

La llamada al composite es de la siguiente manera:

Código Delphi [-]
procedure TFrmBuscarPesajes.btnInformeMasivoClick(Sender: TObject);
begin
  with GrillaBovinos1 do
  begin
    if RowCount > 2 then
    begin
      try
      //Hacemos la composición de informes...
        qrcrInformeMasivo.Preview;
      except
        on e:EMDOError do
      begin
        mErrores(e, 'Informe general no pudo completarse.', 'Informes');
      end;
      end;
    end
    else
    begin
      MessageBox(handle,'La grilla está vacía', 'Informe general masivo.',
        MB_OK + MB_ICONERROR);
    end;
  end;
end;

Y que problemas tienes?:confused:
Saludos...:)

El problema está en que cuando muestro el informe (composite.preview) me salen todas las hojas con los datos del último animal de la lista.
Si tengo 10 animales, la composición del informe da por resultado 10 hojas, pero en todas me salen los datos de la última vaca.

Lo que pasa es la última vaca quiere adueñarse de todo:D, es decir llamar la atencion de que solo ella existe y nadie mas...:D:D....No mentira es una broma.;):):D.
Talves estas haciendo algo incorrecto en alguna parte de tu codigo, de tal manera que solo estas adicionando solo el reporte de la ultima Vaca o repitiendo la misma adicion.
En todo caso siempre es bueno antes de previsualizar llamar al método Prepare de tu CompositeReport para preparar el reporte.

Código Delphi [-]
...
qrcrInformeMasivo.Prepare;//Preparamos el reporte con anticipacion
qrcrInformeMasivo.Preview;...

Si con eso no se soluciona, pues deberias revisar bien código en que parte esta fallando.;)
Saludos...:)

Me parece a mí que eso está mal diseñado, aunque puedo equivocarme.

Digamos tú tienes un dataset bovinos, los 2 informes hacen uso de él, ahora en el evento AddReport del composite es donde tienes que agregar los informes (¡¡pero no los datos !!). Cuando haces el preview, entonces es cuando se recorre el dataset bovinos y para cada registro aparece el composite, es decir, los 2 quickreports en la misma página.

Creo tu error está en suponer que en el evento OnAddReports realmente se construye el informe con los datos. No, ahí no se contruye nada, solo se monta el esquema del informe. Los datos se unen al informe al llamar al Preview del composite.

La forma en que funciona ahora mismo es la correcta. Es decir, muestra los datos de 1 sólo registro porque el dataset está apuntando al penúltimo registro y te muestra 10 folios porque has añadido un monton de informes al composite.

Creo no me he explicado, el evento OnAddReports debe ser:

Código Delphi [-]
procedure TFrmBuscarPesajes.qrcrInformeMasivoAddReports(Sender: TObject);
begin
  With qrcrInformeMasivo.Reports, datamodule1, grillaBovinos1 do
  begin
       //Agregamos una carátula por ser informe general
        Add(FrmInfGral.ReporteGral);
      //Informes comunes a todos...
        Add(FrmInPesajes.ReportePesajes);
        Add(FrmInfEnfermededes.ReporteEnfermedades);

  end; //del with
end

Ese evento no es para iterar sobre los datos.

Puedes tener razón y que realmente esté mal diseñada la cosa. Ahora, si no puedo agregar los datos en el AddReports. ¿Cómo hago para mostrar los datos de los animales en el reporte?

Saludos.

En principio sería de los datasets a los que está asociado cada informe, y creo es precisamente lo que quieres evitar (por ser más trabajo).

¿Has probado lo más fácil? mover el grillabovinos al primer registro, poner en el OnAddReports el código del mensaje anterior y mandar a imprimir. ¿qué sale? Lo pregunto porque al usar variables globales igual te funciona ya.

Los dataset de esos 3 informes ¿de donde provienen? de una consulta, de una tabla, de una vista, Un SP ¿?

Quizás incluso puedas cambiarle el SQL a los informes antes de lanzarlos, así podrías eliminar los registros que no te interesen...

Cada informe (enfermedades y pesos) tienen una consulta SQL asociada, en este caso en el beforePrint. Necesita esa consulta para trabajar un solo valor, el codAnimal (globCodCaravana es la global que la maneja) que está en la grilla en pantalla (oculto claro), el asunto de las variables globales no es de mi agrado pero mi ex-socio ya me lo dejó así y como estoy medio apurado no me puse a pensar en como sacarlas del medio.
Las otras variables glob... pasan valores al encabezado del quickreport (fecha nacimiento, sexo, raza, etc.)

Cada informe por separado funciona muy bien, claro, están pensados para mostrar los datos de un solo animal por vez (por click para que se entienda). Bajo ese concepto al momento de ver los datos de la vaca con identificación 1005 le paso el valor de codAnimal al quickreport y en el beforeprint se resuelve todo.
La cosa es que ahora esta gente quiere mostrar (preview) e imprimir a todos los animales de una vez (de un solo click digamos). Lo mas sensato es pensar en usar el Composite para lograrlo. Pero bueno, los intentos que hice han sido en vano y son las líneas de código que puse arriba.
La idea era que al tener varios animales en la grilla, recorrerla de principio a fin e ir pasando el codAnimal que activa las consultas internas y que el Composite me vaya armando el reporte final. No lo he logrado, quizás no esté lejos pero aún no sale.
Bueno, espero que con esto se haya aclarado un poco mas.
Desde ya muchas gracias.

Saludos.