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:

Rotina

Nome Técnico

MDTA685

Programa de Cadastro de Atestado Medico

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:

MDTA6851 - Atestado Médico -- 93219

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