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 +]]> +