PHSYS - Wiki

Conceito

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

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;