PC Toledo

Galera estou trabalhando em uma rotina TBrowse e quando abro o sistema na segunda estação aparece a mensagem abaixo:

ERROR DBCMD/2001 Workarea not in use: ORDLISCLE

Estou abrindo os arquivos da seguinte maneira:

cls
set date briti
set cent on
set epoc to 1990
set scor off
#include "inkey.ch"

IF !FILE("INDCL.NTX")
SELECT 1
USE CLIENTE ALIAS CLIENTE
INDEX ON COD_CLI TO INDCL
INDEX ON NOME_CLI TO INDCL1
SET INDEX TO INDCL, INDCL1
ELSE
SELECT 1
USE CLIENTE ALIAS CLIENTE
SET INDEX TO INDCL, INDCL1
ENDIF

IF !FILE("INDCA.NTX")
SELECT 3
USE CARNE ALIAS CARNE
INDEX ON COD_CON TO INDCA
INDEX ON COD_CLI TO INDCA1
SET INDEX TO INDCA, INDCA1
ELSE
SELECT 3
USE CARNE ALIAS CARNE
SET INDEX TO INDCA, INDCA1
ENDIF

IF !FILE("INDCH1.NTX")
SELECT 6
USE CHEQUE ALIAS CHEQUE
INDEX ON NUM_CH TO INDCH1
INDEX ON COD_CLI TO INDCH2
SET INDEX TO INDCH1, INDCH2
ELSE
SELECT 6
USE CHEQUE ALIAS CHEQUE
SET INDEX TO INDCH1, INDCH2
ENDIF


Será que tem algo errado, mais é assim que abro todos os arquivos na rede.

Obrigado Galera,

Marcio Ril
marcioril@hotmail.com

Olá, vc tem de especificar a clausula SHARED.
O que está acontecendo é que a 1ª estação abriu os arquivos em modo exclusivo, quando a 2ª tenta abrir também em modo exclusivo, não consegue, em seguida tenta abrir os indices, mas como o DBF não foi aberto...já sabe né ?
Abra os arquivos usando:

Select 1
Use arquivo.dbf Shared
Set index to indice1, indice2

Select 2
Use OutroArquivo.dbf Shared
Set indice to Indice3, Indice4

Explicando melhor:

Um comando USE ... EXCLUSIVE falhará se o arquivo já estiver aberto (independente do modo)

Um comando USE ... SHARED falhará se o arquivo já estiver aberto em modo exclusivo

BLZ ? :xau

Valeu Amigo, deu certo....

São detalhes.

Obriogado

Marcio

Valeu Amigo, deu certo....

São detalhes.

Obriogado

Marcio