Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml
===================================================================
diff -u -r72865 -r75118
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 72865)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 75118)
@@ -28,13 +28,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="RolnaamProcessor">
+<Type>APPS.PM.Maatwerk.impl.VhConfig.Converter.RolnaamProcessor</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VhConfig:APPS.PM.Maatwerk.dto.VhConfig,ProductAPI:DOM.PM.impl.ProductAPI=""</FormalSpec>
+<FormalSpec>VhConfig:APPS.PM.Maatwerk.dto.VhConfig,ProductAPI:DOM.PM.impl.ProductAPI="",RolnaamProcessor:APPS.PM.Maatwerk.impl.VhConfig.Converter.RolnaamProcessor=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..VhConfig = VhConfig
-	Set ..VhConfigHelper = ##class(APPS.PM.Maatwerk.impl.VhConfigHelper).%New(..VhConfig)
+	Set ..VhConfigHelper = ##class(APPS.PM.Maatwerk.impl.VhConfigHelper).%New()
+	Do ..VhConfigHelper.ZetVhConfig(..VhConfig)
 	Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..RolnaamProcessor = $$$Inject(RolnaamProcessor, ##class(APPS.PM.Maatwerk.impl.VhConfig.Converter.RolnaamProcessor).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -47,65 +54,106 @@
 	
 	Set ..HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.DotNetHalffabContext).%New(..VhConfigHelper.GeefIngegevenKenmerken().GeefFamilie(), ..VhConfigHelper.GeefIngegevenKenmerken().GeefVariant())
 	Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
-	//Set ..HalffabItemsBoom.Wortel = ..GeefHalffabItem(Halffabrikaten)
 	
+	#dim Halffabrikaat As APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat = ""
+	#dim Rol As %String = ""
 	While HalffabrikatenListIterator.HasNext()
 	{
-		#dim Halffabrikaat As APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat = HalffabrikatenListIterator.Next()
-		#dim Rol As %String = HalffabrikatenListIterator.Key()
-		Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat)
+		Set Halffabrikaat = HalffabrikatenListIterator.Next()
+		If ($$$Not(Halffabrikaat.Type = "Included")) {
+			Set Rol = HalffabrikatenListIterator.Key()
+			Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat, ..VhConfigHelper.GeefIngegevenKenmerken().GeefVariant())
+		}		
 	}
 	
-	//Do ..VoegToeVerwijderdeHalffabItems()
+	Do HalffabrikatenListIterator.Reset()
+	While HalffabrikatenListIterator.HasNext()
+	{
+		Set Halffabrikaat = HalffabrikatenListIterator.Next()
+		If (Halffabrikaat.Type = "Included") {
+			Set Rol = HalffabrikatenListIterator.Key()
+			Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat, ..VhConfigHelper.GeefIngegevenKenmerken().GeefVariant())
+		}		
+	}
 	
 	Quit ..HalffabItemsBoom
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeHalffabrikaat">
-<FormalSpec>Rol:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat</FormalSpec>
+<FormalSpec>RolnaamVoorEncoway:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat,Variant:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim SGHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem
+	#dim SGSstHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem
 	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
-	#dim IsDeelVanSamenGesteldHalffabItem As %Boolean = $$$False
+	#dim IsDeelVanSamengesteldHalffabItem As %Boolean = $$$False
+	#dim IsDeelVanSSTVerpakkingSamengesteldHalffabItem As %Boolean = $$$False
 	
