| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Exames do Funcionário (MDTA120) |
| País: | Brasil |
| Ticket: | 6047417 |
| Issue: | DNG-6062 |
Criado Ponto de Entrada MDTA1201 na rotina de Exames do Funcionário (MDTA120) para validar a Exclusão do exame.
| Ponto de Entrada | MDTA1201() |
|---|---|
Chamada | Ao tentar excluir um exame na rotina Exames do Funcionário (MDTA120). |
| Pré-Requisito | Possuir exames cadastrados para o funcionário. |
| Evento | Validação da exclusão de exames do funcionário. |
| Retorno | Retorna se o exame foi excluído ou não do sistema. |
| Função | MDTA1201() |
|---|---|
| Parâmetros | Local lRet, booleano, retorna verdadeiro ou falso. |
| Retorno | lRet, booleano, retorna verdadeiro ou falso. |
#include "Protheus.ch"
User Function MDTA1201()
Local lRet := .T.
If !Empty(TM5->TM5_NUMASO)
MsgInfo("Não é possível a exclusão de exames vinculados ao ASO).
lRet := .F.
EndIf
Return lRet |