Atestado Medico X Adicional Noturno

[Jean Marcel Orlandini]

Prezados, Boa Tarde!

Tenho funcionários que trabalham na escala 12x36, porém gostaria de saber como podemos tratar em relação ao atestado médico para refletir horas de adicional noturno.

Digamos que o funcionário faça o horário das 19h00 as 07h00, então teremos adicional noturno das 22h00 as 05h00.

Suponhamos que, as 02h00 da manhã o funcionário passou mal e foi ao médico e se ausentou do restante da jornada.

Segundo parecer do Sindicato essa ausência das 02h00 até as 05h00 (final do adicional noturno) deve ser pago ao funcionário.

Como tratar essa situação no RM Chronus?

[rosana.tss]

Prezados, Boa Tarde!

Tenho funcionários que trabalham na escala 12x36, porém gostaria de saber como podemos tratar em relação ao atestado médico para refletir horas de adicional noturno.

Digamos que o funcionário faça o horário das 19h00 as 07h00, então teremos adicional noturno das 22h00 as 05h00.

Suponhamos que, as 02h00 da manhã o funcionário passou mal e foi ao médico e se ausentou do restante da jornada.

Segundo parecer do Sindicato essa ausência das 02h00 até as 05h00 (final do adicional noturno) deve ser pago ao funcionário.

Como tratar essa situação no RM Chronus?

Jean, boa tarde

Você já fez o teste de habilitar o parâmetro - inclui nas horas trabalhadas lá no cadastro do abono dessas horas ?

[Cebolera]

Jean você conseguiu resolver o seu caso do Adicional Noturno ?

Estou tendo o mesmo problema hoje.

Posta ai pra gente como foi que você fez

[Jean Marcel Orlandini]

CÓDIGO DA FORMULA: TOT

DESCRICAO DA FORMULA: TOT

DECL DT, DTFIM ;

SETVAR (DT, IPM);

SETVAR(DTFIM, FPM);

SE EXECSQL ('FALTAJUSTIFICADA') = VERDADE E EXECSQL ('ABONOREF') = VERDADE

ENTAO

HORASABONOADNOT (DT, DTFIM)-(RESULTSQL('FALTAJUSTIFICADA','HFABONO') -RESULTSQL('FALTAJUSTIFICADA','HIABONO'))+RESULTSQL('ABONOREF','REF')

SENAO 0

FIMSE

-----------------------------------

CÓDIGO DA FÓRMULA: TOTVS1

DESCRICAO DA FÓRMULA: AD NOTURNO ABONO

DECL DT, DTFIM ;

SETVAR (DT, IPM);

SETVAR(DTFIM, FPM);

SE EXECSQL ('FALTAJUSTIFICADA') = VERDADE E EXECSQL ('ABONOREF') = VERDADE

ENTAO

HORASABONOADNOT (DT, DTFIM)-(RESULTSQL('FALTAJUSTIFICADA','HFABONO') -RESULTSQL('FALTAJUSTIFICADA','HIABONO'))+RESULTSQL('ABONOREF','REF')

SENAO HORASABONOADNOT (DT, DTFIM)+RESULTSQL('ABONOREF','REF')

FIMSE

------------------------------------

CÓDIGO DA FÓRMULA: TOTVS2

DESCRICAO DA FÓRMULA: ADICIONAL NOTURNO FOLGA

DECL DT, DTFIM , ADICNOTURNO;

SETVAR (DT, IPM);

SETVAR(DTFIM, FPM);

NUMDESCJOR(DT,DTFIM,2) * FOR('TOTVS3')

------------------------------------

CÓDIGO DA FÓMRULA: TOTVS3

DESCRICAO DA FÓRMULA: CALCULO HORAS FOLGA DE UM DIA FORTOTVS2

SE EXECSQL ('Folgas') = VERDADE

ENTAO

SE RESULTSQL('Folgas','HIF') = 0 E RESULTSQL('Folgas','HFF') = 1439 ENTAO

480 SENAO

SE RESULTSQL('Folgas','HIF') <> 0 E RESULTSQL('Folgas','HFF') = 1439 E RESULTSQL('Folgas','HIF') < 300 ENTAO

480-RESULTSQL('Folgas','HIF') SENAO

SE RESULTSQL('Folgas','HIF') = 0 E RESULTSQL('Folgas','HFF') <> 1439 E RESULTSQL('Folgas','HFF') > 1320 ENTAO

480-((RESULTSQL('Folgas','HFF')+1)-1320) SENAO 0

FIMSE FIMSE FIMSE

------------------------------------

CÓDIGO DA FÓRMULA: TOTVS4

DESCRICAO DA FÓRMULA: ADICIONAL NOTURNO NORMAL

DECL DT, ADIC;

SETVAR (DT, IPM);

REPITA SE

HORASADNOT(DT)> 1 ENTAO

SETVAR( ADIC, ADIC+ HORASADNOT(DT))

FIMSE;

SETVAR(DT,DT +1)

ATE ( DT=FPM+1);

ARRED((ADIC)+FOR('TOTVS1')+FOR('TOTVS2'))

---------------------------------------

CÓDIGO DA FÓRMULA: TOTVS5

DESCRICAO DA FÓRMULA: AD NOTURNO ABONO ENFERMARIA

