Tempo aproximado para leitura: 10 min
01. DADOS GERAIS
| Produto: | TOTVS Medicina e Segurança do Trabalho |
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Serviços |
| Módulo: | Medicina e Segurança do Trabalho (SIGAMDT) |
| Função: | Atestado ASO (MDTA200) |
| Ticket: | 18751078 |
| Issue: | DNG-21672 |
02. SITUAÇÃO/REQUISITO
Solicitação de criação de um ponto de entrada na rotina de Atestado ASO (MDTA200) para fazer o bloqueio no momento da Alteração de um ASO já impresso.
03. SOLUÇÃO
| Ponto de Entrada | MDTA2001() |
|---|---|
| Chamada | Rotina Atestado ASO (MDTA200), quando clicar no botão de Alterar. |
| Pré-Requisito | Existir um ASO impresso. |
| Evento | Ao selecionar um ASO impresso e selecionar o botão Alterar, o sistema dispara o ponto de entrada. |
| Retorno | O ponto de entrada tem como objetivo bloquear a alteração do ASO já impresso. |
04. DEMAIS INFORMAÇÕES
| Função | MDTA2001() |
|---|---|
| Parâmetros | Não há. |
| Retorno | lRetVal: retorna verdadeiro ou falso. |
Exemplo
#include 'protheus.ch'
User Function MDTA2001()
Local lRetVal
//Validação desejada para retorno do Ponto de Entrada.
lRetVal := MsgYesNo( "Ponto de Entrada MDTA2001 Executado." + CRLF + "Ao selecionar Sim, o retorno do Ponto de Entrada será verdadeiro, ao selecionar Não o retorno será falso." )
Return lRetVal
05. ASSUNTOS RELACIONADOS.
Não há.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas