por josenilson neiva » 21 Set 2004 10:38
Amigo,
infelizmente o comando Pack do clipper nao limpa os arquivos .dbt
Para solucionar este problema faça o seguinte:
1) Ao invés do Pack, utilize o comando COPY TO para copiar os registros não deletados para um arquivo temporario.
Exemplo: (limpar os arquivos chamados exemplo.dbf e exemplo.dbt)
Use Exemplo.dbf New Exclusive
Copy to ArqTemp.dbf for .not. deleted()
2) Depois apague os arquivos dbf e dbt originais e renomeie os arquivos temporarios para os nomes dos arquivos originais.
Continuando o exemplo acima:
FErase( "Exemplo.dbf" )
FErase( "Exemplo.dbt" )
FRename( "ArqTemp.dbf" , "Exemplo.dbf" )
FRename( "ArqTemp.dbt" , "Exemplo.dbt" )