Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Zijkant.cls.xml
===================================================================
diff -u -r58506 -r58574
--- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 58506)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 58574)
@@ -10,148 +10,123 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..LadeOnderdeelRol = ##class(APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel).Zijkant()
+	Set ..Uitgang = ##class(APPS.Halux.Machine.Kantenband.enu.Uitgang).D()
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Definieer">
 <Implementation><![CDATA[
-	Do ..DefinieerPlaatAfwerkingFineerMetKantenbandFineer()
-	Do ..DefinieerPlaatAfwerkingFineerMetKantenbandMelamine()
-	
-	Do ..DefinieerPlaatAfwerkingMelamineMetKantenbandMelamine()
-	Do ..DefinieerPlaatAfwerkingMelamineMetKantenbandFineer()
+	Do ..DefinieerKantenbandFineer()
+	Do ..DefinieerKantenbandMelamine()
+	//Do ..DefinieerKantenbandFineerEnMelamine()
 ]]></Implementation>
 </Method>
 
-<Method name="DefinieerPlaatAfwerkingFineerMetKantenbandFineer">
+<Method name="DefinieerKantenbandFineer">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.NatuurEikenhout).MetWaarde(..Passage.Een, ..ProgrammaNaam.NE13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.NatuurEikenhout).MetWaarde(..Passage.Twee, ..ProgrammaNaam.NE13, $$$True, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.NatuurEikenhout).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.NatuurEikenhout).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang.D)
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineer(..Kleur.NatuurEikenhout, ..ProgrammaNaam.NE13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineer(..Kleur.NatuurNotenhout, ..ProgrammaNaam.NN13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineer(..Kleur.ZwartIngekleurdYaya, ..ProgrammaNaam.ZY13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineer(..Kleur.Berk, ..ProgrammaNaam.BE13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineer(..Kleur.Sycomore, ..ProgrammaNaam.SY13)
+	//Do ..VoegToeDefinitiesFineerMetKantenbandFineer(..Kleur.BrutEik, ..ProgrammaNaam.XE13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineer(..Kleur.MultiplexBerk, ..ProgrammaNaam.MB13)
 	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.NatuurNotenhout).MetWaarde(..Passage.Een, ..ProgrammaNaam.NN13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.NatuurNotenhout).MetWaarde(..Passage.Twee, ..ProgrammaNaam.NN13, $$$True, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.NatuurNotenhout).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.NatuurNotenhout).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.ZwartIngekleurdYaya).MetWaarde(..Passage.Een, ..ProgrammaNaam.ZY13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.ZwartIngekleurdYaya).MetWaarde(..Passage.Twee, ..ProgrammaNaam.ZY13, $$$True, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.ZwartIngekleurdYaya).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.ZwartIngekleurdYaya).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Berk).MetWaarde(..Passage.Een, ..ProgrammaNaam.BE13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Berk).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BE13, $$$True, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Berk).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Berk).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Sycomore).MetWaarde(..Passage.Een, ..ProgrammaNaam.SY13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Sycomore).MetWaarde(..Passage.Twee, ..ProgrammaNaam.SY13, $$$True, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Sycomore).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Sycomore).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang.D)	
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.BrutEik).MetWaarde(..Passage.Een, ..ProgrammaNaam.XE13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.BrutEik).MetWaarde(..Passage.Twee, ..ProgrammaNaam.XE13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.MultiplexBerk).MetWaarde(..Passage.Een, ..ProgrammaNaam.MB13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.MultiplexBerk).MetWaarde(..Passage.Twee, ..ProgrammaNaam.MB13, $$$True, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.MultiplexBerk).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.MultiplexBerk).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang.D)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineer(..Kleur.NatuurEikenhout, ..ProgrammaNaam.BINE13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineer(..Kleur.NatuurNotenhout, ..ProgrammaNaam.BINN13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineer(..Kleur.ZwartIngekleurdYaya, ..ProgrammaNaam.BIZY13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineer(..Kleur.Berk, ..ProgrammaNaam.BIBE13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineer(..Kleur.Sycomore, ..ProgrammaNaam.BISY13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineer(..Kleur.BrutEik, ..ProgrammaNaam.BIXE13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineer(..Kleur.MultiplexBerk, ..ProgrammaNaam.BIMB13)
 ]]></Implementation>
 </Method>
 
-<Method name="DefinieerPlaatAfwerkingFineerMetKantenbandMelamine">
+<Method name="VoegToeDefinitiesFineerMetKantenbandFineer">
+<FormalSpec>KantenbandKleurBoven:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.BardolinoEik).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.BardolinoEik).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.NebraskaEikenhout).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.NebraskaEikenhout).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Zwart).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Zwart).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13, $$$False, $$$True, ..Uitgang.D)
-		
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Wit).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Wit).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.OnyxGrijs).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.OnyxGrijs).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Dakar).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Dakar).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Linnen).MetWaarde(..Passage.Een, ..ProgrammaNaam.XPVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Linnen).MetWaarde(..Passage.Twee, ..ProgrammaNaam.XPVC13, $$$False, $$$True, ..Uitgang.D)
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.NatuurEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.NE13))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.NatuurNotenhout, ProgrammaNaamBoven, ..ProgrammaNaam.NN13))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.ZwartIngekleurdYaya, ProgrammaNaamBoven, ..ProgrammaNaam.ZY13))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Berk, ProgrammaNaamBoven, ..ProgrammaNaam.BE13))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Sycomore, ProgrammaNaamBoven, ..ProgrammaNaam.SY13))
+	//Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.BrutEik, ProgrammaNaamBoven, ..ProgrammaNaam.XE13))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.MultiplexBerk, ProgrammaNaamBoven, ..ProgrammaNaam.MB13))
 ]]></Implementation>
 </Method>
 
