Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 3

changes.mady.by.user Lucas Serafim Cordeiro

Gravado em

comparado com

Nova versão 4

changes.mady.by.user Usuário desconhecido (jacomo.fernandes)

Gravado em

Chave

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

Ponto entrada JENVMAIL 

01. DADOS GERAIS

Descrição

O ponto de entrada permite visualizar os principais dados do e-mail após o envio. 

Localização:Não se aplica

Eventos

O ponto de entrada é executado após o envio de e-mail e antes da marcação da flag de enviado

Programa Fonte:

JURXFUN

Retorno

O retorno é nulo

Parâmetro disponível
ParâmetroTipoValor OrigemDescrição
ParamIxb[1]Array
PosiçãoVariável
Descrição
1cMsgCaracterResultado do envio do e-mail (mensagem da rotina de envio).
2lResulConnLógicoValor lógico informando se foi efetuada a conexão.
3lResulSendLógicoValor lógico informando se o envio obteve sucesso.
4cDeCaracterRemetentes do e-mail.
5cParaCaracterDestinatários do e-mail.
6cCcCaracterDestinatários em cópia do e-mail (não utilizado).
7cCCOCaracterDestinatários em cópia oculta do e-mail (não utilizado).
8cAssuntoCaracterAssunto do e-mail.
9cAnexoCaracterAnexo do e-mail (não utilizado pela rotina).
10cMsgCaracterCorpo da mensagem, contendo HTML formado pela rotina.
11cServerCaracterServidor SMTP utilizado.
12cEmailCaracterConta de e-mail utilizada.
13cPassCaracterSenha utilizada.
14lAuthLógicoValor lógico informando se utilizou autenticação por senha.
15cContAuthCarácterConta utilizando autenticação usada no envio de e-mail.
16cPswAuthCarácterSenha utilizando sutenticação usada no envio do e-mail.
17lSSLLógicoValor lógico utilizado para informar que utiliza protocolo SSL
18lTLSLógicoValor lógico utilizado para informar que utiliza protocolo TLS.
Código do Assunto Jurídico



02. Exemplo

//Ponto de entrada exemplo

#INCLUDE "PROTHEUS.CH"
#INCLUDE "PARMTYPE.CH"

/*/{Protheus.doc} J98XINTVAL
Permite complementar a integração financeira da garantia.

@author Lucivan Severo Correia
@since 10/10/2019
@version 1.0
/*/
//-------------------------------------------------------------------

USER FUNCTION J98XINTVAL()

Local oModel := PARAMIXB[1]
Local oModelNT2 := oModel:GetModel("NT2MASTER")
Local cTipot := oModelNT2:GetValue("NT2_CTIPOT")
Local cIntfin := oModelNT2:GetValue("NT2_INTFIN")
Local lRet := .F.

if cTipot == "PA " .AND. (cIntfin == "1" .OR. cIntfin == " ")
    If MsgYesNo("O tipo de título da garantia é PA (Pagamento antecipado), deseja realmente efetuar a integração financeira?")
        lRet := .T.
    Endif
Endif
Bloco de código
titleJENVMAIL
linenumberstrue
#Include 'Protheus.ch'

User Function JENVMAIL()
Local aVar := aClone(ParamIxb[1])
Local nI := 0

For nI:= 1 to Len(aVar)
    Conout(AllToChar(aVar[nI]))
Next

Return()

RETURN lRet

//Chamada do ponto de entrada:

//Ponto de Entrada para inibir ou complementar a integração automática.
If Existblock("J98XINTVAL")
     lJxintval := Execblock("J98XINTVAL", .F., .F., {oModel})
EndIf