Muito louco, mas muito louco mesmo.
Tenho uma rotina que abre uma tabela e da um PACK nela.
O problema é que quando eu faço isso ele simplesmente APAGA a mesma e pronto. E como se desse um delete file no lugar do pack. Mas apaga apenas o DBF, o CDX e o FPT continuam lá.
Segue a linha:
set exclusive on
use .\db\caixa_produto exclusive in 0
pack memo dbf in caixa_produto
use in caixa_produto
Estou usando o VFP 8.0
Poderia fazer tudo, mas apagar se mais sem menos é uma tristeza :(
Essa tabela faz parte de um DBC, e a única rotina que existe do procedure do DBC é essa:
PROCEDURE dbc_OpenData(cDatabaseName, lExclusive, lNoupdate, lValidate)
set database to (cDataBaseName)
try
dbsetprop("betafar","connection","ConnectString",sql.string_connect)
catch
endtry
ENDPROC
Mas funciona normalmente e o Debug não pegou nada de mais, alem do que deveria da qualquer tipo de erro, menos apagar a tabela sem mais nem menos.
Alguem sabe o que pode esta ocorrendo?
Cordialmente,
Fabiano Costa