Linha Microsiga Protheus

Árvore de páginas

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:

Rotina

Nome Técnico

MDTA180

Riscos

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