Árvore de páginas

Versões comparadas

Chave

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

CONTEÚDO

  1. Visão Geral
  2. Exemplo de utilização
  3. Parâmetros
  4. Variáveis
  5. Tabelas utilizadas


01. VISÃO GERAL

...

Este Ponto de Entrada pertence à rotina de 

Envio de email

...

Descrição

...

(AVCRW). Ele deve ser utilizado para customizar a rotina de Envio de email.

Programa Fonte: AVCRW.PRW

Retorno: Verdadeiro (.T.) ou Falso (.F.).


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


PrivatePrivatePrivateSim PrivateAVCRW.PRW
ParâmetroNomeTipoPermite alterarDescrição
EMAILcTitAuxCarácter

Observações

Utilizado para a manipulação da tela de envio de email Easy Export Control

Exemplos

User Function AVCRW()

Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))

If cParam == "EMAIL"

cTitAux := 'Título do email'
cSubjectAux := 'Assunto do email'
cBodyAux := 'Mensagem no corpo deo email'
cToAux := 'email destino'
cCCAux := 'email destino copia'

EndIf

Return .T.

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

NomeTipoDescriçãoDefaultObrigatórioReferênciaEMAILCarácterParâmetro que valida a rotina de envio de email

Retorno

()

Eventos de chamada do Ponto de Entrada

Variáveis

NomeTipoEscopoPode AlterarDescriçãocTitAuxCará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ácterPrivateSimVariável para definir para qual email será enviado
EMAILcCCAuxCarácterSimVariável para definir para qual email será enviado a cópia

Programa Fonte

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á.



HTML
<!-- esconder o menu --> 


<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>