Index: DOM/PM/Maatwerk/Calc/HF/IHalffabItem.cls.xml
===================================================================
diff -u -r67700 -r71238
--- DOM/PM/Maatwerk/Calc/HF/IHalffabItem.cls.xml	(.../IHalffabItem.cls.xml)	(revision 67700)
+++ DOM/PM/Maatwerk/Calc/HF/IHalffabItem.cls.xml	(.../IHalffabItem.cls.xml)	(revision 71238)
@@ -138,12 +138,11 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	If $$$Not($IsObject(..GeefContext())) {
-		// Tijdelijke work-around alleen voor MVX (want ..Context is niet aanwezig omdat de berekening in .NET gebeurd is.  
-		//  Mogelijke oplossing door de HalffabContext mee te geven aan de constructor van deze klasse, nl in  WSimpl.PM.Maatwerk.MaatwerkService.DotNet.HalffabrikatenFromJsonNaarDomConverter.cls, method MaakHalffabItem() 
-		//  Of door de dependency tussen HalffabItem en (Familie/Variant) en MaatwerkTypeCodeBepaler correct te leggen. 
-		//  Onderstaande command gaat voor problemen zorgen wannneer niet enkel voor MVX, maar ook bvb. LBX door .NET berekend zal worden. Zie OmleidingNaarDotNetBepaler.IsMaatwerkCalculatieInDotNet() 
-		Quit ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext.MaatwerkTypeCodeBepaler).%New().GeefMaatwerkTypeCode("Lade", "MVX")   // dit is nog steeds quick and dirty 
+		#dim Omschrijving As %String = "Om de MaatwerkTypeCode op te halen is de aanwezigheid van een Context nodig, die van Cache zelf of de afgeslankte versie in functie van DotNet (DOM.PM.Maatwerk.Calc.HF.DotNetHalffabContext). "
+		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(Omschrijving)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
+	
 	Quit ..GeefContext().GeefMaatwerkTypeCode()
 ]]></Implementation>
 </Method>
Index: APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml
===================================================================
diff -u -r70150 -r71238
--- APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml	(.../BerekeningServiceProduct.cls.xml)	(revision 70150)
+++ APPS/PM/Maatwerk/impl/BerekeningServiceProduct.cls.xml	(.../BerekeningServiceProduct.cls.xml)	(revision 71238)
@@ -121,7 +121,7 @@
 			#dim KostItem As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem
 			
 			#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = ..DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerken, KlantID, Aantal, ProductData)
-			Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails)
+			Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails, IngegevenKenmerken)
 			Set KostItem = ..MaatwerkDetailsConvertor.GeefKostItems(MaatwerkDetails)
 			
 			Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New()
