| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Atestado Médico (MDTA685) |
| País: | Brasil |
| Ticket: | Não há. |
| Issue: | Não há. |
Criado o ponto de entrada MDTA6852 na rotina de Atestado Médico (MDTA685) para possibilitar validar a manutenção de um determinado Atestado Médico, antes da exibição da tela. Com isso é possível realizar verificações antes da manutenção dos dados.
| Ponto de Entrada | MDTA6852() |
|---|---|
| Chamada | Ao alterar um Atestado Médico na rotina. |
| Pré-Requisito | Cadastrar um Atestado Médico para um funcionário. |
| Evento | Incluir, Alterar e Excluir. |
| Retorno | Retorna através do MsgStop se é possível ou não realizar a manutenção do Atestado Médico. |
| Função | MDTA6852() |
|---|---|
| Parâmetros | nOpcx - Corresponde a operação a ser realizada (3 - Inclusão, 4 - Alteração e 5 - Exclusão). aArea - Área inicial da execução do Ponto de Entrada. Local lRet - Lógico, retorna True quando não for permitida a alteração de um atestado médico na rotina. |
| Retorno | lRet, -Lógico, indica se pode ou não realizar a manutenção/alteração do atestado médico. |
#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 |