Ver Mensaje Individual
  #16  
Antiguo 26-11-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
El que ha hecho mal las cosas soy yo. Ya dije que no he usado nunca el Composite, y entendí mal el funcionamiento.

Al parecer tienes que hacerlo así:
Código Delphi [-]
procedure TFrmPolizas.TBtnImprimirClick(Sender: TObject);
var
  Valores: tInifile;
  ImprCGPolizas : String;
begin
  Valores := TIniFile.Create('DatosGestion.ini');
  ImprCGPolizas := Valores.ReadString('Polizas', 'Condiciones_Generales', '0');
  Valores.Free;
// Procedimiento para cubrir valores
  ImprimirPoliza;
  QrCompositeReport.Preview;
end;

// En tu compositeReport, inspector de objetos, evento OnAddReports, doble clic
procedure TFrmPolizas.QRComposite1AddReports(...);
begin
  QrCompositeReport.Reports.Clear;
  QrCompositeReport.Reports.Add(FrmListPoliza.QRPoliza);
  QrCompositeReport.Reports.Add(FrmCondicionesPoliza.QRListado);
end;
El evento OnAddReports salta cuando se va a realizar el OnPreview del Composite, y se le debe decir en ese evento los informes que debe añadir.

... La verdad no se parece a la forma de trabajar de Delphi, así que no resulta nada intuitivo .

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita