PB记录错误日志

li_file_no = FileOpen("system_error.log",LineMode!,Write!,Shared!,Append!)
if li_file_no = 0 then
    Messagebox("出错信息","不能打开系统出错日志文件！",Exclamation!)
else
    if FileWrite(li_file_no, "~r~n" + &
            "----------------------------------------------------------------" + &
                "~r~n" + &
                "~r~n 出错时间 : " + string(today(),'yyyy/mm/dd') + " " + string(now())+ &
                "~r~n 操作柜员 : " + gs_user_name + &
                "~r~n 错误代码 : " + string(error.number) + &
                "~r~n 错误信息 : " + error.text + &
                "~r~n 窗口/菜单: " + error.windowmenu + &
                "~r~n 出错控件 : " + error.object + &
                "~r~n 出错事件 : " + error.objectevent + &
                "~r~n 出错行数 : " + string(error.line) ) < 0 then
        MessageBox("出错信息","写系统出错日志文件出错！", Exclamation!)
    end if
end if
close(li_file_no)