Histórico da Página
...
Na fórmula utilizada, usamos a variável MV que retorna a soma do evento de base de cálculo B099, B198 e B199 pago durante o ano de 2021 e abatemos os eventos de proventos que serão usados para pagar o 1/3 quando for o caso. Assim, quando o pagamento for efetuado o mesmo não será mais somado na provisão. A formula abaixo contem os eventos que foram sugeridos no roteiro de abono pecuniário e rescisão
...
Ao fazer o lançamento dos eventos para a Folha, incluído o evento acima, o mesmo foi calculado:
Para pagamento de Férias em dobro, criamos um exemplo de sugestão de fórmula, que verifica se o valor pendente a se quitado já ultrapassou dois período vencidos de férias, considerando o primeiro dia da competência atual:. A Consulta SQL está exemplificada no Pagamento de 1/3 de Férias Vencidas neste link.
Bloco de código | ||
---|---|---|
| ||
DECL FIMPERAQUIS1; DECL DATAPGTOFERIAS; DECL DATAINICIOFERIAS; DECL VALOREVENTO; DECL CH; DECL QUANTDIAS; SETVAR (CH, ''); SE EXECSQL('DTFIMPERVENC') = 1; ENTAO REPITA SE RESULTSQL('DTFIMPERVENC','CHAPA') = CHAPA ENTAO SETVAR (CH, CHAPA); SETVAR (FIMPERAQUIS1, RESULTSQL('DTFIMPERVENC','FIMPERAQUIS')); SETVAR (DATAPGTOFERIAS, RESULTSQL('DTFIMPERVENC','DATAPAGTO')); SETVAR (DATAINICIOFERIAS, RESULTSQL('DTFIMPERVENC','DATAINICIO')); SETVAR (VALOREVENTO, RESULTSQL('DTFIMPERVENC','VALOR')); FIMSE ATE PROXREGSQL('DTFIMPERVENC') = FALSO; FIMSE; SE CH <> CHAPA ENTAO 0 SENAO SETVAR (QUANTDIAS, SUBTRAIDATAS(MTDATA(01,MES,ANO),FIMPERAQUIS1)); SE QUANTDIAS > 365 E (DATAPGTOFERIAS >= MTDATA(29,04,2021) E DATAPGTOFERIAS <= MTDATA(26,08,2021)) ENTAO VALOREVENTO * ARRED(QUANTDIAS/365); FIMSE; FIMSE; |
Associando a fórmula em um evento:
Lançado o evento de férias em dobro, para um funcionário onde o pagamento foi feito após o vencimento de dois períodos aquisitivos:
Lançamento usando o processo de Diferença de Férias
...