Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabFromJsonBepaler.cls.xml
===================================================================
diff -u -r63262 -r63263
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabFromJsonBepaler.cls.xml	(.../HalffabFromJsonBepaler.cls.xml)	(revision 63262)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabFromJsonBepaler.cls.xml	(.../HalffabFromJsonBepaler.cls.xml)	(revision 63263)
@@ -47,11 +47,7 @@
 <Implementation><![CDATA[
 	#dim CacheClassname As %String = ..ClassnameFromJsonNaarDomConverter.GeefCacheClassnameVoorHalffab(..HalffabDtoParsedFromJson)
 	
-	If $$$Not(##class(TECH.CompiledClassUtils).Exists(CacheClassname)) {
-		#dim ErrorMessage As %String = "HalffabFromJsonBepaler kan geen halffab maken, want de klasse '"_CacheClassname_"' bestaat niet in Caché (of is niet gecompileerd). " 
-		Set ErrorMessage = ErrorMessage _ $$$CRLF _ "Input object : HalffabDtoParsedFromJson " _ $$$CRLF _ $$ObjToText^vhLib(..HalffabDtoParsedFromJson)
-		Do ##class(TECH.Exceptions.GeneralErrorException).Throw(ErrorMessage)
-	}
+	Do ..ValideerKlasseNaam(CacheClassname)
 	
 	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = $ClassMethod(CacheClassname, "%New", ..HalffabDtoParsedFromJson.ProductID)
 	
@@ -68,14 +64,16 @@
 	Set Halffab.GeldigTot = ..HalffabDtoParsedFromJson.GeldigTot
 	Set Halffab.GemaaktVoorKenmerkenSetID = ..HalffabDtoParsedFromJson.GemaaktVoorKenmerkenSetID
 	
+	#dim CacheClassname As %String = Halffab.%ClassName($$$True)
+
 	Set KenmerkIterator = ##class(TECH.ListIterator).%New(..HalffabDtoParsedFromJson.SelectieKenmerken)
 	While (KenmerkIterator.HasNext()) {
 		#dim KenmerkWaarde As %String = KenmerkIterator.Next()
 		#dim PropertyNaam As %String = KenmerkIterator.Key()
 		
-		Continue:(PropertyNaam = "KlasseNaamInfo")
+		Continue:(PropertyNaam = "KlasseNaamInfo")   ; is "$type" in .json-stream.
 		
-		Set PropertyNaam = ..GeefPropertyNaamVoorCacheHalffab(PropertyNaam,Halffab.%ClassName($$$True))
+		Set PropertyNaam = ..GeefPropertyNaamVoorCacheHalffab(PropertyNaam, CacheClassname)
 		Set $property(Halffab,PropertyNaam) = KenmerkWaarde
 	}
 ]]></Implementation>
@@ -92,14 +90,34 @@
 		Set PropertyNaam = ##class(TECH.StringUtils).Replace(PropertyNaam, "wand", "Wand")   ; Correctie van de casing, want verschil tussen Caché en .NET 
 	}
 	
-	// Opnieuw controleren of de propertyNaam bestaat 
+	// Opnieuw controleren of de propertyNaam bestaat. Dit is dus enkel voor de uitzonderlijke properties die niet 1-op-1 overeenkomen met .NET, en waar dus een correctie nodig was. 
+	Do ..ValideerPropertyNaam(KlasseNaam, PropertyNaam)
+	
+	Quit PropertyNaam
+]]></Implementation>
+</Method>
+
+<Method name="ValideerKlasseNaam">
+<FormalSpec>KlasseNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	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 ##class(TECH.Exceptions.GeneralErrorException).Throw(ErrorMessage)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ValideerPropertyNaam">
+<FormalSpec>KlasseNaam:%String,PropertyNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	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 ##class(TECH.Exceptions.GeneralErrorException).Throw(ErrorMessage)
 	}
-	
-	Quit PropertyNaam
 ]]></Implementation>
 </Method>
 </Class>