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

<!-- 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>