automatizacion Rave Report
 

Hola amigos, espero me puedan ayudar...
Tengo que enviar por correo un archivo en pdf.
Para generar este archivo lo hago con el Rave report, y utilizando el componente TRvRenderPDF, lo transformo a PDF.

Todo funciona de maravilla, el problema es que lo tengo que hacer todo manualmente... como puedo hacer para automatizar esto

- generar automaticamente el archivo PDF basado en el reporte del Rave, en un directorio temporal.
- envie el correo (esto lo tengo funcionando)
- elimine el archivo temporal

este el el codigo con el cual obtengo el reporte en Rave.

Código Delphi [-]
RVPROJECT1.SetParam('CORREO',FORM1.Label10.CAPTION);
RVPROJECT1.ExecuteReport('empresa');

Espero que se haya entendido mi consulta...

Saludos

Yo te puedo ayudar a automatizar la creación del pdf :)

Código Delphi [-]
begin
  RvSystem1.DefaultDest       := rdFile;
  RvSystem1.DoNativeOutput  := false;
  RvSystem1.RenderObject     := RvRenderPDF1;
  RvSystem1.SystemSetups    := RvSystem1.SystemSetups - [ssAllowSetup];
  RvSystem1.OutputFileName  := 'c:\temp\archivo.pdf';
  RvProject1.Execute;
  EnviaCorreo('c:\temp\archivo.pdf'); //Hay en el foro varias formas de hacer esto
end;

Salud OS

Hola mjjj, para crear tu directorio puedes utilizar CreateDir

Código Delphi [-]
 RutaDir := ExtractFilePath(Application.ExeName)+'NombreDir';
 if not DirectoryExists(RutaDir) then
  CreateDir(RutaDir); // Creamos el directorio
 
 Archivo := RutaDir+'\'+'NombrePdf.Pdf';
 
 //El codigo que te paso egostar
 .......
 RvSystem1.OutputFileName  := Archivo;
 ........
 ........
 DeleteFile(Archivo);

Si tienes mas de un pdf en tu directorio tendras quer recorrer e ir borrando uno a uno y si quieres borrar tu directorio temporal puedes utilizar la función RemoveDir.

Saluditos

A lo mejor esto te puede ayudar:

Código Delphi [-]

// crear PDF
procedure TForm1.Button1Click(Sender: TObject);
var
  NDRStream:  TMemoryStream;
begin
  NDRStream := TMemoryStream.Create;
  RvProject1.open;
  RvProject1.SelectReport('Presupuesto',true);
  RvProject1.SaveToStream(NDRStream);
  RvNDRWriter1.Stream:=NDRStream;
  RvProject1.Execute;
  RvRenderPrinter1.Render(NDRStream);
  RvProject1.close;
  try
    RvRenderPDF1.PrintRender(NDRStream,'C:\Temp\Pba.pdf');
  except
    NDRStream.Free;
  end;


// Con los componentes Indy enviar correo

  if not FileExists('C:\Temp\Pba.pdf') then
    exit;
  SMTP.Host := mHost;
  SMTP.Port := strtoint(mPuerto);
  SMTP.username := mUsuario;
  SMTP.password := mPassword;

  MailMessage.Clear;
  MailMessage.From.Address := mEmail;
  MailMessage.From.Name := mNombre;
  MailMessage.Recipients.EMailAddresses := '[email protected]'; {destino}
  MailMessage.BCCList.add.Address := mEmail;
  MailMessage.Subject := mAsunto;
  MailMessage.Body.Text := mTexto;

  TIdAttachment.Create(MailMessage.MessageParts,'C:\Temp\Pba.pdf');

  try
    try
      SMTP.Connect(1000);
      SMTP.Send(MailMessage);
    except
      showmessage('Fallo en el Envío de Correo');
      exit;
    end;
  finally
    if SMTP.Connected then
      SMTP.Disconnect;
  end;

// si lo desea DeleteFile('C:\Temp\Pba.pdf');
// Si busca en el foro,  hay información  sobre el tema 
end;

Saludos.