Histórico da Página

#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 o valor de IRRF (M->E2_IRRF). 
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 nNewIrrf, numerico.  Valor do campo M->E2_IRRF. 
/*/
//-------------------------------------------------------------------
user function F50CIRFF(nBaseIrrf) as numeric
    local nDependentes    := SA2->A2_NUMDEP   //Ex: 6
    local nValDedPorDep   := 100,00
    local nw              := 0
    local lAtivo          := .F.
    default nNewIrrf      := 0,00
    default nBaseIrrf     := SE2->E2_BASEIRF  // Validações de usuário

Ex: 10.000,00 

 
    lAtivo If:= !(FunName(lRet)
 = "FINA080" )
     // Mensagem de Help para
 esclarescer o motivo deIf interromperlAtivo
 a inclusão
        Help(For ,, 'Help',, "Inclusão Interrompida.", 1, 0 )

nw := 1 to nDependentes

           // AlterandonBaseIrrf lMsErroAuto para .T. (verdadeiro), devido aos casos de integrações ou ExecAuto-= nValDedPorDep

        Next nw

        lMsErroAutonNewIrrf := .T.(nBaseIrrf * 1.5) / 100  
    EndIf
 
Returnreturn lRetnNewIrrf