@@ -164,7 +164,7 @@
 	#dim IsBerekeningViaDotNetMaatwerkService As %Boolean = ..OmleidingNaarDotNetBepaler.IsMaatwerkCalculatieInDotNet(IngegevenKenmerken.GeefVariant(),IngegevenKenmerken.GeefVersieNr())
 	If IsBerekeningViaDotNetMaatwerkService {
 		#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = ..DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerken, KlantID, Aantal, ProductData)
-		Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails)
+		Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails, IngegevenKenmerken)
 		Set KostItem = ..MaatwerkDetailsConvertor.GeefKostItems(MaatwerkDetails)
 	} Else {
 		Set HalffabItemsBoom = ..GeefHalffabItemsBoomViaCachee(IngegevenKenmerken, BerekeningsSpecificatie)
Index: DOM/PM/impl/MaatwerkCalcAPI.cls.xml
===================================================================
diff -u -r70025 -r71238
--- DOM/PM/impl/MaatwerkCalcAPI.cls.xml	(.../MaatwerkCalcAPI.cls.xml)	(revision 70025)
+++ DOM/PM/impl/MaatwerkCalcAPI.cls.xml	(.../MaatwerkCalcAPI.cls.xml)	(revision 71238)
@@ -183,7 +183,7 @@
 		#dim IsBerekeningViaDotNetMaatwerkService As %Boolean = ..IsBerekeningViaDotNetMaatwerkService(IngegevenKenmerken)
 		If IsBerekeningViaDotNetMaatwerkService {
 			#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = ..DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerken, KlantID, Hoeveelheid)
-			Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails)
+			Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails, IngegevenKenmerken)
 			Set KostItem = ..MaatwerkDetailsConvertor.GeefKostItems(MaatwerkDetails)
 		} Else {
 			#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant(), BerekeningSpecificatie)
Index: APPS/Halux/common/impl/DotNet/ProductieAansturingService.cls.xml
===================================================================
diff -u -r70907 -r71238
--- APPS/Halux/common/impl/DotNet/ProductieAansturingService.cls.xml	(.../ProductieAansturingService.cls.xml)	(revision 70907)
+++ APPS/Halux/common/impl/DotNet/ProductieAansturingService.cls.xml	(.../ProductieAansturingService.cls.xml)	(revision 71238)
@@ -35,7 +35,7 @@
 	
 	Try {
 		#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = ..DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerken, KlantId, Aantal,,, BerekeningWijze)
-		Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails)
+		Set HalffabItemsBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails, IngegevenKenmerken)
 	} Catch {
 		#dim InnerException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Probleem met teruggeven van de HalffabItemsBoomDotNetBased")
Index: APPS/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r64480 -r71238
--- APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 64480)
+++ APPS/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 71238)
@@ -104,7 +104,7 @@
 	If IsBerekeningViaDotNetMaatwerkService {
 		#dim DotNetMaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = DotNetMaatwerkService.GeefMaatwerkDetails(IngegevenKenmerkenDomain, KlantID, Aantal,)
 		
-		Set HalffabItemsBoom = MaatwerkDetailsConvertor.GeefHalffabItemsBoom(DotNetMaatwerkDetails)
+		Set HalffabItemsBoom = MaatwerkDetailsConvertor.GeefHalffabItemsBoom(DotNetMaatwerkDetails, IngegevenKenmerkenDomain)
 		Set MaatwerkDetails.Halffabrikaten = HalffabItemNaarDtoConverter.ConverteerNaarHalffabItemDto(HalffabItemsBoom.Wortel)
 		
 		Set KostItem = MaatwerkDetailsConvertor.GeefKostItems(DotNetMaatwerkDetails)
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonNaarDomConverter.cls.xml
===================================================================
diff -u -r63431 -r71238
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonNaarDomConverter.cls.xml	(.../MaatwerkDetailsFromJsonNaarDomConverter.cls.xml)	(revision 63431)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/MaatwerkDetailsFromJsonNaarDomConverter.cls.xml	(.../MaatwerkDetailsFromJsonNaarDomConverter.cls.xml)	(revision 71238)
@@ -33,12 +33,12 @@
 </Method>
 
 <Method name="GeefHalffabItemsBoom">
-<FormalSpec>MaatwerkDetailsFromJson:APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson</FormalSpec>
+<FormalSpec>MaatwerkDetailsFromJson:APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
 	Do ..ValideerMaatwerkDetails(MaatwerkDetailsFromJson)
 	
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..HalffabrikatenConverter.GeefHalffabItemsBoom(MaatwerkDetailsFromJson.Halffabrikaten)
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..HalffabrikatenConverter.GeefHalffabItemsBoom(MaatwerkDetailsFromJson.Halffabrikaten, IngegevenKenmerken)
 	Set HalffabItemsBoom.VerwijderdeHalffabItems = ..VerwijderdeHalffabItemsConverter.ConverteerVerwijderdeHalffabItems(MaatwerkDetailsFromJson.VerwijderdeHalffabItems)
 	Quit HalffabItemsBoom
 ]]></Implementation>
