Guardar Archivo

[[maeyanes]]

Prueba con estas modificaciones:

Código Delphi [-]
procedure TOrdenes.Generar_PDF;
Var
  aPDFFilt : TQRPDFDocumentFilter;
  Nom : String;

begin
  Filtra_Orden;
  //Guarda_Pdf.Title := 'Orden de Compra - Club Deportivo Huachipato';
  //Guarda_Pdf.FileName := Concat(IntToStr(IBQ_Select['Ord_Numero']),'.pdf');
  //ChDir('C:\Ruta del archivo');
  //Nom := Guarda_Pdf.FileName;
  aPDFFilt := TQRPDFDocumentFilter.Create('C:\RutaCompleta\' +
    IntToStr(IBQ_Select]'Ord_Numero']) + '.pdf');
  try
    With TOrdenes.Create(Application) Do
    try
      Try
        Imprime_Orden.QuickRep1.ExportToFilter(aPDFFilt)
      Except
        ShowMessage('Error al crear el archivo');
        Raise;
      End
    finally
      Free
    end
  finally
    aPDFFilt.Free
  end
end;

Si te fijas, le agregué 2 try...finally al código, esto es para liberar los objetos creados dentro del método...


Saludos...