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...
Erro em rede! Alguem pode solucionar?
Moderador: Moderadores
-
Stanis Luksys
- Colaborador

- Mensagens: 1329
- Registrado em: 18 Jun 2005 03:04
- Localização: São Paulo
- Contato:
Olá,
O arquivo foi aberto com a clausula SHAREDe também com a clausula NEW?
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.
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.
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
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.....

