FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Cambio en Errorsys
Posts: 581
Joined: Tue Oct 11, 2005 11:28 AM
Cambio en Errorsys
Posted: Fri Feb 16, 2007 08:00 PM

Hola,

Alguno de ustedes ha conseguido cambiar el errorsys de forma que solo se quite el programa si pulsarmos el bot贸n QUIT, y si pulsarmos el bot贸n SALIR el programa continue normalmente? Se si, donde puedo coger tal informaci贸n?

Saludos

Kleyber Derick



FWH / xHb / xDevStudio / SQLLIB
Posts: 840
Joined: Thu Oct 13, 2005 07:05 PM
Cambio en Errorsys
Posted: Fri Feb 16, 2007 10:47 PM

No es tan facil, continuar o no la ejecucion de un programa depende del tipo de error que se haya generado, algunos errores pueden "reintentar" pero otros requieren que la aplicacion se aborte.

Clipper posee un "objeto Error" y (x)Harbour hereda dicho comportamiento, funciona asi:

Existe una funcion "global" llamada ErrorBlock(), que recibe como par谩metro un bloque de c贸digo el cual a su vez puede recibe como parametro el objeto error, el bloque de codigo lleva una funcion a la cual se va a llamar cuando el programa cause un error:

ErrorBlock({|oError| MiControlDeErrores(oError)})

Tan simple como eso, cuando tu programa cause un error, se llama de manera automatica a la funcion MiControlDeErrores() y ahi, tu puedes escribir lo que tu quieras que pase con los errores.

Lo mas facil es hacer:

Funcion MiControlDeErrores(oError)
QUIT
RETURN

Asi el programa directamente se sale sin hacer mas preguntas.

FiveWin tiene el Errsysw.prg que contiene la funci贸n que controla los errores en tiempo de ejecucion de FiveWin, esta en \source\function. Esta funcion "analiza" el objeto error y en base a eso dibuja el dialogo muestra el listado de errores y dependiendo del estado del error muestra los botones correspondientes, en algunos casos, dependiendo de la serveridad del error sera el "Default", en otras el "Retry" y en otras directamente el "Quit", pero todo esto vienen de analizar las datas del objeto error.

Para mas informacion sobre las propiedades del objeto ERROR las puedes encontrar en el manual de Clipper.

Saludos

R.F.
Posts: 581
Joined: Tue Oct 11, 2005 11:28 AM
Cambio en Errorsys
Posted: Sat Feb 17, 2007 12:08 AM

Maestro Rene,

Gracias por la aclaraci贸n. Lo que pasa es que en el Errsysw.prg de Fivewin me muestra siempre la misma pantalla con los mismos botones, no importando si el error es un error que se pueda intentar nuevamente o no. Por eso pregunto se si puede "forzar" la diferenciaci贸n de un error y otro, y asi hacer una "configuraci贸n" del errorsys.

Saludos,

Kleyber Derick



FWH / xHb / xDevStudio / SQLLIB

Continue the discussion