Quais as rotinas do SIGAMDT que sofrem influência do parâmetro MV_MDTGPE?
Quando existe integração do módulo de Medicina e Segurança do Trabalho com o Gestão de Pessoas, as rotinas abaixo sofrem alteração/atualização de campos:
Ficha Médica (MDTA005)
Sesmt/Usuar.atend (MDTA070)
Diagnóstico Médico (MDTA155)
Riscos (MDTA180) - Periculosidade e Insalubridade
Atestado ASO (MDTA200) - Estabilidade
Candidatos (MDTA645) - Estabilidade
Componentes (MDTA660) - Estabilidade
Atestado Médico (MDTA685)
Ficha Médica (MDTA005): Faz a atualização dos campos de
Função realizar execução após a confirmação/cancelamento das telas de
Inclusão/Alteração/Exclusão da ficha médica
//atualiza os campos Tipo de Deficiencia e Cota Deficiente
TM0_CTPCD"
TM0_TIPDEF
SRA->RA_TPDEFFI := TM0->TM0_TIPDEF
If TM0->( FieldPos( "TM0_CTPCD" ) ) > 0
SRA->RA_CTPCD := TM0→TM0_CTPCD
SRA->RA_TPDEFFI := TM0->TM0_TIPDEF
SRA->RA_CTPCD := TM0->TM0_CTPCD
E como com a integração a atualização está funcionando normalmente, não há necessidade de alterações.
Os campos de Data de Nascimento, Função, CPF, Centro de Custo e Sexo, da rotina de ficha médica, foram alterados de forma a ficarem disponíveis para edição quando não existir integração entre os módulos de Medicina e Gestão Pessoal.
Sesmt/Usuar.atend (MDTA070)
TMK_NUMENT
Para a correta integração com o CAGED o Número da Entidade de Classe deve conter apenas caracteres alfanuméricos e não pode ser superior a 10 caracteres.' + CRLF + ' Deseja manter o número informado?' # 'Atenção'
Diagnóstico Médico (MDTA155)
Se estiver integrado ao GPE atualiza campo de deficiencia
SRA->RA_TPDEFFI := TMT->TMT_TIPDEF
Riscos (MDTA180)
Local lIntGPE := SuperGetMv( "MV_MDTGPE", .F., "N" ) == "S"
Local lMDTAdic := SuperGetMv( "MV_MDTADIC", .F., .F. )
Verifica se realiza a manutenção dos adicionais
Atestado ASO (MDTA200)
Verifica se tem afastamento com mais de 15 dias e gera estabilidade
de 1 ano apos o retorno ao trabalho.
MV_NG2AUXD
Se a natureza do ASO for 4 - Retorno ao trabalho, quando houver integração com o SIGAGPE, e se o funcionário estava afastado mais dias do que o parâmetro MV_NG2TOAF, ao confirmar o cadastro do ASO, o sistema gera um período de estabilidade para o funcionário (RFX) de acordo com o parâmetro MV_NG2AUXD, se o parecer do ASO for 2 - Inapto.
Atestado ASO (MDTA200 - SIGAMDT)
Candidatos (MDTA645)
Ajusta a data de estabilidade nos campos RA_DTVTEST e TNO_DTESTB
//Caso for alteração, exista integração com o GPE, o campo de justificativa estiver vazio
TNO->TNO_INDICA == "2"
If nCampo == 2 //Caso for When do campo de justificativa
lRet := TNO->TNO_DTESTB <> M->TNO_DTESTB .Or. !Empty( TNO->TNO_JUSTIF )
Else
Componentes (MDTA660)
//Ajusta a data de estabilidade nos campos RA_DTVTEST e TNQ_DTESTB
MDT660ESTB( .F., nOpcx, TNQ->TNQ_MANDAT, cFil1Tmp, TNQ->TNQ_MAT, , lPerdEstab, dDtEstbOld, cJustifOld, cIndicaOld )
//Caso for alteração, exista integração com o GPE, o campo de justificativa estiver vazio
If ALTERA .And. lIntegra .And. TNQ->TNQ_INDICA == "2"
If nCampo == 2 //Caso for When do campo de justificativa
lRet := TNQ->TNQ_DTESTB <> M->TNQ_DTESTB .Or. !Empty( TNQ->TNQ_JUSTIF )
Else
Atestado Médico (MDTA685)