Histórico da Página
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 |
Descrição |
|
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 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 | ||||
---|---|---|---|---|
| ||||
#Include 'Protheus.ch'
User Function JENVMAIL()
Local nI := 0
For nI:= 1 to Len(ParamIxb)
Conout(AllToChar(ParamIxb[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