-	If ((##class(TECH.StringUtils).Contains(Rol, ".")) || ..IsResultaatVanGekoppeldKenmerk(Rol)) {
+	#dim RolnaamVoorCache As %String = ..RolnaamProcessor.GeefRolnaamVoorCache(RolnaamVoorEncoway, Variant)	
+	If ((##class(TECH.StringUtils).Contains(RolnaamVoorCache, ".")) || ..RolnaamProcessor.IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
 		#dim SGRol As %String = ""
-		If (..IsResultaatVanGekoppeldKenmerk(Rol)) {
-			Set SGRol = ..GeefRolnaamVanGekoppeldKenmerk(Rol)
+		If (..RolnaamProcessor.IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
+			If ((..RolnaamProcessor.IsGekoppeldeSST(RolnaamVoorCache)) && (##class(TECH.StringUtils).Contains(RolnaamVoorCache, "SST.Verpakking"))) {
+				Set IsDeelVanSSTVerpakkingSamengesteldHalffabItem = $$$True
+			}
+			
+			Set SGRol = ..RolnaamProcessor.GeefRolnaamVanGekoppeldKenmerk(RolnaamVoorCache)
 		} Else {
-			Set SGRol = $Piece(Rol, ".", 1)
+			Set SGRol = $Piece(RolnaamVoorCache, ".", 1)
 		}
+
+		Set IsDeelVanSamengesteldHalffabItem = $$$True
 		
-		Set IsDeelVanSamenGesteldHalffabItem = $$$True
-		
 		If $$$Not(..HalffabItemsBoom.BevatRol(SGRol)) {
 			Set SGHalffabItem = ..GeefSamengesteldHalffabItem(SGRol)
 			Do ..HalffabItemsBoom.AddHalffabItem(SGHalffabItem)
 		} Else {
 			Set SGHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(SGRol)
 		}
 		
-		If (..IsResultaatVanGekoppeldKenmerk(Rol)) {
-			Set Rol = $Piece(Rol, ".", 1)
+		If (IsDeelVanSSTVerpakkingSamengesteldHalffabItem) {
+			If ($$$Not($IsObject(SGHalffabItem.GeefHalffabItem("Verpakking")))) {
+				Set SGSstHalffabItem = ..GeefSamengesteldHalffabItem("Verpakking")
+				Do SGHalffabItem.VoegToe(SGSstHalffabItem)
+			} Else {
+				Set SGSstHalffabItem = SGHalffabItem.GeefHalffabItem("Verpakking")
+			}
+		}
+
+		If (..RolnaamProcessor.IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
+			If (..RolnaamProcessor.IsGekoppeldeMat(RolnaamVoorCache)) {
+				Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 1)	
+			}
+			If (..RolnaamProcessor.IsGekoppeldeSST(RolnaamVoorCache)) {
+				If (IsDeelVanSSTVerpakkingSamengesteldHalffabItem) { Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 3) }
+				Else { Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 2) }
+			}
 		} Else {
-			Set Rol = $Piece(Rol, ".", 2)
+			Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 2)
 		}
 	}
 	
-	If (Halffabrikaat.Type = "Standaard") {
-		Set HalffabItem = ..GeefStandaardHalffabItem(Rol, Halffabrikaat)
-	} ElseIf (Halffabrikaat.Type = "Bewerkt") {
-		Set HalffabItem = ..GeefBewerktHalffabItem(Rol, Halffabrikaat)
-	} ElseIf (Halffabrikaat.Type = "Inbegrepen") {
-		Set HalffabItem = ..GeefIngebrepenHalffabItem(Rol, Halffabrikaat)
+	If (Halffabrikaat.Type = "Standard") {
+		Set HalffabItem = ..GeefStandaardHalffabItem(RolnaamVoorCache, RolnaamVoorEncoway, Halffabrikaat)
+	} ElseIf (Halffabrikaat.Type = "Processed") {
+		Set HalffabItem = ..GeefBewerktHalffabItem(RolnaamVoorCache, RolnaamVoorEncoway, Halffabrikaat)
+	} ElseIf (Halffabrikaat.Type = "Included") {
+		Set HalffabItem = ..GeefIngebrepenHalffabItem(RolnaamVoorCache, RolnaamVoorEncoway, Halffabrikaat, Variant)
 	} ElseIf (Halffabrikaat.Type = "Maatwerk") {
-		Set HalffabItem = ..GeefMaatwerkHalffabItem(Rol, Halffabrikaat)
+		Set HalffabItem = ..GeefMaatwerkHalffabItem(RolnaamVoorCache, RolnaamVoorEncoway, Halffabrikaat)
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Halffabrikaat type '"_ Halffabrikaat.Type _"'	wordt niet ondersteund."))
 	}
 	
-	If (IsDeelVanSamenGesteldHalffabItem) {
-		Do SGHalffabItem.VoegToe(HalffabItem)
-		Do ..HalffabItemsBoom.AddHalffabItem(SGHalffabItem)
+
+	If (IsDeelVanSamengesteldHalffabItem) {
+		If (IsDeelVanSSTVerpakkingSamengesteldHalffabItem) {
+			Do SGSstHalffabItem.VoegToe(HalffabItem)
+		} Else {
+			Do SGHalffabItem.VoegToe(HalffabItem)
+			Do ..HalffabItemsBoom.AddHalffabItem(SGHalffabItem)
+		}
 	} Else {
 		Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem)
 	}
@@ -126,52 +174,50 @@
 </Method>
 
 <Method name="GeefStandaardHalffabItem">
-<FormalSpec>Rol:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat</FormalSpec>
+<FormalSpec>RolnaamVoorCache:%String,RolnaamVoorEncoway:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</ReturnType>
 <Implementation><![CDATA[
-	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat)
-	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(..HalffabContext, ..GeefRolnaamVoorCache(Rol), Halffab)
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat, RolnaamVoorEncoway)
+	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(..HalffabContext, RolnaamVoorCache, Halffab)
 	
-	Set HalffabItem.Aantal 							= +(Halffabrikaat.Aantal)
-	//Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument		
-	Set HalffabItem.OpnemenInEindproduct 			= Halffabrikaat.OpnemenInEindproduct
-	Set HalffabItem.ProductieRoute 					= Halffabrikaat.ProductieRoute
-	Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.OmschrijvingVoorDocs)
-	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.OmschrijvingVoorPicking)
-	//Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
-	//Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
+	Set HalffabItem.Aantal 							= +(Halffabrikaat.Quantity)		
+	Set HalffabItem.OpnemenInEindproduct 			= Halffabrikaat.IncludeInFinalProduct
+	Set HalffabItem.ProductieRoute 					= ..GeefVertaaldeProductieRoute(Halffabrikaat.ProductionFlow)
+	Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.DescriptionDocs)
+	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.DescriptionPicking)
 		
 	Quit HalffabItem
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBewerktHalffabItem">
-<FormalSpec>Rol:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat</FormalSpec>
+<FormalSpec>RolnaamVoorCache:%String,RolnaamVoorEncoway:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem</ReturnType>
 <Implementation><![CDATA[
-	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat)
-	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(..HalffabContext, ..GeefRolnaamVoorCache(Rol), Halffab)
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat, RolnaamVoorEncoway)
+	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(..HalffabContext, RolnaamVoorCache, Halffab)
 	
