Árvore de páginas

Ponto entrada J98XINTVAL

01. DADOS GERAIS

Descrição

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

Localização:Atualizações / Assuntos Jurídicos > Pesquisa

Eventos

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

Programa Fonte:

JURA098 - Garantias / Alvarás

Retorno

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

Parâmetro disponível

Parâmetro

Valor

Descrição

PARAMIXB[1]oModelModelo Ativo de garantias

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

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