Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Rug.cls.xml
===================================================================
diff -u -r58506 -r58567
--- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Rug.cls.xml	(.../Rug.cls.xml)	(revision 58506)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Rug.cls.xml	(.../Rug.cls.xml)	(revision 58567)
@@ -10,150 +10,260 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..LadeOnderdeelRol = ##class(APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel).Rug()
+	Set ..Uitgang = ##class(APPS.Halux.Machine.Kantenband.enu.Uitgang).E()
 	
 	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.NE13G, $$$False, $$$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, $$$True, $$$True, ..Uitgang.E)
+	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.NN13G, $$$False, $$$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, $$$True, $$$True, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.ZwartIngekleurdYaya).MetWaarde(..Passage.Een, ..ProgrammaNaam.ZY13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.ZwartIngekleurdYaya).MetWaarde(..Passage.Twee, ..ProgrammaNaam.ZY13G, $$$False, $$$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, $$$True, $$$True, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Berk).MetWaarde(..Passage.Een, ..ProgrammaNaam.BE13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Berk).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BE13G, $$$False, $$$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, $$$True, $$$True, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Sycomore).MetWaarde(..Passage.Een, ..ProgrammaNaam.SY13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Sycomore).MetWaarde(..Passage.Twee, ..ProgrammaNaam.SY13G, $$$False, $$$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, $$$True, $$$True, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.BrutEik).MetWaarde(..Passage.Een, ..ProgrammaNaam.XE13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.BrutEik).MetWaarde(..Passage.Twee, ..ProgrammaNaam.XE13G, $$$False, $$$False, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.MultiplexBerk).MetWaarde(..Passage.Een, ..ProgrammaNaam.MB13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.MultiplexBerk).MetWaarde(..Passage.Twee, ..ProgrammaNaam.MB13G, $$$False, $$$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, $$$True, $$$True, ..Uitgang.E)
+	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.PVC13G, $$$False, $$$False, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.NebraskaEikenhout).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.NebraskaEikenhout).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13G, $$$False, $$$False, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Zwart).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Zwart).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13G, $$$False, $$$False, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Wit).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Wit).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13G, $$$False, $$$False, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.OnyxGrijs).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.OnyxGrijs).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13G, $$$False, $$$False, ..Uitgang.E)
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.NatuurEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.NE13G))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.NatuurNotenhout, ProgrammaNaamBoven, ..ProgrammaNaam.NN13G))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.ZwartIngekleurdYaya, ProgrammaNaamBoven, ..ProgrammaNaam.ZY13G))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Berk, ProgrammaNaamBoven, ..ProgrammaNaam.BE13G))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Sycomore, ProgrammaNaamBoven, ..ProgrammaNaam.SY13G))
+	//Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.BrutEik, ProgrammaNaamBoven, ..ProgrammaNaam.XE13G))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.MultiplexBerk, ProgrammaNaamBoven, ..ProgrammaNaam.MB13G))
+]]></Implementation>
+</Method>
 
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Dakar).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Dakar).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13G, $$$False, $$$False, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Linnen).MetWaarde(..Passage.Een, ..ProgrammaNaam.XPVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.Linnen).MetWaarde(..Passage.Twee, ..ProgrammaNaam.XPVC13G, $$$False, $$$False, ..Uitgang.E)
+<Method name="VoegToeDefinitiesMelamineMetKantenbandFineer">
+<FormalSpec>KantenbandKleurBoven:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NatuurEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.BINE13G))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NatuurNotenhout, ProgrammaNaamBoven, ..ProgrammaNaam.BINN13G))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.ZwartIngekleurdYaya, ProgrammaNaamBoven, ..ProgrammaNaam.BIZY13G))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Berk, ProgrammaNaamBoven, ..ProgrammaNaam.BIBE13G))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Sycomore, ProgrammaNaamBoven, ..ProgrammaNaam.BISY13G))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.BrutEik, ProgrammaNaamBoven, ..ProgrammaNaam.BIXE13G))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.MultiplexBerk, ProgrammaNaamBoven, ..ProgrammaNaam.BIMB13G))
 ]]></Implementation>
 </Method>
 
-<Method name="DefinieerPlaatAfwerkingMelamineMetKantenbandMelamine">
+<Method name="VoegToeDefinitieFineer">
+<FormalSpec>KantenbandDefinitie:APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.KantenbandDefinitie</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.PVC13G, $$$False, $$$False, ..Uitgang.E)
+	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)
+	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, $$$True, $$$True, ..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.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.NebraskaEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Zwart, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Wit, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.OnyxGrijs, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13G))
 	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NebraskaEikenhout).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NebraskaEikenhout).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13G, $$$False, $$$False, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Zwart).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Zwart).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13G, $$$False, $$$False, ..Uitgang.E)
-		
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Wit).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Wit).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13G, $$$False, $$$False, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.OnyxGrijs).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.OnyxGrijs).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13G, $$$False, $$$False, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Dakar).MetWaarde(..Passage.Een, ..ProgrammaNaam.PVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Dakar).MetWaarde(..Passage.Twee, ..ProgrammaNaam.PVC13G, $$$False, $$$False, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Linnen).MetWaarde(..Passage.Een, ..ProgrammaNaam.XPVC13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Linnen).MetWaarde(..Passage.Twee, ..ProgrammaNaam.XPVC13G, $$$False, $$$False, ..Uitgang.E)
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.BardolinoEik, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NebraskaEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Zwart, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Wit, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.OnyxGrijs, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13G))
 ]]></Implementation>
 </Method>
 
