TPHRelatorio

Revisão de 17h12min de 20 de junho de 2021 por Admin (discussão | contribs)

Conceito

O objeto TPHRelatorio é utilizado para realizar o chamda de relatórios para visualização envio de e-mail por meio de script.

Propriedades

Nome Tipo Descrição
Filtro String Texto SQL correspondente ao filtro. O texto será atribuido a variável padrão "Filtro" junto ao relatório.
FormatoID Integer Informar o número correspondente ao ID do formato do relatório. Tabela DB_RELATORIOFORMATOS.
NomeFormato String Quando informado o nome do formato, a propriedade "FormatoID" será preenchida com ID correspondente ao formato do relatório. Tabela DB_RELATORIOFORMATOS.
De String E-mail do responsável pelo envio.
Para String E-Mail do destinatário. Pode-se utilizar mais de uma e-mail utilizando a separação por ';'.
CC String E-Mail de destinatário de cópia. Pode-se utilizar mais de uma e-mail utilizando a separação por ';'.
CCO String E-Mail de destinatário de cópia oculta. Pode-se utilizar mais de uma e-mail utilizando a separação por ';'.
AssuntoStr String Descrição do assunto do e-mail.
UsarThread Boolean Determina se o sistema vai aguardar o envio do e-mail ou se será iniciar thread para execução em segundo plano.
ExibirTelaEnvio Boolean Quando enviar, será exibida tela de envio de e-mail.
MostrarProcesso Boolean Caso estiver sendo utilizado objeto de exibição de processo, será exibido o procedimento que o e-mail esta executando.

Procedimentos

  • SetCorpo(Corpo:String): Determina o texto utilizado no corpo do e-mail.
  • AddCorpo(Texto:String): Adicionar um texto em uma nova linha no corpo do e-mail.
  • AdicionarAnexo(Anexo:String): Informar o caminho do arquivo que será anexado no envio do e-mail.
  • EnviarEmail: Realiza o envio do e-mail.
  • Prever: Realizar o visualização do relatório.
  • Agendar Envio: Realiza o cadastro do e-mail junto ao cadastro de e-mails do sistema (DB_EMAIL). Nesse caso o envio vai ocorrer conforme determinado no agendamento de envio de e-mails.
  • VariavelDate(Nome: String; Value:TDateTime): Preencher variável do tipo data.
  • procedure VariavelString(Nome:String; Value:String): Preencher variável do tipo texto.
  • procedure VariavelInteger(Nome:String; Value:Integer): Preencher variável do tipo número.

Exemplo

 procedure EnviarRelatorio;
 var
   PHRel:TPHRelatorio;                                                 
 begin
   PHRel := NewPHRelatorio;
   try
     PHRel.IDFormato       := 151;
     PHRel.Filtro          := '1';
     PHRel.Para            := 'email@exemplo.com.br';
     PHRel.ExibirTelaEnvio := False;
     PHRel.MostrarProcesso := False;
     PHRel.AdicionarVariavel('DateDATAINICIAL',Date-360);
     PHRel.AdicionarVariavel('DateDATAFINAL',Date);        
     PHRel.EnviarEmail;                      
   finally
     PHRel.Free;                        
   end;            
 end;