FoxPro/Visual FoxPro - Problema al Suprimir Ventana VFP desde Ejectable

 
Vista:
sin imagen de perfil
Val: 96
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Problema al Suprimir Ventana VFP desde Ejectable

Publicado por roberto (55 intervenciones) el 08/01/2020 14:12:06
Primero les deseo a todos un buen año 2020.

He buscado, leído, revisado y probado muchas indicaciones de la web para solucionar el cierre de la ventana de VFP cuando ejecuto mi aplicación y no he podido dar con el problema que expongo a continuación:

Generalidades

Utilizo un form de nivel superior para ejecutar el menú
El form es llamado desde un prg de inicio que tiene los set correspondientes y lo mas basico.

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
Clear screen
SET confir on
SET status bar on
SET status off
SET safe off
SET talk off
SET date british
SET cent on
SET escape off
set dele on
 
*_SCREEN.VISIBLE = .F.
*-------------
PUBLIC ubirem_p
diract_p="\"+curdir()
drive_p=SYS(5)
driver_p="d:"
ubirem_p=driver_p+"\SYSGES\viaticos"
set path to &ubirem_p
set default to &ubirem_p
clear
do form main
 
read event
 
*-------------
*_SCREEN.VISIBLE = .T.


las sentencias _SCREEN.VISIBLES estan con comentarios dado que al utilizarlas el ejecutable efectivamente elimina la ventana de fondo de VFP pero no ejecuta ninguna opción mas que la de salir y este es mi gran problema.

el form main contine :


1
2
3
4
5
init
DO ppal0.mpr WITH THIS,.T.
 
Destroy
CLEAR EVENTS

en sus propiedades
1
2
3
ShowWindow=2
windowstate=0
Windowtype=1

todas estas configuraciones las he leído en distintos post que dan como resultados positivos pero en mi caso si efectivamente la ventana principal se cierra pero se presente el problema que no se ejecuta ninguna opción del menú de la aplicación.

agradecido de antemano

Cualquier duda estaré atento para responder y así poder solucionar mi quebradero de cabeza
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
Imágen de perfil de Leonardo Daniel A.
Val: 1.115
Oro
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Problema al Suprimir Ventana VFP desde Ejectable

Publicado por Leonardo Daniel A. (497 intervenciones) el 08/01/2020 19:23:00
hola busque en un sistema viejo que tenia por ahi en Vfox, y tenia esto en mi PRG de inicio


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
clos all
set sysmenu off
set talk off
 
LOCAL lcSys16, lcProgram
 
lcSys16 = SYS(16) && Nombre de Programa en Ejecucion
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
 
CD LEFT(lcProgram, RAT("\", lcProgram))
 
set proc to rutinas
do configset
do desac_herramientas
CLEAR
SET ENGINEBEHAVIOR 70
 
_screen.visible = .f.
_screen.windowstate = 2
_Screen.Icon = "NSA_11.ico"
_Screen.Caption = "Sistema de Seguimiento de Acuerdos"
set sysmenu off
open database acuerdos shared
do form fmenu
 
read events


y en el boton de salir

1
2
3
4
5
6
if MessageBox("¿ Esta seguro que desea salir del sistema ?", 4+32, "Aviso") = 6
   thisform.release
   clea event
   close all
   cancel
endif
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
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

Problema al Suprimir Ventana VFP desde Ejectable

Publicado por Fidel José (657 intervenciones) el 08/01/2020 20:15:00
Algunas observaciones que no tienen que ver necesariamente con el funcionamiento del menú, pero que son importantes para el cierre adecuado dle ejecutable. De otra forma, es posible que se te quede en la memoria, creando conflictos.

1) La mejor manera de que no se presente el Screen normal de Visual Fox es agregando una línea al Config.fpw:
SCREEN = OFF
A este archivo lo tienes que marcar como incluido dentro del proyecto.

2) Sobre el prg de inicio
2.1) El prg de incio tiene que estar marcado como Set Main
2.2) Antes de lanzar el formulario principal de la aplicación deberías colocar este comando:
ON SHUTDOWN DO CIERRE
y Agregar al prg, lo siguiente:

PROCEDURE CIERRE
******************
CLOSE ALL
SET PRINTER TO
CLOSE DATABASES
CLEAR EVENTS
QUIT
ENDPROC

2.3) Quita de tu sistema cualquier otro CLEAR EVENTS que hayas puesto.

3) En el formulario Principal
El Windowtype=1 es irrelevante porque los formularios ShowWindow = 2 no leen esa propiedad.
3.1) En el Destroy de ese formulario, quita ese CLEAR EVENTS
3.2) En el UNLOAD de ese formulario, agrega la instrucción
QUIT

4) Sobre el menú
*<MenuType>5</MenuType>
*<MenuLocation>APPEND</MenuLocation>
*<TopLevelForm>.T.</TopLevelForm>

Supongo que esas son las características de tu menu.
Las preguntas son:
4.1) si cuando no ocultas el _screen de VFP el menú funciona correctamente?
4.2) Cuando ocultas el _Screen, el menú está habilitado pero no funciona o no funciona porque está deshabilitado?

Puede ayudar si adjuntas el archivo mpr
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar
sin imagen de perfil
Val: 96
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Problema al Suprimir Ventana VFP desde Ejectable

Publicado por roberto (55 intervenciones) el 09/01/2020 03:38:04
Voy a seguir cada uno de los pasos que me indicas y te comento lo que resulta...
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
sin imagen de perfil
Val: 96
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Problema al Suprimir Ventana VFP desde Ejectable

Publicado por roberto (55 intervenciones) el 10/01/2020 17:55:57
Primero, respondiendo a tus dos preguntas del punto 4,
4.1 R) el ejecutar la aplicación el menú funciona perfectamente.
4.2 R) el menu esta habilitado y las opciones de menu se despliegan perfectamente.

Habiendo efectuado los cambios, el menu sigue sin ejecutar las opciones. Solo funciona el Salir.


menu1
menu2

Lo curioso que en modo desarrollo funciona sin problemas, es decir ejecuta los form que están asociados al menu.
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
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

Problema al Suprimir Ventana VFP desde Ejectable

Publicado por Fidel José (657 intervenciones) el 11/01/2020 13:39:51
Hola Roberto
Me faltó hacerte una pregunta:
Los formularios que deben mostrarse estan con la propiedad ShowWindow = 1 (In Top Level Form) ?
Porque lo que se me ocurre es que los formularios se crean, pero no los estás viendo.
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
sin imagen de perfil
Val: 96
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Problema al Suprimir Ventana VFP desde Ejectable

Publicado por roberto (55 intervenciones) el 13/01/2020 13:05:07
Te cometo.... gracias a tu observación, revise la propiedad ShowWindow

Del form Principal esta en 2 de nivel superior
De los form que se ejecutan del menu estaba en 0 pero al cambiar a 1, el form se desplegó.

Efectivamente los form se estaban ejecutando pero no se mostraban ya que en algún momento los vi en segundo plano.

Espero que esta sea la solución, es decir cambiar la propiedad ShowWindow a 1 de los formularios.

Saludos y atento a tus comentarios
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
Imágen de perfil de Luis
Val: 9
Ha disminuido su posición en 5 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Problema al Suprimir Ventana VFP desde Ejectable

Publicado por Luis (3 intervenciones) el 13/01/2020 18:20:29
Saludos quisiera ayudarte pq creo que tengo la respuesta pero no entendí muy haber, tienes una aplicación que corre sobre un Form y cuando lo mandas a ejecutar desde un proj claro está aparece la ventana de fondo de VFP clásica y eso área el software si es eso lo que pasa avísame para ver si te puedo ayudar [email protected]
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
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

Problema al Suprimir Ventana VFP desde Ejectable

Publicado por Fidel José (657 intervenciones) el 13/01/2020 22:31:10
Hola Roberto
Puedes adoptar la norma de crear todos tus formularios como ShowWindow = 1, salvo los que tengan que ser ShowWindow = 2 (Top).
Los formularios ShowWindow = 1 también se pueden mostrar tanto en el marco del Screen de VFP como en el marco de un formulario de nivel superior (ShowWindow = 2),

Fijate que en VFP puedes trabajar con el Screen como marco, pero también tener Formularios en Top Level con su propio menú, que funcionen como módulos del sistema. Y algunos formularios (o todos) puede que se muestren en uno u otro entorno.
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