Á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 :=

...

03. PARÂMETROS

...

04. VARIÁVEIS

...

Card documentos
InformacaoUse esse box para destacar informações relevantes e/ou de destaque.
TituloIMPORTANTE!

05. TABELAS UTILIZADAS

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>

AVCRW - Envio de email

...

Descrição

...

AVCRW - Envio de email

...

Observações

...

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

...

Exemplos

...

linenumberstrue

...

 .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

...

Idioma

...

Português(Brasil)

...

Versões

...

Microsiga_Protheus12

...


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


EscopoPode AlterarPrivatePrivatePrivateAVCRW.PRW
Parâmetro

Retorno

Nil
VariáveisNomeTipoPermite alterarDescrição
DescriçãoEMAILcTitAuxCarácterSimVariável para definir o valor do título do email
EMAILcSubjectAuxCarácterPrivateSimVariável para definir o valor do assunto do email
EMAILcBodyAuxCarácterPrivateSimVariável para definir o valor da mensagem no corpo do email
EMAILcToAuxCarácterSimSim Variá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ácterPrivateSimVariável com a origem do e-mail a ser enviado
AVEMAIL_RPTcArqRptCarácterPrivateSimVariável com o nome do arquivo RPT a ser gerado
AVEMAIL_RPTcDirRptCarácterPrivateSimVariável com o caminho do arquivo RPT a ser gerado
EMAILlEmailAuxLógicoPrivateSim

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

Programa Fonte

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>