ExecutarRotinaSistema

Esta função surgiu de uma necessidade específica, que era limpar dados repetidos das tabelas citadas. A rotina "varre" os registros das tabelas na ordem cronológica, e compara um registro com o registro seguinte, e caso forem iguais, manda excluir o segundo registro. Como a rotina exclui os registros repetidos, não há risco de perda de dados, no entanto pode ser que o sistema não exclua nenhum registro.

Os dados são usados pelo SPED, Instrução Normativa 86 e outras obrigações fiscais. Se forem eliminados registros, pode haver prejuízo ao demonstrar algumas obrigações.

A função foi criada prevendo a possibilidade de ser usada para outras rotinas, mas no momento só está preparada para a rotina 1, que é a limpeza das tabelas de logs de alteração dos cadastros de:

• E073VTR = Transportadoras
• E085VCL = Clientes
• E090VRE = Representantes
• E095VFO = Fornecedores

Para executar, deve ser informado 1 como parâmetro. Não há possibilidade de passar outros parâmetros como intervalo.

Sintaxe: Funcao ExecutarRotinaSistema(Numero aRotina, Alfa aParametros);

Parâmetros:

Exemplo:

Rotinas disponíveis:

Limpeza das tabelas de alterações cadastros:

1. Limpa as tabelas de logs de alterações dos cadastros de transportadoras (E073VTR), clientes (E085VCL), representantes (E090VRE) e fornecedores (E095VFO).
2. A limpeza se dá excluindo qualquer registro de alteração que não signifique realmente uma alteração, ou seja, onde não há diferença nos campos de um registro para o registro imediatamente anterior.

Parâmetros: Não utiliza parâmetros.

Observações: A performance desta rotina está diretamente ligada à quantidade de registros nas tabelas alteradas. A limpeza de 1 milhão de registros deve demorar por volta de 35 minutos, porém esse tempo pode variar, pois depende de muitos fatores.