Linha RM

Atalhos

Páginas filhas
  • Cálculo e Lançamento do 13º Salário - 2023 - Linha RM

Versões comparadas

Versão antiga 7

changes.mady.by.user André Oliveira Trindade

Gravado em

comparado com

Nova versão 8

changes.mady.by.user André Oliveira Trindade

Gravado em

Chave

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

...

• Cadastro de Eventos: Visualização em Delphi: Cadastros | Eventos

 


Nova MDI: Aba Administração de Pessoal | Eventos | Eventos

...

Visualização em Delphi: Cadastros | Sindicatos
 

Nova MDI: Aba Administração de Pessoal | Sindicatos

O cadastro de sindicato mantém, principalmente, as parametrizações de médias relativas a CLT ou Convenções Coletivas dos sindicatos dos trabalhadores. É dividido em pastas que contém parametrizações específicas de média de Férias, 13º Salário, Aviso Prévio, Licença Maternidade, Valores Associados do Sindicato e HomologNet. As parametrizações de 13º se encontram no:
 

Cadastro de sindicatos em Delphi: Aba 13º Salário | Sub-aba Parâmetros de media
 

Cadastro de sindicatos .NET: Aba 13º Salário | Sub-aba Media 13º
 
Sindicato em Delphi

 Sindicato .Net

 

...

 
Exemplo : Eventos cadastrados na aba 13º Salário | Sub-aba Eventos p/ pag. de Media de 13º na 2º Parcela.
Grupo 0: Evento de Pagamento: CC 102 - 2ª parcela de 13º salário. Evento de Diferença: CC 66 - Dif. 2ª parcela de 13º salário. Evento para diferença por dissídio: CC 180 Dif. 13º salário por dissídio.
Grupo 1: Evento de Pagamento: CC 102 - Média de H. Extra 13º salário 2ª parcela. Evento de Diferença: CC 66 - Dif. média de H. Extra 13º salário 2ª parcela. Evento para diferença por dissídio: CC 180 Dif. média H.Extra 13º salário p/ dissídio.
Grupo 2: Evento de Pagamento: CC102 - Média de Comissão 13º salário 2ª parcela. Evento de Diferença: CC 66 - Dif. média de Comissão 13º salário 2ª parcela. Evento para diferença por dissídio: CC 180 Dif. média Comissão 13º salário p/ dissídio.

Delphi

 
.Net

 

○ Parâmetros de 13º Salário

...

/*Se quiser deduzir o valor adiantado basta diminuir o valor do evento cc 35*/ SETVAR (VLRINSS, TI (LIQUIDO)); SETVAR (VLRINSS2, TI2(LIQUIDO)); SETVAR (VLRBASEIRRF, LIQUIDO); REPITA SETVAR (VLR, ((LIQUIDO-VLRINSS- TR (VLRBASEIRRF-VLRINSS2-VLR)) * PERC)); SETVAR (CONTADOR, CONTADOR+1) ATE CONTADOR= 7; VLR SENAO 0 FIMSE

.NET:

DECL PERC, CONT, X;
SETVAR (CONT,1);
SE TABDEP ('DTNASCIMENTO' ,'D' ,CONT) <> DATANULA ENTAO
          REPITA
                    SE TABDEP ('DTNASCIMENTO','D',CONT) <> DATANULA E TABDEP ('INCPENSAO','S',CONT) ='1' ENTAO
                              SETVAR (PERC, TABDEP ('PERCENTUAL' , 'V', CONT) / 100);
                              SETVAR (X,1)
                    SENAO ''
                    FIMSE;
          SETVAR (CONT,CONT+1)
          ATE X=1 OU TABDEP ('DTNASCIMENTO' ,'D' ,CONT) = DATANULA
FIMSE;
 
