Power Builder - Como se realiza el control de errores??

 
Vista:

Como se realiza el control de errores??

Publicado por Molon (67 intervenciones) el 31/07/2003 09:29:54
Hola. Me gustaria que alguien me pudiera mandar un manual o me diera una explicacion de como va el tema del control de errores en PowerBuilder. Lo mas que he visto es el contorl de errores de Visual basic y no se como controlar los errores que provocan instrucciones del tipo val = x/0 P.ej.

Un saludo
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

systemerror

Publicado por saenix (17 intervenciones) el 31/07/2003 21:24:58
Para este tipo de errores que ocasiona que PB se cierre puedes usar el evento "systemerror" de tu objeto aplicacion. cada vez que sucede un error de este tipo , se ejecuta este evento antes de cerrarse la aplicacion. ahi puede poner codigo para cachar el error y hacer algo al respecto. yo puse esto , espero que te ayude, y pues si buscas en el foro hay otras respuestas mejores de los demas: (continua)
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

systemerror(2)

Publicado por saenix (17 intervenciones) el 31/07/2003 21:28:13
// codigo saenix en el evento systemerror de la aplicacion
integer int_random, int_file_num
string str_mensaje_error , str_file_name, str_msg_cerrar
string str_fecha
Randomize ( 0 )
int_random = rand(32767)
str_file_name = string(int_random)+ ".log"
str_file_name = GetCurrentDirectory ( ) + "\" + str_file_name
str_fecha = String(Today(), "dd/mm/yyyy hh:mm:ss")
str_msg_cerrar = "Si confirma salir de la aplicacion por favor oprima el boton con el 'SI'." &
+"~rSi desea seguir dentro de la aplicacion oprima 'NO'."
str_mensaje_error = "DETALLE: " + error.text &
+ "~rLINEA NO: " + string(error.line) &
+ "~rEVENTO: " + string(error.objectevent)&
+ "~rOBJETO: " + string(error.object) &
+ "~rVENTANA O MENU: " + (string(error.windowmenu))

int_file_num = FileOpen ( str_file_name , LineMode! , Write! , LockWrite! )
FileWrite ( int_file_num , str_mensaje_error )
FileClose ( int_file_num )
messagebox("Ocurrio el Error Grave No: " + string(error.number), error.text, STOPSIGN!)
//if MESSAGEBOX("Confirma Cerrar la Aplicacion",str_msg_cerrar , question!, yesno!, 1) = 1 then
ROLLBACK USING SQLCA;
DISCONNECT using sqlca;
DISCONNECT ;
HALT
//ELSE
//END IF
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

Muchas gracias!!

Publicado por Molon (67 intervenciones) el 01/08/2003 09:52:04
me ha venido muy bien gracias.. He visto la luz del tunel.... :)

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