Index: TECH/Error/dto/ErrorInfo.cls.xml
===================================================================
diff -u -r1074 -r1129
--- TECH/Error/dto/ErrorInfo.cls.xml	(.../ErrorInfo.cls.xml)	(revision 1074)
+++ TECH/Error/dto/ErrorInfo.cls.xml	(.../ErrorInfo.cls.xml)	(revision 1129)
@@ -64,5 +64,10 @@
 <Type>%String</Type>
 <Parameter name="MAXLEN"/>
 </Property>
+
+<Property name="ExtraInfo">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+</Property>
 </Class>
 </Export>
Index: TECH/Error/impl/ErrorHandler.cls.xml
===================================================================
diff -u -r1074 -r1129
--- TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 1074)
+++ TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 1129)
@@ -14,6 +14,9 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Label:%String,Options:%String</FormalSpec>
 <Implementation><![CDATA[
+	/// Loggen van alle variabelen per stacklevel, moet gejobbed worden of error handeling gaat niet verder.
+	JOB ^%ETN
+	
 	Set $ETRAP="Do ##class(TECH.Error.impl.ErrorHandler).CrashDuringErrorHandling()"
 	
 	If '$isObject($G(%ErrorObject)) 
@@ -38,6 +41,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Label:%String</FormalSpec>
 <Implementation><![CDATA[
+	
 	Set Error=##class(TECH.Error.dto.ErrorInfo).%New()
 	Set Error.Label=$G(Label)
 	Set Error.ErrorCode=$ZERROR
@@ -58,6 +62,8 @@
 		Set Error.ErrorCode=$ZERROR
 	}
 	
+	Set Error.ExtraInfo = ..GeefExtraInfo()
+	
 	Set Error.Device=$I
 	Set Error.Job=$J
 	Set Error.Server=$ZU(110)
@@ -102,6 +108,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Error:TECH.Error.dto.ErrorInfo</FormalSpec>
 <Implementation><![CDATA[
+	b
 	Do Error.XMLExportToString(.Info,,"literal,indent")
 	
 	if $data(%Exception) && $IsObject(%Exception) {
@@ -213,5 +220,43 @@
 	Quit Txt
 ]]></Implementation>
 </Method>
+
+<Method name="GeefExtraInfo">
+<Description>
+Extra info ophalen over de error, dit uit de ^ERRORS global die wordt ingesteld door de aanroep van ^%ETN</Description>
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ExtraInfo = "Stack"
+	Set LaatsteErrorId = $Get(^ERRORS(+$Horolog))
+	Set StackLevel = ""
+	Set StackLevel = $Order(^ERRORS(+$Horolog,LaatsteErrorId,"*STACK",StackLevel))
+	While(StackLevel '= ""){
+		Set ExtraInfo = ExtraInfo_$C(10,13)_StackLevel
+		Set InfoType = ""
+		Set InfoType = $Order(^ERRORS(+$Horolog,LaatsteErrorId,"*STACK",StackLevel,InfoType))
+		While(InfoType '= ""){
+			Set ExtraInfo = ExtraInfo_$C(9)_InfoType_" : "
+			Set Key = ""
+			Set Key = $Order(^ERRORS(+$Horolog,LaatsteErrorId,"*STACK",StackLevel,InfoType,Key))
+			If (Key = ""){
+				Set ExtraInfo = ExtraInfo_$C(9)_$Get(^ERRORS(+$Horolog,LaatsteErrorId,"*STACK",StackLevel,InfoType))
+				Set ExtraInfo = ExtraInfo_$C(10,13)
+			}Else{
+				Set ExtraInfo = ExtraInfo_$C(10,13)
+				While(Key '= ""){
+					Set ExtraInfo = ExtraInfo_$C(9)_Key
+					Set ExtraInfo = ExtraInfo_$C(9)_" = "_$Get(^ERRORS(+$Horolog,LaatsteErrorId,"*STACK",StackLevel,InfoType,Key))
+					Set Key = $Order(^ERRORS(+$Horolog,LaatsteErrorId,"*STACK",StackLevel,InfoType,Key))	
+					Set ExtraInfo = ExtraInfo_$C(10,13)
+				}
+			}
+			Set InfoType = $Order(^ERRORS(+$Horolog,LaatsteErrorId,"*STACK",StackLevel,InfoType))			
+		}		
+		Set StackLevel = $Order(^ERRORS(+$Horolog,LaatsteErrorId,"*STACK",StackLevel))
+	}
+	Quit ExtraInfo
+]]></Implementation>
+</Method>
 </Class>
 </Export>