CalculaRateioPgtoFisica
Esta função é utilizada para carregar as variáveis do sistema de valores rateados do pagamento de terceiros (pessoa física), de acordo com os valores passados como parâmetro.
Sintaxe: CalculaRateioPgtoFisica(Numero NumEmp, Numero CodFil, Numero CmpPte, Numero NumCad, Numero SeqPte, Numero BaseInss, Numero BaseIR, Numero ConIns, Numero InsTrp, Numero IrfRet);
Parâmetros:
NumEmp: Variável numérica que contém o Código da Empresa do Terceiro;
CodFil: Variável numérica que contém o Código da Filial do Terceiro;
CmpPte: Variável numérica que contém a Competência do Pagamento do Terceiro;
NumCad: Variável numérica que contém o Cadastro do Terceiro;
SeqPte: Variável numérica que contém a Sequência do Pagamento do Terceiro;
BaseInss: Variável numérica que contém a Base de Inss do Pagamento;
BaseIR: Variável numérica que contém a Base de IR do Pagamento;
ConIns: Variável numérica que contém a Contribuição Inss do Pagamento;
InsTrp: Variável numérica que contém o INSS Transporte do Pagamento;
IrfRet: Variável numérica que contém o IR Retido do Pagamento.
Retorno: Carrega as seguintes variáveis de sistema, que podem ser utilizadas no gerador de relatórios, regras e cubos:
CodRatPagTer, PerRatPagTer, BasInsTerRat, BasIrfTerRat, ConInsTerRat, InsTrpTerRat, IrfRetTerRat e QtdRatPag.
Importante: Essas variáveis possuem índices, porque um Terceiro poderá possuir até 80 valores acima para cada Rateio.
Exemplo: Terceiro possui 1 pagamento de Terceiro:
NumEmp = 1;
CodFil = 1;
CmpPte = 10/2006;
NumCad = 1;
SeqPte = 1;
BaseInss = 240,00;
BaseIR = 1200,00;
ConIns = 50,00;
InsTrp = 6,00;
IrfRet = 100,00.
CalculaRateioPgtoFisica(NumEmp, CodFil, CmpPte, NumCad, SeqPte, BaseInss, BaseIR, ConIns, InsTrp, IrfRet);
CodRatPagTer[1] = 8;
CodRatPagTer[2] = 10;
PerRatPagTer[1] = 50%;
PerRatPagTer[2] = 50%
BasInsTerRat[1] = 120,00;
BasInsTerRat[2] = 120,00;
BasIrfTerRat [1] = 600,00;
BasIrfTerRat [2] = 600,00;
ConInsTerRat[1] = 25,00;
ConInsTerRat[2] = 25,00;
InsTrpTerRat[1] = 3,00;
InsTrpTerRat[2] = 3,00;
IrfRetTerRat[1] = 50,00;
IrfRetTerRat[2] = 50,00;
QtdRatPag = 2.
E assim vai de acordo com a quantidade de rateios (limite = 80) na guia rateio do pagamento do Terceiro, ou, caso não exista lançamento, de acordo com o rateio do local ou c.custo informado neste pagamento.
Utilização: Gerador de Relatórios, Regras, Importação/Exportação e Cubos.
Disponível para o módulo: Administração de Pessoal.