Histórico da Página
| Aviso |
|---|
Este Ponto de Entrada é Válido para Protheus 12 a partir do Release 12.1.13 - Expedição Out/ 2016 ou para Protheus 11 a partir do Release 11.80 - Expedição Out/2016. |
Ponto de Entrada para realizar gravações específicas antes da gravação do Risco.
Características do Requisito
Linha de Produto: | Microsiga Protheus. | ||||
Segmento: | Serviços. | ||||
Módulo: | Medicina e Segurança do Trabalho (SIGAMDT). | ||||
Rotina: |
| ||||
Cadastros Iniciais: | CTBA180 - Centro de Custo. GPEA030 - Função. MDTA095 - Fonte Geradora. MDTA182 - Agente. MDTA090 - Tarefa. | ||||
País(es): | Todos. | ||||
Sistema(s) Operacional(is): | Windows/Linux. |
Ponto de Entrada
Descrição: | Ponto de entrada MDTA1802 criado para possibilitar gravação dos registros em tabela customizada antes da gravação dos riscos |
Localização: | SIGAMDT: Atualizações/Ppra/Riscos |
Eventos: | Cadastro customizado |
Programa Fonte: | MDTA180.prx |
Função: | MDTA1802(). |
Retorno: | Sem retorno. |
Exemplo:
#include "Protheus.ch"
User Function MDTA1802()
Local nOpcx := PARAMIXB[1]
Local cOper := ""
Local cRisco := M->TN0_NUMRIS
Do Case
Case nOpcx == 3
cOper := "Inclusão"
Case nOpcx == 4
cOper := "Alteração"
Otherwise
cOper := "Exclusão"
EndCase
cMsg := "Ponto de entrada executado com sucesso. Operação: " + cOper + CRLF
cMsg += "Numero do risco: " + cRisco
MsgInfo(cMsg, "ATENÇÃO")
Return
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas