| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Exames do Func. (MDTA120) |
| País: | Brasil |
| Ticket: | Não há. |
| Issue: | Não há. |
Ponto de entrada MDTA1202 na rotina de Exames do Funcionário (MDTA120) para tratar a Inclusão e Alteração do exame.
| Ponto de Entrada | MDTA1202 |
|---|---|
| Chamada | Na Inclusão ou Alteração de um Exame para o funcionário. |
| Pré-Requisito | Ter um funcionário, ficha médica e exames já cadastrados. |
| Evento | Tratamento da inclusão ou alteração de exames para o funcionário quando a Origem do Exame é igual a 2 - Ocupacional. |
| Retorno | Retorna 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. |
| Função | MDTA1202() |
|---|---|
| Parâmetros | lRet, Lógico, Armazena uma condição lógica. |
| Retorno | lRet, 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. |
#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 |