| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Exames do Func. (MDTA120) |
| País: | Brasil |
| Ticket: | Não há. |
| Issue: | Não há. |
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 Entrada | MDTA1202() |
|---|---|
| Chamada | Na Inclusão ou Alteração de um Exame para o funcionário. |
| Pré-Requisito | Ter 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 | Retorno 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. |
| Função | MDTA1202() |
|---|---|
| Parâmetros | Local lRet - Array que 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, isso é exibido em tela através do MsgInfo. |
#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 |