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