#include#INCLUDE 'totvs"protheus.ch'
"
//-------------------------------------------------------------------
/*/{Protheus.doc} FA050INC()

    A finalidade do ponto de entrada FA050INC é permitir validações de usuário
    na inclusão do Contas a Pagar (FINA050), localizado no TudoOK da rotina.

    @return lRet - lógico, .T. valida a inclusão e continua o processo,
        caso contrário .F. e interrompe o processo.
/*/
User Function FA050INC()
    Local lRet user function F50CIRFF
description Ponto de entrada para manipular a base de IRRF (nBaseIrrf). Deve retornar o valor da base e moeda corrente. 
contexto de execução, alteração na emissão ou valor de título a pagar. 
@author  diegos.sousa
@since   27/05/2022
@version 12.1.33
@return nNewBaseIrrf numerico.  Base di imposto alterada conforme regra de negócio.  
/*/
//-------------------------------------------------------------------
user function F50CIRFF(nNewBaseIrrf) as numeric 
    local nDependentes    := SA2->A2_NUMDEP
    local nBaseIRRF       := SE2->E2_BASEIRF
    local nValDedPorDep   := 100
    local nw              := 0
    local lAtivo          := .F.

    default nNewBaseIrrf  //:= Validações0 de usuário

    lAtivo If:= !(lRet(FunName() = "FINA080" )
        //
 Mensagem de Help paraIf esclarescerlAtivo

 o motivo de interromper a inclusão
  For nw := 1 to nDependentes
 Help( ,, 'Help',, "Inclusão Interrompida.", 1, 0 )

    nBaseIRRF -= nValDedPorDep
  // Alterando lMsErroAuto para .T. (verdadeiro), devido aos casos de integraçõesnNewBaseIrrf ou:= ExecAutonBaseIRRF

        lMsErroAutoNext := .T.nw 

    EndIf

Return lRetreturn nNewBaseIrrf