Histórico da Página

#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 lRet    := .T.
 
If cAliasC == "SE2"  //Complemento de Título do Contas a Pagar
    If Alltrim(oModel:GetValue("FKFMASTER","FKF_NATREN")) $ "20001" .And. M->E2_IRRF > 0
        lRet := .F.
        Help( ,,"F986Valid",,"Revise a Natureza de Rendimento, pois não deve conter imposto na carteira a pagar informada.", 1, 0 )
    EndIf
EndIf
 
Return lRet