Problemas com a função Select() em rede

[Paulao]

Boa tarde pessoal, vejam o exemplo abaixo

setcaminho=getenv("caminho")
use teste new alias teste
? select("teste")
inkey(0)
clos data
m->codi_emp = spac(3)
@ 11,24 say "Empresa :"get m->codi_emp pict"999"
set cursor on
read
CAMINHO=setcaminho+"\DATA"+ALLTRIM(M->CODI_EMP)
SET PATH TO
SET DEFAULT TO &CAMINHO
use teste new alias teste
? select("teste")
inkey(0)
clos data
quit

Quando executo este programa na primeira maquina ele retorna as areas corretamente, ou seja

retorna 1 as duas vezes, mas qdo tento rodar o programa em uma segunda maquina ao mesmo tempo ele retorna
no primeiro "?" retorna 1
ja no segundo "?" retorna 0

Parece que a função select() não esta funcionando como esperado qdo rodando junto com set default.

Alguém, poderia me dar alguma dica a respeito

[alaminojunior]

O nobre colega não estaria esquecendo da clausula de compartilhamento "Shared" ao abrir as tabelas ?

[Paulao]

Grande amigo, é isto mesmo, achei que o shared seria implicito se eu não o especificase.

Valeu
Boa tarde

[Maligno]

Se você não utiliza SET EXCLUSIVE, o default é o modo exclusivo mesmo. Mas você poderá tornar o modo SHARED default apenas tornando SET EXCLUSIVE OFF.