URGENTE, No puedo cerrar _screen de VFP

[Fox Reloaded]

Hola a todos los Foxeros de toda latinoamerica y el caribe, desde aqui
mis mas gratos saludos y ovaciones a sus experiencias con esta
herramienta de desarrollo.

Bueno al grano... Les cuento estoy desarrollando una aplicacion y todo
me va bien fuera de unos cuantos errores a depurar en tiempo de
ejecucion, pero ese no es el tema a tratar en este momento. El asunto
que es por el cual acudo a todas sus experiencias en el campo de la
programacion es que no se porque, ni como no puedo cerrar la ventana
_screen de VFP, que es en la cual estoy desarrollando la ventana
principal del programa y por la cual a traves de ella se seleccionan
las diferentes opciones de operatividad. He recurrido a muchas paginas
donde dan la misma solucion, cosa que veo bien porque parece que nadie
tiene este problema, uso todas las instrucciones como CLEAR EVENTS, ON
SHUTDOWN, RELEASE ALL, y otras como remover objetos de una clase
contenedor que tengo en el screen principal, la cuestion es que con
todo esto no logro cerrar la ventana de VFP (_screen) siempre me
muestra el error de "No se puede salir de Visual Fox Pro" en un boton
tipo commandbutton que esta especialmente para esa funcion, para
cerrar todo el programa. en fin he usado hasta el comando QUIT sin
obtener un mejor resultado, no se si sirva de alguna ayuda pero quite
la mayoria de instrucciones que tengo en el boton salir de mi programa
y solo deje QUIT para lo cual me llevo una sorpresa, el screen parece
quedar algo asi como en un bucle (se nota en el parpadeo del caption
del screen) pero no veo porque tenga que hacerlo ya que el programa
principal no tiene ningun tipo de bucle ni nada por el estilo. Si me
pueden ayudar con esto de verdad les agradeceria muchisimo ya que no
hallo que hacer para controlar este error, de pronto hasta sea una
tonteria pero ya llevo varios dias parado con esto...

A todos los que lean esto un abrazo de mi parte y gracias de antemano
a todas las posibles respuestas que me puedan ofrecer a traves de este
medio.

Cristian Torres.

[HernanCano]

Consulta el sgte artículo y obtendrás la respueta a tu inquietud.

Mensionas que estás usando CLEAR EVENTS. http://www.davphantom.net/descarga.asp?id=353&op=2
Pues parece que lo estás haciendo donde no es (intenta con CLEAR
EVENTS justo antes del QUIT y nos cuentas).

Ejecuto un EXE de VFP y finaliza instantáneamente
http://www.portalfox.com/index.php?name=News&file=article&sid=977&mode=nested&order=0&thold=0

[Fox Reloaded]

Bueno gracias hermano pero si en realidad tengo un boton creado y en el evento click del mismo boton coloco.

                        CLOSE TABLES ALL

CLOSE DATABASES

RELEASE ALL

*ON SHUTDOWN CLEAR EVENTS

_screen.RemoveObject('frmMainForm')

_screen.Release

CLOSE ALL

CLEAR EVENTS

                        QUIT

Por eso no entiendo porque me da el mensaje que no se puede salir de vfp. de todas maneras mirare lo que me recomiendas y te aviso...

Gracias y un abrazo.

Cristian Torres S.

2012/1/30 HernanCano <jherna...@gmail.com>

--
Thanks for everything... :D

         --- Fox ---

Maracaibo, Venezuela

[edgar suarez kummers]

Agregale

release windows

y dale un patadón por el culo

con todo eso que has hecho debería salir fácil.

saludos

edgar

--
edgar suarez kummers

[Fox Reloaded]

mmmmmmm, no lo acabo de hacer y tampoco, una pregunta adicional? sera que tiene que ver con el hecho de que bloquee el boton x del _screen? yo creo que eso no deberia dar ese tipo de error, o si? Ustedes me diran... :)

2012/1/30 edgar suarez kummers <edgark...@gmail.com>

[Irlandes 1960]

Mirá, yo lo único que tengo es 

CLEAR EVENTS

en el evento UNLOAD del formulario

Quizás el problema es que estas queriendo poner el código en el lugar equivocado, no me suena que esto funcione en el evento click de un boton, ya que el formulario sigue activo y vos lo estás tratando de destruir.

Te sugiero que pruebes de poner el boton solo un THISFORM.RELEASE()

y en el evento UNLOAD del formulario poner la clausula CLEAR EVENT

y comenta a ver si funciona.

[Daniel Sánchez]

Edgar, últimamente vas dando muchas patadas en el culo, cuenta tal vez algo te pasa andas medio agresivo y ya no hay el poeta que nos deleitaba con su prosa (aunque pocos entendíamos,  si lo disfrutamos).

Saludos

--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú

[edgar suarez kummers]

Tienes razón Daniel ...

Llevo unos días peleando con unas páginas amarillas internacionales que comprimen todo el texto de los mensajes y los hacen ilegibles.

Hoy me contestaron un correo diciendo exactamente eso ... que a través de las páginas amarillas no se podía leer bien.

Gracias por tu observación, muy positiva.

saludos

edgar

--
edgar suarez kummers

[Douglas Sánchez Guillén]

Hola que tal colega foxero, algo asi tengo yo

Procedure Salir
On Error   && liberas el mensaje de error
Set Status Bar On
On Shutdown    &&&& libero el on shut..  esto puede ser q te esta matando
Close Table All
Close Databases All
Set Sysmenu To Default
Set Date BRITISH
Set Century On
Release omerlin
Set Library To
Set Classlib To
Clear Window
Clear Events
Return
Endproc

en el boton del menu digo  =salir()

nada mas. saludes espero te sirva hacelo tal com esta ahi y te va servir xq no tengo el QUIT, simple porque yo trabajo con los fuentes hago pruebas en fuentes y salgo del programa y permanezco en fox y asi pruebo algunas pantallas y algunas  variables que necesito activa, cuando ya compilo meto release var1,var2 var3 siempre toy pendiente de eso. 

saludes...

--
Ing. Douglas Sánchez Guillén

      Consultor Informatico

Movistar: 505 8759 - 5342

Claro: 505 88495476

[Luis Maria Guayan]

Intenta agregando

ON SHUTDOWN QUIT

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

[Walter R. Ojeda Valiente]

Lo que necesita es escribir

ON SHUTDOWN
QUIT

y con eso se solucionará su problema.

Saludos.

Walter.

---

Date: Mon, 30 Jan 2012 15:36:21 -0300
Subject: Re: [vfp] Re: URGENTE, No puedo cerrar _screen de VFP
From: irland...@gmail.com
To: publice...@googlegroups.com

[Fox Reloaded]

Ok, gracias de verdad veo que cada vez se unen mas colegas a mi problematica, bueno resumo; Irlandes intente con tu metodo pero el problema es como llamar el procedimiento de UNLOAD del _screen?

Intente:

PROCEDURE _screen.unload

        CLEAR EVENTS

ENDPROC

Y ni asi, al amigo Douglas bien por el codigo pero lo coloque en mi boton de salir y no hace nada, solo queda el mismo formulario screen pero sin el error ya antes mencionado,

Al amigo Luis Maria (que para mi es un maestro de esto) la instruccion ON SHUTDOWN QUIT la habia intentado esta mañana casualmente sin obtener un mejor resultado que el mismo error en si (No se puede salir de Visual Fox Pro).

les voy a poner el codigo con el cual yo inicio el screen en un programa main para que tengan una mejor comprension de la situacion.

*--------------------------------------------------------------------------------- **

** Establecemos la propiedades del _screen de la ventana principal

WITH _screen

.Width = 1320

.Height = 800

.Caption = "Orion® - Sistema biometrico de asistencia."

.Icon = 'D:\ASSISTANCE\ICON1.ICO'

.windowstate = 2 && esto hay que cambiar a cero.

.windowtype = 1

.titlebar = 1 && saca la barra de arriba. 

.maxbutton = .T. && Este valor tiene que ser cambiado al momento de compilar

.minbutton = .t. 

.closable = .f.

.enabled = .t. 

.visible = .t.

** Creamos un objeto contenedor en el _screen de inicio

.AddObject("frmMainForm","cntOIE")

.frmMainForm.visible = .T.

.frmMainForm.backcolor = RGB(255,255,255)

.frmMainForm.bordercolor = RGB(255,255,255)

.show

ENDWITH

** Definimos una clase contenedor donde se alojaran los controles **

DEFINE CLASS cntOIE as container

left = 0

top = 0

height = 800

width = 1400

caption = "\<Salir"

visible = .T.

name = "frmMainForm"

