Saber se DBF já está aberto

[lugab]

Pessoal, boa noite...

No programa cheio de funções, vários arquivos vão sendo abertos, mas eu preciso saber saber se um deles, por exemplo o arquivo "Barquivo.dbf com o aliás arqB", já foi aberto anteriormente em algum outro trecho...
exemplo:

Código: Selecionar todos

use Aarquivo shared new alias arqA
use Barquivo shared new alias arqB
use Carquivo shared new alias arqC

Como faço pra saber ? Eu uso Hb20, console...

[Jairo Maia]

Você pode usar a função Select():

Código: Selecionar todos

nArea := Select( arqB )

If nArea = 0
 
 SELE 0

 USE "Aarquivo.dbf" Shared New Alias arqB 

Else

 DbSelectArea( nArea )

EndIf

[lugab]

Obrigado, Jairo. Vou testar.

O comando select() seria assim:

Código: Selecionar todos

nArea := Select( arqB )

ou assim

Código: Selecionar todos

nArea := Select( "arqB" )

?

[Jairo Maia]

Ops!!! Tem razão...

O correto é entre aspas, pois no exemplo foi usado o nome literal do Alias, não variável. Mas seria rápido você perceber, receberia o RTE de variável inexistente.

[JoséQuintas]

O comando select() seria assim:

Cuidado com o texto... e com o fonte também.

Existe o comando SELECT
Existe a função Select()

Código: Selecionar todos

SELECT ( "clientes" )
Select( "clientes" )

Parece a mesma coisa, mas não é.
SELECT é o comando pra trocar a área em uso
Select() é a função pra retornar qual a área

Em algumas rotinas até uso isto:

Código: Selecionar todos

nSelect := Select()
SELECT outra
...
SELECT ( nSelect )

Mais um motivo pra manter o fonte bem formatado, ou até usar maiúsculas/minúsculas pra comandos e funções.

[lugab]

Jairo e Quintas,

muito obrigado..

[Itamar M. Lins Jr.]

Ola!
Esse é mais smart!
https://harbour.github.io/doc/harbour.html#used

Código: Selecionar todos

USE test NEW
? TESTS->( Used() ) //.T.

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Esse não serve.

Código: Selecionar todos

d:\temp>test

Error BASE/1002  Alias does not exist: TESTS
Called from MAIN(3)
d:\temp>

[Itamar M. Lins Jr.]

Ola!
OXIIII, como não ? até tu Brutus

Código: Selecionar todos

IF !test->(used())
 use test new 
else
 ? test->name...
ENDIF

Se vai abrir tem que testar antes, ora !!! tira o "S"! ou coloca o "S" no test

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Teste o seu exemplo.

Código: Selecionar todos

PROCEDURE Main

IF !test->(used())
 use test new
else
 ? test->name
ENDIF
RETURN

Código: Selecionar todos

d:\temp>test

Error BASE/1002  Alias does not exist: TEST
Called from MAIN(3)
d:\temp>

A questão é simples: como vai acessar um alias que não existe?

[Itamar M. Lins Jr.]

Vixi!!
Isso mesmo, sou eu que estou me passando aqui. Escrevendo uma coisa pensando em outra.

Saudações,
Itamar M. Lins Jr.

[asimoes]

Será que não é mais simples:

Código: Selecionar todos

If Select("test") != 0
   Alert("Test aberto")
End

[JoséQuintas]

Sim, isso já foi descrito acima.
A última parte foi referente a uma sugestão inválida.

[lugab]

Obrigado, Jairo, Quintas, Itamar e Asimoes.
Ta resolvido.
Vc são super solidários