Histórico da Página
Aviso | ||
---|---|---|
| ||
|
Atualização ponto de entrada MDTA6851 para que envie como parâmetro qual o tipo de operação está sendo realizada
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Serviços | ||||
Módulo: | Medicina e Segurança do Trabalho (SIGAMDT) | ||||
Rotina: |
| ||||
Cadastros Iniciais: | Inclusão de ficha médica - MDTA005 ou MDTA410 Inclusão de médico emitente de atestado - MDTA680 | ||||
Parâmetro(s): | aParam | ||||
Ponto de Entrada: | |||||
País(es): | Todos | ||||
Sistema(s) Operacional(is): | Windows/Linux |
Ponto de Entrada
Descrição: | Ponto de entrada que permite a criação de própria regra de validação no momento de Incluir, Alterar e Excluir |
Localização: | Atualizações\Atendimento Medico\Atestado Medico |
Programa Fonte: | MDTA685.prx |
Função: | MDTA6851 |
Exemplo:
#Include "Protheus.ch"
User Function MDTA6851()
Local nOpc := PARAMIXB[1]
Local cTipo := ""
Do Case
Case nOpc == 3
cTipo := "Incluir"
Case nOpc == 4
cTipo := "Alterar"
Case nOpc == 5
cTipo := "Excluir"
EndCase
If M685DTVAL(nOpc) //Valida se o funcionário possui atestados cadastrados pelo GPE
MsgStop( "Validação executada com sucesso. Tipo de operação: " + cTipo , "Aviso" )
EndIf
EndIf
Return