Histórico da Página
...
Bloco de código | ||
---|---|---|
| ||
DECL DataInicioAcordo; DECL DiasDuracao; DECL DiasProrrog; DECL DataCancelamento; DECL DataAntecipacao; DECL DataFimAcordo; DECL DuracaoTotal; DECL DataInicioAcordoAnt; SETVAR (DataInicioAcordoAnt, DATANULA); SE (EXECSQL ('BEM') = FALSO) ENTAO 'FUNCIONÁRIO SEM ESTABILIDADE POR REDUÇÃO DE JORNADA/SALÁRIO OU SUSPENSÃO DE CONTRATO CONFORME MP 936.'; FIMSE;SENAO /* Retorna a quantidade total de dias de acordo por redução de Jornada*/ SE (EXECSQL ('BEM') = Verdade); REPITA SETVAR (DataInicioAcordo,resultsql('BEM','DTACORDOBEM')); SETVAR (DiasDuracao,resultsql('BEM','DURACAOBEM')); SETVAR (DiasProrrog,resultsql('BEM','DIASPRORROGACAOBEM')); SETVAR (DataCancelamento,resultsql('BEM','DTCANCELAMENTOBEM')); SETVAR (DataAntecipacao,resultsql('BEM','DTANTECIPACAOBEM')); SE DataAntecipacao <> DATANULA ENTAO SETVAR (DiasDuracao, (SUBTRAIDATAS (DataAntecipacao, DataInicioAcordo))); FIMSE; SE DataCancelamento <> DATANULA ENTAO SETVAR (DiasDuracao, (SUBTRAIDATAS (DataCancelamento, DataInicioAcordo))); FIMSE; SE DataInicioAcordo = DataInicioAcordoAnt; SETVAR (DiasDuracao, DiasProrrog); FIMSE; SETVAR (DataFimAcordo, DataInicioAcordo+DiasDuracao+DiasProrrog); SETVAR (DuracaoTotal, DuracaoTotal+DiasDuracao); SETVAR (DataInicioAcordoAnt, DataInicioAcordo); ATE ProxRegSQL('BEM') = Falso FIMSE; SE DataFimAcordo = (DataInicioAcordo + DuracaoTotal); SETVAR (DataFimAcordo, DataInicioAcordo + DuracaoTotal); FIMSE; SE (DataFimAcordo + DuracaoTotal) > MTDATA(01,MES,ANO) ENTAO CONCAT ('FUNCIONÁRIO POSSUÍ ESTABILIDADE POR REDUÇÃO DE JORNADA/SALÁRIO OU SUSPENSÃO DE CONTRATO ATÉ ', DataFimAcordo+DuracaoTotal) SENAO 'FUNCIONÁRIO SEM ESTABILIDADE POR REDUÇÃO DE JORNADA/SALÁRIO OU SUSPENSÃO DE CONTRATO CONFORME MP 936.' FIMSE; |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas