//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(CampoA()

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

if cTipot == "PA " .AND. (cIntfin == "1" .OR. cIntfin == " ")
If MsgYesNo("De acordo com os procedimentos internos, deseja O tipo de título da garantia é PA (Pagamento antecipado), deseja realmente efetuar a integração financeira?")
      lCampoA lRet := .T.
Endif
Endif

RETURN lCampoAlRet

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