Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml
===================================================================
diff -u -r73568 -r73866
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73568)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73866)
@@ -28,14 +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()
 	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>
@@ -54,7 +60,7 @@
 	While HalffabrikatenListIterator.HasNext()
 	{
 		Set Halffabrikaat = HalffabrikatenListIterator.Next()
-		If ($$$Not(Halffabrikaat.Type = "Inbegrepen")) {
+		If ($$$Not(Halffabrikaat.Type = "Included")) {
 			Set Rol = HalffabrikatenListIterator.Key()
 			Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat)
 		}		
@@ -64,7 +70,7 @@
 	While HalffabrikatenListIterator.HasNext()
 	{
 		Set Halffabrikaat = HalffabrikatenListIterator.Next()
-		If (Halffabrikaat.Type = "Inbegrepen") {
+		If (Halffabrikaat.Type = "Included") {
 			Set Rol = HalffabrikatenListIterator.Key()
 			Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat)
 		}		
@@ -81,11 +87,12 @@
 	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
 	#dim IsDeelVanSamengesteldHalffabItem As %Boolean = $$$False
 	
-	#dim RolnaamVoorCache As %String = ..GeefRolnaamVoorCache(RolnaamVoorEncoway)
-	If ((##class(TECH.StringUtils).Contains(RolnaamVoorCache, ".")) || ..IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
+	#dim RolnaamVoorCache As %String = ..RolnaamProcessor.GeefRolnaamVoorCache(RolnaamVoorEncoway)
+	
+	If ((##class(TECH.StringUtils).Contains(RolnaamVoorCache, ".")) || ..RolnaamProcessor.IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
 		#dim SGRol As %String = ""
-		If (..IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
-			Set SGRol = ..GeefRolnaamVanGekoppeldKenmerk(RolnaamVoorCache)
+		If (..RolnaamProcessor.IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
+			Set SGRol = ..RolnaamProcessor.GeefRolnaamVanGekoppeldKenmerk(RolnaamVoorCache)
 		} Else {
 			Set SGRol = $Piece(RolnaamVoorCache, ".", 1)
 		}
@@ -99,26 +106,28 @@
 			Set SGHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(SGRol)
 		}
 
-		If (..IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
-			If (..IsGekoppeldeMat(RolnaamVoorCache)) {
+		If (..RolnaamProcessor.IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
+			If (..RolnaamProcessor.IsGekoppeldeMat(RolnaamVoorCache)) {
 				Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 1)	
 			}
-			If (..IsGekoppeldeSST(RolnaamVoorCache)) {
+			If (..RolnaamProcessor.IsGekoppeldeSST(RolnaamVoorCache)) {
 				Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 2)
 			}
 		} Else {
 			Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 2)
 		}
 	}
 	
-	If (Halffabrikaat.Type = "Standaard") {
+	If (Halffabrikaat.Type = "Standard") {
 		Set HalffabItem = ..GeefStandaardHalffabItem(RolnaamVoorCache, RolnaamVoorEncoway, Halffabrikaat)
-	} ElseIf (Halffabrikaat.Type = "Bewerkt") {
+	} ElseIf (Halffabrikaat.Type = "Processed") {
 		Set HalffabItem = ..GeefBewerktHalffabItem(RolnaamVoorCache, RolnaamVoorEncoway, Halffabrikaat)
-	} ElseIf (Halffabrikaat.Type = "Inbegrepen") {
+	} ElseIf (Halffabrikaat.Type = "Included") {
 		Set HalffabItem = ..GeefIngebrepenHalffabItem(RolnaamVoorCache, RolnaamVoorEncoway, Halffabrikaat)
 	} ElseIf (Halffabrikaat.Type = "Maatwerk") {
 		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) {
@@ -151,11 +160,11 @@
 	#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.OpnemenInEindproduct 			= Halffabrikaat.OpnemenInEindproduct
-	Set HalffabItem.ProductieRoute 					= Halffabrikaat.ProductieRoute
-	Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.OmschrijvingVoorDocs)
-	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.OmschrijvingVoorPicking)
+	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>
@@ -169,21 +178,24 @@
 	#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.AfmetingAangerekendPerStuk		= +(Halffabrikaat.AfmetingAangerekendPerStuk)
-	Set HalffabItem.AfmetingMetBewerkingVerlies 	= +(Halffabrikaat.AfmetingMetBewerkingVerlies)
-	Set HalffabItem.AfmetingTeBekomen 				= +(Halffabrikaat.AfmetingTeBekomen)	
-	Set HalffabItem.OpnemenInEindproduct 			= Halffabrikaat.OpnemenInEindproduct
-	Set HalffabItem.ProductieRoute 					= Halffabrikaat.ProductieRoute
-	Set HalffabItem.TeBekomenAantal					= +(Halffabrikaat.TeBekomenAantal)
-	Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.OmschrijvingVoorDocs)
-	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.OmschrijvingVoorPicking)
+	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"
+		
 		Do HalffabItem.ZetBewerkteDimensie(BewerkingDimensie,+(Afmeting))
 	}
 	
@@ -198,16 +210,22 @@
 <Implementation><![CDATA[
 	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(..HalffabContext, RolnaamVoorCache)
 	
-	#dim RolnaamParent As %String = Halffabrikaat.RolnaamParent
+	#dim RolnaamParent As %String = ..RolnaamProcessor.GeefRolnaamVoorCache(Halffabrikaat.RoleNameParent)	
 	Set:(##class(TECH.StringUtils).Contains(RolnaamParent, ".")) RolnaamParent = ##class(TECH.StringUtils).Replace(RolnaamParent, ".", "->")
 	#dim ReferentieHalffabItem As DOM.PM.Maatwerk.Calc.HF.Halffab = ..HalffabItemsBoom.GeefHalffabItem(RolnaamParent)
 	
-	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
+	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.OmschrijvingVoorDocs)
-	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.OmschrijvingVoorPicking)
+	Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.DescriptionDocs)
+	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.DescriptionPicking)
 	
 	Quit HalffabItem
 ]]></Implementation>
