Marcelo Barberis
unread,Sep 5, 2011, 11:49:07 PM9/5/11Sign in to reply to author
Sign in to forward
You do not have permission to delete messages in this group
Either email addresses are anonymous for this group or you need the view member email addresses permission to view the original message
to publicesvfoxpro
Estimados amigos
De nuevo recurro a ustedes por un error sobre un proyecto con form de nivel superior.
Bueno estoy diseñando un proyecto de ventas en donde todos los forms estan diseñados en nivel superior, para el ingreso no me da errores, pero al momento de salir, ejecuto un procedimiento para activar un respaldo automatico y despues de eso cierra todo quit y me genera un error C000005, este error la pueden ver en el adjunto que envie error imagen error.jpg, y podran ver las lineas que generan el error y es la linea 156 del prg principal, la imagen del codigo en donde se genera el error la adjunte tambien imagen error2.jpg, la linea donde se genera el error es READ EVENT.
Una linea antes ejecuto los procedimientos que iran mostrando las diferentes pantallas con la que trabaja el sistema antes de mostrar la principal del sistema oappdatos.controlapli, que verifica si estas registrado, que no falte los archivos obligatorios, si es demo, usuarios del sistema y luego de todo esto muestra la pantalla principal.
La pantalla de inicio o splash se encarga de ver que estan todos los archivos necesarios: imagen pantalla1.jpg
La pantalla que verifica si es demo o registrado solo sale si no estas registrado, si trabajas en demo: pantalla2.jpg
La pantalla para ingresar con usuarios registrados en el sistema: pantalla3.jpg
La pantalla principal del sistema: pantalla4.jpg
todas estas pantallas trabajan como form de nivel superior
Para salir del sistema utilizo este procedimiento
FUNCTION ONSHUTDOWN
*!* Cuando hacemos click en la X para cerrar la aplicacion necesitamos que el sistema
*!* nos pregunte si deseamos salir utilizamos la variable ya establecida
IF SALIRSINPREGUNTAR = "NO"
IF APLI_CORRIENDO = "SI"
CLEAR WINDOW
QUIT
ELSE
MI_SALIDA = MESSAGEBOX(_MSGSALIR_LOC,36,_MSGNOMBREPROG_LOC)
IF MI_SALIDA = 6
IF _VFP.STARTMODE = 0
OASETUP.APLICAR_SONIDO('SALIR')
orespaldoauto = CREATEOBJECT("zip.backupautomatico")
orespaldoauto.autocenter = .T.
orespaldoauto.show
IF TXNLEVEL() > 0
ROLLBACK
ENDIF
ON SHUTDOWN
CLEAR WINDOW
CLEAR DLLS
CLOSE ALL
RELEASE ALL EXTENDED
CLEAR MEMORY
QUIT
ELSE
OASETUP.APLICAR_SONIDO('SALIR')
orespaldoauto = CREATEOBJECT("zip.backupautomatico")
orespaldoauto.autocenter = .T.
orespaldoauto.show
IF TXNLEVEL() > 0
ROLLBACK
ENDIF
ON SHUTDOWN
CLEAR WINDOW
CLEAR DLLS
CLOSE ALL
RELEASE ALL EXTENDED
CLEAR MEMO
QUIT
ENDIF
ENDIF
ENDIF
ENDIF
ENDFUNC
***********************************************************************************************
Les adjuntos las imagenes que utilizo para el sistema
Como les dije anteriormente todo el proyecto trabaja con form de nivel superior
Cualquier tipo de ayuda que me proporcione que me ayude a solucionar este error C00000005 se los agradeceria mucho.
Marcelo Barberis
Bolivia