Linha Microsiga Protheus

Árvore de páginas


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 um 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.
RetornoRetorna 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çãoMDTA1202()
ParâmetroslRet, Lógico, 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.
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