Criado Ponto de Entrada para realizar validações antes da manutenção do Atestado Médico
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | Medicina e Segurança do Trabalho | ||||
Rotina: |
| ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Tabelas Utilizadas: | TNY - Atestado Médico | ||||
Sistema(s) Operacional(is): | Todos |
Descrição
Criado ponto de entrada para realizar validações antes da abertura de tela do Atestado Médico. Com isso é possível realizar verificações antes da manutenção dos dados.
Ponto de Entrada
Descrição: | Ponto de Entrada MDTA6852 criado para possibilitar validar a manutenção de um determinado atestado médico, antes da exibição da tela. | ||||||||
Localização: | SIGAMDT: Atualizações\Atendimento Médico\Atestado Médico | ||||||||
Eventos: | Incluir, Alterar e Excluir | ||||||||
Programa Fonte: | MDTA685 | ||||||||
Função: | MDTA6852(nOpcx,aArea) nOpcx - Corresponde a operação a ser realizada ( 3 - Inclusão; 4 - Alteração; 5 - Exclusão ) aArea - Área inicial da execução do Ponto de Entrada | ||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function MDTA6852()
Local nOpcx:= PARAMIXB[1]
Local aArea:= PARAMIXB[2]
Local lRet := .T.
If nOpcx == 4
MsgStop("Não é permitida a alteração.")
EndIf
RestArea(aArea)
Return lRet