RE:como manejar el evento systemerror
en el objeto aplicacion , evento systemerror pon este script
rollback;
integer li_filenum systemerror
string ls_mensaje
li_FileNum = FileOpen("C:\Error en sistema.txt", LineMode!, Write!, LockWrite!, Replace!)
ls_mensaje="Ocurrió un error en el sistema el "+string(today())
filewrite(li_filenum,ls_mensaje)
ls_mensaje="Ventana o menú : "+ string(error.windowmenu)
filewrite(li_filenum,ls_mensaje)
ls_mensaje="Objeto : "+string(error.object)
filewrite(li_filenum,ls_mensaje)
ls_mensaje="Linea : "+string(error.line)
filewrite(li_filenum,ls_mensaje)
ls_mensaje="Detalle del error : "+string(error.text)
filewrite(li_filenum,ls_mensaje)
fileclose(li_filenum)
ls_mensaje="Ha ocurrido un error grave en el sistema.~n~r"+&
"Los cambios hechos no serán tenidos en cuenta.~n~r"+&
"Por mas detalles vea el archivo ~n~r"+&
"'Error en sistema.txt' que se generó en la unidad C de su disco duro."
messagebox("",ls_mensaje)
disconnect using sqlca;
halt close
esto te mostrara un mensaje con el error y ademas te genera un archivo "Error en sistema.txt" en el disco C para q lo analices
espero te sirva
saludos desde argentina