...

Após salvar os dados,  será gerado um gatilho para a fila de eventos do esocial.

eSocial

Observação: Disponível a partir das versões 12.1.25.268, 12.1.26.212, 12.1.27.166 e 12.1.28.102

...

Fórmula Criada a inserida no evento de desconto de dias trabalhados. 

Em construção...

...

Valor Reduzido para descontar do Pagamento Mensal

 /* Essa fórmula irá calcular o valor a reduzir de jornada

é deverá ser associado a um evento de desconto no

pagamento do funcionário. Será desconsiderado no período de

redução os dias de férias, afastamentos, admissão, demissão e horário.

Para esse cenário, o provento Dias Trabalhados será considerado integral

e o evento de desconto “redutor de Jornada” reduzirá do salário mensal.

Exemplo:

Um salário mensal de 2000.00 com redução da jornada de 25%.

O novo salário deverá ser 1500 e a nova jornada deverá ser 165:00, considerando

Uma jornada de 220 horas no mês. No campo Valor a reduzir na aba B.E.M deverá

Cadastrar 500.00 nesse exemplo.

A mesma é uma sugestão de cálculo e poderá ser usada como modelo

pela empresa.

Data Atualização :  22/04/2020 17:30

Utilização a partir dos patches liberados em 16/04/2020

*/

DECL DataInicioAcordo;

DECL DataFimAcordo;

DECL DataInicioReducao;

DECL DataFimReducao;

DECL DiasReducao;

DECL ValorReduzido;

DECL DiasuteisTrab;

DECL DiasDSR;

SETVAR (DataInicioAcordo,TABFUNC('DTACORDOBEM','D'));

SETVAR (DataFimAcordo,(DataInicioAcordo + TABFUNC('DURACAOBEM','I')));

SETVAR (ValorReduzido,TABFUNC ('VALORREDUZIDOBEM', 'I'));

/*Retona a Data Início da Reducao no mes*/

SE (MESDT(DataInicioAcordo) = MES) E (ANODT(DataInicioAcordo) = ANO)

ENTAO SETVAR(DatainicioReducao,DataInicioAcordo)

SENAO SETVAR(DatainicioReducao,MTDATA(01,MES,ANO))

FIMSE;

/*Retona a Data Fim da Reducao no mes*/

SE (MESDT(DataFimAcordo) = MES  E  ANODT(DataFimAcordo) = ANO)

ENTAO SETVAR(DataFimReducao,DataFimAcordo)

SENAO SETVAR(DataFimReducao,MTDATA(30,MES,ANO))

FIMSE;

/* calcula dias uteis no Período da redução da jornada considerando férias,afastamento,admissao,demissao*/

SETVAR(DiasuteisTrab,NDTRABPER2(DatainicioReducao,DataFimReducao));

/* calcula dias DSR no Período da redução da jornada considerando férias,afastamento,admissao,demissao*/

SETVAR(DiasDSR,NDDSRPER(DatainicioReducao,DataFimReducao,'1'));

SETVAR(DiasReducao,(DiasUteisTrab + DiasDSR));

/* calcula “valor” do desconto a reduzir no pagamento*/

SETVAR(ValorReduzido,(ValorReduzido/30) * DiasReducao);

Fórmula associada ao evento que será lançado no movimento do Funcionário.

...