Histórico da Página
...
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
SELECT CHAPA, TIPO, DTINICIO, DTFINAL
FROM PFHSTAFT (NOLOCK)
WHERE TIPO IN ('C') AND MOTIVO = 'DC'CV' AND PFHSTAFT.CHAPA=:FRM_CHAPA
AND PFHSTAFT.CODCOLIGADA=:FRM_COLIGADA |
| Bloco de código | ||
|---|---|---|
| ||
DECL DATAINICIO;
DECL DATAFIM;
DECL QUANTDIAS;
DECL CH;
DECL TPDEMISSAO;
SE EXECSQL('AFASTAMENTO') = 1;
ENTAO
REPITA
SE RESULTSQL('AFASTAMENTO','CHAPA') = CHAPA;
ENTAO
SETVAR (DATAINICIO, RESULTSQL('AFASTAMENTO','DTINICIO'));
SETVAR (DATAFIM, RESULTSQL('AFASTAMENTO','DTFINAL'));
SETVAR (CH, RESULTSQL('AFASTAMENTO', 'CHAPA'));
SETVAR (TPDEMISSAO, TABFUNC ('TIPODEMISSAO',''));
FIMSE
ATE PROXREGSQL('AFASTAMENTO') = FALSO;
SE CH = 0
ENTAO
0
SENAO
SE DATAFIM = '01/01/0001'
ENTAO
0
SENAO
SE DATAFIM <> '01/01/0001' E TPDEMISSAO = 2
ENTAO
SETVAR (QUANTDIAS, SUBTRAIDATAS(DATAFIM, DATAINICIO));
SE (DATAFIM+QUANTDIAS) > DTD
ENTAO
RC
SENAO
0 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas