CompositeReport con reportes anidados

[santiago14]

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;

[rgstuamigo]

Y que problemas tienes?
Saludos...

[santiago14]

Empezado por rgstuamigo

Y que problemas tienes?
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.

[rgstuamigo]

Empezado por santiago14

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, es decir llamar la atencion de que solo ella existe y nadie mas.......No mentira es una broma..
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...

[[Lepe]]

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.

[santiago14]

Empezado por Lepe

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.

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.