Concloo LotusScript Essentials Beispiele
Beispiele: CNCL_ErrorMessage
Gibt einen String mit einer aussagekräftigen Fehlermeldung zurück, die den Namen der Datenbank, den Namen des Agenten und den Namen der Funktion enthält.
Option Public
Use "ConclooLSE"
Sub Initialize
On Error GoTo errHandle
Print test()
Print 12 / Fix(Fraction(CDbl(Now))) ' Line 5 of Agent "bintest"
Exit Sub
errHandle:
MessageBox( CNCL_ErrorMessage())
Exit Sub
End Sub
Function test As Double
On Error GoTo errHandle
Dim a As Double
a = 1
Print 23 / (1-a) ' Line 6 of Function "test"
Exit function
errHandle:
MessageBox(CNCL_ErrorMessage())
Exit Function
End Function
Ausgabe:
Demo (Demo.nsf) error in Function "TEST" of Agent "bintest" on line 6: Division by zero
0
Demo (Demo.nsf) error in Agent "bintest" on line 5: Division by zero