Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Zijkant.cls.xml
===================================================================
diff -u -r58574 -r58594
--- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 58574)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Zijkant.cls.xml	(.../Zijkant.cls.xml)	(revision 58594)
@@ -20,7 +20,7 @@
 <Implementation><![CDATA[
 	Do ..DefinieerKantenbandFineer()
 	Do ..DefinieerKantenbandMelamine()
-	//Do ..DefinieerKantenbandFineerEnMelamine()
+	Do ..DefinieerKantenbandFineerEnMelamine()
 ]]></Implementation>
 </Method>
 
@@ -127,6 +127,143 @@
 	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Twee, KantenbandDefinitie.ProgrammaNaamOnder, $$$False, $$$True, ..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 ..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 ..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 ..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.PVC13))
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.NebraskaEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Zwart, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Wit, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.OnyxGrijs, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieFineerMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13))
+]]></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, $$$True, $$$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, $$$False, $$$False, ..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.NE13))
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.NatuurNotenhout, ProgrammaNaamBoven, ..ProgrammaNaam.NN13))
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.ZwartIngekleurdYaya, ProgrammaNaamBoven, ..ProgrammaNaam.ZY13))
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Berk, ProgrammaNaamBoven, ..ProgrammaNaam.BE13))
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.Sycomore, ProgrammaNaamBoven, ..ProgrammaNaam.SY13))
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.BrutEik, ProgrammaNaamBoven, ..ProgrammaNaam.XE13))
+	Do ..VoegToeDefinitieFineerMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, KantenbandKleurBoven, ..Kleur.MultiplexBerk, ProgrammaNaamBoven, ..ProgrammaNaam.MB13))
+]]></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, $$$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.Transfer, $$$False, $$$False, ..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.PVC13))
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NebraskaEikenhout, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Zwart, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Wit, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.OnyxGrijs, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Dakar, ProgrammaNaamBoven, ..ProgrammaNaam.PVC13))
+	Do ..VoegToeDefinitieMelamineMetKantenbandFineerEnMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Linnen, ProgrammaNaamBoven, ..ProgrammaNaam.XPVC13))
+]]></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, $$$True, $$$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, $$$False, $$$False, ..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.BINE13))
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.NatuurNotenhout, ProgrammaNaamBoven, ..ProgrammaNaam.BINN13))
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.ZwartIngekleurdYaya, ProgrammaNaamBoven, ..ProgrammaNaam.BIZY13))
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Berk, ProgrammaNaamBoven, ..ProgrammaNaam.BIBE13))
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.Sycomore, ProgrammaNaamBoven, ..ProgrammaNaam.BISY13))
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.BrutEik, ProgrammaNaamBoven, ..ProgrammaNaam.BIXE13))
+	Do ..VoegToeDefinitieMelamineMetKantenbandMelamineEnFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, KantenbandKleurBoven, ..Kleur.MultiplexBerk, ProgrammaNaamBoven, ..ProgrammaNaam.BIMB13))
+]]></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, $$$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.Transfer, $$$False, $$$False, ..Uitgang)
+]]></Implementation>
+</Method>
 </Class>