Page 1 of 1

Quisiera saber

Posted: Thu Jun 25, 2009 4:15 pm
by colthop
Hola a todos:
Quisiera saber si hay alguna manera de saber el Numero de SELECT que hay en un momento determinado, por ejemplo yo utilizo una FUNCTION para buscar en un fichero textos y la llamo desde muchos sitios del programa y lo que quiero es que antes del RETURN poner el SELECT con el que entro.

Code: Select all

Function datotext(zOpc)

aqui saber con el numero que entra

SELECT 999
USE TEXTOS
locate for numero = zOpc
ztex = trexto01

poner el mismo con el que entro

Return (Ztex)
El numero que quiero saber si se puede conseguir es el 999 del SELECT en el ejemplo.

Un saludo

Calos

Re: Quisiera saber

Posted: Thu Jun 25, 2009 4:23 pm
by pymsoft
antSelect := SELECT()

tu codigo....


SELECT( antSelect )


Saludos

Re: Quisiera saber

Posted: Thu Jun 25, 2009 4:51 pm
by colthop
Gracias Pedro por tu informacion me vas has quitado muchos problemas, de nuevo gracias.

Carlos

Re: Quisiera saber

Posted: Thu Jun 25, 2009 5:21 pm
by ADBLANCO
Recomiendo hacer esto:

FUNCTION ALGO()
**********************
Local nOld_arch:=SELECT()
.
.
.
.
.
.
.
IF nOld_arch>0
SELECT(nOld_arch)
ENDIF
RETURN


Para evitar cualquier posibilidad de error

Re: Quisiera saber

Posted: Thu Jun 25, 2009 5:58 pm
by Armando
colthop

Me parece que es más recomendable usar ALIAS, no te parece ?

Saludos

Re: Quisiera saber

Posted: Thu Jun 25, 2009 6:36 pm
by acuellar
Lo mejor es con ALIAS como indica Armando

Use USUARIOS Alias USERS NEW SHARED

Use CENTROS Alias CC NEW SHARED


Luego vas a tu funcion multiple
BUSCA("USERS")
...
BUSCA("CC")

....

Function BUSCA(cAlias)
DbSelectArea(cAlias)
//

Return

Re: Quisiera saber

Posted: Fri Jun 26, 2009 8:25 am
by colthop
Gracias a todos por vuestros comentarios, pero lo tengo estipulado todo con SELECT en vez de con ALIAS y cambiar todo seria mucho trabajo mas añadido al que tengo y con la solucion que me dieron el otro dia me funciona como yo queria y ya se sabe si funciona bien no te metas en mas lios por si acaso.

Un saludo a todos

Gracias

Carlos

Re: Quisiera saber

Posted: Tue Jun 30, 2009 3:10 pm
by MarioG
Carlos
mas allá de que tengas todo implementado con Select; sería bueno que vayas pensando en cambiarlo por Alias, como otros colegas te sugieren.
Te dejo un artíclo interesante, al respecto
http://..blogspot.com/2 ... alias.html

Saludos