Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

02. EXEMPLO DE UTILIZAÇÃO


Bloco de código
languagevb
themeEclipse
firstline1
titleExemplo de Utilização
linenumberstrue
User Function AVCRW()

...


 

...


If valtype(paramixb) == "C" .and. paramixb[1] == "EMAIL"

...


   cTitAux := 'Título do email'

...


   cSubjectAux := 'Assunto do email'

...


   cBodyAux := 'Mensagem no corpo

...

 do email'

...


   cToAux := 'email destino'

...


   cCCAux := 'email destino

...

 copia'
   lEmailAux := .F.
   lExibeTelas:= .T. //.T. Exibe a tela para envio de e-mail e preview; .F. não exibe a tela de envio de e-mail e preview.
   lGeraPDF := .T. //Pode ser configurada como .T. para que o arquivo pdf seja gerado para o relatório, mesmo que o lEmailAux esteja como .F.

Elseif valtype(paramixb) == "A" .and. paramixb[1] == "AVEMAIL_RPT"
   cMensagem := "Ponto de entrada com o caminho e nome do RPT" + CHR(10)+CHR(13) +;

...


   "Arquivo: " + paramixb[3] + CHR(10)+CHR(13) +;

...


   "Caminho: " + CHR(10)+CHR(13) + paramixb[2]

...


   cTitulo := "PE RPT"

...


   MsgInfo(cMensagem,cTitulo)

...


Elseif valtype(paramixb) == "A" .and. paramixb[1] == "AVEMAIL_CFROM"

...


   cMensagem := "Ponto de entrada com o email de origem: " +

...

 cFrom
   cTitulo := "PE EMAIL"

...


   MsgInfo(cMensagem,cTitulo

...

)
Elseif valtype(paramixb) == "A" .and. paramixb[1] == "AVEMAIL_SAIR" 
	lSair := .T.

Elseif  valtype(paramixb) == "A" .and. paramixb[1] == "DIRCLIENT_MUDADIR"   

    cMudaDir :="C:\DIRETÓRIO_DESTINO_DOS_ARQUIVOS_CRYSTAL\"


Endif
 
Return


03. PARÂMETROS


NomeTipoDescrição
EMAILCarácterParâmetro que valida a rotina de envio de email
AVEMAIL_RPTCarácterParâmetro que permite acesso as variáveis do nome do rpt e ao caminho e do arquivo.
AVEMAIL_CFROMCarácterParâmetro que permite acesso a variável cFrom, origem do e-mail.
EDITA_SY0CarácterParâmetro que permite alteração dos dados da tabela EY0
AVEMAIL_SAIRCarácterPermite alterar a variável lSair, não executando a tela de envio de e-mail padrão.
DIRCLIENT_MUDADIRCarácterPermite mudar o diretório de destino dos arquivos crystal

04. VARIÁVEIS


ParâmetroNomeTipoPermite alterarDescrição
EMAILcTitAuxCarácterSimVariável para definir o valor do título do email
EMAILcSubjectAuxCarácterSimVariável para definir o valor do assunto do email
EMAILcBodyAuxCarácterSimVariável para definir o valor da mensagem no corpo do email
EMAILcToAuxCarácterSimVariável para definir para qual email será enviado
EMAILcCCAuxCarácterSimVariável para definir para qual email será enviado a cópia
EMAILlExibeTelasLógicoSimVariável para definir se exibe ou não a tela de envio de e-mail e preview.
EMAILlGeraPDFLógicoSimVariável para definir se deve ser gerado o PDF para o relatório. Seu uso é para gerar o arquivo quando o envio de e-mail está desligado (lEmailAux igual a .F.
AVEMAIL_CFROMcFromCarácterSimVariável com a origem do e-mail a ser enviado
AVEMAIL_RPTcArqRptCarácterSimVariável com o nome do arquivo RPT a ser gerado
AVEMAIL_RPTcDirRptCarácterSimVariável com o caminho do arquivo RPT a ser gerado
EMAILlEmailAuxLógicoSim

Variável para indicar se o email será enviado ou não, quando o valor for igual =.T. o email será enviado

e quando estiver .F. não será enviado

AVEMAIL_SAIRlSairLógicoSimVariável que permite não executar a tela de envio de e-mail padrão.
DIRCLIENT_MUDADIRcMudaDirCarácterSimVariável que será preenchida com o diretório de destino dos arquivos crystal, como desejado pelo usuário


05. TABELAS UTILIZADAS

  • Não há.



...