Histórico da Página

Parâmetros:

ParamIXB[1] - Objeto - Sub-model MVC da tabela FKF para verificar os dados já informados nos campos;

ParamIXB[2] - Caracter - Nome do alias da carteira do título (SE1 para contas a receber / SE2 para contas a pagar);

ParamIXB[3] - Numérico - Identificação da operação que está sendo executada (3-Inclusão/4-Alteração);

ParamIXB[4] - Lógico - Identifica se o acesso ao complemento do título foi pelo botão do browse (.T. para acesso via browse)

Retorno:

Deve ser retornada uma variável lógica:

.T. = Não houve problemas na validação do ponto de entrada e a rotina deve seguir;

.F. = Houve problemas na validação do ponto de entrada e a inclusão/alteração do título será bloqueada;

#INCLUDE "PROTHEUS.CH"
  
User Function F986Valid()
 
    Local oModel  := ParamIxb[1] //Sub-model MVC da tabela FKF
    Local cAliasC := ParamIxb[2] //SE1 para contas a receber / SE2 para contas a pagar)
    Local nOpc    := ParamIxb[3] //3-Inclusão/4-Alteração
    Local lBrowse := ParamIxb[4] //.T. para acesso via browse
    Local lRet    := .T.
    Local nIrrf   := 0

    If lBrowse 
        nIrrf := SE2->E2_IRRF > 0
    Else
        nIrrf := M->E2_IRRF > 0
    EndIf

    If cAliasC == "SE2"  //Complemento de Título do Contas a Pagar
        If Alltrim(oModel:GetValue("FKFMASTER","FKF_NATREN")) $ "20001" .And. M->E2_IRRF > 0
nIrrf
            lRet := .F.
            Help( ,,"F986Valid",,"Revise a Natureza de Rendimento informada.", 1, 0 )
        EndIf
    EndIf
 
Return lRet