Index: WSimpl/PM/Maatwerk/Viewer/Viewer.cls.xml
===================================================================
diff -u -r66850 -r71238
--- WSimpl/PM/Maatwerk/Viewer/Viewer.cls.xml	(.../Viewer.cls.xml)	(revision 66850)
+++ WSimpl/PM/Maatwerk/Viewer/Viewer.cls.xml	(.../Viewer.cls.xml)	(revision 71238)
@@ -143,7 +143,7 @@
 	#dim IsBerekeningViaDotNetMaatwerkService As %Boolean = ..OmleidingNaarDotNetBepaler.IsMaatwerkCalculatieInDotNet(DOMIngegevenKenmerken.GeefVariant(), DOMIngegevenKenmerken.GeefVersieNr())
 	If IsBerekeningViaDotNetMaatwerkService {
 		#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson = ..DotNetMaatwerkService.GeefMaatwerkDetails(DOMIngegevenKenmerken, KlantID, MaatwerkViewerRequest.Aantal, "")
-		Set HFBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails)
+		Set HFBoom = ..MaatwerkDetailsConvertor.GeefHalffabItemsBoom(MaatwerkDetails, DOMIngegevenKenmerken)
 		Set KostenBoom = ..MaatwerkDetailsConvertor.GeefKostItems(MaatwerkDetails)
 	} Else {
 		Set HFBoom = ..MaatwerkCalcAPI.GeefHalffabItemsBoom(DOMIngegevenKenmerken,MaatwerkViewerRequest.Aantal,KlantID,,,MaatwerkViewerRequest.Datum)
Index: DOM/PM/Maatwerk/Calc/HF/DotNetHalffabContext.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/DotNetHalffabContext.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/DotNetHalffabContext.cls.xml	(revision 71238)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.DotNetHalffabContext">
+<Super>DOM.PM.Maatwerk.Calc.HF.HalffabContext</Super>
+
+<Method name="%OnNew">
+<FormalSpec>Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.Variant,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie="",HalffabRepository:DOM.PM.Maatwerk.Calc.HF.IHalffabRepository=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Familie = Familie
+	Set ..Variant = ..GeefVariant(Variant)
+	Set ..BerekeningsSpecificatie = ""
+	Set ..KlantOrderInstellingen = ""
+	Set ..BerekenDatum = ""
+	
+	Set ..HalffabSpec = ""
+	Set ..BewerkingsInfoTabel = ""
+ 	Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+ 	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/ClassnameFromJsonNaarDomConverter.cls.xml
===================================================================
diff -u -r70978 -r71238
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/ClassnameFromJsonNaarDomConverter.cls.xml	(.../ClassnameFromJsonNaarDomConverter.cls.xml)	(revision 70978)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/ClassnameFromJsonNaarDomConverter.cls.xml	(.../ClassnameFromJsonNaarDomConverter.cls.xml)	(revision 71238)
@@ -31,6 +31,10 @@
 <Implementation><![CDATA[
 	#dim CacheClassname As %String = ..ExtractClassnameFromJson(HalffabItemParsedFromJson.DollarType)
 	
+	If $$$Not(HalffabItemParsedFromJson.KlassenaamHalffabItem = "") {
+		Set CacheClassname = ##class(TECH.StringUtils).GetLastPart(HalffabItemParsedFromJson.KlassenaamHalffabItem,".")
+	}
+		
 	Quit ..GeefVolledigeKlasseNaam(..PackageVoorDomLaag_".HF", CacheClassname)
 ]]></Implementation>
 </Method>
@@ -99,9 +103,46 @@
 <FormalSpec>PackageNaam:%String,KlasseNaam:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Append(PackageNaam, KlasseNaam, ".")
+<Implementation><![CDATA[
+	#dim FullPackageNaam As %String = PackageNaam
+	
+	If (##class(TECH.StringUtils).Equals(KlasseNaam, "ZijkantPlaatHalffabItem", "RugPlaatHalffabItem", "LosseComponentenZRFHalffabItem", "BOGHalffabItem", "ZRFZijkantLinksHalffabItem", "ZRFZijkantRechtsHalffabItem", 
+	"ZRFFrontHalffabItem", "ZRFRugHalffabItem", "BOGZijkantLinksHalffabItem", "BOGZijkantRechtsHalffabItem", "BOGFrontHalffabItem", "BOGRugHalffabItem", "BOGBodemHalffabItem")) {
+		Set FullPackageNaam = FullPackageNaam _ ".impl.TAOR.HalffabItem"
+		Set KlasseNaam = ..GeefCacheKlasseNaamVoorDotNetKlasseNaam(KlasseNaam)
+	} ElseIf (##class(TECH.StringUtils).Equals(KlasseNaam, "BodemDeksel")) {
+		Set FullPackageNaam = FullPackageNaam _ ".impl.HalffabItem"
+		Set KlasseNaam = ..GeefCacheKlasseNaamVoorDotNetKlasseNaam(KlasseNaam)
+	}
+	
+	Quit ##class(TECH.StringUtils).Append(FullPackageNaam, KlasseNaam, ".")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefCacheKlasseNaamVoorDotNetKlasseNaam">
+<FormalSpec>KlasseNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ClassName As %String = KlasseNaam
+	
+	Quit:(KlasseNaam="ZijkantPlaatHalffabItem") "ZijkantPlaat"
+	Quit:(KlasseNaam="RugPlaatHalffabItem") "RugPlaat"
+	
+	Quit:(KlasseNaam="ZRFZijkantLinksHalffabItem") "Verpakkingv001LosseComponentenZRFZijkantLinks"
+	Quit:(KlasseNaam="ZRFZijkantRechtsHalffabItem") "Verpakkingv001LosseComponentenZRFZijkantRechts"
+	Quit:(KlasseNaam="ZRFFrontHalffabItem") "Verpakkingv001LosseComponentenZRFFront"
+	Quit:(KlasseNaam="ZRFRugHalffabItem") "Verpakkingv001LosseComponentenZRFRug"
+	
+	Quit:(KlasseNaam="BOGZijkantLinksHalffabItem") "Verpakkingv001BulkPerOnderdeelGegroepeerdZijkantLinks"
+	Quit:(KlasseNaam="BOGZijkantRechtsHalffabItem") "Verpakkingv001BulkPerOnderdeelGegroepeerdZijkantRechts"
+	Quit:(KlasseNaam="BOGFrontHalffabItem") "Verpakkingv001BulkPerOnderdeelGegroepeerdFront"
+	Quit:(KlasseNaam="BOGRugHalffabItem") "Verpakkingv001BulkPerOnderdeelGegroepeerdRug"
+	Quit:(KlasseNaam="BOGBodemHalffabItem") "Verpakkingv001BulkPerOnderdeelGegroepeerdBodem"
+	
+	Quit ClassName
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml
===================================================================
diff -u -r68935 -r71238
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 68935)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 71238)
@@ -18,6 +18,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DotNetHalffabContext">
+<Type>DOM.PM.Maatwerk.Calc.HF.DotNetHalffabContext</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="HalffabItemsBoom">
 <Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
 <Private>1</Private>
