Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjective.cls.xml
===================================================================
diff -u -r71763 -r71852
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjective.cls.xml	(.../DomRollenNaarObjective.cls.xml)	(revision 71763)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjective.cls.xml	(.../DomRollenNaarObjective.cls.xml)	(revision 71852)
@@ -37,19 +37,33 @@
 		} ElseIf (LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()) {
 			Set ..Waarde = "Rugstaal"
 		}
-	} ElseIf ((..Waarde = "sifonkap.z1") || (..Waarde = "sifonkap.z2")) {
-		Set ..Waarde = "Sifonkap"
-	} ElseIf ((##class(TECH.StringUtils).EndsWith(..Waarde, "links")) || ##class(TECH.StringUtils).EndsWith(..Waarde, "rechts")) {
-		Set ..Waarde = ##class(TECH.StringUtils).GetFirstPart(..Waarde, ".")
-	} ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "verpakking.")) {
-		Set ..Waarde = ##class(TECH.StringUtils).GetLastPart(..Waarde, ".")
-	} ElseIf (##class(TECH.StringUtils).StartsWith(..Waarde, "mat_standaard")) {
-		Set ..Waarde = "Mat"
+	} Else {
+		Set ..Waarde = ..VerwerkAlgemeneKenmerken(..Waarde)
 	}
 	
 	Set ..Waarde = ##class(TECH.StringUtils).ToFirstCase(..Waarde)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkAlgemeneKenmerken">
+<FormalSpec>Waarde:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim GeconverteerdeWaarde = Waarde
+	
+	If ((Waarde = "sifonkap.z1") || (Waarde = "sifonkap.z2")) {
+		Set GeconverteerdeWaarde = "Sifonkap"
+	} ElseIf ((##class(TECH.StringUtils).EndsWith(Waarde, "links")) || ##class(TECH.StringUtils).EndsWith(Waarde, "rechts")) {
+		Set GeconverteerdeWaarde = ##class(TECH.StringUtils).GetFirstPart(Waarde, ".")
+	} ElseIf (##class(TECH.StringUtils).StartsWith(Waarde, "verpakking.")) {
+		Set GeconverteerdeWaarde = ##class(TECH.StringUtils).GetLastPart(Waarde, ".")
+	} ElseIf (##class(TECH.StringUtils).StartsWith(Waarde, "mat_standaard")) {
+		Set GeconverteerdeWaarde = "Mat"
+	}
+	
+	Quit GeconverteerdeWaarde
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjectiveLbx/Test.cls.xml
===================================================================
diff -u -r71763 -r71852
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjectiveLbx/Test.cls.xml	(.../Test.cls.xml)	(revision 71763)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjectiveLbx/Test.cls.xml	(.../Test.cls.xml)	(revision 71852)
@@ -65,40 +65,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: LBX rolnamen &apos;Sifonkap_Z1&apos; en &apos;Sifonkap_Z2&apos; worden &apos;Sifonkap&apos;">
-<Implementation><![CDATA[
-	#dim VerwachtteRolNaam As %String = "Sifonkap"
-	
-	Do ..AssertRolnaam("Sifonkap.Z1", VerwachtteRolNaam, ..DomKenmerken)
-	Do ..AssertRolnaam("Sifonkap.Z2", VerwachtteRolNaam, ..DomKenmerken)
-]]></Implementation>
-</Method>
-
-<Method name="Test: Indien een Rolnaam eindigt op &apos;Links&apos; of &apos;Rechts&apos;, wordt dit eraf gehaald">
-<Implementation><![CDATA[
-	#dim VerwachtteRolNaam As %String = "Lbxrolnaam"
-	
-	Do ..AssertRolnaam("LbxRolnaam.Links", VerwachtteRolNaam, ..DomKenmerken)
-	Do ..AssertRolnaam("LbxRolnaam.Rechts", VerwachtteRolNaam, ..DomKenmerken)
-]]></Implementation>
-</Method>
-
-<Method name="Test: LBX rolnamen met voorvoegsel &apos;Verpakking&apos;, worden teruggegeven zonder voorvoegsel">
-<Implementation><![CDATA[
-	#dim VerwachtteRolNaam As %String = "Lbxverpakkingrolnaam"
-	
-	Do ..AssertRolnaam("Verpakking.LbxVerpakkingRolnaam", VerwachtteRolNaam, ..DomKenmerken)
-]]></Implementation>
-</Method>
-
-<Method name="Test: Alle mat rolnamen worden gewoon &apos;Mat&apos;">
-<Implementation><![CDATA[
-	#dim VerwachtteRolNaam As %String = "Mat"
-	
-	Do ..AssertRolnaam("MAT_Standaard_MatX.Mat", VerwachtteRolNaam, ..DomKenmerken)
-]]></Implementation>
-</Method>
-
 <Method name="AssertRolnaam">
 <FormalSpec>TeConverterenRolNaam:%String,VerwachtteRolNaam:%String,DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Implementation><![CDATA[
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjectiveAlgemeneKenmerken/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjectiveAlgemeneKenmerken/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/Converter/DomRollenNaarObjectiveAlgemeneKenmerken/Test.cls.xml	(revision 71852)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.DomRollenNaarObjectiveAlgemeneKenmerken.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Converter">
+<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.DomRollenNaarObjective</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DomKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..Converter = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.DomRollenNaarObjective).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..DomKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+ 	Do ##super(aTestCase)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien een Rolnaam eindigt op &apos;Links&apos; of &apos;Rechts&apos;, wordt dit eraf gehaald">
+<Implementation><![CDATA[
+	#dim VerwachtteRolNaam As %String = "Lbxrolnaam"
+	
+	Do ..AssertRolnaam("LbxRolnaam.Links", VerwachtteRolNaam, ..DomKenmerken)
+	Do ..AssertRolnaam("LbxRolnaam.Rechts", VerwachtteRolNaam, ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Test: LBX rolnamen met voorvoegsel &apos;Verpakking&apos;, worden teruggegeven zonder voorvoegsel">
+<Implementation><![CDATA[
+	#dim VerwachtteRolNaam As %String = "Lbxverpakkingrolnaam"
+	
+	Do ..AssertRolnaam("Verpakking.LbxVerpakkingRolnaam", VerwachtteRolNaam, ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Alle mat rolnamen worden gewoon &apos;Mat&apos;">
+<Implementation><![CDATA[
+	#dim VerwachtteRolNaam As %String = "Mat"
+	
+	Do ..AssertRolnaam("MAT_Standaard_MatX.Mat", VerwachtteRolNaam, ..DomKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="AssertRolnaam">
+<FormalSpec>TeConverterenRolNaam:%String,VerwachtteRolNaam:%String,DomKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<Implementation><![CDATA[
+	#dim GeconverteerdeRolnaam As %String = ..Converter.Converteer(TeConverterenRolNaam, DomKenmerken)
+	Do $$$AssertEquals(GeconverteerdeRolnaam, VerwachtteRolNaam)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>