PC Toledo

Colegas Clipeiros...

Fiz um sistema em Rede e quando 2 micros acessam a mesma funcao (requisicao de material), surge a mensagem Error DBFCDX /1020 WORKAREA NOT INDEXED

É claro que a área está indexada... (se o Micro 2 sair da requisicao) eu consigo acessar.

Caracteristicas...
Versao clipper : Clipper 5.2e
Exospace
Lib DBFCDX

Rede : Windows 98

Configuracao :
Config.sys
device=c:\windows\emm386.dr
dos=high,umb
Files=220
Buffers=32

Autoexec
files=220 ; E:/0

Nao sei mais o que fazer...

Tenho 15 anos de programacao em clipper (dá prá acreditar?)

Obrigado Emerson...

OLa amigo,

Este erro é típico de quando se usa o comando SEEK ou ou dbSeek() sem que se tenha um índice ativo...

Procure debugar colocando antes dos seus SEEK um alert assim:

Alert( "Arquivo: " + Dbf() + " Indice:" + Str( IndexOrd() ) )

Se aparecer uma msg dizendo que o Indice é zero, o problema é este mesmo...

Se não me engano DBFCDX/1020 é "DATA TYPE ERROR".
O "WORKAREA NOT INDEXED" não é DBFCDX/1201. Ou eu estou errado?

Stanis Luksys escreveu:OLa amigo,

Este erro é típico de quando se usa o comando SEEK ou ou dbSeek() sem que se tenha um índice ativo...

Procure debugar colocando antes dos seus SEEK um alert assim:

Alert( "Arquivo: " + Dbf() + " Indice:" + Str( IndexOrd() ) )

Se aparecer uma msg dizendo que o Indice é zero, o problema é este mesmo...

Puxa! esta mensagem está de alguma forma relacionado com falta de memoria para executar o comando... veja! se a estação 1 sair do programa, o seek funciona blz... mas 2 máquinas juntas dá pau. O dbf foi aberto no modo shared e tudo o mais está conforme a regra.

..