Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabFromJsonBepaler.cls.xml
===================================================================
diff -u -r71724 -r71726
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabFromJsonBepaler.cls.xml	(.../HalffabFromJsonBepaler.cls.xml)	(revision 71724)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabFromJsonBepaler.cls.xml	(.../HalffabFromJsonBepaler.cls.xml)	(revision 71726)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>initvalue:%CacheString</FormalSpec>
 <Private>1</Private>
@@ -21,6 +26,8 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ClassnameFromJsonNaarDomConverter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.ClassnameFromJsonNaarDomConverter).%New()
+	Set ..Logger = ##class(vhLib.Logger).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -124,6 +131,8 @@
 	If $$$Not(##class(TECH.CompiledClassUtils).Exists(KlasseNaam)) {
 		#dim ErrorMessage As %String = "HalffabFromJsonBepaler kan geen halffab maken, want de klasse '"_KlasseNaam_"' bestaat niet in Caché (of is niet gecompileerd). " 
 		Set ErrorMessage = ErrorMessage _ $$$CRLF _ "Input object : HalffabDtoParsedFromJson " _ $$$CRLF _ $$ObjToText^vhLib(..HalffabDtoParsedFromJson)
+		
+		Do ..Logger.Error("ClassnameFromJsonNaarDom", ErrorMessage, $$$True)
 		Do ##class(TECH.Exceptions.GeneralErrorException).Throw(ErrorMessage)
 	}
 ]]></Implementation>
@@ -136,6 +145,8 @@
 	If $$$Not(##class(TECH.CompiledClassUtils).PropertyExists(KlasseNaam,PropertyNaam)) {
 		#dim ErrorMessage As %String = "Onbekende property bij converteren van HalffabDtoParsedFromJson : Property '"_PropertyNaam_"' is niet gekend in klasse '"_KlasseNaam_"'. " 
 		Set ErrorMessage = ErrorMessage _ $$$CRLF _ "Input object : HalffabDtoParsedFromJson " _ $$$CRLF _ $$ObjToText^vhLib(..HalffabDtoParsedFromJson)
+		
+		Do ..Logger.Error("PropertyNaamFromJsonNaarDom", ErrorMessage, $$$True)
 		Do ##class(TECH.Exceptions.GeneralErrorException).Throw(ErrorMessage)
 	}
 ]]></Implementation>