ADD OBJECT cmdExit as CommandButton WITH ;

left = 300, ;

top = 300, ;

height = 50, ;

width = 200, ;

caption = "\<Salir", ;

name = "cmdExit", ;

visible = .T.

PROCEDURE cmdExit.Click()

** Error no se puede salir de VFP **

*CLEAR WINDOW

*CLEAR MEMORY

*RELEASE WINDOWS 

*CLEAR EVENTS

*QUIT

=AppExit()

ENDPROC

ADD OBJECT cmdControlAccesso as commandbutton WITH ;

left = 50, ;

top = 200, ;

height = 50, ;

width = 200, ;

caption = "\<Control Acceso", ;

name = "cmdAccessPoint", ;

visible = .T.

PROCEDURE cmdAccessPoint.Click()

DO FORM "d:\assistance\frmcontrolaccess.scx"

ENDPROC

ADD OBJECT cmdAddWorker as commandbutton WITH ;

left = 50, ;

top = 300, ;

height = 50, ;

width = 200, ;

caption = "\<Agregar Trabajador", ;

name = "cmdAddWorker", ;

visible = .T.

PROCEDURE cmdAddWorker.Click()

DO FORM "d:\assistance\frminsertrecordsql.scx"

ENDPROC

ADD OBJECT cmdModifyWorker as Commandbutton WITH ;

left = 250, ;

top = 50, ;

height = 50, ;

width = 200, ;

caption = "\<Modificar Trabajador", ;

name = "cmdModifyWorker", ;

visible = .T.

PROCEDURE cmdModifyWorker.Click()

DO FORM "d:\assistance\frmeditemployee.scx"

ENDPROC

ADD OBJECT cmdEditTime as commandbutton WITH ;

left = 250, ;

top = 200, ;

height = 50, ;

width = 200, ;

caption = "Salidas \<Pendientes", ;

name = "cmdEditTime", ;

visible = .T.

PROCEDURE cmdEditTime.Click()

DO FORM "d:\assistance\frmedittimes.scx"

ENDPROC

ADD OBJECT cmdConfig as commandbutton WITH ;

left = 300, ;

top = 150, ;

height = 50, ;

width = 200, ;

caption = "Configuraci\<ón", ;

name = "cmdConfig", ;

visible = .T.

PROCEDURE cmdConfig.click()

DO FORM "d:\assistance\frmconfigs.scx"

ENDPROC

PROCEDURE SysExit()

** Comandos para el cerrado de la ventana ** :S

ENDPROC

ENDDEFINE

Ya con esto que es sencillo (pero que me da error) manipulo a mi antojo el screen y lo uso a mi favor como ventana principal de mi proyecto.

Me faltan añadirle los menus y el toolbar pero se me presento este problema que solo tengo cuando compilo el programa en un .exe

Espero que la informacion que les estoy suministrando les sea mas util a la hora de resolver, porque ya no veo donde esta el error. :)

Un abrazo a todos.

Cristian Torres S.

2012/1/30 Luis Maria Guayan <luism...@gmail.com>

[Fox Reloaded]

2012/1/30 Fox Reloaded <extasis...@gmail.com>

[extremo]

no probastes lo que te aconsejo LuisMa al igual que Walter?... eso
deberia funcionar

Bendiciones

On 30 ene, 16:46, Fox Reloaded <extasisreloa...@gmail.com> wrote:
> 2012/1/30 Fox Reloaded <extasisreloa...@gmail.com>

>
>
>
>
>
> > Ok, gracias de verdad veo que cada vez se unen mas colegas a mi
> > problematica, bueno resumo; Irlandes intente con tu metodo pero el problema
> > es como llamar el procedimiento de UNLOAD del _screen?
>
> > Intente:
>
> > PROCEDURE _screen.unload
> >         CLEAR EVENTS
> > ENDPROC
>
> > Y ni asi, al amigo Douglas bien por el codigo pero lo coloque en mi boton
> > de salir y no hace nada, solo queda el mismo formulario screen pero sin el
> > error ya antes mencionado,
>
> > Al amigo Luis Maria (que para mi es un maestro de esto) la instruccion ON
> > SHUTDOWN QUIT la habia intentado esta mañana casualmente sin obtener un
> > mejor resultado que el mismo error en si (No se puede salir de Visual Fox
> > Pro).
>
> > les voy a poner el codigo con el cual yo inicio el screen en un programa
> > main para que tengan una mejor comprension de la situacion.
>

