Hola Antonio ¿Por qué recomienda el no utilizar FormSet?
Saludos
El presente correo y sus anexos son exclusivamente para el uso de los destinatarios indicados en el encabezado del mismo, pueden contener información confidencial y/o privilegiada. Si usted por error ha recibido la presente correspondencia agradezco hacer omisión de esta y hacerme del conocimiento por esta misma vía
Bendito el Hombre que ha sido llamado por Cristo para ser el soldado del ejército en cuya mano empuñe como arma la palabra de Dios
Graba este (prg) código como “salir”
PROCEDURE sales
CLEAR EVENTS
ON ShutDown
QUIT
RETURN
En el botón comando de salida del sistema, agrega esto en el evento clic del botón Salir
#DEFINE vfpYesNo 4
#DEFINE vfpYes 6
#DEFINE vfpQuestion 32
IF MESSAGEBOX ("¿Desea Salir de la Aplicación?", vfpQuestion + vfpYesNo, ("El Sistema Pregunta"))=vfpYes then
=cursorsetprop("buffering",5)
=tableupdate(.t.)
FLUSH
SET AUTOSAVE ON
Do sales && El programa (prg) que te indique.
THISFORM.RELEASE
RELEASE ALL
NoDefault
ELSE
* *WAIT WINDOWS "Existe un problema..Consulte al Administrador del Sistema..."
ENDIF
Saludos cordiales.