La sesión privada se queda activa

Tengo formularios con propiedad Datasession=2 (Privada)
No uso el Dataenvironment de VFP9.
Al cerrar la forma -Thisform.Release()- no se cierran las tablas y la sesión sigue activa.
En el método Destroy tengo este código
If Thisform.EstadoForma#'DEFAULT' And Messagebox('Actualización en proceso',4+32+256,'¿Quiere cerrar la forma?')#6
Return .F.
Endif
Dodefault()
En el método Release -como patada de ahogado-:
Close Tables all
Clear Memory
Dodefault()
Las tablas sí se cierran, pero la sesión permanece activa sin tablas abiertas
¿Hay algún otro método que ustedes necesiten analizar para ayudarme con este problema?

1 respuesta

Respuesta
1
Usa el datasession en 2
Y en el evento unload pon
close all tables ...
Clear memory
Y listo debe de funcionar ...
Sí, si funciona el cierre de la sesión. Pero se pierde lo declarado en SET PROCEDURE ... y los objetos que tengo: oAPP (parámetros de la aplicación) y oUser (Usuario declarado)
Clear Memory fastidia todo eso
¿Tienes otra idea? ¿Clear Memory no debe hacer lo que te digo?
Muchas gracias
Ps cn el privatesession eso te ayuda a que no estan sueltas las tablas, ademas creo que solo debes de desplegar
Close all tables
Y tambien, tu usuario que sean una variable publica ya que los datos publicos no los cierra, esos te funcionan en cualquier parte del programa ...
Suerte saludos.
Gracias, en el evento Destroy puse:
If Thisform.GetMode()#'DEFAULT' And Messagebox('Actualización en proceso',4+32+256,'¿Quiere cerrar la forma?')#6
<span style="white-space: pre;"> </span>Return .F.
Endif
If DoDefault()
<span style="white-space: pre;"> </span>Close Tables All
<span style="white-space: pre;"> </span>Return .T.
Endif
No hay código en la clase padre de esta forma, de todas maneras puse Dodefault()
Ái que tenga otro problema te molesto.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas