Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 5

changes.mady.by.user Usuário desconhecido (diegos.sousa)

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Douglas de Oliveira Homem

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.


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 .
Deve ser utilizado para tratamento de redução da base por numero de dependentes.
Retornar Base de Cálculodo IRRF no momento do cálculo. (Física e Jurídica).


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

nBaseIrrf

Númerico

Valor da nova base de IRRF, valor deve ser em moeda corrente. 

05. EXEMPLO DE UTILIZAÇÃO

Bloco de código
languagevb
themeMidnight
firstline1
titleF50CIRFF
linenumberstrue
#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(nBaseIrrf) 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.




HTML
<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>