Histórico da Página
...
O ponto de entrada F50CIRFF realiza validação que altera 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.
03. PARÂMETROS
...
Nome | Tipo | Descrição |
nBaseIrrf | Numérico | Valor da base de cálculo do IRRF. |
04. RETORNO
Nome | Tipo | Descrição |
nBaseIrrf | Númerico | Valor da nova base de IRRF, valor deve ser em moeda corrente. |
...
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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() = "FINA080FINA050" )
If lAtivo
For nw := 1 to nDependentes
nBaseIRRF -= nValDedPorDep
Next nw
EndIf
return nBaseIrrf
|
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas