FoxPro/Visual FoxPro - Problema al salir de un Exe

   
Vista:

Problema al salir de un Exe

Publicado por many (332 intervenciones) el 25/12/2012 04:18:21
Amigos tengo el siguiente problema

Cuando doy clic en el boton salir sale el siguiente mensaje:
Cannot quit visual foxpro

al entrar tengo lo siguiente>
do entrada
read events

Al salir tengo esto:
clear events
quit

diganme que me esta pasando ya que esto me ha funcionado bien en otros programas.

Gracias a todos
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

Problema al salir de un Exe

Publicado por victor perez (137 intervenciones) el 25/12/2012 21:55:06
Hola,

yo lo tengo asi:

_Screen.Picture=""
_Screen.Caption="Microsoft Visual Fox Pro"

Set Sysmenu to defa
Set message to
Close All
Clear All
Clear Events

Me funciona perfectamente....debes estar seguro que todos los formularios estan cerrados. Usualmente este comando lo ejecuto desde un procedure dentro del menu prinncipal.

Saludos,
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

Problema al salir de un Exe

Publicado por neo (1601 intervenciones) el 26/12/2012 23:36:39
Seguramente realizas alguna rutina en donde hayas utilizado una bd o una tabla, mas al rato posteo una linea de codigo para salir, ya sea por el closable de vfp o por botón (Me inclino mas por éste último)

Atte
Neo
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

Problema al salir de un Exe

Publicado por Saul (676 intervenciones) el 27/12/2012 19:28:51
Este es el codigo que uso yo para principal..

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
_SCREEN.visible = .F.
SET SYSMENU OFF
CLEAR
CLOSE DATABASES ALL
SET CENTURY ON
SET SYSFORMATS ON
SET TALK OFF
SET EXCLUSIVE OFF
SET SAFETY OFF
SET REPROCESS TO AUTOMATIC
SET REFRESH TO 60, 60
SET DATE DMY
SET DELETED ON
SET EXACT OFF
SET FIXED OFF
SET MULTILOCKS ON
SET ESCAPE OFF
SET DECIMALS TO 18
SET CENTURY TO 19 ROLLOVER 91
SET HELP ON
SET STATUS BAR ON
SET ENGINEBEHAVIOR 70
SET PATH TO \sistemas\graficos;progs;Menus;sistema;base;conta;general
SET PROCEDURE TO cLibreria
SET TABLEVALIDATE TO 0
_SCREEN.caption = "Módulo de Contabilidad"
_SCREEN.closable = .F.
_SCREEN.windowstate = 2
_SCREEN.maxwidth = _SCREEN.width
_SCREEN.maxheight = _SCREEN.height
_SCREEN.autocenter = .T.
_SCREEN.fontname = 'Arial'
_SCREEN.fontsize = 9
_SCREEN.windowstate = 2
_SCREEN.icon = "\Sistemas\Conta.ico"
_SCREEN.picture = "\Sistemas\Graficos\fondo04.gif"
_SCREEN.visible = .T.
 
PUBLIC xempresa, directorio, tipollave,
 
DO .\menus\MenuConta.mpr
 
DO FORM MainForm2
 
SET SYSMENU ON
 
READ EVENTS
CLEAR DLLS
SET SYSMENU ON
CLEAR
RETURN
ENDPROC
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