Linha RM

Atalhos

Páginas filhas
  • MP 1046 - Pagamento de 1/3 de Férias, abono pecuniário e 1/3 de abono pecuniário na Rescisão

Versões comparadas

Versão antiga 12

changes.mady.by.user Shirley Martins Muniz

Gravado em

comparado com

Nova versão 13

changes.mady.by.user Shirley Martins Muniz

Gravado em

Chave

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

...

Bloco de código
languagesql
titleConsulta SQL - Pagamento de Abono de Pecuniário Vencidas
SELECT FIMPERAQUIS, DATAPAGTO, DATAINICIO, PFUFERIASPER.CHAPA, PFFINANC.CODEVENTO, 
PFFINANC.VALOR, PFFINANC.DTPAGTO
FROM PFUFERIASPER (NOLOCK)
JOIN PFFINANC
ON PFUFERIASPER.CHAPA = PFFINANC.CHAPA
AND PFUFERIASPER.DATAPAGTO = PFFINANC.DTPAGTO
WHERE DATAPAGTO > FIMPERAQUIS AND PFFINANC.CODEVENTO = 'B198'
Bloco de código
titleFórmula - Pagamento de abono pecuniário de Férias Vencido
DECL FIMPERAQUIS1;
DECL DATAPGTOFERIAS;
DECL DATAINICIOFERIAS;
DECL VALOREVENTO;
DECL CH;

SETVAR (CH, '');

SE EXECSQL('DTFIMPERVENC_2') = 1;
ENTAO
REPITA
SE RESULTSQL('DTFIMPERVENC_1','CHAPA') = CHAPA
ENTAO
SETVAR (CH, CHAPA);
SETVAR (FIMPERAQUIS1, RESULTSQL('DTFIMPERVENC_1','FIMPERAQUIS'));
SETVAR (DATAPGTOFERIAS, RESULTSQL('DTFIMPERVENC_1','DATAPAGTO'));
SETVAR (DATAINICIOFERIAS, RESULTSQL('DTFIMPERVENC_1','DATAINICIO'));
SETVAR (VALOREVENTO, RESULTSQL('DTFIMPERVENC_1','VALOR')+ VALOREVENTO);
FIMSE
ATE PROXREGSQL('DTFIMPERVENC_1') = FALSO;
FIMSE

SE CH <> CHAPA
ENTAO
0
SENAO

SE (DATAINICIOFERIAS > FIMPERAQUIS1 OU FIMPERAQUIS1 > DTD) E ( DATAPGTOFERIAS >= MTDATA(27,04,2021) E DATAPGTOFERIAS <= MTDATA(25,08,2021))
ENTAO
VALOREVENTO




Calculando rescisão

Funcionário com tipo de demissão 2 - Iniciativa do empregador

...