> > *--------------------------------------------------------------------------­-------

> > 2012/1/30 Luis Maria Guayan <luismar...@gmail.com>

>
> >>  Intenta agregando
>
> >> ON SHUTDOWN QUIT
>

> >>  * Luis María Guayán
> >> Tucumán, Argentina
> >> _________________________
> >>http://www.PortalFox.com<http://www.portalfox.com>

> >> Nada corre como un zorro
> >> _________________________

> >> *

>
> >> El 30/01/2012 14:05, Fox Reloaded escribió:
>
> >> Bueno gracias hermano pero si en realidad tengo un boton creado y en el
> >> evento click del mismo boton coloco.
>
> >>                          CLOSE TABLES ALL
> >>  CLOSE DATABASES
> >>  RELEASE ALL
> >>  *ON SHUTDOWN CLEAR EVENTS
> >>  _screen.RemoveObject('frmMainForm')
> >>  _screen.Release
> >>  CLOSE ALL
> >>  CLEAR EVENTS
> >>                         QUIT
>
> >>  Por eso no entiendo porque me da el mensaje que no se puede salir de
> >> vfp. de todas maneras mirare lo que me recomiendas y te aviso...
>
> >>  Gracias y un abrazo.
> >> Cristian Torres S.
>

> >> 2012/1/30 HernanCano <jhernanca...@gmail.com>

>
> >>> Consulta el sgte artículo y obtendrás la respueta a tu inquietud.
>
> >>> Mensionas que estás usando CLEAR EVENTS.
> >>>http://www.davphantom.net/descarga.asp?id=353&op=2
> >>> Pues parece que lo estás haciendo donde no es (intenta con CLEAR
> >>> EVENTS justo antes del QUIT y nos cuentas).
>
> >>> Ejecuto un EXE de VFP y finaliza instantáneamente
>

> >>>http://www.portalfox.com/index.php?name=News&file=article&sid=977&mod...

> >> *Thanks for everything... :D*
> >> *
> >> *
> >> *
> >> *
> >> *         **--- Fox ---*
> >> *Maracaibo, Venezuela*
>
> > --
> > *Thanks for everything... :D*
> > *
> > *
> > *
> > *
> > *         **--- Fox ---*
> > *Maracaibo, Venezuela*
>
> --
> *Thanks for everything... :D*
> *
> *
> *
> *
> *         **--- Fox ---*
> *Maracaibo, Venezuela*
>
>  Screensplash.JPG
> 81 KVerDescargar- Ocultar texto de la cita -
>
> - Mostrar texto de la cita -

[Fox Reloaded]

Bueno en realidad lo intente esta mañana viendo la solucion en un blog. Pero exactamente lo coloque dentro del boton de salir que muestro en la grafica anterior. Si me estoy equivocando de lugar para poner la instruccion, me indicarias por fa? :S

2012/1/30 extremo <protech...@gmail.com>

[extremo]

la instruccion ON SHUTDOWN QUIT debes colocarlo en tu programa
principal, ejemplo main.prg

Bendiciones

On 30 ene, 17:32, Fox Reloaded <extasisreloa...@gmail.com> wrote:
> Bueno en realidad lo intente esta mañana viendo la solucion en un blog.
> Pero exactamente lo coloque dentro del boton de salir que muestro en la
> grafica anterior. Si me estoy equivocando de lugar para poner la
> instruccion, me indicarias por fa? :S
>

> 2012/1/30 extremo <protech.ven...@gmail.com>

> *Maracaibo, Venezuela*- Ocultar texto de la cita -

[Fox Reloaded]

Gracias, a todos y en especial a Luis Maria Guayan (Espero de corazon conocer argentina :$)

Por la solucion a mi problema efectivamente era como decia el colega y perdon por hacerlos pensar mas de lo debido (debemos ahorrar recursos de nuestro cerebro ggg) de verdad gracias a todos los que le dieron seguimiento a este post y de verdad desde esta tierra un abrazo a todos... No siendo mas espero que tengan un feliz dia. xD

Gracias de corazon.

Cristian Torres S.

2012/1/30 Fox Reloaded <extasis...@gmail.com>

[William “Wavidur” Villada]

Yo tenia el mismo problema hoy y con ese "patadon en el culo" que le di con el "release windows" me funcionó perfectamente. Gracias Edgar Suarez