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)
 	}