Histórico da Página
01. DADOS GERAIS
| Produto: |
| ||||
|---|---|---|---|---|---|
| Linha de Produto: |
| ||||
| Segmento: |
| ||||
| Módulo: |
| ||||
| Função: | Exames do Func. (MDTA120) | ||||
| País: | Brasil | ||||
| Ticket: | Não há. | ||||
| Issue: | Não há. |
02. DESCRIÇÃO
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. |
03. DEMAIS INFORMAÇÕES
| 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. |
...
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas