Erro em rede! Alguem pode solucionar?

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

Krinski
Usuário Nível 1
Usuário Nível 1
Mensagens: 30
Registrado em: 10 Dez 2004 11:42
Localização: Brasília-DF

Erro em rede! Alguem pode solucionar?

Mensagem por Krinski »

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...
Avatar do usuário
marbio
Usuário Nível 3
Usuário Nível 3
Mensagens: 206
Registrado em: 29 Jul 2004 16:26

Mensagem por marbio »

Poste a parte do rotina
que acesa os arquivos dbfs e indice para dar uma olhada, para facilitar.
Sempre há uma solucao para os nossos problema clipper.....
Stanis Luksys
Colaborador
Colaborador
Mensagens: 1329
Registrado em: 18 Jun 2005 03:04
Localização: São Paulo
Contato:

Mensagem por Stanis Luksys »

Olá,

O arquivo foi aberto com a clausula SHAREDe também com a clausula NEW?
Stanis Luksys
sites.google.com/hblibs

Apoiar e se utilizar de projetos opensource não é uma questão de boicote, mas sim de liberdade.
Utilize, aprimore e distribua.
Avatar do usuário
marbio
Usuário Nível 3
Usuário Nível 3
Mensagens: 206
Registrado em: 29 Jul 2004 16:26

Mensagem por marbio »

Eu uso desta forma nunca tive problema com aplicativos em rede
na hora abriri para alterar, o usuario um cadastranto e outro alterando, eu uso so desta forma.


e uso prg

select 10
if netuse("usuario.mem",.f.,10)
set index to usuario
else
return
endif

select 4
if netuse("intpac",.f.,10)
set index to intend, altapac, intnom, intpro
else
msgar()
return
endif

select 3
if netuse("carne",.f.,10)
set index to carnum
else
msgar()
return
endif

select 1
if netuse("entpaci",.f.,10)
set index to entproto, entplano, entnome
else
msgar()
return
endif


** end
Sempre há uma solucao para os nossos problema clipper.....
Responder