Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 10 min

01. DADOS GERAIS

Linha de Produto:Protheus
Segmento:Serviços
Módulo:Medicina e Segurança do Trabalho (SIGAMDT)
Função:Exames do Funcionário (MDTA120)
Ticket:6047417
Requisito/Story/Issue:DNG-6062


02. SITUAÇÃO/REQUISITO

É necessária a criação de um Ponto de Entrada para tratativa de Exclusão do Exame do Funcionário na rotina de Exames do Funcionário (MDTA120).

03. SOLUÇÃO

Criado Ponto de Entrada MDTA1201 na rotina de Exames do Funcionário (MDTA120) para validar a Exclusão do exame.

04. DEMAIS INFORMAÇÕES

Função:MDTA1201()
Retorno:Boolean
Exemplo
#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