| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Backoffice |
| Módulo: | Financeiro |
| Função: | FINA050 - Contas a Pagar |
| Requisito/Story/Issue (informe o requisito relacionado) : | DFINGRV-26568 |
| Observações: | Ponto de entrada para manipulação da base de cálculo do IRRF no momento do cálculo. (Física e Jurídica). |
O ponto de entrada F50CIRFF manipula a Base de Cálculo do IRRF no momento do cálculo, para tratamentos específicos em que seja necessário o acréscimo ou decréscimo da base de cálculo do IRRF a ser retido. Este ponto de entrada não trabalha em conjunto com o F050CIRF.
Nome | Tipo | Descrição |
nBaseIrrf | Numérico | Valor da base de cálculo do IRRF. |
Nome | Tipo | Descrição |
nBaseIrrf | Númerico | Valor da nova base de IRRF, valor deve ser em moeda corrente. |
#INCLUDE "protheus.ch"
//-------------------------------------------------------------------
/*/{Protheus.doc} 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 nBaseIrrf numerico. Base do imposto alterada conforme regra de negócio.
/*/
//-------------------------------------------------------------------
user function F50CIRFF() as numeric
local nDependentes := M->A2_NUMDEP
local nBaseIRRF := M->E2_BASEIRF
local nValDedPorDep := 100,00
local nw := 0
local lAtivo := .F.
lAtivo := (FunName() = "FINA050" )
If lAtivo
For nw := 1 to nDependentes
nBaseIRRF -= nValDedPorDep
Next nw
EndIf
return nBaseIrrf