DECL DT, DTFIM ;

SETVAR (DT, IPM);

SETVAR(DTFIM, FPM);

SE EXECSQL ('FALTAJUSTIFICADA') = VERDADE

E EXECSQL ('ABONOREF') = VERDADE

ENTAO

HORASABONOADNOT (DT, DTFIM)-(RESULTSQL('FALTAJUSTIFICADA','HFABONO') -RESULTSQL('FALTAJUSTIFICADA','HIABONO'))+RESULTSQL('ABONOREF','REF')

SENAO HORASABONOADNOT (DT, DTFIM)+RESULTSQL('ABONOREF','REF')

FIMSE

---------------------------------------

CÓDIGO DA FÓRMULA: TOTVS6

DESCRICAO DA FÓRMULA: ADICIONAL NOTURNO FOLGA

DECL DT, DTFIM , ADICNOTURNO;

SETVAR (DT, IPM);

SETVAR(DTFIM, FPM);

NUMDESCJOR(DT,DTFIM,2) * FOR('TOTVS7')

----------------------------------------

CÓDIGO DA FÓRMULA: TOTVS7

DESCRICAO DA FÓRMULA: CALC FOLGA EM UM DIA

SE EXECSQL ('Folgas') = VERDADE

ENTAO

SE RESULTSQL('Folgas','HIF') = 0 E RESULTSQL('Folgas','HFF') = 1439 ENTAO

617.142857142857 SENAO

SE RESULTSQL('Folgas','HIF') <> 0 E RESULTSQL('Folgas','HFF') = 1439 E RESULTSQL('Folgas','HIF') < 420 ENTAO

617.142857142857-RESULTSQL('Folgas','HIF') SENAO

SE RESULTSQL('Folgas','HIF') = 0 E RESULTSQL('Folgas','HFF') <> 1439 E RESULTSQL('Folgas','HFF') > 1320 ENTAO

617.142857142857-((RESULTSQL('Folgas','HFF')+1)-1320) SENAO 0

FIMSE FIMSE FIMSE

----------------------------------------

CÓDIGO DA FÓRMULA: TOTVS8

DESCRICAÃO DA FÓRMULA: AD NOTURNO GERAL ENFERMAGEM

DECL DT, ADIC;

SETVAR (DT, IPM);

REPITA SE

HORASADNOT(DT)> 1 ENTAO

SETVAR( ADIC, ADIC+ HORASADNOT(DT))

FIMSE;

SETVAR(DT,DT +1)

ATE ( DT=FPM+1);

ARRED((ADIC)+FOR('TOTVS5')+FOR('TOTVS6'))

------------------------------------------------ *** -------------------------------------

SQL'S

CÓDIGO DA SQL: ABONOREF

DESCRICAO DA SQL: REFEICAO ABONO

SELECT CASE WHEN (COUNT (CHAPA) -1)*60 > 1 THEN (COUNT (CHAPA) -1)*60

ELSE 0 END AS REF

FROM AABONFUN

WHERE CHAPA = :FRM_CHAPA

AND DATA>=:FRM_IPM

AND DATA<=:FRM_FPM

---------------------------------

CÓDIGO DA SQL: FALTAJUSTIFICADA

DESCRIÇÃO DA SQL: FALTA JUSTIFICADA

SELECT AABONFUN.DATA AS DATA,

AABONFUN.HORAINICIO AS HIABONO,

AABONFUN.HORAFIM AS HFABONO

FROM AABONFUN

WHERE CHAPA = :FRM_CHAPA

AND DATA>=:FRM_IPM AND DATA<=:FRM_FPM

AND CODABONO = '010'

----------------------------------

CÓDIGO DA SQL: Folgas

DESCRIÇÃO DA SQL: Folgas

SELECT A.DATA AS DATA ,

(SELECT MAX (HORAINICIO)

FROM adttabfolga

WHERE adttabfolga .CODCOLIGADA=A.CODCOLIGADA

AND adttabfolga.CODTABFOLGA =A.CODTABFOLGA) AS HORAINICIO ,

HORAINICIO AS HIF,

HORAFIM AS HFF

FROM adttabfolga A , APARFUN B

WHERE A.CODCOLIGADA =:FRM_CODCOL

AND A.CODCOLIGADA=B.CODCOLIGADA

AND A.CODTABFOLGA=B.CODTABFOLGA

AND B.CHAPA=:FRM_CHAPA

AND A.DATA>=:FRM_IPM

AND A.DATA<=:FRM_FPM

AND B.CHAPA IN (SELECT CHAPA

FROM APARFUN

WHERE PAGAADNOTURNO = 1 )

-------------------------------------- **** -------------------------------------

EVENTOS A SEREM CALCULADOS

FÓRMULA: TOTVS4-AD NOTURNO NORMAL | CÓDIGO: 0040 ADICIONAL NOTURNO POR FÓRMULA | EVENTO CALCULADO POR FÓRMULA | PRIORIDADE: 1

FÓRMULA: TOTVS8-AD NOTURNO GERAL ENFERMAGEM | CÓDIGO: 0009 ADICIONAL NOTURNO NORMAL | EVENTO CALCULADO POR FÓRMULA | PRIORIDADE: 1

-------------------------------------- **** -------------------------------------