SE X>0 ENTAO
          DECL LIQUIDO, VLRBASEIRRF, VLRINSS, VLRINSS2, VLR,CONTADOR;
          SETVAR (LIQUIDO, C('8001') + C('8005')); /*Se quiser deduzir o valor adiantado basta diminuir o valor do evento cc 35*/
          SETVAR (VLRINSS, TI (LIQUIDO));
          SETVAR (VLRINSS2, TI2(LIQUIDO));
          SETVAR (VLRBASEIRRF, LIQUIDO);
          REPITA
                    SETVAR (VLR, ((LIQUIDO-VLRINSS- TR (VLRBASEIRRF-VLRINSS2-VLR)) * PERC)); SETVAR (CONTADOR, CONTADOR+1)
          ATE CONTADOR= 7; VLR
SENAO 0
FIMSE 

...

• 4º Passo: Cadastrar os seguintes eventos
 

Visualização em Delphi: Cadastros | Eventos
 

Nova MDI: Aba Administração de Pessoal | Eventos | Opção Eventos

Código: 8001

Descrição: Adiantamento de 13º Salário Provento/Valor, com Código de Cálculo 09. Incide FGTS e RAIS No campo "Fórmula valor" informar a fórmula de código A0012. No campo "Fórmula Referência" informar a fórmula de código A0011.

-----

Código: 8005

Descrição: Média de adiantamento de 13º Salário Provento/Valor, com Código de Cálculo 09. Incide FGTS e RAIS No campo "Fórmula valor" informar a fórmula de código A0016. No campo "Fórmula Referência" informar a fórmula de código A0011.

-----

Código: 8002

Descrição: INSS 13º Salário (antecipado) Desconto/Valor, sem Código de Cálculo. No campo "Fórmula valor" informar a fórmula de código A0013.

-----
Código: 8003

Descrição: IRRF 13º Salário (antecipado) Desconto/Valor, sem Código de Cálculo. No campo "Fórmula valor" informar a fórmula de código A0014.

-----
Código: 8004

Descrição: Desconto de INSS13º e IRRF13º (antecipado) Provento/Valor, sem Código de Cálculo. No campo "Fórmula valor" informar a fórmula de código A0015.


• 5º Passo: Realize o lançamento dos eventos 8001, 8002, 8003 e 8005 através do módulo:  
 

Visualização em Delphi: Movimento | Folha de Pagamento | Lançamentos Automáticos | Grupo de Eventos.
 

Visualização em .Net: Movimento | Folha de Pagamento | Lançamentos Automáticos | Grupo de Eventos.Net.
 

Nova MDI: Aba Folha Mensal | Lançamentos | Grupo de Eventos.

 

PROCEDIMENTOS A SER REALIZADO NA COMPETÊNCIA DEZEMBRO (Somente para quem efetuou o pagamento integral antecipado)

6º Passo: Lançar o evento 8004, através do módulo:  
 

Visualização em Delphi: Movimento | Folha de Pagamento | Lançamentos Automáticos | Grupo de Eventos.  
 

Visualização em .Net: Movimento | Folha de Pagamento | Lançamentos Automáticos | Grupo de Eventos.Net.  
 

Nova MDI: Aba Folha Mensal | Lançamentos | Grupo de Eventos.
 
7º Passo: Na competência Dezembro deverá efetuar o processamento de 13º Salário normalmente através do módulo  
 

Visualização em Delphi: Movimento | Folha de Pagamento | Lançamentos Automáticos | Décimo Terceiro Salário
 

Visualização em Delphi Maquina de Calulo: Movimento | 13º Salário (.NET) | Lançamento

Visualização Nova Nova MDI: Aba Folha Mensal | Calculo 13º ]

8º Passo: Efetuar a geração do SEFIP e de todas as guias.  

...

○ Processamento – 2ª Parcela de 13º Salário (Mês de Dezembro)

Acesse o módulo:
 

Visualização em Delphi: Movimento | Folha de Pagamento | Lançamentos Automáticos | Décimo Terceiro Salário
 

Visualização em Delphi Maquina de Cálculo: Movimento | 13º Salário (.NET) | Lançamento Nova MDI: Aba Folha Mensal | Cálculo 13º Preenchimento dos campos:

