Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:Exames do Func. (MDTA120)
País:Brasil
Ticket:Não há.
Issue:Não há.


02. DESCRIÇÃO

Criado Ponto de Entrada MDTA1202 na rotina de Exames do Funcionário (MDTA120) para tratar a Inclusão e Alteração do exame.


Ponto de EntradaMDTA1202()
ChamadaNa Inclusão ou Alteração de um Exame para o funcionário.
Pré-RequisitoTer Funcionário, Ficha Médica e Exames já cadastrados.
EventoTratamento da Inclusão ou Alteração de Exames para o funcionário quando a Origem do Exame é igual a 2 - Ocupacional.
RetornoRetorno lógico com a mensagem informando que quando o Exame possuir Origem igual a 2 - Ocupacional, não será possível incluir exames sem um Laudo do tipo PCMSO, isso é exibido em tela através do MsgInfo.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA1202()
ParâmetrosLocal lRet - Array que armazena uma condição lógica.
RetornolRet - Retorno lógico, sempre verdadeiro, quando o Exame possuir Origem igual a 2 - Ocupacional, não será possível incluir exames sem um Laudo do tipo PCMSO, isso é exibido em tela através do MsgInfo.



Exemplo
#include "Protheus.ch"
 
User Function MDTA695A()

    Local lRet := .T.
     
    If Empty(M->TM5_PCMSO) .And. M->TM5_ORIGEX == "2"
        MsgInfo("Não é possível incluir exames sem a informação de um PCMSO")
        lRet := .F.
    EndIf
 
Return lRet


04. ASSUNTOS RELACIONADOS