@@ -59,14 +64,16 @@
 </Method>
 
 <Method name="GeefHalffabItemsBoom">
-<FormalSpec>Halffabrikaten:APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson</FormalSpec>
+<FormalSpec>Halffabrikaten:APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
 	Do ..ValideerHalffabrikaten(Halffabrikaten)
 	
 	Set ..RolNaamValidator = ..RolNaamValidatorFactory.GeefRolNaamValidator(Halffabrikaten.Rol)
 	Set ..IsSubItemVanMaatwerkProductHalffabItem = $$$False
-
+	
+	Set ..DotNetHalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.DotNetHalffabContext).%New(IngegevenKenmerken.GeefFamilie(), IngegevenKenmerken.GeefVariant())
+	
 	Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	Set ..HalffabItemsBoom.Wortel = ..GeefHalffabItem(Halffabrikaten)
 	
@@ -111,11 +118,13 @@
 <Implementation><![CDATA[
 	#dim Classname As %String = ..ClassnameFromJsonNaarDomConverter.GeefCacheClassnameVoorHalffabItem(HalffabItemParsedFromJson)
 	#dim HF As APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson = HalffabItemParsedFromJson
+	#dim WaardenIterator As TECH.Iterator
+	#dim BewerkingDimensie As %String
 	
 	If Classname = "DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem" {
 		Set:(..IsResultaatVanGekoppeldKenmerk(HF.Rol)) ..IsSubItemVanGekoppeldKenmerkHalffabItem = $$$True
 		
-		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("",HF.Rol)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(..DotNetHalffabContext,HF.Rol)
 		Set HalffabItemIterator = ##class(TECH.ListIterator).%New(HalffabItemParsedFromJson.HalffabItems)
 		While (HalffabItemIterator.HasNext()) {
 			#dim SubHalffabItemParsedFromJson As APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson = HalffabItemIterator.Next()
@@ -144,7 +153,7 @@
 		If (IngegevenKenmerken = "") {
 			Do ##class(TECH.Exceptions.InvalidInputException).Throw("Foutieve data bij MaatwerkProductHalffabItem: IngegevenKenmerken zijn niet ingevuld.")
 		}
-		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.MaatwerkProductHalffabItem).%New("", HF.Rol, HF.Familie, HF.Variant, IngegevenKenmerken)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.MaatwerkProductHalffabItem).%New(..DotNetHalffabContext, HF.Rol, HF.Familie, HF.Variant, IngegevenKenmerken)
 		Set HalffabItemIterator = ##class(TECH.ListIterator).%New(HalffabItemParsedFromJson.HalffabItems)
 		Set ..IsSubItemVanMaatwerkProductHalffabItem = $$$True
 		While (HalffabItemIterator.HasNext()) {
@@ -159,7 +168,7 @@
 	}
 	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem" {
 		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
-		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", HF.Rol, Halffab)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(..DotNetHalffabContext, HF.Rol, Halffab)
 		
 		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
 		Set HalffabItem.Gewicht 						= +(HalffabItemParsedFromJson.Gewicht)
@@ -172,9 +181,81 @@
 		Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
 		Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
 	}
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRFFront" {
+		#dim HalffabZRFFront As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRFFront).%New(..DotNetHalffabContext, HF.Rol, HalffabZRFFront)
+		
+		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
+		Set HalffabItem.Gewicht 						= +(HalffabItemParsedFromJson.Gewicht)
+		Do HalffabItem.ZetMagazijnZoneID(HalffabItemParsedFromJson.MagazijnZoneID)
+		Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs)
+		Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking)
+		Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument		
+		Set HalffabItem.OpnemenInEindproduct 			= HalffabItemParsedFromJson.OpnemenInEindproduct
+		Set HalffabItem.ProductieRoute 					= HalffabItemParsedFromJson.ProductieRoute
+		Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
+		Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
+		Do HalffabItem.ZetAantalVerpakkingen(HalffabItemParsedFromJson.AantalVerpakkingen)
+		Do HalffabItem.ZetTotaalAantalTeVerpakken(HalffabItemParsedFromJson.TotaalAantalTeVerpakken)
+		Do ..ZetCleaneVersieVanAantallenPerVerpakking(HalffabItem, HalffabItemParsedFromJson.AantallenPerVerpakking)
+	}
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRFRug" {
+		#dim HalffabZRFRug As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRFRug).%New(..DotNetHalffabContext, HF.Rol, HalffabZRFRug)
+		
+		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
+		Set HalffabItem.Gewicht 						= +(HalffabItemParsedFromJson.Gewicht)
+		Do HalffabItem.ZetMagazijnZoneID(HalffabItemParsedFromJson.MagazijnZoneID)
+		Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs)
+		Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking)
+		Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument		
+		Set HalffabItem.OpnemenInEindproduct 			= HalffabItemParsedFromJson.OpnemenInEindproduct
+		Set HalffabItem.ProductieRoute 					= HalffabItemParsedFromJson.ProductieRoute
+		Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
+		Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
+		Do HalffabItem.ZetAantalVerpakkingen(HalffabItemParsedFromJson.AantalVerpakkingen)
+		Do HalffabItem.ZetTotaalAantalTeVerpakken(HalffabItemParsedFromJson.TotaalAantalTeVerpakken)
+		Do ..ZetCleaneVersieVanAantallenPerVerpakking(HalffabItem, HalffabItemParsedFromJson.AantallenPerVerpakking)
+	}
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRFZijkantLinks" {
+		#dim HalffabZRFZijkantLinks As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRFZijkantLinks).%New(..DotNetHalffabContext, HF.Rol, HalffabZRFZijkantLinks)
+		
+		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
+		Set HalffabItem.Gewicht 						= +(HalffabItemParsedFromJson.Gewicht)
+		Do HalffabItem.ZetMagazijnZoneID(HalffabItemParsedFromJson.MagazijnZoneID)
+		Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs)
+		Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking)
+		Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument		
+		Set HalffabItem.OpnemenInEindproduct 			= HalffabItemParsedFromJson.OpnemenInEindproduct
+		Set HalffabItem.ProductieRoute 					= HalffabItemParsedFromJson.ProductieRoute
+		Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
+		Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
+		Do HalffabItem.ZetAantalVerpakkingen(HalffabItemParsedFromJson.AantalVerpakkingen)
+		Do HalffabItem.ZetTotaalAantalTeVerpakken(HalffabItemParsedFromJson.TotaalAantalTeVerpakken)
+		Do ..ZetCleaneVersieVanAantallenPerVerpakking(HalffabItem, HalffabItemParsedFromJson.AantallenPerVerpakking)
+	}
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRFZijkantRechts" {
+		#dim HalffabZRFZijkantRechts As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001LosseComponentenZRFZijkantRechts).%New(..DotNetHalffabContext, HF.Rol, HalffabZRFZijkantRechts)
+		
+		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
+		Set HalffabItem.Gewicht 						= +(HalffabItemParsedFromJson.Gewicht)
+		Do HalffabItem.ZetMagazijnZoneID(HalffabItemParsedFromJson.MagazijnZoneID)
+		Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs)
+		Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking)
+		Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument		
+		Set HalffabItem.OpnemenInEindproduct 			= HalffabItemParsedFromJson.OpnemenInEindproduct
+		Set HalffabItem.ProductieRoute 					= HalffabItemParsedFromJson.ProductieRoute
+		Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
+		Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
+		Do HalffabItem.ZetAantalVerpakkingen(HalffabItemParsedFromJson.AantalVerpakkingen)
+		Do HalffabItem.ZetTotaalAantalTeVerpakken(HalffabItemParsedFromJson.TotaalAantalTeVerpakken)
+		Do ..ZetCleaneVersieVanAantallenPerVerpakking(HalffabItem, HalffabItemParsedFromJson.AantallenPerVerpakking)
+	}
 	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem" {
 		#dim HalffabInbegrepen As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
-		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New("", HF.Rol, HalffabInbegrepen)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(..DotNetHalffabContext, HF.Rol, HalffabInbegrepen)
 		
 		// Invullen van ReferentieHalffabItem gebeurt na "Do HalffabItem.VoegToe(SubHalffabItem)"
 		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
@@ -189,8 +270,9 @@
 		Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
 	}
 	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem" {
+		
 		#dim HalffabBewerkt As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
-		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New("", HF.Rol, HalffabBewerkt)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(..DotNetHalffabContext, HF.Rol, HalffabBewerkt)
 		
 		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
 		Set HalffabItem.AantalOverrideVoorBouwstenen 	= HalffabItemParsedFromJson.AantalOverrideVoorBouwstenen //niet casten naar int als dit veld nog niet gebruikt wordt! Anders faalt PRBS 
@@ -208,8 +290,8 @@
 		Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
 		Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
 		
-		#dim WaardenIterator As TECH.Iterator = ##class(TECH.EnumerationUtils).ValueListIteratorVanEnumeratie("DOM.PM.enu.BewerkingDimensie")
-		#dim BewerkingDimensie As %String
+		Set WaardenIterator = ##class(TECH.EnumerationUtils).ValueListIteratorVanEnumeratie("DOM.PM.enu.BewerkingDimensie")
+		
 		while (WaardenIterator.HasNext())
 		{
 			Set BewerkingDimensie = WaardenIterator.Next()
@@ -218,6 +300,136 @@
 			}
 		}
 	}
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.RugPlaat" {
+		
+		#dim HalffabRugPlaat As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.RugPlaat).%New(..DotNetHalffabContext, HF.Rol, HalffabRugPlaat)
+		
+		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
+		Set HalffabItem.AantalOverrideVoorBouwstenen 	= HalffabItemParsedFromJson.AantalOverrideVoorBouwstenen //niet casten naar int als dit veld nog niet gebruikt wordt! Anders faalt PRBS 
+		Set HalffabItem.AfmetingAangerekendPerStuk		= +(HalffabItemParsedFromJson.AfmetingAangerekendPerStuk)
+		Set HalffabItem.AfmetingMetBewerkingVerlies 	= +(HalffabItemParsedFromJson.AfmetingMetBewerkingVerlies)
+		Set HalffabItem.AfmetingTeBekomen 				= +(HalffabItemParsedFromJson.AfmetingTeBekomen)
+		Set HalffabItem.Gewicht 						= +(HalffabItemParsedFromJson.Gewicht)
+		Do HalffabItem.ZetMagazijnZoneID(HalffabItemParsedFromJson.MagazijnZoneID)
+		Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs)
+		Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking)
+		Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument
+		Set HalffabItem.OpnemenInEindproduct 			= HalffabItemParsedFromJson.OpnemenInEindproduct
+		Set HalffabItem.TeBekomenAantal 				= +(HalffabItemParsedFromJson.TeBekomenAantal)
+		Set HalffabItem.ProductieRoute 					= HalffabItemParsedFromJson.ProductieRoute
+		Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
+		Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
+		Do HalffabItem.ZetBreedteInMM(HalffabItemParsedFromJson.BreedteInMm)
+		
+		Set WaardenIterator = ##class(TECH.EnumerationUtils).ValueListIteratorVanEnumeratie("DOM.PM.enu.BewerkingDimensie")
+		
+		while (WaardenIterator.HasNext())
+		{
+			Set BewerkingDimensie = WaardenIterator.Next()
+			If $$$Not(HalffabItemParsedFromJson.BewerkingDimensies.GetAt(BewerkingDimensie) = $$$NULLOREF) {
+				Do HalffabItem.ZetBewerkteDimensie(BewerkingDimensie,+(HalffabItemParsedFromJson.BewerkingDimensies.GetAt(BewerkingDimensie)))
+			}
+		}
+	}
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.ZijkantPlaat" {
+		
+		#dim HalffabZijkantPlaat As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.ZijkantPlaat).%New(..DotNetHalffabContext, HF.Rol, HalffabZijkantPlaat)
+		
+		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
+		Set HalffabItem.AantalOverrideVoorBouwstenen 	= HalffabItemParsedFromJson.AantalOverrideVoorBouwstenen //niet casten naar int als dit veld nog niet gebruikt wordt! Anders faalt PRBS 
+		Set HalffabItem.AfmetingAangerekendPerStuk		= +(HalffabItemParsedFromJson.AfmetingAangerekendPerStuk)
+		Set HalffabItem.AfmetingMetBewerkingVerlies 	= +(HalffabItemParsedFromJson.AfmetingMetBewerkingVerlies)
+		Set HalffabItem.AfmetingTeBekomen 				= +(HalffabItemParsedFromJson.AfmetingTeBekomen)
+		Set HalffabItem.Gewicht 						= +(HalffabItemParsedFromJson.Gewicht)
+		Do HalffabItem.ZetMagazijnZoneID(HalffabItemParsedFromJson.MagazijnZoneID)
+		Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs)
+		Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking)
+		Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument
+		Set HalffabItem.OpnemenInEindproduct 			= HalffabItemParsedFromJson.OpnemenInEindproduct
+		Set HalffabItem.TeBekomenAantal 				= +(HalffabItemParsedFromJson.TeBekomenAantal)
+		Set HalffabItem.ProductieRoute 					= HalffabItemParsedFromJson.ProductieRoute
+		Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
+		Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
+		Do HalffabItem.ZetZijkantRol(HalffabItemParsedFromJson.ZijkantRol)
+		Do HalffabItem.ZetZijkantPlaatRol(HalffabItemParsedFromJson.ZijkantPlaatRol)
+		
+		Set WaardenIterator = ##class(TECH.EnumerationUtils).ValueListIteratorVanEnumeratie("DOM.PM.enu.BewerkingDimensie")
+		
+		while (WaardenIterator.HasNext())
+		{
+			Set BewerkingDimensie = WaardenIterator.Next()
+			If $$$Not(HalffabItemParsedFromJson.BewerkingDimensies.GetAt(BewerkingDimensie) = $$$NULLOREF) {
+				Do HalffabItem.ZetBewerkteDimensie(BewerkingDimensie,+(HalffabItemParsedFromJson.BewerkingDimensies.GetAt(BewerkingDimensie)))
+			}
+		}
+	}
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerdBodem" {
+		
+		#dim HalffabVerpakkingv001BulkPerOnderdeelGegroepeerdBodem As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerdBodem).%New(..DotNetHalffabContext, HF.Rol, HalffabVerpakkingv001BulkPerOnderdeelGegroepeerdBodem)
+		
+		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
+		Set HalffabItem.AantalOverrideVoorBouwstenen 	= HalffabItemParsedFromJson.AantalOverrideVoorBouwstenen //niet casten naar int als dit veld nog niet gebruikt wordt! Anders faalt PRBS 
+		Set HalffabItem.AfmetingAangerekendPerStuk		= +(HalffabItemParsedFromJson.AfmetingAangerekendPerStuk)
+		Set HalffabItem.AfmetingMetBewerkingVerlies 	= +(HalffabItemParsedFromJson.AfmetingMetBewerkingVerlies)
+		Set HalffabItem.AfmetingTeBekomen 				= +(HalffabItemParsedFromJson.AfmetingTeBekomen)
+		Set HalffabItem.Gewicht 						= +(HalffabItemParsedFromJson.Gewicht)
+		Do HalffabItem.ZetMagazijnZoneID(HalffabItemParsedFromJson.MagazijnZoneID)
+		Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs)
+		Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking)
+		Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument
+		Set HalffabItem.OpnemenInEindproduct 			= HalffabItemParsedFromJson.OpnemenInEindproduct
+		Set HalffabItem.TeBekomenAantal 				= +(HalffabItemParsedFromJson.TeBekomenAantal)
+		Set HalffabItem.ProductieRoute 					= HalffabItemParsedFromJson.ProductieRoute
+		Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
+		Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
+		Do HalffabItem.ZetAantalVerpakkingen(HalffabItemParsedFromJson.AantalVerpakkingen)
+		Do HalffabItem.ZetTotaalAantalTeVerpakken(HalffabItemParsedFromJson.TotaalAantalTeVerpakken)
+		Do ..ZetCleaneVersieVanAantallenPerVerpakking(HalffabItem, HalffabItemParsedFromJson.AantallenPerVerpakking)
+		
+		Set WaardenIterator = ##class(TECH.EnumerationUtils).ValueListIteratorVanEnumeratie("DOM.PM.enu.BewerkingDimensie")
+		
+		while (WaardenIterator.HasNext())
+		{
+			Set BewerkingDimensie = WaardenIterator.Next()
+			If $$$Not(HalffabItemParsedFromJson.BewerkingDimensies.GetAt(BewerkingDimensie) = $$$NULLOREF) {
+				Do HalffabItem.ZetBewerkteDimensie(BewerkingDimensie,+(HalffabItemParsedFromJson.BewerkingDimensies.GetAt(BewerkingDimensie)))
+			}
+		}
+	}
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.impl.HalffabItem.BodemDeksel" {
+		
+		#dim HalffabBodemDeksel As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItem.BodemDeksel).%New(..DotNetHalffabContext, HF.Rol, HalffabBodemDeksel)
+		
+		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
+		Set HalffabItem.AantalOverrideVoorBouwstenen 	= HalffabItemParsedFromJson.AantalOverrideVoorBouwstenen //niet casten naar int als dit veld nog niet gebruikt wordt! Anders faalt PRBS 
+		Set HalffabItem.AfmetingAangerekendPerStuk		= +(HalffabItemParsedFromJson.AfmetingAangerekendPerStuk)
+		Set HalffabItem.AfmetingMetBewerkingVerlies 	= +(HalffabItemParsedFromJson.AfmetingMetBewerkingVerlies)
+		Set HalffabItem.AfmetingTeBekomen 				= +(HalffabItemParsedFromJson.AfmetingTeBekomen)
+		Set HalffabItem.Gewicht 						= +(HalffabItemParsedFromJson.Gewicht)
+		Do HalffabItem.ZetMagazijnZoneID(HalffabItemParsedFromJson.MagazijnZoneID)
+		Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs)
+		Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking)
+		Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument
+		Set HalffabItem.OpnemenInEindproduct 			= HalffabItemParsedFromJson.OpnemenInEindproduct
+		Set HalffabItem.TeBekomenAantal 				= +(HalffabItemParsedFromJson.TeBekomenAantal)
+		Set HalffabItem.ProductieRoute 					= HalffabItemParsedFromJson.ProductieRoute
+		Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
+		Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
+		
+		Set WaardenIterator = ##class(TECH.EnumerationUtils).ValueListIteratorVanEnumeratie("DOM.PM.enu.BewerkingDimensie")
+		
+		while (WaardenIterator.HasNext())
+		{
+			Set BewerkingDimensie = WaardenIterator.Next()
+			If $$$Not(HalffabItemParsedFromJson.BewerkingDimensies.GetAt(BewerkingDimensie) = $$$NULLOREF) {
+				Do HalffabItem.ZetBewerkteDimensie(BewerkingDimensie,+(HalffabItemParsedFromJson.BewerkingDimensies.GetAt(BewerkingDimensie)))
+			}
+		}
+	}
 	Else {
 		Do ##class(TECH.Exceptions.UnimplementedException).Throw("Geen implementatie voor halffabitem klasse '"_Classname_"'")
 	}
