PC Toledo

Enviado: **23 Nov 2006 12:41**

Boa tarde galera :xau , é o seguinte meus sistemas tem uma função para abertura de arquivos, so que no xharbour se por descuido eu abro 2 ou mais vezes o arquivo, q ja esta aberto ele da um erro, dizendo q o mesmo ja se encontra aberto. Como faço. tem como testar se o mesmo ja se encontra aberto?
segue o fonte

FUNC OPEN_DBF(ARQ,T_TIPO,IND)
LOCAL DB_F, T_A:=SAVESCREEN(01,00,24,79), PS:=1
T_TIPO:=IF(T_TIPO=NIL,1,T_TIPO)
DB_F:=DRVDBF+ARQ
IF !EMPTY(SELECT(ARQ)) .AND. T_TIPO=2
SELE (ARQ)
CLOS
ENDIF
IF EMPTY(SELECT(ARQ))
SELE 0
DO WHIL .T.
IF T_TIPO=2
USE (DB_F) EXCLUSIVE
ELSE
USE (DB_F) SHARED
ENDI
IF !NETERR()
EXIT
ENDI
IF PS=1
MENSAGEM(10,0,0,0," Aten‡„o ","Tentando abrir o Arquivo|"+ARQ+"|<ESC>-Abandona|",.F.,SOM,.F.,.F.)
PS++
ENDIF
IF PERGUNTA("Deseja Abandonar a Opera‡„o",)="S" .OR. INKEY()=27
COMMIT
CLOS ALL
BREAK(0)
ENDIF
ENDD

IF IND<>NIL
IF ARQ="ROTAS"
SET INDEX TO ROTAS
ENDIF
IF ARQ="ROMANEIO"
SET INDEX TO ROMANEIO
ENDIF
IF ARQ="VASILHA"
SET INDEX TO VASILHA
ENDI
ENDI
[/code]

Enviado: **26 Nov 2006 22:45**

Buenas Gaucho...no clipper eu faço conforme abaixo.....

Código: Selecionar todos

IF !used("DADOS\ESTOQUE")
    USE DADOS\ESTOQUE ALIAS ESTOQUE SHARED
    SELE ESTOQUE
ELSE
    MsgBox1({"Banco de Dados Já Aberto !!!"},"Aviso do Sistema")
ENDIF

Recebi seu Email......até o final desse mes lhe mando uma resposta...

Abraços

PC Toledo

ERRO AO ABRIR ARQUIVOS??

ERRO AO ABRIR ARQUIVOS??