Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

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

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Pamela Bernardo de Souza

Gravado em

Chave

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

...

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 valor do IRRF. Deve ser utilizado para tratamento de redução da base por numero de dependentes.
Retornar Base de CálculoRetornar novo valor calculado do IRRF.


02. DESCRIÇÃO

A finalidade do ponto de entrada FA050INC F050CIRF é permitir validações de usuário na inclusão do Contas a Pagar (FINA050), localizado no TudoOK da rotina substituir o valor calculado do IRRF efetuado pelo sistema. Este ponto de entrada não trabalha em conjunto com o F50CIRFF.

03. PARÂMETROS

...


Nome

Tipo

Descrição

nBaseIrrf

Numérico

Valor da base de cálculo do IRRF.

04. RETORNO

Nome

Tipo

Descrição

lRetnNewIRRF

LógicoNumérico

Novo valor calculado para o IRRF.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
languagevb
themeMidnight
firstline1
titleFA050INCF050CIRF
linenumberstrue
#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.
user function F050CIRF()
    @returnlocal lRetnBaseIrrf - 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)
        // Mensagem de Help para esclarescer o motivo de interromper a inclusão
        Help( ,, 'Help',, "Inclusão Interrompida.", 1, 0 )

        // Alterando lMsErroAuto para .T. (verdadeiro), devido aos casos de integrações ou ExecAuto
        lMsErroAuto := .T.
    EndIf

Return lRet := Paramixb //Base calculada pelo sistema 
	local nNewIrrf	  := 0

	//Regra de calculo do IRRF que substitui a do sistema
	If SA2->A2_TIPO == "J" 
	   nNewIrrf := nBaseIrrf * 0,015
	EndIf

return nNewIrrf


06. LEIA TAMBÉM

F50CIRFF - Ponto de entrada para manipulação do cálculo da base de cálculo 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>