Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

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).


02. DESCRIÇÃO

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.

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. 

05. EXEMPLO DE UTILIZAÇÃO

F50CIRFF
#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

06. LEIA TAMBÉM

F050CIRF - Ponto de entrada para manipulação do valor do IRRF.