Atualizar Log Operações através de uma rotina avulsa

[Softham]

Bom dia Senhores.

Teria como atualizar a tabela de Logs "por fora", ou seja, através de uma rotina avulsa?

Obrigado.

Hamilton Silva
SoftHam Sistemas

[Gilberto]

Bom dia,
Pesquisei sobre isso no proprio forum.
Fui anotando passo a passo como fiz no meu sistema.
Espero que possa ajudar.
Att
Gilberto

Criando Base de Logs separado da Base de Dados
Xmaker
Em Tabelas/Banco de Dados
Criar a Base para Logs
Alias : BASELOG
Servidor : BASELOG
Em Tabelas
Alterar na tabela USER_LOG o banco de dados para BASELOG.
Compilar o Projeto
Será solicitado para criar a BASELOG.GDB
Aparecerá um erro USER_NOMES não encontrada na Base.
No IBEXPERT
Criar Tabela USER_NOMES na BASELOG.
CREATE TABLE USER_NOMES ( USUARIO VARCHAR(20) CHARACTER SET NONE NOT NULL, SENHA VARCHAR(20) CHARACTER SET NONE, MASTER VARCHAR(1) CHARACTER SET NONE, GRUPO VARCHAR(4) CHARACTER SET NONE);

No Delphi
Em Tabela.Pas incluir em USES Abertura.
na procedure GravarLog incluir :
if UpperCase(Copy(NomeTabela, 01, 05)) = 'USER_' then
exit;
try
// Incluido 08/08/2014
{$IFDEF XSQL}
IF not TabGlobal.DUSER_LOG.DataBase.InTransaction THEN
TabGlobal.DUSER_LOG.DataBase.StartTransaction;
{$ENDIF}
Script := TTabela.Create(Self);
Script.DataBase := TabGlobal.DUSER_LOG.DataBase;
Script.DatabaseName := TabGlobal.DUSER_LOG.Name;
Script.Transaction := TabGlobal.DUSER_LOG.Transaction;
//
Script.TableType := ttView;
with Script.SQL do
.
.
.
Script.Parametro_Valor('Comando', Lst_Comando.Text);
Script.Prepare;
Script.ExecSQL;
Script.Free;
Lst_Comando.Free;
// Incluido 08/08/2014
{$IFDEF IBX}
TabGlobal.DUSER_LOG.Transaction.CommitRetaining;
{$ENDIF}
//

Except
.
.
.

Outros Procedimentos
Migrar os dados da USER_LOG antigo para o Novo.
Fazer via script SQL
Deletar registros da Tabela USER_LOG da base antiga
Fazer Backup do Banco antigo para diminuir o tamanho
Cuidado com o Campo Memo, veja se esta ok no script.

SYSEMP.DAT
Base 0000=F:\DADOS\LOTESWIN\BASELOTES.GDB
Base 0001=F:\DADOS\LOTESWIN\BASELOG.GDB
host 0000=192.168.0.1
Servidor 0000=0
Usuario 0000=
Senha 0000=
Host 0001=192.168.0.1
Servidor 0001=0
Usuario 0001=
Senha 0001=

[Softham]

Boa tarde Gilberto, muito obrigado pela sua colaboração, vou fazer os testes e tão logo eu tenha o resultado, divulgo aqui.

Hamilton Silva