Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos


01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

RH

Módulo:

TOTVS RH (Linha Protheus) - Medicina e Segurança do Trabalho (SIGAMDT)

Função:Riscos (MDTA180)
País:Brasil
Ticket:Não há.
Issue:Não há.

02. DESCRIÇÃO

Ponto de entrada MDTA1802 criado na rotina de Riscos (MDTA180) para possibilitar a gravação dos registros em tabela customizada antes da gravação dos riscos.

03. SOLUÇÃO


Ponto de EntradaMDTA1802()

Chamada

Na inclusão, alteração ou exclusão do registro.
Pré-RequisitoCadastro de Centro de Custo, Função, Fonte Geradora, Agente e Tarefa para que seja possível realizar o vínculo do funcionário com o risco.
EventoCadastro customizado.
RetornoNão há.

03. DEMAIS INFORMAÇÕES

FunçãoMDTA1802()
ParâmetrosLocal nOpcx, Array, armazena uma das três opções disponíveis na rotina, sendo elas, Incluir, Alterar e Excluir.
Local cOper,Array, armazena a operação executada e exibe em tela.
Local cRisco, Array, armazena o número do risco cadastrado na rotina.
RetornoNão há.



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


04. ASSUNTOS RELACIONADOS