como saber si un alias esta en uso?

[Miguel Salas]

Hola Todos

Necesito saber si un alias esta en uso para cerrarlo y ocuparlo de nuevo, vi la funcion alias(n) que devuelve en nombre del alias , pero como llenar un arreglo con los alias abiertos para buscarlos alli mismo?

gracias de antemano

[FranciscoA]

Hola Todos

Necesito saber si un alias esta en uso para cerrarlo y ocuparlo de nuevo, vi la funcion alias(n) que devuelve en nombre del alias , pero como llenar un arreglo con los alias abiertos para buscarlos alli mismo?

gracias de antemano

Quizas este codigo ejemplo te pueda ayudar.

//--------------------------
local cAlias:="MiArea"
if (cAlias)->(used())
(cAlias)->(dbCloseArea())
endif

//-----------------------
Function BloqueaTodo()
local n:=0, n2:=0, lBloqueado := .t.
local aBases:= aGetWorkAreas()

For n:=1 to len(aBases)
if !(aBases[n])->(PudoBloq(.T.))
For n2:=1 to len(aBases)
(aBases[n])->(dbUnlock())
Next
lBloqueado:= .F.
Exit
endif
Next
Return lBloqueado

Saludos

[TecniSoftware]

If !Empty( Select( "cAlias" ))
(cAlias)->(DbCloseArea())
EndIf

[Miguel Salas]

Justo lo que necesito, muchas gracias

[giba_f]

ou simplesmete assim:

If SELECT(cAlias) > 0
Alert("esta em uso")
Endif

[dobfivewin]

Y como hacer tener un listadfo de las BASES abiertas

gracias

david
argentina

[Biel EA6DD]

Code: Select all

FUNCTION LstAlias()
   LOCAL i:=1,cMsg:=''
   DO WHILE !Empty(cAlias:=Alias(i++))
      cMsg+=cAlias+CRLF
   ENDDO
   MsgInfo(cMsg)
RETURN NIL 
 

[dobfivewin]

Un espectaculo...

muchas gracias

david
argentina