-	Set HalffabItem.Aantal 							= +(Halffabrikaat.Aantal)
-	//Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument
-	//Set HalffabItem.AantalOverrideVoorBouwstenen 	= HalffabItemParsedFromJson.AantalOverrideVoorBouwstenen //niet casten naar int als dit veld nog niet gebruikt wordt! Anders faalt PRBS 
-	Set HalffabItem.AfmetingAangerekendPerStuk		= +(Halffabrikaat.AfmetingAangerekendPerStuk)
-	Set HalffabItem.AfmetingMetBewerkingVerlies 	= +(Halffabrikaat.AfmetingMetBewerkingVerlies)
-	Set HalffabItem.AfmetingTeBekomen 				= +(Halffabrikaat.AfmetingTeBekomen)	
-	Set HalffabItem.OpnemenInEindproduct 			= Halffabrikaat.OpnemenInEindproduct
-	Set HalffabItem.ProductieRoute 					= Halffabrikaat.ProductieRoute
-	Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.OmschrijvingVoorDocs)
-	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.OmschrijvingVoorPicking)
-	//Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
-	//Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
+	Set HalffabItem.Aantal 							= +(Halffabrikaat.Quantity)
+	Set HalffabItem.AfmetingAangerekendPerStuk		= +(Halffabrikaat.DimensionChargedPerPiece)
+	Set HalffabItem.AfmetingMetBewerkingVerlies 	= +(Halffabrikaat.DimensionWithProcessingLoss)
+	Set HalffabItem.AfmetingTeBekomen 				= +(Halffabrikaat.DimensionToBe)	
+	Set HalffabItem.OpnemenInEindproduct 			= Halffabrikaat.IncludeInFinalProduct
+	Set HalffabItem.ProductieRoute 					= ..GeefVertaaldeProductieRoute(Halffabrikaat.ProductionFlow)
+	Set HalffabItem.TeBekomenAantal					= +(Halffabrikaat.QuantityToBe)
+	Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.DescriptionDocs)
+	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.DescriptionPicking)
 	
