@ Regra básica para limpeza da tabela R067LPR @

Definir numero dDataExclusao;
Definir data dDataParametro;
dDataParametro = DatSis - XX; @ Data atual do sistema menos XX dias -> A quantidade de dias fica a critério... @
dDataExclusao = dDataParametro;

ExecSql "DELETE FROM R067LPR WHERE DTHLOG <= :dDataExclusao"; @ Exclui todos registros de XX dias para trás @