Histórico da Página

...

Utiliza salário atual p/ 1ª parcela : Como este campo habilitado, o sistema assumirá como base de cálculo da 1º parcela do 13º, o salário do mês de pagamento (no caso de alteração de salário no mês do pagamento, normalmente em novembro) ao invés do salário do mês anterior.

Exemplo 1:

Histórico salarial do funcionário:

...

 - Evento de código de cálculo 106 inibe o evento de código de cálculo 49: Se o parâmetro for marcado, ao ser lançado o evento com o CC106 - IRRF 13º CALCULADO PELO USUÁRIO na movimentação do funcionário o sistema irá zerar o evento CC49 - I.R.R.F. 13º Salário.Se o parâmetro não for marcado, for lançado na movimentação do funcionário o evento com o CC106 - IRRF 13º CALCULADO PELO USUÁRIO e este valor for menor que o evento de CC49, que seria calculado automaticamente pelo sistema , o sistema irá considerar os dois eventos. Esta diferença será lançada no evento de CC49.Caso o valor informado no evento CC106 seja maior ou igual ao valor do evento de CC49, o sistema irá zerar o evento CC49.

Na visualização dos parâmetros, existe a flag "Lança desconto de arredondamento (código de cálculo 21)

Se o parâmetro for marcado, o sistema lançará o evento com código de cálculo 314 para armazenar o valor do arredondamento (cc21), para que o mesmo seja descontado no próximo período. 

Este tratamento foi implementado para o sistema não descontar o evento com código de cálculo '21-Arredondamento Descontos' no lançamento do 13º Salário. E atender a 1º e 2º parcela do 13º Salário.

Exemplo: No período 1 foram realizados os seguintes lançamentos:
Cod.    Descrição     Descrição                            Valor              Prov/Desc/Base  

0008    Desconto de faltas                   1  1.000,00         Desconto

   Desconto 0020    Arredondamento                      1.000,00          Provento  

 Provento  Liquido: 0,00 (zero)  

 No No período 2 foi processado o lançamento da 1º parcela com o parâmetro 'Lança desconto de arredondamento (código de cálculo 21)' MARCADO:

Cod.    Descrição                                          Valor Valor              Prov/Desc/Base

0009    1ª Parcela 13º                                  500,00            Provento 

 Provento 0314    Base Arredondamento(cc314)   1.000,00          Base 

Liquido: 500,00 

 Se Se for realizado um lançamento para o funcionário no período 3 é descontado o arredondamento.

Cod.    Descrição                                          Valor              Prov/Desc/Base

9999    Provento                                      1.300,00          Provento

0021    Arredondamento Desc.(cc21)    1.000,00          Desconto   Desconto  

Liquido: 300,00 
 
 

Códigos Fixos no 13º Salário
Esta aba é utilizada para definir quais os "tipos de códigos fixos" serão lançados ao calcular o 13º salário. Esses tipos são previamente cadastrados na tabela dinâmica INT42 e tem a função de agrupar "códigos fixos" para efeito de lançamento na movimentação.  
"Códigos fixos" são eventos que ocorrem com regularidade e devem ser lançados na movimentação mensal do funcionário por um período determinado. Esses eventos são associados no cadastro do funcionário em:
 

Visualização em Delphi: Cadastros | Funcionários | Aba Base de calculo | Sub-aba Códigos Fixos Nova MDI: Aba Admistração de Pessoal | Funcionários | Opção Informações para o calculo | Códigos Fixos

  Parâmetros do sistema Delphi

Parâmetros do sistema .NET

 
Fórmulas adicionais pra a base 13º

 É utilizada para informar referências de fórmulas cujos resultados serão adicionados a base de cálculo do 13º na 2ª parcela.   Image Removed

Fórmulas adicionais em Delphi Image Removed

  Image Added

Fórmulas adicionais .NET

Image Added

 

Eventos Adicionais Globais

 Poderão ser informados eventos que serão lançados, de forma global, juntamente com o cálculo do 13º Salário.

Eventos adicionais Delphi

  Eventos adicionais .NET 

○ 1ª Parcela de 13º Salário (Automático)