-	#dim BewerkingDimensiesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Halffabrikaat.BewerkingDimensies)
+	#dim BewerkingDimensiesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Halffabrikaat.ProcessingDimensions)
 	While (BewerkingDimensiesIterator.HasNext()) {
 		#dim Afmeting As %Decimal = BewerkingDimensiesIterator.Next()
 		#dim BewerkingDimensie As %String = BewerkingDimensiesIterator.Key()
 		
+		Set:(BewerkingDimensie = "Length") BewerkingDimensie = "Lengte"
+		Set:(BewerkingDimensie = "Width") BewerkingDimensie = "Breedte"
+		Set:(BewerkingDimensie = "Depth") BewerkingDimensie = "Diepte"
+		
 		Do HalffabItem.ZetBewerkteDimensie(BewerkingDimensie,+(Afmeting))
 	}
 	
@@ -180,62 +226,70 @@
 </Method>
 
 <Method name="GeefIngebrepenHalffabItem">
-<FormalSpec>Rol:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat</FormalSpec>
+<FormalSpec>RolnaamVoorCache:%String,RolnaamVoorEncoway:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat,Variant:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem</ReturnType>
 <Implementation><![CDATA[
-	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat)
-	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(..HalffabContext, ..GeefRolnaamVoorCache(Rol), Halffab)
+	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(..HalffabContext, RolnaamVoorCache)
 	
-	Set HalffabItem.Aantal 							= +(Halffabrikaat.Aantal) //TO DO PVR: Moet aantal op 0?? Encoway stuurt niet 0 mee		
-	Set HalffabItem.OpnemenInEindproduct 			= Halffabrikaat.OpnemenInEindproduct
-	Set HalffabItem.ProductieRoute 					= Halffabrikaat.ProductieRoute
-	Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.OmschrijvingVoorDocs)
-	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.OmschrijvingVoorPicking)
+	#dim RolnaamParent As %String = ..RolnaamProcessor.GeefRolnaamVoorCache(Halffabrikaat.RoleNameParent, Variant)	
+	Set:(##class(TECH.StringUtils).Contains(RolnaamParent, ".")) RolnaamParent = ##class(TECH.StringUtils).Replace(RolnaamParent, ".", "->")
+	#dim ReferentieHalffabItem As DOM.PM.Maatwerk.Calc.HF.Halffab = ..HalffabItemsBoom.GeefHalffabItem(RolnaamParent)
 	
+	If ($$$Not($IsObject(ReferentieHalffabItem))) {
+		#dim ErrorBoodschap As %String = "Geen ReferentieHalffabItem met RolnaamParent '" _ RolnaamParent _ "' gevonden voor InbegrepenHFItem '" _ RolnaamVoorCache _ "'"
+		Do ##class(vhLib.Logger).%New("APPS.PM.Maatwerk.impl.VhConfig.Converter.HalffabItemsBoom").Error("GeefIngebrepenHalffabItem", ErrorBoodschap)
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New(ErrorBoodschap))
+	}
+	
+	Set HalffabItem.Aantal 							= +(Halffabrikaat.Quantity) //TO DO PVR: Moet aantal op 0?? Encoway stuurt niet 0 mee		
+	Set HalffabItem.OpnemenInEindproduct 			= Halffabrikaat.IncludeInFinalProduct
+	Set HalffabItem.ProductieRoute 					= ..GeefVertaaldeProductieRoute(Halffabrikaat.ProductionFlow)
+	Set HalffabItem.HalffabItem = ReferentieHalffabItem
+	Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.DescriptionDocs)
+	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.DescriptionPicking)
+	
 	Quit HalffabItem
 ]]></Implementation>
 </Method>
 
 <Method name="GeefMaatwerkHalffabItem">