@@ -229,40 +247,21 @@
 	#dim ProductID As %Integer = ..GeefIdentNummerVanHalffab(Halffabrikaat.ProductId)
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab.Encoway).%New(ProductID)
 	
-	Set Halffab.PpsKenmerken = $Select($$$HasLength(Halffabrikaat.PpsKenmerken): Halffabrikaat.PpsKenmerken, 1:##class(%ArrayOfDataTypes).%New())
+	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.LadeDiepte = Halffabrikaat.Kenmerken.GetAt("LadeDiepte")
-	Set Halffab.LadeHoogte = Halffabrikaat.Kenmerken.GetAt("LadeHoogte")
-	Set Halffab.LadeKleur = Halffabrikaat.Kenmerken.GetAt("LadeKleur")
-	Set Halffab.RugHoogte = Halffabrikaat.Kenmerken.GetAt("RugHoogte")
-	Set Halffab.RugWandMateriaal = Halffabrikaat.Kenmerken.GetAt("RugwandMateriaal")
-	Set Halffab.VoorwandType = Halffabrikaat.Kenmerken.GetAt("VoorwandType")
+	Set:(Rol = "BackWood") Halffab.RugWandMateriaal = "Hout"
+	Set:(Rol = "BackSteel") Halffab.RugWandMateriaal = "Staal"
 	
-	Set:(Rol = "RugHout") Halffab.RugWandMateriaal = "Hout"
-	Set:(Rol = "RugStaal") Halffab.RugWandMateriaal = "Staal"
-	
 	Quit Halffab
 ]]></Implementation>
 </Method>
 
-<Method name="GeefRolnaamVoorCache">
-<FormalSpec>EncowayRolnaam:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim RolnaamVoorCache As %String = EncowayRolnaam
-	
-	Set:((EncowayRolnaam = "RugHout") || (EncowayRolnaam = "RugStaal")) RolnaamVoorCache = "Rug.X"
-	Set:(EncowayRolnaam = "AfdekkapRugwandHouder") RolnaamVoorCache = "AfdekkapRugWandHouder"
-	Set:(EncowayRolnaam = "RugwandHouderSchroef") RolnaamVoorCache = "RugWandHouderSchroef"
-	Set:(##class(TECH.StringUtils).Contains(EncowayRolnaam, "RugwandHouder")) RolnaamVoorCache = ##class(TECH.StringUtils).Replace(EncowayRolnaam, "RugwandHouder", "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>
@@ -271,60 +270,25 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IsResultaatVanGekoppeldKenmerk">
-<FormalSpec>RolNaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim IsGekoppeldKenmerk As %Boolean = $$$False
-	
-	If (..IsGekoppeldeMat(RolNaam)) {
-		Set IsGekoppeldKenmerk = $$$True
-	}
+<UDLText name="T">
+<Content><![CDATA[
+// JBA: Moet deze naar aparte klasse voor vertalingen HF-values? Tot nu toe nog maar 1 vertaling
 
-	If ..IsGekoppeldeSST(RolNaam) {
-		Set IsGekoppeldKenmerk = $$$True
-	}
-	
-	
-	Quit IsGekoppeldKenmerk
-]]></Implementation>
-</Method>
+]]></Content>
+</UDLText>
 
-<Method name="GeefRolnaamVanGekoppeldKenmerk">
-<FormalSpec>RolNaam:%String</FormalSpec>
-<Private>1</Private>
+<Method name="GeefVertaaldeProductieRoute">
+<FormalSpec>ProductionFlow:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim RolNaamGekoppeldKenmerk As %String = ""
-		
-	If (..IsGekoppeldeMat(RolNaam)) {
-		Set RolNaamGekoppeldKenmerk = "MAT_Standaard_MatX"
-	} ElseIf (..IsGekoppeldeSST(RolNaam)) {
-		Set RolNaamGekoppeldKenmerk = "SpaceStep_SpaceStep"
-	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Rolnaam voor gekoppeld kenmerk kan niet bepaald worden voor rol '" _ RolNaam _ "'"))	
-	}
+	#dim ProductieRoute As %String = ""
 	
-	Quit RolNaamGekoppeldKenmerk
+	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 ProductieRoute
 ]]></Implementation>
 </Method>
-
-<Method name="IsGekoppeldeMat">
-<FormalSpec>RolNaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit RolNaam = "Mat"
-]]></Implementation>
-</Method>
-
-<Method name="IsGekoppeldeSST">
-<FormalSpec>RolNaam:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).StartsWith(RolNaam, "SST")
-]]></Implementation>
-</Method>
 </Class>