...
| Produto: | | Solucoes_totvs_parceirosexptotvs |
|---|
| SolucaoParcsExpsTOTVS | TOTVS Medicina e Segurança do Trabalho |
|---|
|
|
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | | Modulos_totvs_rh |
|---|
| ModulosTOTVSRH | 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 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 um funcionário, ficha médica e exames já cadastrados. |
|---|
| Evento | Tratamento da Inclusão inclusão ou Alteração alteração de Exames exames para o funcionário quando a Origem do Exame é igual a 2 - Ocupacional. |
|---|
| Retorno | Retorno lógico 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, isso é exibido em tela através do MsgInfo. |
|---|
03. DEMAIS INFORMAÇÕES
| Função | MDTA1202() |
|---|
| Parâmetros | Local lRet - Array que armazena 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, isso é exibido em tela através do MsgInfo. |
|---|
| Bloco de código |
|---|
| language | java |
|---|
| theme | Eclipse |
|---|
| firstline | 1 |
|---|
| title | Exemplo |
|---|
| linenumbers | true |
|---|
|
#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 |
...
