Histórico da Página
...
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 := SA2M->A2_NUMDEP local nBaseIRRF := SE2M->E2_BASEIRF local nValDedPorDep := 100,00 local nw := 0 local lAtivo := .F. lAtivo := (FunName() = "FINA080" ) If lAtivo For nw := 1 to nDependentes nBaseIRRF -= nValDedPorDep Next nw EndIf return nBaseIrrf |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas