Histórico da Página
...
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 . |
02. DESCRIÇÃO
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 |
nNewBaseIrrfnBaseIrrf | 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 nNewBaseIrrfnBaseIrrf numerico. Base dido imposto alterada conforme regra de negócio. /*/ //------------------------------------------------------------------- user function F50CIRFF(nNewBaseIrrf) as numeric local nDependentes := SA2M->A2_NUMDEP local nBaseIRRF := SE2M->E2_BASEIRF local nValDedPorDep := 100,00 local nw := 0 local lAtivo := .F. default nNewBaseIrrf := 0 lAtivo := (FunName() = "FINA080FINA050" ) If lAtivo For nw := 1 to nDependentes nBaseIRRF -= nValDedPorDep nNewBaseIrrf := nBaseIRRF Next nw EndIf return nNewBaseIrrfnBaseIrrf |
06. LEIA TAMBÉM
F050CIRF - Ponto de entrada para manipulação do valor do IRRF.
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas