Index: TECH/Exceptions/RuntimeException.cls.xml
===================================================================
diff -u -r638 -r2405
--- TECH/Exceptions/RuntimeException.cls.xml (.../RuntimeException.cls.xml) (revision 638)
+++ TECH/Exceptions/RuntimeException.cls.xml (.../RuntimeException.cls.xml) (revision 2405)
@@ -66,9 +66,29 @@
1
%String
-
+
+
+DollarZError:%String
+1
+%String
+",2)):$TEXT(@$$$TextBetween(%v,">"," ")), 1:"")
+ Set Tekst=""
+ If $L(DollarZError) {
+ Try {
+ Set Tekst=$$$ErrorToLine(DollarZError)
+ }
+ Catch (e) {
+ Set Tekst="Kan tekst op errorlocatie niet ophalen."
+ }
+ }
+
+ Quit Tekst
+]]>
+