Através destes módulos será realizado o lançamento do 13º salário sem média discriminada.

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


 

Visualização em .Net: Movimento | 13º Salário (.NET) | Lançamento
 

Nova MDI: Aba Folha Mensal | Calculo 13º

Image Added
 
Image Removed

Preenchimento dos campos:

...

• Ajustar primeira parcela: Este campo ficará marcado como padrão sempre que for lançada a 1ª parcela.

O parâmetro funciona da seguinte forma: Suponhamos que foi realizado o adiantamento do 13º salário no mês de Julho/12, para um funcionário que tem o salário de R$ 1000,00. Em Novembro/12 ele recebeu um aumento salarial e passou a receber R$1500,00.

Para que o ajuste referente a alteração salarial seja efetuado ao lançar novamente a 1ª parcela, o parâmetro "Ajustar 1ª Parcela" deverá ser marcado. Desse modo, os seguintes eventos referentes a 13º serão lançados:

-1ª Parcela de 13º Salário (Código de Cálculo 9) no valor de R$ 750,00 (Provento);

-Adiantamento de 13º Salário (Código de Cálculo 35) no valor de R$ 500,00 (Desconto).

Onde a diferença referente ao aumento salarial corresponde a R$ 250,00.

Se este parâmetro não estiver marcado, o sistema verificará que o evento de 1ª Parcela de 13º Salário já foi lançado (Código de Cálculo 009) e não fará o lançamento do ajuste.
   

○ 1ª Parcela com Média discriminada

1º Passo: Criar fórmula que fará o cálculo da média dos eventos discriminados. Abaixo segue exemplo lembrando que é de responsabilidade do usuário criar a fórmula que atenderá as necessidades da empresa. Acesse: 

Visualização em Delphi: Cadastros | Fórmulas

Nova MDI: Aba  Aba Administração de Pessoal | Fórmulas
 
Código: A0020

Título: Média 13º na 1ª Parcela

Texto: CALCMED(201) / 2
 
 

2º Passo: Cadastrar um evento de média que seja do tipo Provento, Valor, com Código de Cálculo 9 e incidência em FGTS. No campo "fórmula de valor", associe a fórmula criada no 1º passo.
 

 
3º Passo: Acesse o módulo de sindicato e desmarcar a opção "Paga média na 1ª Parcela".

Visualização em Delphi: Cadastros | Sindicatos| Parâmetros
 
 

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

4º Passo: Execute o pagamento da primeira parcela 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 .Net: Movimento | 13º Salário (.NET) | Lançamento
 

Nova MDI: Aba Folha Mensal | Calculo 13º

5º Passo: Crie um grupo de evento específico para lançar os eventos de médias. Na aba "Eventos do grupo", informe o evento criado no 2º passo. 

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.
 

6º Passo: Lance o Grupo de Eventos.  

○ Pagamento de 13º Salário integralmente em meses anteriores a Dezembro (Com discriminação da média)

 
Para o pagamento da 2ª parcela antecipadamente, deve-se observar que os encargos de INSS e IRRF serão recolhidos para os órgãos competentes apenas no mês de Dezembro (mês da quitação). Isso se deve ao fato de que o pagamento ocorrido em novembro ou em outros meses anteriores ao mês de dezembro são antecipações (adiantamento).
 

...

 
PREPARAÇÃO DO SISTEMA
Cadastrar as fórmulas Básicas para o cálculo
 

Visualização em Delphi: Cadastros | Fórmulas
 

Nova MDI: Aba Administração de Pessoal | Fórmulas

Código: CHAPA

Título: Chapa

Texto: Chapa

-----
Código: ANO

Título: Ano

Texto: Ano

-----

Código: MES

Título: Mês de Competência

Texto: MES

-----

Código: COLIGADA

Título: Coligada

Texto: Coligadacorrente

-----
Código: PERIODO

Título: Período atual

Texto: Periodo
-----

 
• 1º Passo: Cadastre a seguinte consulta SQL

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

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

Código: 13SALARIO

Título: 13º salário pago durante o ano

Texto:

