Como simular una función Session o Variable Global en Win con GeneXus y Oracle

Cuando trabajamos en Web y queremos distinguir una sesión de otra podemos utilizar una variable de tipo WebSession.
Esto básicamente queda muy claro en cualquier ejemplo GeneXus generado por patterns, etc.

Un ejemplo puede ser el procedimiento SetContext de GxWiki

&Session.Set(WikiParameters.Context, &Context.ToXml())

Básicamente seteamos en la variable de tipo WebSession algo particular, en este caso un SDT que se llama context.

Ahora bien, por que querría o precisaría tener algo similar a una WebSession pero en una aplicación Windows?

Si bien desde siempre existen las funciones UserID() y Wrkst() que podrían darme esa unicidad que preciso, dependiendo de la aplicación o de algunas limitantes o que nos encontremos, cantidad de licencias, etc, puede ser que ni la combinación de estas 2 funciones mencionadas, nos pueda garantir el dato de una sesión dentro de mi aplicación.

Por ejemplo:

Tengo una aplicación corriendo bajo Terminal Services con licencia para 10 usuarios, donde el nombre de usuario podría no indicarme nada en particular, digamos podrían ser del tipo User1, User2, etc, para lo cual si usara la función UserID() para grabar una auditoría en un registro, no me serviría de mucho.

New
xxxx=yyyy
xxxx=yyyy
xxxx=UserID()
EndNew

Entonces podría llegar a otra solución

Aplico un login y password en una pantalla cuando ingreso al sistema y lo asocio con UserID()
Algo sencillo para ejemplificar (sin contemplar cientos de criterios de seguridad) sería más o menos así:

For Each //Usuarios
Where UsrCod=&UsrCod
Where UsrPsw=&UsrPsw
New //Log
LogUsrID=UserID()
LogUsrCod=UsrCod
EndNew
EndFor

Para luego volver a mi rutina de auditoria

New
xxxx=yyyy
xxxx=yyyy
xxxx=udp(pUserID)
EndNew

Donde “pUserID” seria una recorrida de la tabla Log usando como condición “LogUsrID=UserID()” y devolviendo como resultado el valor de “LogUsrCod” que podria ser “Juan”

Perfecto, ahora si tengo un Usuario que conozco registrado para auditoría.

Pero bien, complicándola un poco más, que pasaría si ese “User1” (del Terminal) está ejecutando mi aplicación y necesita ejecutar otra instancia?

No habría problemas, porque si bien no podría hacer el “New” en la tabla de “Log”, con la función “UserID()” obtendría el mismo dato, o sea “Juan”

Pero…

Si este mismo “User1” (del Terminal) en vez de entrar como “Juan”, necesita entrar como “Pedro”?
No podré hacer un “New”, y ni pensar de utilizar un “When Duplicate” porque reemplazaría un usuario por otro para dos sesiones distintas!

Mmm…
Esto me hace pensar que a partir de la primera pantalla, tendré que pasar por parámetro el usuario que se logueó. Es una solución un poco tediosa, porque objetos que no contemplé antes voy a tener que acomodar para recibir este parámetro.

Sería una solución contar con una función WinSession() que me devuelva la sessión del usuario que está conectado a la base de datos. Claro, su funcionamiento interno sería particular para cada DBMS. Pero, por mientras esto no esté en GeneXus, podemos simularlo mezclando algunos ingredientes de Oracle y luego cada uno puede aplicarlo en su DBMS de desarrollo.

1) Debemos crear una view en nuestra base de datos.

CREATE OR REPLACE FORCE VIEW MISESSION AS
select userenv(‘SESSIONID’) SESSIONID from dual;

2) En GeneXus, creamos un DataView a esa View de Oracle con un atributo para identificar la sesión.

3) Luego creamos un procedimiento que nos devuelva la sesión, para esto, hacemos un simple for each que recorra este data view, el cual para nuestra sesión solo va a devolver un registro.
En mi ejemplo lo llame “pmisession”

&MiSession=0
For Each //MISESISON
Defined By SessionID
&MiSession=SessionID
EndFor

Y listo, ahora simplemente en vez de utilizar la función UserId() o Wrkst(), llamaré a este procedimiento para obtener mi variable única.

Y si eres demasiado cómodo (y sólo si estás acostumbrado con el underground de GeneXus), puedes adicionar esta “función personalizada” a los archivos “*func.pst” en el directorio de GeneXus con la sintaxis

pmiession.Udp():Numeric

para que de esta forma cuando la quieras utilizar, simplemente presionando “Ctrl + U”, aparezca dentro de la lista de funciones.

Otras de las posibilidades sería usar el comando SQL de GeneXus, pero lamentablemente, no permite devolver resultados, si existiera una variante del mismo que permitiera en algunos casos devolver un resultado único para almacenar en una variable GeneXus, podría ser algo parecido a esto:

&sent=”select userenv(‘SESSIONID’) from dual;”
&misession= sql [!&sent!]

Pero… por ahora no existe.

Observación:
Puede parecer simple o de poco valor esta función de unicidad, pero realmente es algo útil.
Hace unos años en otra empresa, implementamos un sistema con una KB que usaba la función Wrkst() (y todavía lo sigue usando) para mantener la unicidad, y para que cada máquina corra en una sessión única, deshabilitamos la posibilidad que se ejecutara el sistema más de una vez por máquina, justamente para tener esa unicidad, algo que hoy realmente se podría solucionar de esta forma, que ya existía en aquella época, pero a veces uno toma las cosas como vienen y basados en el lema “lo que funciona no se cambia”, a veces perdemos eficiencia.

Fabricio De los Santos
Gerencia de Proyectos –
Consultoría GeneXus –
ERP – Sistemas de Misión Crítica – Bases de Datos.

Vea mis blogs en:
www.fabriciodelossantos.com

Leave a Reply

You must be logged in to post a comment.