Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabFromJsonBepaler.cls.xml
===================================================================
diff -u -r63162 -r63249
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabFromJsonBepaler.cls.xml	(.../HalffabFromJsonBepaler.cls.xml)	(revision 63162)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabFromJsonBepaler.cls.xml	(.../HalffabFromJsonBepaler.cls.xml)	(revision 63249)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ClassnameFromJsonNaarDomConverter">
+<Type>WSimpl.PM.Maatwerk.MaatwerkService.DotNet.ClassnameFromJsonNaarDomConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>initvalue:%CacheString</FormalSpec>
 <Private>1</Private>
@@ -16,6 +21,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..HalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New()
+	Set ..ClassnameFromJsonNaarDomConverter = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.ClassnameFromJsonNaarDomConverter).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -26,6 +32,10 @@
 <Implementation><![CDATA[
 	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ""
 	
+ /*   * /
+	// DEPRECATED werkwijze : gepersisteerde halffab ophalen via de HalffabRepository, op basis van het doorgegeven ProductID. 
+	// 						  Deze manier geeft onvoldoende zekerheid dat we het juiste halffab ophalen (in sommige gevallen, bvb. Bodem/Rug). 
+	
 	If $$$HasLength(HalffabItemParsedFromJson.ProductData.Id) {
 		Set Halffab = ..HalffabRepository.GeefHalffabVoorProductID(HalffabItemParsedFromJson.ProductData.Id)
 		If $$$Not($IsObject(Halffab)) {
@@ -34,6 +44,37 @@
 	} Else {
 		#dim Logger = ##class(vhLib.Logger).%New("JsonNaarDomConverter .NET").ErrorMail("Er is geen productId meegegeven voor rol: "_HalffabItemParsedFromJson.Rol)
 	}
+ /*   */
+	
+	
+	// NIEUWE werkwijze : nieuwe halffab aanmaken (in-memory, niet persisteren), en de kenmerken invullen op basis van de doorgegeven data (via .json) 
+	
+	If ($IsObject(HalffabItemParsedFromJson.Halffab)) {
+		#dim HalffabDtoParsedFromJson As APPS.PM.Maatwerk.dto.DotNet.HalffabDtoParsedFromJson = HalffabItemParsedFromJson.Halffab
+		#dim Classname As %String = ..ClassnameFromJsonNaarDomConverter.GeefCacheClassnameVoorHalffab(HalffabDtoParsedFromJson)
+		
+		// TODO : Eerst controleren of Classname een CompiledClass is 
+		
+		Set Halffab = $classmethod(Classname,"%New",HalffabDtoParsedFromJson.ProductID)
+		Set Halffab.Klantbeperking = HalffabDtoParsedFromJson.Klantbeperking
+		Set Halffab.GeldigVan = HalffabDtoParsedFromJson.GeldigVan
+		Set Halffab.GeldigTot = HalffabDtoParsedFromJson.GeldigTot
+		Set Halffab.GemaaktVoorKenmerkenSetID = HalffabDtoParsedFromJson.GemaaktVoorKenmerkenSetID
+		
+		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")
+			
+			If PropertyNaam = "RugwandMateriaal" Set PropertyNaam = "RugWandMateriaal"
+			
+			Set $property(Halffab,PropertyNaam) = KenmerkWaarde
+		}
+		
+	}
+	
 	Quit Halffab
 ]]></Implementation>
 </Method>