Dados corrompidos em VFP9SP1

Question

Caros colegas, estou enfrentando um grande problema em meu sistema. Possuo dois formulários que acessam uma tabela de um dito banco de dados. De uns tempos para cá algo estranho passou a acontecer. Se dois usuários simultâneamente utilizam a função de cadastro, o VFP simplesmente corrompe a tabela (não atualiza o cabeçalho; o erro é aleatório;). Não uso buferização, já tentei FLUSH FORCE, APPEND BLANK e REPLACE, INSERT INTO TABLE FROM MEMVAR, mas nada faz parar. A solução que estou adotando é: somente um único usuário pode cadastrar, mas isso é coisa de amador. Se alguém já passou por isso, ou já viu este problema relatado, por favor me indiquem uma solução. Atualmente o banco está com 130 tabelas e 60 view's. Será que o vfp não está dando conta do recado?

Abraços. Ricardo Gonzaga

Answer 1

Fala Ricardo! Passei por um problema semelhante a este. Olha como resolvi, não sei se irá lhe ajudar:

set reprocess to 1

if flock()

   append blank

      replace tabela.documento with thisform.txtdocumento.value

      flush

      unlock

else

Mensagem("Arquivo bloqueado por outro usuário, tente novamente","S")

endif