Descrição

O ponto de entrada permite controlar a Integração Financeira antes da confirmação da inclusão do formulário.

Eventos

O ponto de entrada é executado após da verificação do parâmetro MV_JINTVAL para integração de valores.

Programa Fonte:

JURA099 - Despesas e custas.

Retorno

O retorno booleano verdadeiro ( .T. ) do ponto de entrada J99XINTVAL indicará que a integração financeira deve prosseguir normalmente, se falso (.F.) irá inibir a integração.

// Ponto de entrada exemplo

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

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

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

USER FUNCTION J99XINTVAL()

Local oModel := PARAMIXB[1]
Local oModelNT3 := oModel:GetModel("NT3MASTER")
Local cTipot := oModelNT3:GetValue("NT3_CTIPOT")
Local lRet := .F.

if cTipot == "PA "
    If MsgYesNo("O tipo de título da despesa é PA (Pagamento antecipado), deseja realmente efetuar a integração financeira?")
        lRet := .T.
    Endif
Endif

RETURN lRet

//Chamada do ponto de entrada

If Existblock("J99XINTVAL")
       lJxintval := Execblock("J99XINTVAL", .F., .F., {oModel})
EndIf