Consulta de como identificar accesos a VFP por terminal server

[acmc]

Hola Foxeros!!

Me estan pidiendo un control de venta de bazar, pero como va a tener sucursales las cuales accesarian por terminal server, necesito identificar las terminales de cada sucursal para poder filtrar los articulos de cada sucursal y no hagan ventas de articulos que esten en otra sucursal, alguna sugerencia?

[Robert Martínez]

Saludos,

Te dejaré varias ideas:

1.- Para determinar si tu aplicación se está ejecutando en una sesión remota puedes utilizar la siguiente función.

Function IsTerminalClient
    #Define sm_RemoteSession 4096
    Declare Integer GetSystemMetrics In User32.Dll Integer
 Return GetSystemMetrics(sm_RemoteSession)=1

2.- Para identificar la sucursales, puedes asociar el usuario que se inicia en tu sistema con una sucursal determinada.

3.- Tambien puedes asociar el nombre de la computadora con una sucursal.

pcName = GETENV("COMPUTERNAME")

[ZeRoberto]

No seria mejor en el login añadir la opcion sucursal?

Usuario: XXXX

Clave: AAAA

Sucursal: 07-Marte

Saludos

--
btnMyVideo.Click()

[Ricardo Pina]

Hola

 

Con el usuario de la conexión es suficiente y no lo ata a un equipo.

 

Y aprovechando que es casi viernes aprovecho y pregunto a ZeRoberto quien es su proveedor de internet ?

 

Saludos terrenales

 

--

            

                   Ricardo Pina

Desarrollo y Servicios Informáticos

                  Profesionales
               www.dsip.com.ar

 

 

[Fernando D. Bozzo]

Hola acmc, mirá si esto te sirve.

FUNCTION es_Citrix
RETURN UPPER(LEFT(GETENV("SESSIONNAME"),4)) = "ICA-"
ENDFUNC

[ZeRoberto]

Por ahora no tengo Internet de vez en cuando paso por el café Internet, porque la pregunta?

--
btnMyVideo.Click()

[Ricardo Pina]

Hola

 

Intentó ser un chiste de viernes, pero no lo entendieron

era por el ejemplo que pusiste

 

Sucursal: 07-Marte

 

para conectarte desde Marte tiene que ser buen proveedor.

Creo que nadie lo entendió pero si lo aclaraba perdía el chiste.

 

Saludos

 

 

 

[ZeRoberto]

Oh! jajajaja recién lo entiendo, es que el chiste esta bien pensado, es para que lo leas el jueves y te rias el viernes.

Saludos

--
btnMyVideo.Click()

[Víctor Hugo Espínola Domínguez]

Yo no entendí porque estaba en la luna.

[Jose Antonio Blasco]

En esa estoy yo muchas veces ... :-)

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

"No hay camino hacia la libertad, la libertad es el camino" - Indira Gandhi
“Nunca te olvides de sonreír, porque el día que no sonrías  será un día perdido”  -  Charles Chaplin
“Todo el mundo quiere tener un amigo, pero pocos se toman la molestia de ser uno” - Anónimo

[Carlos Miguel FARIAS]

Para no tener problema de la conexión desde Marte, nosotros en la Empresa usamos conexión Single Protocol On Channel Key, para evitar los tiempos de demora que se producen con otros protocolos (bueno si quieren usar JTK anda, pero es muy caro),

eso por recomendación de Zoe Saldana.
Saludos: Miguel, Monte Olimpo (4th Rock from the Sun)