-<Method name="DefinieerPlaatAfwerkingMelamineMetKantenbandMelamine">
+<Method name="VoegToeDefinitiesMelamineMetKantenbandFineer">
+<FormalSpec>KantenbandKleurBoven:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.BardolinoEik).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.BardolinoEik).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NebraskaEikenhout).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NebraskaEikenhout).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Zwart).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Zwart).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Wit).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Wit).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.OnyxGrijs).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.OnyxGrijs).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Dakar).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Dakar).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Linnen).MetWaarde(..Passage.Een, ..ProgrammaNaam.XPVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Linnen).MetWaarde(..Passage.Twee, ..ProgrammaNaam.XPVC13, $$$False, $$$True, ..Uitgang.D)
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NatuurEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.BINE13))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NatuurNotenhout, ProgrammaNaamBoven, ..ProgrammaNaam.BINN13))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.ZwartIngekleurdYaya, ProgrammaNaamBoven, ..ProgrammaNaam.BIZY13))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Berk, ProgrammaNaamBoven, ..ProgrammaNaam.BIBE13))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Sycomore, ProgrammaNaamBoven, ..ProgrammaNaam.BISY13))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.BrutEik, ProgrammaNaamBoven, ..ProgrammaNaam.BIXE13))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.MultiplexBerk, ProgrammaNaamBoven, ..ProgrammaNaam.BIMB13))
 ]]></Implementation>
 </Method>
 
-<Method name="DefinieerPlaatAfwerkingMelamineMetKantenbandFineer">
+<Method name="VoegToeDefinitieFineer">
+<FormalSpec>KantenbandDefinitie:APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.KantenbandDefinitie</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NatuurEikenhout).MetWaarde(..Passage.Een, ..ProgrammaNaam.BINE13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NatuurEikenhout).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BINE13, $$$True, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NatuurEikenhout).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NatuurEikenhout).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang.D)
+	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Een, KantenbandDefinitie.ProgrammaNaamBoven, $$$True, $$$False)
+	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Twee, KantenbandDefinitie.ProgrammaNaamOnder, $$$True, $$$True)
+	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
+	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="DefinieerKantenbandMelamine">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.BardolinoEik, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.NebraskaEikenhout, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.Zwart, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.Wit, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.OnyxGrijs, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.Dakar, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMetKantendbandMelamine(..Kleur.Linnen, ..ProgrammaNaam.XPVC13)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDefinitiesMetKantendbandMelamine">
+<FormalSpec>KantenbandKleurBoven:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.BardolinoEik, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.NebraskaEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Zwart, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Wit, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.OnyxGrijs, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13))
 	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NatuurNotenhout).MetWaarde(..Passage.Een, ..ProgrammaNaam.BINN13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NatuurNotenhout).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BINN13, $$$True, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NatuurNotenhout).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NatuurNotenhout).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.ZwartIngekleurdYaya).MetWaarde(..Passage.Een, ..ProgrammaNaam.BIZY13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.ZwartIngekleurdYaya).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BIZY13, $$$True, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.ZwartIngekleurdYaya).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.ZwartIngekleurdYaya).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Berk).MetWaarde(..Passage.Een, ..ProgrammaNaam.BIBE13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Berk).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BIBE13, $$$True, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Berk).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Berk).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Sycomore).MetWaarde(..Passage.Een, ..ProgrammaNaam.BISY13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Sycomore).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BISY13, $$$True, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Sycomore).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Sycomore).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.BrutEik).MetWaarde(..Passage.Een, ..ProgrammaNaam.BIXE13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.BrutEik).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BIXE13, $$$False, $$$True, ..Uitgang.D)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.MultiplexBerk).MetWaarde(..Passage.Een, ..ProgrammaNaam.BIMB13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.MultiplexBerk).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BIMB13, $$$True, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.MultiplexBerk).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.MultiplexBerk).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$False, $$$False, ..Uitgang.D)
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.BardolinoEik, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NebraskaEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Zwart, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Wit, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.OnyxGrijs, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13))
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeDefinitieMelamine">
+<FormalSpec>KantenbandDefinitie:APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.KantenbandDefinitie</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Een, KantenbandDefinitie.ProgrammaNaamBoven, $$$True, $$$False)
+	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Twee, KantenbandDefinitie.ProgrammaNaamOnder, $$$False, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
 </Class>