-<Method name="DefinieerPlaatAfwerkingMelamineMetKantenbandFineer">
+<Method name="VoegToeDefinitieMelamine">
+<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.BINE13G, $$$False, $$$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, $$$True, $$$True, ..Uitgang.E)
+	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, $$$False, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="DefinieerKantenbandFineerEnMelamine">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineerEnMelamine(..Kleur.NatuurEikenhout, ..ProgrammaNaam.NE13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineerEnMelamine(..Kleur.NatuurNotenhout, ..ProgrammaNaam.NN13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineerEnMelamine(..Kleur.ZwartIngekleurdYaya, ..ProgrammaNaam.ZY13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineerEnMelamine(..Kleur.Berk, ..ProgrammaNaam.BE13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineerEnMelamine(..Kleur.Sycomore, ..ProgrammaNaam.SY13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineerEnMelamine(..Kleur.BrutEik, ..ProgrammaNaam.XE13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandFineerEnMelamine(..Kleur.MultiplexBerk, ..ProgrammaNaam.MB13)
 	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NatuurNotenhout).MetWaarde(..Passage.Een, ..ProgrammaNaam.BINN13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.NatuurNotenhout).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BINN13G, $$$False, $$$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, $$$True, $$$True, ..Uitgang.E)
+	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.BardolinoEik, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.NebraskaEikenhout, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.Zwart, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.Wit, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.OnyxGrijs, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.Dakar, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer(..Kleur.Linnen, ..ProgrammaNaam.XPVC13)
 	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.ZwartIngekleurdYaya).MetWaarde(..Passage.Een, ..ProgrammaNaam.BIZY13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.ZwartIngekleurdYaya).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BIZY13G, $$$False, $$$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, $$$True, $$$True, ..Uitgang.E)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineerEnMelamine(..Kleur.NatuurEikenhout, ..ProgrammaNaam.BINE13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineerEnMelamine(..Kleur.NatuurNotenhout, ..ProgrammaNaam.BINN13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineerEnMelamine(..Kleur.ZwartIngekleurdYaya, ..ProgrammaNaam.BIZY13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineerEnMelamine(..Kleur.Berk, ..ProgrammaNaam.BIBE13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineerEnMelamine(..Kleur.Sycomore, ..ProgrammaNaam.BISY13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineerEnMelamine(..Kleur.BrutEik, ..ProgrammaNaam.BIXE13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandFineerEnMelamine(..Kleur.MultiplexBerk, ..ProgrammaNaam.BIMB13)
 	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Berk).MetWaarde(..Passage.Een, ..ProgrammaNaam.BIBE13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Berk).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BIBE13G, $$$False, $$$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, $$$True, $$$True, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Sycomore).MetWaarde(..Passage.Een, ..ProgrammaNaam.BISY13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.Sycomore).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BISY13G, $$$False, $$$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, $$$True, $$$True, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.BrutEik).MetWaarde(..Passage.Een, ..ProgrammaNaam.BIXE13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.BrutEik).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BIXE13G, $$$False, $$$True)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.BrutEik).MetWaarde(..Passage.Drie, ..ProgrammaNaam.Schiele, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.BrutEik).MetWaarde(..Passage.Vier, ..ProgrammaNaam.Schiele, $$$True, $$$True, ..Uitgang.E)
-	
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.MultiplexBerk).MetWaarde(..Passage.Een, ..ProgrammaNaam.BIMB13, $$$True, $$$False)
-	Do ..VoegToe(..PlaatAfwerking.Melamine, ..Kleur.MultiplexBerk).MetWaarde(..Passage.Twee, ..ProgrammaNaam.BIMB13G, $$$False, $$$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, $$$True, $$$True, ..Uitgang.E)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.BardolinoEik, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.NebraskaEikenhout, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.Zwart, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.Wit, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.OnyxGrijs, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.Dakar, ..ProgrammaNaam.PVC13)
+	Do ..VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer(..Kleur.Linnen, ..ProgrammaNaam.XPVC13)
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeDefinitiesFineerMetKantenbandFineerEnMelamine">
+<FormalSpec>KantenbandKleurBoven:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.BardolinoEik, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.NebraskaEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Zwart, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Wit, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.OnyxGrijs, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13G))
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDefinitieFineerMetKantenbandFineerEnMelamine">
+<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)
+	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.Transfer, $$$True, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDefinitiesFineerMetKantenbandMelamineEnFineer">
+<FormalSpec>KantenbandKleurBoven:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.NatuurEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.NE13G))
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.NatuurNotenhout, ProgrammaNaamBoven, ..ProgrammaNaam.NN13G))
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.ZwartIngekleurdYaya, ProgrammaNaamBoven, ..ProgrammaNaam.ZY13G))
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Berk, ProgrammaNaamBoven, ..ProgrammaNaam.BE13G))
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Sycomore, ProgrammaNaamBoven, ..ProgrammaNaam.SY13G))
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.BrutEik, ProgrammaNaamBoven, ..ProgrammaNaam.XE13G))
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.MultiplexBerk, ProgrammaNaamBoven, ..ProgrammaNaam.MB13G))
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDefinitieFineerMetKantenbandMelamineEnFineer">
+<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)
+	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Drie,  ..ProgrammaNaam.Transfer, $$$True, $$$False)
+	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Vier,  ..ProgrammaNaam.Schiele, $$$True, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDefinitiesMelamineMetKantenbandFineerEnMelamine">
+<FormalSpec>KantenbandKleurBoven:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.BardolinoEik, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NebraskaEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Zwart, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Wit, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.OnyxGrijs, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13G))
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13G))
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine">
+<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)
+	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.Transfer, $$$True, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDefinitiesMelamineMetKantenbandMelamineEnFineer">
+<FormalSpec>KantenbandKleurBoven:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NatuurEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.BINE13G))
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NatuurNotenhout, ProgrammaNaamBoven, ..ProgrammaNaam.BINN13G))
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.ZwartIngekleurdYaya, ProgrammaNaamBoven, ..ProgrammaNaam.BIZY13G))
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Berk, ProgrammaNaamBoven, ..ProgrammaNaam.BIBE13G))
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Sycomore, ProgrammaNaamBoven, ..ProgrammaNaam.BISY13G))
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.BrutEik, ProgrammaNaamBoven, ..ProgrammaNaam.BIXE13G))
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.MultiplexBerk, ProgrammaNaamBoven, ..ProgrammaNaam.BIMB13G))
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer">
+<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)
+	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Drie,  ..ProgrammaNaam.Transfer, $$$True, $$$False)
+	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Vier,  ..ProgrammaNaam.Schiele, $$$True, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
 </Class>