Ver Mensaje Individual
  #3  
Antiguo 04-06-2013
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 585
Reputación: 23
santiago14 Va por buen camino
Question

Con algo de tozudez he podido avanzar algo, lo cuento:
Pude mandar cada "historia clínica" seleccionada a un archivo .qrp, eso lo he logrado de la siguiente manera:

Código Delphi [-]
  for i:=0 to (nros_caravana.Count - 1) do
  begin
 //.... código que no viene al caso

    QRCompositeReport1.Prepare; //Esto ejecuta el OnAdd que levanta los informes particulares, anda bien.
    TQuickRep(QRCompositeReport1.Reports.Items[0]).Printer.Save('reportes\Reporte' +   IntToStr(i) + '.QRP');
  end;
  qrcmpstrprtJuegosCompletos.Preview;

Con esto puedo guardar masivamente todas las "historias", lo que no he podido hacer ha sido levantarlas y mostrarlas en el preview, que es la última línea del código.

En el OnAdd de qrcmpstrprtJuegosCompletos:

Código Delphi [-]
procedure TFrmBuscarPesajes.qrcmpstrprtJuegosCompletosAddReports(
  Sender: TObject);
var
  i:Integer;
  r:TQuickRep;
begin
  r:=TQuickRep.Create(nil);
  r.QRPrinter:=TQRPrinter.Create(r);
  with qrcmpstrprtJuegosCompletos.Reports do
  begin
  //Tenemos que recuperar los archivos .qrp que guardamos por ahí
    for i:=0 to (nros_caravana.Count - 1) do
    begin
      r.QRPrinter.Load('reportes\Reporte' + IntToStr(i) + '.QRP');
      Add(r);
    end;
  end;
end;

El código anterior no me da error pero al aparecer la ventana de vista previa no se ve nada, aparece vacía. Para colmo si lo intento nuevamente me dice que el "último .qrp está siendo usado por otro procedimiento y no se puede tocar"

Los avances han sido buenos pero me falta la frutilla del postre que sería poder levantar los .qrp y armar el informe completo.

¿Alguien tiene sugerencias?

Gracias.
__________________
Uno es responsable de lo que hace y de lo que omite hacer.
Responder Con Cita