Base de conhecimento
Encontre respostas para suas dúvidas em quatro fontes de conhecimento diferentes ao mesmo tempo, simplificando o processo de pesquisa.

RH - RM - FOP - Lançamento de Empréstimo na Rescisão


time.png Tempo aproximado para leitura: 00:03:50

Dúvida
Como realizar o desconto do empréstimo na rescisão do funcionário?

Ambiente
TOTVS RH - TOTVS RH (Linha RM) - TOTVS Folha de Pagamento - Todas as versões

Solução
Para solucionar essa dúvida, realize os seguintes passos:

1. Deverá acessar Administração de pessoal | Fórmulas e criar uma formula que retorne 30% sobre o salário líquido do funcionário. Abaixo temos uma fórmula exemplo:

Exemplo de Fórmula que calcula 30% de desconto do empréstimo na Rescisão

DECL SaldoTot;
DECL TotEmp;
DECL ItemEmp;
DECL Retorno;
DECL SalLiq;
DECL MaxEmp;
DECL saldodist;
DECL aDistribuir;
 
SetVar(ItemEmp,0);
setvar(MaxEmp,0);
setvar(SalLiq, 0);
SetVar(aDistribuir,0);
SetVar(Retorno,'');
SetVar(saldodist,0);
 
SetVar(SaldoTot, InfEmp(-2, 'codigo'));
SetVar(TotEmp, InfEmp(-1, 'codigo'));
setvar(SalLiq, L);
setvar(MaxEmp, SalLiq*0.3);
 
Se TotEmp > 0
Entao
  Se MaxEmp >= SaldoTot
  Entao
     repita
       SetVar(ItemEmp,ItemEmp + 1);
       SetVar(aDistribuir, InfEmp( ItemEmp, 'SALDODEVEDOR' ) );
       SetVar(aDistribuir,val( str(aDistribuir, '999999999,99')));
       SetVar(Retorno, Concat(Retorno, InfEmp( ItemEmp, 'CODIGO' )));
       SetVar(Retorno,Concat(Retorno,':'));
       SetVar(Retorno, Concat(Retorno, str(aDistribuir,'999999999,99')));
       SetVar(Retorno,Concat(Retorno,';'))
    Ate ItemEmp = TotEmp
  Senao 
    repita
       SetVar(ItemEmp,ItemEmp + 1);
      Se ItemEmp = TotEmp
      Entao
        SetVar(aDistribuir,MaxEmp-saldodist)
      Senao
        SetVar(aDistribuir,  (MaxEmp / SaldoTot ) * InfEmp( ItemEmp,       'SALDODEVEDOR' ) );
        SetVar(aDistribuir,val( str(aDistribuir, '999999999,99')))
      FimSe;
       SetVar(saldodist, saldodist + aDistribuir);
       SetVar(Retorno, Concat(Retorno, InfEmp( ItemEmp, 'CODIGO' )));
       SetVar(Retorno,Concat(Retorno,':'));
       SetVar(Retorno, Concat(Retorno, str(aDistribuir,'999999999,99')));
       SetVar(Retorno,Concat(Retorno,';'))
    ate ItemEmp = TotEmp
  FimSe
FimSe;
 
Retorno


2. Nos parâmetros da rescisão, deverá marcar a opção abaixo que te atende e informar o código da fórmula cadastrada:



3. Após o cálculo da rescisão, o valor do empréstimo será lançado na ficha financeira do funcionário.

Saiba Mais
Lançamento de Empréstimo na Rescisão - Fórmula

Esse artigo foi útil?
Usuários que acharam isso útil: 0 de 0

0 Comentários

Por favor, entre para comentar.
X Fechar

Olá ,

Há pendência referente a um de seus produtos contratados para a empresa ().

Entre em contato com o Centro de Serviços TOTVS para tratativa.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cobrança – Verificação de pendências financeiras . clique aqui.

TOTVS

X Fechar

Olá ,

Seu contato não está cadastrado no Portal do Cliente como um perfil autorizado a solicitar consultoria telefônica.

Por gentileza, acione o administrador do Portal de sua empresa para: (1)configurar o seu acesso ou (2)buscar um perfil autorizado para registro desse atendimento.

Em caso de dúvidas sobre a identificação do contato administrador do Portal, ligue (11) 4003-0015, opção 7 e, em seguida, opção 4 para buscar o suporte com o time de Assessoria ao Portal do Cliente. . clique aqui.

TOTVS

X Fechar

Olá ,

Para o atendimento de "Consultoria Telefônica" você deverá estar de acordo com o Faturamento.

TOTVS

X Fechar

Olá,

Algo inesperado ocorreu, e o usuario nao foi reconhecido ou você nao se encontra logado

Por favor realize um novo login

Em caso de dúvidas, entre em contato com o administrador do Portal de Clientes de sua empresa para verificação do seu usuário, ou Centro de Serviços TOTVS.

Ligue! 4003-0015 opção 4 e 9 ou registre uma solicitação para CST – Cadastros . clique aqui.

TOTVS

Chat _

Preencha os campos abaixo para iniciar o atendimento:

Chat _