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