Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml
===================================================================
diff -u -r73585 -r73588
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73585)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73588)
@@ -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,7 +87,7 @@
 	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
 	#dim IsDeelVanSamengesteldHalffabItem As %Boolean = $$$False
 	
-	#dim RolnaamVoorCache As %String = ..GeefRolnaamVoorCache(RolnaamVoorEncoway)
+	#dim RolnaamVoorCache As %String = ..RolnaamProcessor.GeefRolnaamVoorCache(RolnaamVoorEncoway)
 	If ((##class(TECH.StringUtils).Contains(RolnaamVoorCache, ".")) || ..IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
 		#dim SGRol As %String = ""
 		If (..IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
@@ -111,14 +117,16 @@
 		}
 	}
 	
-	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) {
@@ -229,8 +237,7 @@
 	#dim ProductID As %Integer = ..GeefIdentNummerVanHalffab(Halffabrikaat.ProductId)
 	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab.Encoway).%New(ProductID)
 	
-	Set Halffab.PpsCharacteristics = $Select($$$HasLength(Halffabrikaat.PpsCharacteristics): Halffabrikaat.PpsCharacteristics, 1:##class(%ArrayOfDataTypes).%New())
-	
+	Set Halffab.PpsKenmerken = $Select($$$HasLength(Halffabrikaat.PpsCharacteristics): Halffabrikaat.PpsCharacteristics, 1:##class(%ArrayOfDataTypes).%New())
 	Set Halffab.LadeDiepte = Halffabrikaat.Characteristics.GetAt("BoxSystemDepth")
 	Set Halffab.LadeHoogte = Halffabrikaat.Characteristics.GetAt("BoxSystemHeight")
 	Set Halffab.LadeKleur = Halffabrikaat.Characteristics.GetAt("BoxSystemColour")
@@ -245,24 +252,6 @@
 ]]></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>
Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/RolnaamProcessor.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/RolnaamProcessor.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/RolnaamProcessor.cls.xml	(revision 73588)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.VhConfig.Converter.RolnaamProcessor">
+<Super>TECH.RegisteredObject</Super>
+
+<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>
+</Class>
+
+
+</Export>