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
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
0