Hier die Errorlogdatei:
Code: Alles auswählen
Xbase++ Version : Xbase++ (R) Version 1.90.355
Betriebssystem : Windows 7 06.01 Build 07601 Service Pack 1
------------------------------------------------------------------------------
oError:args :
oError:canDefault : N
oError:canRetry : N
oError:canSubstitute: J
oError:cargo : NIL
oError:description : Interne Datenstrukturen besch„digt
oError:filename :
oError:genCode : 41
oError:operation : _QUIT
oError:osCode : 0
oError:severity : 2
oError:subCode : 5
oError:subSystem : BASE
oError:thread : 1
oError:tries : 0
------------------------------------------------------------------------------
CALLSTACK:
------------------------------------------------------------------------------
Aufgerufen von APPQUIT(327)
Aufgerufen von (B)BUTTONMENU(774)
Aufgerufen von DC_XBPPUSHBUTTONXP:ACTION(1448)
Aufgerufen von (B)DC_XBPPUSHBUTTONXP:INIT(225)
Aufgerufen von XBPPUSHBUTTON:HANDLEEVENT(991)
Aufgerufen von DC_GETLIST:EVENTLOOP(4702)
Aufgerufen von DC_GETLIST:READGUI(3869)
Aufgerufen von DC_READGUI(113)
Aufgerufen von BUTTONMENU(1057)
Aufgerufen von MAIN(269)
Code: Alles auswählen
/*
* Routine zum Beenden eines Programms
*/
FUNCTION AppQuit()
LOCAL oInfo
local lOk
lOk := ShowMsgBox( 4, "LBHOTEL beenden?", {"Wollen Sie das Programm beenden?"}, 1)
IF lOk
oInfo := ShowInfo():New()
oInfo:Show("Programmende", "Tempor„rdateien werden entfernt, bitte warten...")
COMMIT
CLOSE ALL
filedelete(cPath + "TEMP????" + ".NTX")
filedelete(cPath + "XT??????" + ".NTX")
filedelete(cPath + "YT??????" + ".NTX")
filedelete(cPath + "ZT??????" + ".NTX")
oInfo:Destroy()
QUIT // Zeile 327, die den Fehler auslöst.
ENDIF
RETURN .t.