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
A finalidade do O ponto de entrada FA050INC é permitir validações de usuário na inclusão do Contas a Pagar (FINA050), localizado no TudoOK da rotinaentrada 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 | |
lRetnBaseIrrf | Lógico | Númerico | Valor da nova base de IRRF, valor deve ser em moeda corrente. .T. valida a inclusão e continua o processo, caso contrário .F. e interrompe o processo. |
05. EXEMPLO DE UTILIZAÇÃO
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#include#INCLUDE 'totvs"protheus.ch' " //------------------------------------------------------------------- /*/{Protheus.doc} FA050INC() A finalidade do ponto de entrada FA050INC é permitir validações de usuário na inclusão do Contas a Pagar (FINA050), localizado no TudoOK da rotina. @return lRet - lógico, .T. valida a inclusão e continua o processo, caso contrário .F. e interrompe o processo. /*/ User Function FA050INC() Local lRet := .F. // Validações de usuário If !(lRet) 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 // Mensagem de Help para esclarescer o:= motivo0 de interromper a inclusão local lAtivo Help( ,, 'Help',, "Inclusão Interrompida.", 1, 0 ) := .F. lAtivo := (FunName() = "FINA050" ) If lAtivo // Alterando lMsErroAuto para .T. (verdadeiro), devido aos casos de integrações ou ExecAutoFor nw := 1 to nDependentes nBaseIRRF -= nValDedPorDep lMsErroAutoNext := .T.nw EndIf Return lRetreturn nBaseIrrf |
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> |