FoxPro/Visual FoxPro - Salir de aplicación

 
Vista:
sin imagen de perfil

Salir de aplicación

Publicado por Fdez (81 intervenciones) el 29/08/2019 19:01:06
Saludos a todos...

Hice un sistema en el cual puse un Formulario de ACCESO (pide usuario y contraseña) y tiene 2 botones:

1. ENTRAR. si el usuario y contraseña son validos entra al formulario PRINCIPAL
2. SALIR. Botón de Salir y en el evento Clic coloque:

CLOSE DATA
CLEAR EVENTS
RETURN


Al entrar con credenciales, en el Formulario PRINCIPAL puse también un Botón de Salir y en este coloque exactamente lo mismo:
CLOSE DATA
CLEAR EVENTS
RETURN

Estando en el formulario PRINCIPAL funciona de manera correcta y el usuario sale del Sistema. Pero en la pantalla de Acceso al dar Clic en el botón salir, el Sistema NO hace nada y solo puedo cerrarlo desde el Administrador de tareas...

... como puedo resolverlo ?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 1.011
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Salir de aplicación

Publicado por Fidel José (657 intervenciones) el 29/08/2019 20:09:28
Tienes que crear, dentro del prg que lanza la aplicación, un PROCEDURE, básicamente es más o menos así

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
PROCEDURE SALIR
       lcDapli = FULLPATH("")
	ON SHUTDOWN
	*SET CLASSLIB TO
	SET PRINTER TO
	CLEAR WINDOWS
	CLEAR EVENTS
	CLOSE TABLES ALL
	CLOSE DATABASES ALL
	CLOSE ALL
	DELETE FILE &DTEMP\*.*             && borra los temporales de una carpeta temporal (Variable DTEMP)
	DELETE FILE &LcDAPLI\*.FKY     && borra los *.fky de la carpeta de la aplicación
	SET PROCEDURE TO
	QUIT
ENDPROC

En el mismo prg que lanza la aplicación, antes del READEVENTS, tiene que ir lo siguiente:
1
ON SHUTDOWN DO SALIR

Luego, reemplaza este código
1
2
3
CLOSE DATA
CLEAR EVENTS
RETURN

por:
1
QUIT
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar