topic-15014

Posts: 132

Joined: Sun Oct 23, 2005 04:09 PM

como saber si un alias esta en uso?
Posted: Wed Mar 25, 2009 02:20 AM

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

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: como saber si un alias esta en uso?
Posted: Wed Mar 25, 2009 04:19 AM

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

TecniSoftware

Posts: 244

Joined: Fri Oct 28, 2005 06:29 PM

Re: como saber si un alias esta en uso?
Posted: Wed Mar 25, 2009 11:30 AM

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

Alejandro Cebolido

Buenos Aires, Argentina

Miguel Salas

Posts: 132

Joined: Sun Oct 23, 2005 04:09 PM

Re: como saber si un alias esta en uso?
Posted: Wed Mar 25, 2009 03:11 PM

Justo lo que necesito, muchas gracias

giba_f

Posts: 18

Joined: Thu Sep 21, 2006 01:51 AM

Re: como saber si un alias esta en uso?
Posted: Wed Apr 01, 2009 01:09 PM

ou simplesmete assim:

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

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Re: como saber si un alias esta en uso?
Posted: Wed Apr 01, 2009 11:35 PM

Y como hacer tener un listadfo de las BASES abiertas

gracias

david
argentina

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Re: como saber si un alias esta en uso?
Posted: Thu Apr 02, 2009 07:16 AM

Code (fw): Select all Collapse

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

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

dobfivewin

Posts: 325

Joined: Sun Feb 03, 2008 11:04 PM

Re: como saber si un alias esta en uso?
Posted: Thu Apr 02, 2009 09:47 AM

Un espectaculo...

muchas gracias

david
argentina

FiveTech Support Forums

Continue the discussion