@@ -307,6 +519,23 @@
 	Quit IsGekoppeldKenmerk
 ]]></Implementation>
 </Method>
+
+<Method name="ZetCleaneVersieVanAantallenPerVerpakking">
+<FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem,AantallenPerVerpakking:%ArrayOfDataTypes]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ArrayToString As %String = ##class(TECH.ArrayUtils).ArrayToPieces(AantallenPerVerpakking)
+	#dim BevatArrayToStringEffectiefEenArray As %Boolean = $$$Not(##class(TECH.StringUtils).StartsWith(ArrayToString, "[DollarType]"))
+	
+	If BevatArrayToStringEffectiefEenArray {
+		#dim StringVersieVanArrayInput As %String = ##class(TECH.StringUtils).GetFirstPart(ArrayToString, "\")
+		#dim VerpakkingAantal As %Integer = ##class(TECH.StringUtils).VerwijderKarakterUitString(##class(TECH.StringUtils).GetFirstPart(StringVersieVanArrayInput, "]"), "[")
+		#dim Aantal As %Integer = ##class(TECH.StringUtils).GetLastPart(StringVersieVanArrayInput, "=")
+		
+		Do HalffabItem.ZetAantalPerVerpakking(VerpakkingAantal, Aantal)
+	}
+]]></Implementation>
+</Method>
 </Class>