Mp 936 - redução de salário

[Rafaeltluiz]

Bom dia!

Alguém tem alguma solução para a redução de salário/Jornada para quem não utiliza o "Automação do Ponto"?

Creio que deveria ser uma fórmula para abater diretamente do saldo de salário o percentual..

Alguém já criou algo? Ou tem material da TOTVs para ajudar?

[Jair - Fórmula]

Redução Proporcional de Jornada de Trabalho e Salário

Durante esse período (calamidade), o empregador poderá acordar no prazo de 90 dias. A redução proporcional da jornada de trabalho e a redução de salário.

MP 936 - Redução Proporcional de Jornada de Trabalho e Salário

MP936 - Redução de Jornada de Trabalho (Automação Ponto)

[Jair - Fórmula]

A TOTVS soltou na data de hoje uma alteração na sugestão de fórmula para a proporcionalização do desconto referente a redução de jornada do funcionário: 

-- Data Atualização :  28/04/2020 15:55

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

DECL DataInicioAcordo;

DECL DataFimAcordo;

DECL DataInicioReducao;

DECL DataFimReducao;

DECL DiasReducao;

DECL ValorReduzido;

DECL DiasReducaoMes;

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 redução no mes*/

SETVAR(DiasReducaoMes, SUBTRAIDATAS(DataFimReducao,DatainicioReducao) +1);

/* calcula dias redução no mês desconsiderando férias*/

SETVAR(DiasReducaoMes,(DiasReducaoMes  -  DIAFERPER(DatainicioReducao,DataFimReducao)));

/* calcula dias redução no mês desconsiderando afastamento*/

SETVAR(DiasReducaoMes,(DiasReducaoMes  -  DIASAFT(DatainicioReducao,DataFimReducao,'PTO')));

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

SETVAR(ValorReduzido,(ValorReduzido/30) * DiasReducaoMes)