Page 1 of 1
como saber si un alias esta en uso?
Posted: Wed Mar 25, 2009 2:20 am
by 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
Re: como saber si un alias esta en uso?
Posted: Wed Mar 25, 2009 4:19 am
by FranciscoA
Miguel Salas wrote: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
Re: como saber si un alias esta en uso?
Posted: Wed Mar 25, 2009 11:30 am
by TecniSoftware
If !Empty( Select( "cAlias" ))
(cAlias)->(DbCloseArea())
EndIf
Re: como saber si un alias esta en uso?
Posted: Wed Mar 25, 2009 3:11 pm
by Miguel Salas
Justo lo que necesito, muchas gracias
Re: como saber si un alias esta en uso?
Posted: Wed Apr 01, 2009 1:09 pm
by giba_f
ou simplesmete assim:
If SELECT(cAlias) > 0
Alert("esta em uso")
Endif
Re: como saber si un alias esta en uso?
Posted: Wed Apr 01, 2009 11:35 pm
by dobfivewin
Y como hacer tener un listadfo de las BASES abiertas
gracias
david
argentina
Re: como saber si un alias esta en uso?
Posted: Thu Apr 02, 2009 7:16 am
by 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
Re: como saber si un alias esta en uso?
Posted: Thu Apr 02, 2009 9:47 am
by dobfivewin
Un espectaculo...
muchas gracias
david
argentina