-<FormalSpec>Rol:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat</FormalSpec>
+<FormalSpec>RolnaamVoorCache:%String,RolnaamVoorEncoway:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.MaatwerkProductHalffabItem</ReturnType>
 <Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw("MaatwerkHFItem is nog niet geïmplementeerd.")
 ]]></Implementation>
 </Method>
 
 <Method name="GeefHalffab">
-<FormalSpec>Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat</FormalSpec>
+<FormalSpec>Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat,Rol:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductID As %Integer = ..GeefIdentNummerVanHalffab(Halffabrikaat.ProductId)
-	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(ProductID)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab.Encoway).%New(ProductID)
 	
+	Set Halffab.PpsKenmerken = ##class(APPS.PM.Maatwerk.impl.VhConfig.Converter.EncowayNaarDom.PpsKenmerken).%New().Converteer(Halffabrikaat.PpsCharacteristics)
+	Set Halffab.LadeDiepte = Halffabrikaat.Characteristics.GetAt("BoxSystemDepth")
+	Set Halffab.LadeHoogte = Halffabrikaat.Characteristics.GetAt("BoxSystemHeight")
+	Set Halffab.LadeKleur = Halffabrikaat.Characteristics.GetAt("BoxSystemColour")
+	Set Halffab.RugHoogte = Halffabrikaat.Characteristics.GetAt("BackHeight")
+	Set Halffab.RugWandMateriaal = Halffabrikaat.Characteristics.GetAt("BackSideMaterial")
+	Set Halffab.VoorwandType = Halffabrikaat.Characteristics.GetAt("FrontType")
+	Set Halffab.LiRe = Halffabrikaat.Characteristics.GetAt("LeRi")
+	
+	Set:(Rol = "BackWood") Halffab.RugWandMateriaal = "Hout"
+	Set:(Rol = "BackSteel") Halffab.RugWandMateriaal = "Staal"
+	
+	If ((Rol = "Mat") || (Rol = "MatX") || (Rol = "MatY") || (Rol = "MatZ")) {
+		Set Halffab.OrigineleMatBreedte = Halffabrikaat.GrossDimensionSemiFinishedProduct
+		Set Halffab.OrigineleMatDiepte = Halffabrikaat.PpsCharacteristics.GetAt("GrossDimensionDepth")
+	}
+	
 	Quit Halffab
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRolnaamVoorCache">
-<FormalSpec>EncowayRolnaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim RolnaamVoorCache As %String = EncowayRolnaam
-	
-	Set:((EncowayRolnaam = "RugHout") || (EncowayRolnaam = "RugStaal")) RolnaamVoorCache = "Rug"
-	Set:(EncowayRolnaam = "AfdekkapRugwandHouder") RolnaamVoorCache = "AfdekkapRugWandHouder"
-	Set:(EncowayRolnaam = "RugwandHouderSchroef") RolnaamVoorCache = "RugWandHouderSchroef"
-	Set:(EncowayRolnaam = "RugwandHouder") RolnaamVoorCache = "RugWandHouder"
-	Set:(EncowayRolnaam = "TOBSynchronisatieAdapter") RolnaamVoorCache = "TiponBlumotionSynchronisatieAdapter"
-	Set:(EncowayRolnaam = "TOBSetEenhedenEnMeenemers") RolnaamVoorCache = "TiponBlumotionSetEenhedenEnMeenemers"
-	Set:(EncowayRolnaam = "TOBSynchronisatieStang") RolnaamVoorCache = "TiponBlumotionSynchronisatieStang"
-		
-	Quit RolnaamVoorCache
-]]></Implementation>
-</Method>
-
 <Method name="GeefIdentNummerVanHalffab">
 <FormalSpec>IdentNummer:%String</FormalSpec>
 <Private>1</Private>
