Ponto-de-Entrada: TMALOGGRV - Criação de Log
| Versões: | Microsiga Protheus 8.11 , Microsiga Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Idiomas: | Espanhol , Inglês |
Descrição:
Este Ponto de Entrada, localizado em todas as rotinas que manipulam tabela de frete e ajustes (TMSA680 - Exclusão de Ajustes, TMSA750 – Reajuste de Preços por Cliente, TMSA690 – Geração de Novas Tabelas, TMSA860 – Exclusão de Tabelas de Frete, TMSA670.PRW - Cópia de Ajustes), tem por objetivo possibilitar a criação de um LOG informando o usuário e a operação que foi realizada em uma tabela de frete ou em um ajuste de cliente. No exemplo abaixo quando a tabela for 'DVC' e a opção for 5 podemos dar a mensagem que a tabela foi excluída por determinado usuário ou mesmo gravar em uma tabela estes dados para futuras auditorias.
Eventos
Programa Fonte
TMSA670.PRW
Sintaxe
TMALOGGRV - Criação de Log ( [ cTabela ], [ cOpcao ], [ cUsuario ] ) --> Nil
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cTabela | Array of Record | ||||||||||||||||
| cOpcao | Array of Record | ||||||||||||||||
| cUsuario | Array of Record |
Retorno
-
Nil(nulo)
- Não tem.
Observações
Exemplos
User Function TMALOGGRV()Local cTabela := PARAMIXB[1]Local cOpcao := PARAMIXB[2]Local cUsuario := PARAMIXB[3] If cTabela == 'DT0' If cOpcao == '5' MsgAlert('Tabela excluida pelo usuario ' + cUsuario + ' Rotina Exclusao de Tabelas','TMSA860') ElseIf cOpcao == '3' MsgAlert('Tabela gerada pelo usuario ' + cUsuario + ' Rotina Geracao de Novas Tabelas','TMSA690') Endif Endif If cTabela == 'DVC' If cOpcao == '5' MsgAlert('Ajuste na tabela ' + DVC->DVC_TABFRE + ' excluido pelo usuario ' + cUsuario + ' Rotina Exclusao de Ajustes','TMSA680') ElseIf cOpcao == '3' MsgAlert('Tabela reajustada pelo usuario ' + cUsuario + ' Rotina Reajuste de Precos por Cliente','TMSA750') Endif Endif Return Nil