...

  • Criar o Evento INSS 13º Outro Emprego (Base de Cálculo, Valor, Com CC182), informar o valor da base da INSS de 13º na outra empresa.
  • O código de cálculo 83 será calculado automaticamente.

 
   

Atenção!
  No dia 20/12 deverá ser gerado SEFIP de 13º, marcando o campo "SEFIP para 13º salário", Informando o percentual de INSS recolhido pela empresa. Este SEFIP não gera recolhimento de FGTS, pois ele é utilizado apenas para declaração do valor de INSS de 13º salário que foi pago pela empresa na guia de GPS. 

...

Cálculo para funcionários que eram mensalistas e passaram a ser comissionistas Nesse caso, o sistema calcula 13° salário somente a partir do mês que se tornou comissionista, por isso é necessário utilizar o roteiro.

Cadastrar a consulta SQL:
 

Visualização em Delphi: Utilitários | Consultas SQL 

Nova MDI: Aba Gestão | Visões de dados

Verifica qual o último mês que o funcionário recebeu dias trabalhados ou horas normais, ou seja, último mês como mensalista/horista.


Código: ULTIMOMES

Título: Ultimo mês que o funcionário recebeu dias trabalhados ou horas normais

Texto:

SELECT MAX(PFFINANC.MESCOMP) AS ULTIMOMES FROM PFFINANC, PEVENTO, PPARAM

WHERE PFFINANC.CODCOLIGADA=PEVENTO.CODCOLIGADA AND PPARAM.CODCOLIGADA=PFFINANC.CODCOLIGADA AND PEVENTO.CODIGO=PFFINANC.CODEVENTO AND PFFINANC.CHAPA=:FRM_CHAPA

TOTVS Folha de Pagamento

26

Nº 0000xx_GDP-RH CHAPA AND (PEVENTO.CODIGOCALCULO='2' OR PEVENTO.CODIGOCALCULO='1') AND PFFINANC.ANOCOMP=PPARAM.ANOCOMP AND PFFINANC.CODCOLIGADA=:FRM_COLIGADA AND

(SELECT PFFINANC.VALOR WHERE PEVENTO.CODIGOCALCULO='2')>0

Fórmula para pagar 13° sobre os meses que o funcionário era mensalista: Esta fórmula foi criada considerando para média o ano todo. Se o cliente deseja pagar média sobre 6 meses, por exemplo, a fórmula deve ser adaptada.

Fórmula 1ª parcela:

Código: 1parcela

Título: 1ª parcela

Texto:

EXECSQL('ULTIMOMES');
DECL(MENSAL);

SE TFUNC='O' E EXECSQL('ULTIMOMES')>0 E MES=11 ENTAO

SETVAR(MENSAL,RESULTSQL('ULTIMOMES','ULTIMOMES')); (RANT(MTDATA(1,MENSAL,ANO))/12)*((NROAVOS13+1)-(12-MENSAL))/2

SENAO 0

FIMSE

Fórmula para o evento com C.C 102 : 

Código: 2parcela

Título: 2ª parcela

Texto:

EXECSQL('ULTIMOMES'); DECL(MENSAL); SE TFUNC='O' E EXECSQL('ULTIMOMES')>0 E MES=12 ENTAO SETVAR(MENSAL,RESULTSQL('ULTIMOMES','ULTIMOMES')); (RANT(MTDATA(1,MENSAL,ANO))/12)((NROAVOS13)-(12-MENSAL))/2 SENAO 0 FIMSE

O usuário deverá lançar o 13° normalmente pelo módulo automático. O sistema pagará as verbas para todos os funcionários e também para o comissionista, incluindo as médias do ano todo.

Criar um evento com código de cálculo 9 e outro com código de cálculo 102, com a fórmula acima, para pagamento do valor referente aos meses que o funcionário era mensalista. Informar a fórmula no evento com C.C 102 somente após o pagamento da primeira parcela, pois a mesma interfere no cálculo.

Fórmula considerando os últimos 6 meses para o cálculo de 13° : *Código: 1parcela 1parcela 

Título: 1ª parcela
Texto: EXECSQL('ULTIMOMES'); DECL(MENSAL);

...