Ver Mensaje Individual
  #1  
Antiguo 14-12-2007
fonx fonx is offline
Miembro
 
Registrado: feb 2007
Posts: 54
Reputación: 20
fonx Va por buen camino
Fallo al cargar archivo .QRP

Hola, estoy intentando pasar un informe a pdf cargándolo primero desde el disco duro. desde un archivo .qrp. Si confecciono el informe y lo paso directamente a pdf funciona bien, pero si confecciono el informe, lo guardo a .qrp, y lo cargo de nuevo ya no exporta bien. Como sé que la exportación a pdf funciona bien entonces el problema está o en guardar el informe a .qrp o en cargar el archivo .qrp.

A ver si alguien ve en este código algo q esté haciendo mal. Gracias de antemano.

Código:
Procedure TFNGC3.GenerarInformeEncabezado(var numeroInforme:integer;usuarioInf:string;descrEmpresa:string;descrFoco:string);
var
   informeEncabezado:TQREncabezado;
   filtroPDF:TPsQRPDFFilter;
   qrResultado:TQuickRep;
begin

   numeroInforme:=numeroInforme+1;
   informeEncabezado:=TQREncabezado.Create(nil);
   informeEncabezado.QRPrinter:=TQRPrinter.Create();
   informeEncabezado.QRLblTecnico.caption:=usuarioInf;
   informeEncabezado.QRLblEmpresa.caption:=descrEmpresa;
   informeEncabezado.QRLblFoco.caption:=descrFoco;
   informeEncabezado.QRLblFecha.caption:=formatDateTime('dd/mm/yyyy hh:mm:ss',FechaVisita);
   informeEncabezado.Prepare();
   informeEncabezado.QRPrinter.Save('..\informes\_temp\'+IntToStr(numeroInforme)+'.QRP');
   //---

   filtroPDF:=TPsQRPDFFilter.Create('..\informes\_temp\'+IntToStr(numeroInforme)+'.pdf');
   qrResultado:=TQuickRep.Create(Self);
   qrResultado.QRPrinter:=TQRPrinter.Create();
   qrResultado.QRPrinter.Load('..\informes\_temp\'+IntToStr(numeroInforme)+'.QRP');
   qrResultado.Refresh;
   qrResultado.ExportToFilter(filtroPDF);

   //---
end;
Responder Con Cita