Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataKleurBepaler/Test.cls.xml
===================================================================
diff -u -r57556 -r58557
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataKleurBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57556)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataKleurBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58557)
@@ -3,69 +3,79 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="LadeOnderdeelEnum">
+<Property name="LadeOnderdeel">
 <Type>DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel.AutoComplete</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="KantenbandRol">
+<Type>DOM.PM.Maatwerk.Lade.enu.KantenbandRol.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="DummyKleuren">
 <Type>%ArrayOfDataTypes</Type>
 <Private>1</Private>
 </Property>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super(aTestName)
-	
-	Set ..DummyKleuren = ##class(%ArrayOfDataTypes).%New()
-	
-	Do ..DummyKleuren.SetAt("DummyKleur1", 1)
-	Do ..DummyKleuren.SetAt("DummyKleur2", 2)
-	Do ..DummyKleuren.SetAt("DummyKleur3", 3)
-]]></Implementation>
-</Method>
+<Property name="KleurBepaler">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler</Type>
+<Private>1</Private>
+</Property>
 
-<Method name="Test: GeefKantenbandKleurBoven geeft altijd het kantenbandkleur terug">
+<Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	#dim LadeOnderdeelStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel).%New()
-	Do LadeOnderdeelStub.IndienMethodCall("GeefKleuren").DanReturn(..DummyKleuren)
+	Do ##super()
 	
-	#dim KleurBepaler As APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler).%New()
-	#dim KantenbandKleur As DOM.PM.enu.TAORKantenbandKleur = KleurBepaler.GeefKantenbandKleurBoven(LadeOnderdeelStub)
-
-	Do $$$AssertEquals(KantenbandKleur, ..DummyKleuren.GetAt(3))
+	Set ..KleurBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler).%New()
+	Set ..DummyKleuren = ..GeefDummyKleuren()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: GeefKantenbandKleurOnder geeft voor LadeOnderdeel Bodem en Front altijd het kantenbandkleur terug">
+<Method name="Test: KleurBepaler voor kantenband boven geeft altijd het kantenbandkleur terug">
 <Implementation><![CDATA[
-	Do ..AssertKantenbandKleurOnder(..LadeOnderdeelEnum.Bodem, ..DummyKleuren.GetAt(3))
-	Do ..AssertKantenbandKleurOnder(..LadeOnderdeelEnum.Front, ..DummyKleuren.GetAt(3))
+	Do ..AssertKantenbandKleur(..LadeOnderdeel.Front, ..KantenbandRol.Boven, ..DummyKleuren.GetAt(3))
+	Do ..AssertKantenbandKleur(..LadeOnderdeel.Rug, ..KantenbandRol.Boven, ..DummyKleuren.GetAt(3))
+	Do ..AssertKantenbandKleur(..LadeOnderdeel.Zijkant, ..KantenbandRol.Boven, ..DummyKleuren.GetAt(3))
 ]]></Implementation>
 </Method>
 
-<Method name="Test: GeefKantenbandKleurOnder geeft voor LadeOnderdeel Rug en Zijkant altijd het ladekleur terug">
+<Method name="Test: KleurBepaler voor kantenband onder">
 <Implementation><![CDATA[
-	Do ..AssertKantenbandKleurOnder(..LadeOnderdeelEnum.Rug, ..DummyKleuren.GetAt(1))
-	Do ..AssertKantenbandKleurOnder(..LadeOnderdeelEnum.Zijkant, ..DummyKleuren.GetAt(2))
+	Do ..AssertKantenbandKleur(..LadeOnderdeel.Front, ..KantenbandRol.Onder, ..DummyKleuren.GetAt(3))
+	Do ..AssertKantenbandKleur(..LadeOnderdeel.Rug, ..KantenbandRol.Onder, ..DummyKleuren.GetAt(2))
+	Do ..AssertKantenbandKleur(..LadeOnderdeel.Zijkant, ..KantenbandRol.Onder, ..DummyKleuren.GetAt(2))
 ]]></Implementation>
 </Method>
 
-<Method name="AssertKantenbandKleurOnder">
-<FormalSpec>Rol:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel,VerwachteKleur:DOM.PM.enu.TAORKantenbandKleur</FormalSpec>
+<Method name="AssertKantenbandKleur">
+<FormalSpec>LadeOnderdeelRol:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol,VerwachteKleur:DOM.PM.enu.TAORKantenbandKleur</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim LadeOnderdeelStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel).%New()
 	Do LadeOnderdeelStub.IndienMethodCall("GeefKleuren").DanReturn(..DummyKleuren)
-	Do LadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(Rol)
+	Do LadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(LadeOnderdeelRol)
 	
 	#dim KleurBepaler As APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler).%New()
-	#dim KantenbandKleurOnder As DOM.PM.enu.TAORKantenbandKleur = KleurBepaler.GeefKantenbandKleurOnder(LadeOnderdeelStub)
+	#dim KantenbandKleur As DOM.PM.enu.TAORKantenbandKleur = KleurBepaler.Bepaal(LadeOnderdeelStub, KantenbandRol)
 
-	Do $$$AssertEquals(KantenbandKleurOnder, VerwachteKleur)
+	Do $$$AssertEquals(KantenbandKleur, VerwachteKleur)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDummyKleuren">
+<Private>1</Private>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim DummyKleuren As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	
+	Do DummyKleuren.SetAt("DummyKleur1", 1)
+	Do DummyKleuren.SetAt("DummyKleur2", 2)
+	Do DummyKleuren.SetAt("DummyKleur3", 3)
+	
+	Quit DummyKleuren
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataKleurBepaler.cls.xml
===================================================================
diff -u -r57555 -r58557
--- vhTest/Fake/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataKleurBepaler.cls.xml	(.../KantenbandDataKleurBepaler.cls.xml)	(revision 57555)
+++ vhTest/Fake/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataKleurBepaler.cls.xml	(.../KantenbandDataKleurBepaler.cls.xml)	(revision 58557)
@@ -7,19 +7,12 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler</Super>
 
-<Method name="GeefKantenbandKleurBoven">
-<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<Method name="Bepaal">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol</FormalSpec>
 <ReturnType>DOM.PM.enu.TAORKantenbandKleur</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
-
-<Method name="GeefKantenbandKleurOnder">
-<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
-<ReturnType>DOM.PM.enu.TAORKantenbandKleur</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataKleurBepaler.cls.xml
===================================================================
diff -u -r57555 -r58557
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataKleurBepaler.cls.xml	(.../KantenbandDataKleurBepaler.cls.xml)	(revision 57555)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataKleurBepaler.cls.xml	(.../KantenbandDataKleurBepaler.cls.xml)	(revision 58557)
@@ -3,32 +3,26 @@
 <Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler">
 <Super>TECH.Mockable</Super>
 
-<Property name="LadeOnderdeelEnum">
+<Property name="KantenbandRol">
+<Type>DOM.PM.Maatwerk.Lade.enu.KantenbandRol.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeOnderdeel">
 <Type>DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel.AutoComplete</Type>
 <Private>1</Private>
 </Property>
 
-<Method name="GeefKantenbandKleurBoven">
-<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<Method name="Bepaal">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol</FormalSpec>
 <ReturnType>DOM.PM.enu.TAORKantenbandKleur</ReturnType>
-<Implementation><![CDATA[	Quit LadeOnderdeel.GeefKleuren().GetAt(3)
-]]></Implementation>
-</Method>
-
-<Method name="GeefKantenbandKleurOnder">
-<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
-<ReturnType>DOM.PM.enu.TAORKantenbandKleur</ReturnType>
 <Implementation><![CDATA[
 	#dim KantenbandKleur As DOM.PM.enu.TAORLadeKleur = LadeOnderdeel.GeefKleuren().GetAt(3)
 	
-	If (LadeOnderdeel.GeefRol() = ..LadeOnderdeelEnum.Zijkant) {
+	If ((KantenbandRol = ..KantenbandRol.Onder) && ((LadeOnderdeel.GeefRol() = ..LadeOnderdeel.Rug) || (LadeOnderdeel.GeefRol() = ..LadeOnderdeel.Zijkant))) {
 		Set KantenbandKleur = LadeOnderdeel.GeefKleuren().GetAt(2)
 	}
 	
-	If (LadeOnderdeel.GeefRol() = ..LadeOnderdeelEnum.Rug) {
-		Set KantenbandKleur = LadeOnderdeel.GeefKleuren().GetAt(1)	
-	}
-	
 	Quit KantenbandKleur
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataKleurBepaler.cls.xml
===================================================================
diff -u -r57555 -r58557
--- vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataKleurBepaler.cls.xml	(.../KantenbandDataKleurBepaler.cls.xml)	(revision 57555)
+++ vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataKleurBepaler.cls.xml	(.../KantenbandDataKleurBepaler.cls.xml)	(revision 58557)
@@ -8,19 +8,12 @@
 <Super>APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
-<Method name="GeefKantenbandKleurBoven">
-<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<Method name="Bepaal">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,KantenbandRol:DOM.PM.Maatwerk.Lade.enu.KantenbandRol</FormalSpec>
 <ReturnType>DOM.PM.enu.TAORKantenbandKleur</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKantenbandKleurBoven",LadeOnderdeel)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Bepaal",LadeOnderdeel,KantenbandRol)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefKantenbandKleurOnder">
-<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
-<ReturnType>DOM.PM.enu.TAORKantenbandKleur</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKantenbandKleurOnder",LadeOnderdeel)
-]]></Implementation>
-</Method>
 </Class>