Bom dia, fabio.

Não estou usando bufferização neste programa ! Houve um momento durante os testes que já realizei, onde coloquei no final dos APPEND FROM, o comando TABLEUPDATED() mas deu erro justamente por que não estava usando ROW ou TABLE BUFFERING, daí resolvi tirar o TABLEUPDATE. Como é que no COMMAND WINDOW, entrando manualmente os comandos tudo funciona ok, mas no programa não ? É muito estranho.

Funciona assim.

Quando o sistema entra no ar e verifiqua que não existe o diretório de dados, cria-o e gera todas as tabelas e o Banco de Dados novo, inicialmente vazio, com as informações do GENDBC. Daí entra um FORM solicitando a entrada de dados manual ou via importação de alguma outra base de dados mais antiga ( Um back-up talvez ). Fiz assim porque pode haver alterações de estrutura na Base de Dados nova.

Se a entrada de dados for por importação, o sistema envia outro FORM onde o usuario localiza e informa o .DBC antigo e o novo. Daí o sistema abre os databases como EXCLUSIVE e começa a copiar todas as tabelas do banco de dados antigo para o novo, através de uma chamada a um .PRG ( Sub-rotina ) que recebe como parametro o .DBC antigo, o .DBC novo e o nome da tabela a copiar via APPEND FROM. No final de cada APPEND FROM é feito um CLOSE TABLES ALL e o programa retorna ao FORM que passa a próxima tabela de volta ao .PRG e assim sucessivamente até o final de todas as tabelas no Banco antigo, daí eu fecho com CLOSE DATABASES ALL e abro o novo como SHARED. Tudo roda perfeitamente sem erros ( Tenho uma rotina de erro para eventuais problemas ) mas no final não copiou nada !!!

Ufa !!!! Alguma sugestão ?
Fadul.