Histórico da Página
...
Ao gerar a provisão, o valor pago de férias foi informado e o valor retornado pelo fórmula somado ao campo de provisão de férias vencidas.
Após o pagamento do 1/3 que será exemplificado no tópico abaixo, a provisão não considerou o valor do 1/3 de férias:
Pagamento do 1/3 férias
...
| Bloco de código | ||
|---|---|---|
| ||
MV (0, '20202021', 'B099') |
Criado o evento de provento e inserido a fórmula no campo de valor:
Ao fazer o lançamento dos eventos para a Folha, incluído o evento acima, o mesmo foi calculado:
/*Verificar pagamento em dobro*/
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:
| 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(2229,0304,20202021) E DATAPGTOFERIAS <= MTDATA(2226,0708,20202021))
ENTAO
VALOREVENTO * ARRED(QUANTDIAS/365);
FIMSE;
FIMSE; |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas