Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Pasar Informe De Rave Report A Pdf (https://www.clubdelphi.com/foros/showthread.php?t=53192)

belpab 13-02-2008 17:28:42

Pasar Informe De Rave Report A Pdf
 
Hola muy buenas:

Os comento a ver si alguien puede ayudarme. Tengo hecho un report en Rave Report al cual llamo desde delphi, hasta ahí todo normal. El problema es que necesito pasar ese listado a un archivo PDF y que eso sea transparante al usuario y despues enviar este archivo por Email. Y ahi es donde tengo el problema, no se como hacer este proceso transparente al usuario.Si alguien pudiera ayudarme le estaria agradecido, llevo varios dias intentando buscar ayuda sobre este tema y la verdad es que no he encontrado mucha ayuda sobre Rave Report y Delphi.. Tengo la version Delphi 2006 y Rave Report BE 6.5 por si os sirve de algo.

Gracias de antemano y un saludo

belpab 14-02-2008 11:39:39

Ya Me Funciona Pro Me Da Error De Que No Puede Escribir El Fichero Porque Esta En Uso
 
YA HE CONSEGUIDO GENERAR EL FICHERO EN PDF DE FORMA TRANSPARENTE. POR SI HAY ALGUIEN QUE LE INTERESE COMO OS DEJO EL CODIGO
Código Delphi [-]
  RSpresup.DefaultDest := rdFile;
  RSpresup.DoNativeOutput := false;
  RSpresup.RenderObject := RRPDFPEDIDOS;
  RSpresup.OutputFileName := 'C:\test1.pdf';
  RSpresup.SystemSetups := RSpresup.SystemSetups - [ssAllowSetup];
  RPPresup.Engine :=RSpresup;
  RPPresup.ProjectFile :='TWebCom.rav';
  RPPresup.open;
  RPPresup.SelectReport('PRESUPUESTO',true);
  RPPresup.Execute;
  RPPresup.close;

LO UNICO ES QUE AHORA AL HACER RPPresup.Execute; ME DA EL ERROR DE QUE O PUEDE ESCRIBIR EL FICHERO PORQUE ESTA EN USO POR OTRA APLICACION Y LA VERDAD ES QUE NO SE QUE APLICACION. ALGUIEN ME PUEDE DECIR QUE ME FALTA O SOBRA.

GRACIAS. UN SALUDO

kuan-yiu 14-02-2008 12:02:25

Supongo que es una errata al copiarlo al foro pero en RPPresup.ProjectFile te falta la comilla inicial.

belpab 14-02-2008 12:26:30

es una error, ya esta corregido :)

kuan-yiu 14-02-2008 12:52:12

Yo utilizo un sistema similar y cuando me da ese error siempre es debido a que el fichero de salida (en tu caso 'C:\test1.pdf') está abierto o bloqueado. Revisa que no se esté ejecutando el Acrobat.

belpab 14-02-2008 12:58:32

no, no hay nada abierto relacionado con el PDF. es como si lo crease,porque me lo crea, aunque corrupto, pero no pudiera volcar el contenido del informe en el fichero

kuan-yiu 14-02-2008 13:54:25

Antes de seguir aclara qué estás usando, las versiones y nombre de todo.

Caro 14-02-2008 16:34:02

Hola belpab, lo que yo hago para generar el reporte pdf, es lo siguiente:

Código Delphi [-]
Uses
 SyncObjs
var
  GRaveLock: TCriticalSection; //

.......................................

var
  FilePdf: string;
begin
  RVProject1.ProjectFile := ExtractFilePath(Application.ExeName) + 'Reporte.rav';
  RvSystem1.DoNativeOutput := false;
  RvSystem1.RenderObject := RvRenderPDF1;

  FilePdf := 'Reporte.pdf';

  RvSystem1.OutputFileName := 'C:\' + FilePdf;

  GRaveLock.enter;
  try
    RvProject1.ExecuteReport('Reporte');
  finally
    GRaveLock.leave;
  end;

................................

initialization
  GRaveLock := TCriticalSection.Create;

finalization
  GRaveLock.Free;
end.

y las propiedades que toco en tiempo de diseño son:

RvProject
Engine -> RvSystem1

RvSystem
DefaultDest -> rdFile
SystemOptions -> todo lo pongo a false
SystemSetups->ssAllowSetup->False

RvRenderPdf
UseCompression -> True

lo hago de esa forma y me genera el pdf, espero se entienda porque no soy muy buena para explicar.

Saluditos

belpab 18-02-2008 11:12:54

Gracias
 
Gracias a todos por la ayuda. con el codigo de Caro me ha funcionado perfectamente. Te debo una ;). Ciaaaaooo


La franja horaria es GMT +2. Ahora son las 15:50:28.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi