Index: APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml
===================================================================
diff -u -r54703 -r58556
--- APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 54703)
+++ APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 58556)
@@ -18,11 +18,16 @@
 <Private>1</Private>
 </Property>
 
-<Property name="KantenbandKleurEnum">
+<Property name="Kleur">
 <Type>DOM.PM.enu.TAORKantenbandKleur.AutoComplete</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="Passage">
+<Type>APPS.Halux.Machine.Kantenband.enu.Passage.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KantenBandProgrammaRepository:APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository="",DikteCodeBepaler:APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler="",BreedteCodeBepaler:APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler=""</FormalSpec>
 <Private>1</Private>
@@ -39,17 +44,23 @@
 </Method>
 
 <Method name="BepaalKantenband">
-<FormalSpec>KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData,ProgrammaId:%String</FormalSpec>
+<FormalSpec>KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData,ProgrammaId:%String,Passage:APPS.Halux.Machine.Kantenband.enu.Passage</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Kantenband As %String = ""	
 
 	If ..HeeftKantenbandNodig(ProgrammaId) { 
-		#dim KantenbandKleur As %String = KantenbandData.Kleur
+		#dim KantenbandKleur As %String = ""
 		
-		Set:(KantenbandData.Kleur = ..KantenbandKleurEnum.Wit) KantenbandKleur = "W1"
-		Set:(KantenbandData.Kleur = ..KantenbandKleurEnum.Zwart) KantenbandKleur = "Z8"
+		If (Passage = ..Passage.Twee) {
+			Set KantenbandKleur = KantenbandData.KleurOnder
+		} Else {
+			Set KantenbandKleur = KantenbandData.KleurBoven
+		}
 		
+		Set:(KantenbandKleur = ..Kleur.Wit) KantenbandKleur = "W1"
+		Set:(KantenbandKleur = ..Kleur.Zwart) KantenbandKleur = "Z8"
+		
 		Set Kantenband = KantenbandKleur _ ..DikteCodeBepaler.BepaalCode(KantenbandData.PlaatAfwerking) _ ..BreedteCodeBepaler.BepaalCode(KantenbandData.PlaatAfwerking)
 	}
 	
Index: APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml
===================================================================
diff -u -r56781 -r58556
--- APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml	(.../PassageBepaler.cls.xml)	(revision 56781)
+++ APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml	(.../PassageBepaler.cls.xml)	(revision 58556)
@@ -38,8 +38,8 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	#dim Passages As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim PassageDefinities As %ListOfObjects = ..PassageDefinitieRepository.GeefPassageDefinities(UitvoeringInfo.KantenbandData.PlaatAfwerking, UitvoeringInfo.KantenbandData.Rol , UitvoeringInfo.KantenbandData.Kleur)
-
+	#dim PassageDefinities As %ListOfObjects = ..PassageDefinitieRepository.GeefPassageDefinities(UitvoeringInfo.KantenbandData.PlaatAfwerking, UitvoeringInfo.KantenbandData.Rol, UitvoeringInfo.KantenbandData.KleurBoven, UitvoeringInfo.KantenbandData.KleurOnder)
+	
 	Do ..SorteerPassageDefinities(PassageDefinities)
 	
 	#dim PassageDefinitieIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(PassageDefinities)
@@ -50,7 +50,7 @@
 		
 		Set Passage.Draai180Graden = PassageDefinitie.MoetDraaien
 		Set Passage.Kantel180Graden = PassageDefinitie.MoetKantelen
