FoxPro/Visual FoxPro - Codigo no funciona

   
Vista:

Codigo no funciona

Publicado por Dario (321 intervenciones) el 24/06/2009 02:31:59
Tengo un formulario que se maneja directo o a traves de parametros para
ejecutar distintos botones.

Al finalizar cada boton tengo este codigo

IF INLIST(thisform.hacer,"R","E","T","C","RT","ET")
IF auto=.f.
=MESSAGEBOX("Se ha finalizado"+CHR(13)+;
"la transferencia de archivos",48,"Aviso")
else
thisform.salir.Click()
endif

endif

en que si auto es falso se esta ejecutando el form digamos manualmente, si
es tru es por parametros y debe ejecutar el salir.

El salir tiene su thisform.release, ahora bien, si se ejecuta manual y hago
click sobre el boton se cierra, en tanto que no se ejecuta la linea
thisform.salir.Click()

He colocado mesagebox en el boton salir y llega al click de salir pero el formulario no se
cierra.

Alguna idea?

Gracias
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

RE:Codigo no funciona

Publicado por Plinio (7771 intervenciones) el 24/06/2009 18:20:14
Prueba poniendo
RELEASE Thisform
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

RE:Codigo no funciona

Publicado por Dario (321 intervenciones) el 24/06/2009 18:46:53
Y cual es la diferencia con thisform release ???
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

RE:Codigo no funciona

Publicado por Mario (199 intervenciones) el 24/06/2009 22:22:12
Probá colocando Return .F. después de thisform.salir.Click()
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

RE:Codigo no funciona

Publicado por Dario (321 intervenciones) el 26/06/2009 13:49:12
Ya esta, cuando en un aplicativo hay un unico formulario, este no debe ser modal...
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