| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | |
| Função: | Riscos (MDTA180) |
| País: | Brasil |
| Ticket: | Não há. |
| Issue: | Não há. |
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.
| Ponto de Entrada | MDTA1802() |
|---|---|
Chamada | Na inclusão, alteração ou exclusão do registro. |
| Pré-Requisito | Cadastro 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. |
| Evento | Cadastro customizado. |
| Retorno | Não há. |
| Função | MDTA1802() |
|---|---|
| Parâmetros | Local 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. |
| Retorno | Não há. |
#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 |