-		Set Passage.Kantenband = ..KantenbandBepaler.BepaalKantenband(UitvoeringInfo.KantenbandData, PassageDefinitie.Programma)
+		Set Passage.Kantenband = ..KantenbandBepaler.BepaalKantenband(UitvoeringInfo.KantenbandData, PassageDefinitie.Programma, PassageDefinitie.Passage)
 		Set Passage.PrinterTekst = ..PrinterTekstBepaler.BepaalPrinterTekst(UitvoeringInfo, PassageDefinitie.Passage)
 		Set Passage.Uitgang = PassageDefinitie.Uitgang
 		Set Passage.Programma = PassageDefinitie.Programma
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller.cls.xml
===================================================================
diff -u -r58350 -r58556
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller.cls.xml	(.../KantenbandDataLadeInfoAanvuller.cls.xml)	(revision 58350)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller.cls.xml	(.../KantenbandDataLadeInfoAanvuller.cls.xml)	(revision 58556)
@@ -8,20 +8,31 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KantenbandRol">
+<Type>DOM.PM.Maatwerk.Lade.enu.KantenbandRol.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="PlaatAfwerkingBepaler">
 <Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="KleurBepaler">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,PlaatAfwerkingBepaler:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler=""</FormalSpec>
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,PlaatAfwerkingBepaler:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler="",KleurBepaler:APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..LadeOnderdeel = LadeOnderdeel
 	Set ..PlaatAfwerkingBepaler = $$$Inject(PlaatAfwerkingBepaler, ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler).%New())
+	Set ..KleurBepaler = $$$Inject(KleurBepaler, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -31,15 +42,15 @@
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput</FormalSpec>
 <Implementation><![CDATA[
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..LadeOnderdeel.GeefLade()
-	#dim KantenbandKleur As DOM.PM.enu.TAORKantenbandKleur = ..LadeOnderdeel.GeefKleuren().GetAt(3)
 	
 	Set UitvoeringInfo.KantenbandData.Toelevering = UitvoeringInfo.ToeleveringID
 	Set UitvoeringInfo.KantenbandData.DossierCode = UitvoeringInfo.DossierCode
 	Set UitvoeringInfo.KantenbandData.BatchID = UitvoeringInfo.BatchID
 	Set UitvoeringInfo.KantenbandData.Concept = Lade.GeefConcept()
 	Set UitvoeringInfo.KantenbandData.LadeDiepte = Lade.GeefDiepte()
-	Set UitvoeringInfo.KantenbandData.Kleur = KantenbandKleur
-	Set UitvoeringInfo.KantenbandData.Rol = ..LadeOnderdeel.GeefRol()
+	Set UitvoeringInfo.KantenbandData.KleurBoven = ..KleurBepaler.Bepaal(..LadeOnderdeel, ..KantenbandRol.Boven)
+	Set UitvoeringInfo.KantenbandData.KleurOnder = ..KleurBepaler.Bepaal(..LadeOnderdeel, ..KantenbandRol.Onder)
+	Set UitvoeringInfo.KantenbandData.Rol = ..LadeOnderdeel.GeefRol()	
 	Set UitvoeringInfo.KantenbandData.PlaatAfwerking = ..PlaatAfwerkingBepaler.GeefPlaatAfwerking(..LadeOnderdeel.GeefLade().GeefKleur())
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Activiteit/impl/common/dto/KantenbandData.cls.xml
===================================================================
diff -u -r54703 -r58556
--- APPS/Halux/PPS/Activiteit/impl/common/dto/KantenbandData.cls.xml	(.../KantenbandData.cls.xml)	(revision 54703)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/KantenbandData.cls.xml	(.../KantenbandData.cls.xml)	(revision 58556)
@@ -23,10 +23,14 @@
 <Type>%Numeric</Type>
 </Property>
 
-<Property name="Kleur">
+<Property name="KleurBoven">
 <Type>DOM.PM.enu.TAORKantenbandKleur</Type>
 </Property>
 
+<Property name="KleurOnder">
+<Type>DOM.PM.enu.TAORKantenbandKleur</Type>
+</Property>
+
 <Property name="LadeDiepte">
 <Type>DOM.PM.enu.TAORLadeDiepte</Type>
 </Property>
@@ -120,7 +124,7 @@
 <Value>Concept</Value>
 </Value>
 <Value name="4">
-<Value>Kleur</Value>
+<Value>KleurBoven</Value>
 </Value>
 <Value name="5">
 <Value>LadeDiepte</Value>
@@ -170,6 +174,9 @@
 <Value name="20">
 <Value>DossierCode</Value>
 </Value>
+<Value name="21">
+<Value>KleurOnder</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml
===================================================================
diff -u -r54778 -r58556
--- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml	(.../Test.cls.xml)	(revision 54778)
+++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml	(.../Test.cls.xml)	(revision 58556)
@@ -36,7 +36,7 @@
 	Do BreedteCodeBepalerMock.VerwachtMethodCall("BepaalCode", DummyPlaatAfwerking).DanReturn("DummyBreedteCode")
 	
 	#dim KantenbandBepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New(KantenbandRepositoryMock, DikteCodeBepalerMock, BreedteCodeBepalerMock)
-	#dim Kantenband As %String = KantenbandBepaler.BepaalKantenband(DummyKantenbandData, ..#RandomProgrammaId)
+	#dim Kantenband As %String = KantenbandBepaler.BepaalKantenband(DummyKantenbandData, ..#RandomProgrammaId, "RandomPassage")
 	
 	Do KantenbandRepositoryMock.Verifieer()
 	Do DikteCodeBepalerMock.Verifieer()
@@ -49,10 +49,10 @@
 	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
 	
 	Set KantenbandData.PlaatAfwerking = ..PlaatAfwerkingEnum.Fineer
-	Do ..AssertKantenband($$$True, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "")
+	Do ..AssertKantenband($$$True, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "DummyPassage", "")
 	
 	Set KantenbandData.PlaatAfwerking = ..PlaatAfwerkingEnum.Melamine
-	Do ..AssertKantenband($$$True, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "")
+	Do ..AssertKantenband($$$True, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "DummyPassage", "")
 ]]></Implementation>
 </Method>
 
@@ -61,42 +61,42 @@
 	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
 	
 	Set KantenbandData.PlaatAfwerking = ..PlaatAfwerkingEnum.Fineer
-	Do ..AssertKantenband($$$False, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "DummyDikteCodeDummyBreedteCode")
+	Do ..AssertKantenband($$$False, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "DummyPassage", "DummyDikteCodeDummyBreedteCode")
 	
 	Set KantenbandData.PlaatAfwerking = ..PlaatAfwerkingEnum.Melamine
-	Do ..AssertKantenband($$$False, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "DummyDikteCodeDummyBreedteCode")
+	Do ..AssertKantenband($$$False, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "DummyPassage", "DummyDikteCodeDummyBreedteCode")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: KleurCode zit in Kantenband">
 <Implementation><![CDATA[
 	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
 	
-	Set KantenbandData.Kleur = ..KantenbandKleurEnum.NatuurEikenhout
-	Do ..AssertKantenband($$$False, KantenbandData, "", "", "NE")
+	Set KantenbandData.KleurBoven = ..KantenbandKleurEnum.NatuurEikenhout
+	Do ..AssertKantenband($$$False, KantenbandData, "", "", "DummyPassage", "NE")
 	
-	Set KantenbandData.Kleur = ..KantenbandKleurEnum.NatuurNotenhout
-	Do ..AssertKantenband($$$False, KantenbandData, "", "", "NN")
+	Set KantenbandData.KleurBoven = ..KantenbandKleurEnum.NatuurNotenhout
+	Do ..AssertKantenband($$$False, KantenbandData, "", "", "DummyPassage", "NN")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: KleurCodes wit en zwart worden geconverteerd">
 <Implementation><![CDATA[
 	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
 	
-	Set KantenbandData.Kleur = ..KantenbandKleurEnum.Wit
-	Do ..AssertKantenband($$$False, KantenbandData, "", "", "W1")
+	Set KantenbandData.KleurBoven = ..KantenbandKleurEnum.Wit
+	Do ..AssertKantenband($$$False, KantenbandData, "", "", "DummyPassage","W1")
 	
-	Set KantenbandData.Kleur = ..KantenbandKleurEnum.Zwart
-	Do ..AssertKantenband($$$False, KantenbandData, "", "", "Z8")
+	Set KantenbandData.KleurBoven = ..KantenbandKleurEnum.Zwart
+	Do ..AssertKantenband($$$False, KantenbandData, "", "", "DummyPassage", "Z8")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Reële data">
 <Implementation><![CDATA[
 	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
 	Set KantenbandData.PlaatAfwerking = ..PlaatAfwerkingEnum.Fineer
-	Set KantenbandData.Kleur = ..KantenbandKleurEnum.NatuurEikenhout
+	Set KantenbandData.KleurBoven = ..KantenbandKleurEnum.NatuurEikenhout
 	
 	#dim KantenbandProgramma As APPS.Halux.Machine.Kantenband.data.KantenbandProgramma = ##class(APPS.Halux.Machine.Kantenband.data.KantenbandProgramma).%New($$$DummyInteger)
 	Do KantenbandProgramma.ZetIsDoorvoer($$$False)
@@ -105,14 +105,14 @@
 	Do KantenbandRepositoryStub.IndienMethodCall("GeefProgramma", ..#RandomProgrammaId).DanReturn(KantenbandProgramma)
 	
 	#dim KantenbandBepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New(KantenbandRepositoryStub)
-	#dim Kantenband As %String = KantenbandBepaler.BepaalKantenband(KantenbandData, ..#RandomProgrammaId)
+	#dim Kantenband As %String = KantenbandBepaler.BepaalKantenband(KantenbandData, ..#RandomProgrammaId, "RandomPassage")
 	
 	Do $$$AssertEquals(Kantenband, "NED08B17")
 ]]></Implementation>
 </Method>
 
 <Method name="AssertKantenband">
-<FormalSpec>IsDoorvoer:%Boolean,KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData,DikteCode:%String,BreedteCode:%String,VerwachteWaarde:%String</FormalSpec>
+<FormalSpec>IsDoorvoer:%Boolean,KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData,DikteCode:%String,BreedteCode:%String,Passage:APPS.Halux.Machine.Kantenband.enu.Passage,VerwachteWaarde:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim KantenbandProgramma As APPS.Halux.Machine.Kantenband.data.KantenbandProgramma = ##class(APPS.Halux.Machine.Kantenband.data.KantenbandProgramma).%New($$$DummyInteger)
@@ -128,7 +128,7 @@
 	Do BreedteCodeBepalerStub.IndienMethodCall("BepaalCode", KantenbandData.PlaatAfwerking).DanReturn(BreedteCode)	
 	
 	#dim KantenbandBepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New(KantenbandRepositoryStub, DikteCodeBepalerStub, BreedteCodeBepalerStub)
-	#dim Kantenband As %String = KantenbandBepaler.BepaalKantenband(KantenbandData, ..#RandomProgrammaId)
+	#dim Kantenband As %String = KantenbandBepaler.BepaalKantenband(KantenbandData, ..#RandomProgrammaId, Passage)
 	
 	Do $$$AssertEquals(Kantenband, VerwachteWaarde)
 ]]></Implementation>
Index: vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml
===================================================================
diff -u -r54577 -r58556
--- vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 54577)
+++ vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 58556)
@@ -8,10 +8,17 @@
 <Super>APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>KantenBandProgrammaRepository:APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository="",DikteCodeBepaler:APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler="",BreedteCodeBepaler:APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalKantenband">
-<FormalSpec>KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData,ProgrammaId:%String</FormalSpec>
+<FormalSpec>KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData,ProgrammaId:%String,Passage:APPS.Halux.Machine.Kantenband.enu.Passage</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalKantenband",KantenbandData,ProgrammaId)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalKantenband",KantenbandData,ProgrammaId,Passage)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller/Test.cls.xml
===================================================================
diff -u -r58350 -r58556
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 58350)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller/Test.cls.xml	(.../Test.cls.xml)	(revision 58556)
@@ -3,18 +3,20 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataLadeInfoAanvuller.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="KantenbandRol">
+<Type>DOM.PM.Maatwerk.Lade.enu.KantenbandRol.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Test: UitvoeringInfo wordt aangevuld">
 <Implementation><![CDATA[
 	#dim RandomConcept As %String = "RandomConcept"
 	#dim RandomLadeDiepte As %String = "DummyLadeDiepte"
 	#dim RandomRol As %String = "DummyRol"
 	#dim RandomPlaatAfwerking As %String = "RandomPlaatAfwerking"
+	#dim RandomLadeKleur As %String = "RandomLadeKleur"
+	#dim RandomKantenbandKleur As %String = "RandomKantenbandKleur"
 	
-	#dim DummyKleuren As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
-	Do DummyKleuren.SetAt("DummyKleur1", 1)
-	Do DummyKleuren.SetAt("DummyKleur2", 2)
-	Do DummyKleuren.SetAt("DummyKleur3", 3)
-	
 	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo).%New()
 	Set UitvoeringInfo.BatchID = "RandomBatchId"
 	Set UitvoeringInfo.ToeleveringID = "RandomToeleveringId"
@@ -23,31 +25,36 @@
 	#dim LadeMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
 	Do LadeMock.VerwachtMethodCall("GeefConcept").DanReturn(RandomConcept)
 	Do LadeMock.VerwachtMethodCall("GeefDiepte").DanReturn(RandomLadeDiepte)
-	Do LadeMock.VerwachtMethodCall("GeefKleur").DanReturn(DummyKleuren.GetAt(1))
+	Do LadeMock.VerwachtMethodCall("GeefKleur").DanReturn(RandomLadeKleur)
 	
 	#dim LadeOnderdeelMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel).%New()
 	Do LadeOnderdeelMock.VerwachtMethodCall("GeefLade").DanReturn(LadeMock)
-	Do LadeOnderdeelMock.VerwachtMethodCall("GeefKleuren").DanReturn(DummyKleuren)
 	Do LadeOnderdeelMock.VerwachtMethodCall("GeefRol").DanReturn(RandomRol)
 	
 	#dim PlaatAfwerkingBepalerMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler).%New()
-	Do PlaatAfwerkingBepalerMock.VerwachtMethodCall("GeefPlaatAfwerking", DummyKleuren.GetAt(1)).DanReturn(RandomPlaatAfwerking)
+	Do PlaatAfwerkingBepalerMock.VerwachtMethodCall("GeefPlaatAfwerking", RandomLadeKleur).DanReturn(RandomPlaatAfwerking)
 	
-	#dim LadeInfoAanvuller As APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataLadeInfoAanvuller = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataLadeInfoAanvuller).%New(LadeOnderdeelMock, PlaatAfwerkingBepalerMock)
+	#dim KleurBepalerMock As vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataKleurBepaler).%New()
+	Do KleurBepalerMock.VerwachtMethodCall("Bepaal", LadeOnderdeelMock, ..KantenbandRol.Boven).DanReturn(RandomKantenbandKleur)
+	Do KleurBepalerMock.VerwachtMethodCall("Bepaal", LadeOnderdeelMock, ..KantenbandRol.Onder).DanReturn(RandomKantenbandKleur)
+	
+	#dim LadeInfoAanvuller As APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataLadeInfoAanvuller = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataLadeInfoAanvuller).%New(LadeOnderdeelMock, PlaatAfwerkingBepalerMock, KleurBepalerMock)
 	Do LadeInfoAanvuller.VulAan(UitvoeringInfo)
 	
 	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.Toelevering, UitvoeringInfo.ToeleveringID)
 	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.DossierCode, UitvoeringInfo.DossierCode)
 	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.BatchID, UitvoeringInfo.BatchID)
 	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.Concept, RandomConcept)
 	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.LadeDiepte, RandomLadeDiepte)
-	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.Kleur, DummyKleuren.GetAt(3))
+	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.KleurBoven, RandomKantenbandKleur)
+	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.KleurOnder, RandomKantenbandKleur)
 	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.Rol, RandomRol)
 	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.PlaatAfwerking, RandomPlaatAfwerking)
 	
 	Do LadeOnderdeelMock.Verifieer()
 	Do LadeMock.Verifieer()
 	Do PlaatAfwerkingBepalerMock.Verifieer()
+	Do KleurBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>