SELECT SUM(VALOR) VALOR FROM PFFINANC (NOLOCK), PEVENTO (NOLOCK), PPARAM (NOLOCK)

          WHERE PFFINANC.CODCOLIGADA=PEVENTO.CODCOLIGADA                     AND CODCOLIGADA AND PPARAM.CODCOLIGADA=PFFINANC.CODCOLIGADA                     AND CODCOLIGADA AND PEVENTO.CODIGO=PFFINANC.CODEVENTO                      AND AND PFFINANC.CHAPA=:FRM_CHAPA                     AND AND PEVENTO.CODIGOCALCULO='9'                      AND AND (PFFINANC.MESCOMP<>PPARAM.MESCOMP OR PFFINANC.NROPERIODO<> :FRM_PERIODO)                    ANDAND PFFINANC.ANOCOMP=PPARAM.ANOCOMP                      AND AND PFFINANC.CODCOLIGADA=:FRM_COLIGADA 

• 2º Passo: Cadastrar as seguintes fórmulas
 

Visualização em Delphi: Cadastros | Formulas
 

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

 
Código: A0011

Título: AVOS 13 SALÁRIO INTEGRAL EM MESES ANTERIORES A DEZEMBRO

Texto:

SE SFUNC<>'P' E SFUNC<>'M' E SFUNC<>'R' E SFUNC<>'L' ENTAO 

ENTAO           NROAVOS13+ABS(MES-12) SENAO

SENAO 

            NROAVOS13 NROAVOS13

FIMSE

Código: A0012

Título: 13 SALÁRIO INTEGRAL EM MESES ANTERIORES A DEZEMBRO

Texto:

execsql('13SALARIO'); 

SE SFUNC<>'P' E SFUNC<>'M' E SFUNC<>'R' E SFUNC<>'L' ENTAO ENTAO 

             (RC/12)*(NROAVOS13+ABS(MES-12))-resultsql('13SALARIO','valor') SENAO  

SENAO 

             (RC/12)*(NROAVOS13)-resultsql('13SALARIO','valor') 

FIMSE

Caso queira que as fórmulas adicionais de 13º informadas nos módulos abaixo sejam consideradas, a fórmula anterior (A0012) deverá ser alterada da seguinte forma: 

Fórmula:

execsql('13SALARIO');

SE SFUNC<>'P' E SFUNC<>'M' E SFUNC<>'R' E SFUNC<>'L' ENTAO           

((RC + FOR("XXXX") + FOR("YYYY"))/12)(NROAVOS13+ABS(MES-12)) SENAO           ((RC + FOR("XXXX") + FOR("YYYY"))/12)(NROAVOS13) FIMSE

{}Onde houver XXXX ou YYYY deverá ser alterado para as fórmulas adicionais existentes.*
Código: A0016 Título: MEDIA DE 13 SALÁRIO INTEGRAL EM MESES ANTERIORES A DEZEMBRO Texto: execsql('13SALARIO'); SE SFUNC<>'P' E SFUNC<>'M' E SFUNC<>'R' E SFUNC<>'L' ENTAO           (CALCMED(2)/12)(NROAVOS13+ABS(MES-12)) SENAO           (CALCMED(2)/12)(NROAVOS13) FIMSE
• 3º Passo: Criar as fórmulas abaixo através do módulo "Cadastro | Fórmulas".
Código: A0013 Título: INSS DE ANTECIPAÇÃO DE 13º SALARIO Texto: execsql('13SALARIO');
TI(FOR('A0012') + FOR('A0016') - resultsql('13SALARIO','valor'))
Código: PENS13PR Título: Pensão sobre líquido de 13º salário antecipado (liquido) DELPHI: DECL PERC, CONT, X; SETVAR (CONT,1); SE TABDEP ('DTNASCIMENTO' ,'V' ,CONT) <>0 ENTAO REPITA            SE TABDEP ('DTNASCIMENTO','V',CONT) <>0 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' ,'V' ,CONT) =0 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
.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 

...

Nº 0000xx_GDP-RH

0021    Arredondamento Desc.(cc21)    1.000,00          Desconto  Liquido: 300,00