TMALOGGRV - Criação de Log

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.

TMSA670.PRW

TMALOGGRV - Criação de Log ( [ cTabela ], [ cOpcao ], [ cUsuario ] ) --> Nil

Nil(nulo)
• Não tem.

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