@@ -244,65 +298,25 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsResultaatVanGekoppeldKenmerk">
-<FormalSpec>RolNaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim IsGekoppeldKenmerk As %Boolean = $$$False
-	
-	//IsGekoppeldeMat
-	If (RolNaam = "Mat") {
-		Set IsGekoppeldKenmerk = $$$True
-	}
-	//IsGekoppeldeSST
-	
-	
-	Quit IsGekoppeldKenmerk
-]]></Implementation>
-</Method>
+<UDLText name="T">
+<Content><![CDATA[
+// JBA: Moet deze naar aparte klasse voor vertalingen HF-values? Tot nu toe nog maar 1 vertaling
 
-<Method name="GeefRolnaamVanGekoppeldKenmerk">
-<FormalSpec>RolNaam:%String</FormalSpec>
-<Private>1</Private>
+]]></Content>
+</UDLText>
+
+<Method name="GeefVertaaldeProductieRoute">
+<FormalSpec>ProductionFlow:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim RolNaamGekoppeldKenmerk As %String = ""
+	#dim ProductieRoute As %String = ""
 	
-	//GekoppeldeMat
-	If (RolNaam = "Mat") {
-		Set RolNaamGekoppeldKenmerk = "MAT_Standaard_MatX"
-	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Rolnaam voor gekoppeld kenmerk kan niet bepaald worden voor rol '" _ RolNaam _ "'"))	
-	}
+	Set:(ProductionFlow = "ToAssemble") ProductieRoute = ##class(DOM.PM.Maatwerk.Calc.HF.enu.ProductieRoute).TeMonteren()
+	Set:(ProductionFlow = "PartsPicking") ProductieRoute = ##class(DOM.PM.Maatwerk.Calc.HF.enu.ProductieRoute).OnderdelenPicking()
 	
-	Quit RolNaamGekoppeldKenmerk
+	Quit ProductieRoute
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method VoegToeVerwijderdeHalffabItems() [ Private ]
-{
-	//Niet van belang gezien dit enkel relevant was voor de langteksten
-	Set VerwijderdeHalffabItems = ##class(%ArrayOfObjects).%New()
-	
-	/*
-	If (..VhConfig.MaatwerkDetails.VerwijderdeHalffabItems) {
-	
-		#dim VerwijderdHalffabItem As DOM.PM.Maatwerk.Calc.HF.VerwijderdHalffabItem
-		
-		Set VerwijderdHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.VerwijderdHalffabItem).%New()
-	
-		Set VerwijderdHalffabItem.Aantal = VerwijderdHalffabItemParsedFromJson.Aantal
-		Set VerwijderdHalffabItem.ProductId = VerwijderdHalffabItemParsedFromJson.ProductId
-	}
-	Set ..HalffabItemsBoom.VerwijderdeHalffabItems = VerwijderdeHalffabItems
-}
-*/
-]]></Content>
-</UDLText>
 </Class>