Histórico da Página

...

Criar um motivo de situação na tabela dinâmica INT28 para identificar que o afastamento é por motivo de COVID-19. Conforme o exemplo abaixo criamos o motivo de código 'CV'. No afastamento do funcionário que esteve doente por motivo de COVID-19, foi informado o motivo criado:

Criar a consulta SQL que retorna os afastamento do Tipo 'P' - Af. Previdência e Motivo 'Cv' Afastamento por COVID-19:

Bloco de código

language	sql
title	Consulta SQL - Afastamentos por COVID-19

SELECT CHAPA, DTINICIO, DTFINAL, TIPO, MOTIVO
FROM PFHSTAFT (NOLOCK)
WHERE TIPO = 'P' AND MOTIVO = 'CV'

Criar a Fórmula que calcula o valor referente ao afastamento por COVID-19:

Bloco de código

title	Fórmula - Afastamento por COVID-19

DECL DATAINICIO;
DECL DATAFINAL;
DECL CH;
DECL DATAINICIOPAG;
DECL DATAFINALPAG;
DECL NUMERODIASAFAST;
DECL SALCONTR; 
DECL VALOR;

SE EXECSQL('COVID19') = 1;
ENTAO
REPITA
SE RESULTSQL('COVID19','CHAPA') = CHAPA;
ENTAO 
SETVAR (DATAINICIO, RESULTSQL('COVID19','DTINICIO'));
SETVAR (DATAFINAL, RESULTSQL('COVID19','DTFINAL'));
SETVAR (CH, RESULTSQL('COVID19', 'CHAPA'));
FIMSE
ATE PROXREGSQL('COVID19') = FALSO;

SETVAR (DATAINICIOPAG, MTDATA(01,MES,ANO));
SETVAR (DATAFINALPAG, MTDATA(31,MES,ANO)); 
SETVAR (SALCONTR, 6101.06);
SE CH = 0
ENTAO
0
SENAO
SE DATAINICIO < DATAINICIOPAG E SUBTRAIDATAS(DATAINICIO,DATAINICIOPAG) < 16;
ENTAO
SETVAR (NUMERODIASAFAST, DIASAFTPAG(DATAINICIOPAG,DATAFINAL,'P','E'));
SETVAR (VALOR, ((RC / 30) * NUMERODIASAFAST));

SENAO
SE DATAINICIO > DATAINICIOPAG E DATAFINAL = '01/01/0001';
ENTAO
SETVAR (NUMERODIASAFAST, DIASAFTPAG(DATAINICIO,DATAFINALPAG,'P','E'));
SETVAR (VALOR, ((RC / 30) * NUMERODIASAFAST));

SENAO
SE
SETVAR (NUMERODIASAFAST, DIASAFTPAG(DATAINICIO,DATAFINAL,'P','E'));
SETVAR (VALOR, ((RC / 30) * NUMERODIASAFAST));

FIMSE
SE VALOR < SALCONTR
ENTAO VALOR;
SENAO
SALCONTR

Para que seja feita a dedução do valor nas Rotinas que Caculam INSS no produto, orientamos associar a fórmula no evento de CC 65 - Diferença de Salário Família, cadastrado como Base de Cálculo e lançar o mesmo no envelope de pagamento:

Image Added

Ao fazer o lançamento para a Folha foi lançado o valor referente ao afastamento por COVID-19 no evento de Base de Cálculo

Image Added

Gerando a Guia de INSS, o valor foi abatido da Base de Cálculo da Guia:

Atalhos

Páginas filhas

Versões comparadas

Versão antiga 3

Nova versão 4

Chave