Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/TestRug.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/TestRug.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/TestRug.cls.xml	(revision 58567)
@@ -0,0 +1,139 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.Machine.Kantenband.impl.PassageBepaler.TestRug">
+<Super>vhUnitTest.APPS.Halux.Machine.Kantenband.impl.PassageBepaler.TestBase</Super>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..LadeOnderdeelRol = ##class(APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel).Rug()
+	Set ..Uitgang = ##class(APPS.Halux.Machine.Kantenband.enu.Uitgang).E()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zelfde melaminekleur voor Kantenband boven-onder en melamine PlaatAfwerking">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As KantenbandUitvoeringInfo = ..GeefUitvoeringInfo(..Kleur.Wit, ..Kleur.Wit, ..PlaatAfwerking.Melamine)
+	#dim Passages As %ListOfObjects = ..PassageBepaler.GeefPassages(UitvoeringInfo)
+	
+	Do $$$AssertEquals(Passages.Count(), 2)
+	
+	Do ..AssertPassage(Passages.GetAt(1), ..ProgrammaNaam.PVC13, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(2), ..ProgrammaNaam.PVC13G, $$$False, $$$False, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zelfde melaminekleur voor Kantenband boven-onder en fineer PlaatAfwerking">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ..GeefUitvoeringInfo(..Kleur.Wit, ..Kleur.Wit, ..PlaatAfwerking.Fineer)
+	#dim Passages As %ListOfObjects = ..PassageBepaler.GeefPassages(UitvoeringInfo)
+	
+	Do $$$AssertEquals(Passages.Count(), 2)
+	
+	Do ..AssertPassage(Passages.GetAt(1), ..ProgrammaNaam.PVC13, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(2), ..ProgrammaNaam.PVC13G, $$$False, $$$False, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zelfde fineerkleur voor Kantenband boven-onder en fineer PlaatAfwerking">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ..GeefUitvoeringInfo(..Kleur.NatuurEikenhout, ..Kleur.NatuurEikenhout, ..PlaatAfwerking.Fineer)
+	#dim Passages As %ListOfObjects = ..PassageBepaler.GeefPassages(UitvoeringInfo)
+	
+	Do $$$AssertEquals(Passages.Count(), 4)
+	
+	Do ..AssertPassage(Passages.GetAt(1), ..ProgrammaNaam.NE13, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(2), ..ProgrammaNaam.NE13G, $$$False, $$$True)
+	Do ..AssertPassage(Passages.GetAt(3), ..ProgrammaNaam.Schiele, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(4), ..ProgrammaNaam.Schiele, $$$True, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zelfde fineerkleur voor Kantenband boven-onder en melamine PlaatAfwerking">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ..GeefUitvoeringInfo(..Kleur.NatuurEikenhout, ..Kleur.NatuurEikenhout, ..PlaatAfwerking.Melamine)
+	#dim Passages As %ListOfObjects = ..PassageBepaler.GeefPassages(UitvoeringInfo)
+	
+	Do $$$AssertEquals(Passages.Count(), 4)
+	
+	Do ..AssertPassage(Passages.GetAt(1), ..ProgrammaNaam.BINE13, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(2), ..ProgrammaNaam.BINE13G, $$$False, $$$True)
+	Do ..AssertPassage(Passages.GetAt(3), ..ProgrammaNaam.Schiele, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(4), ..ProgrammaNaam.Schiele, $$$True, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschillende fineerkleur voor Kantenband boven-onder en PlaatAfwerking Fineer">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ..GeefUitvoeringInfo(..Kleur.NatuurEikenhout, ..Kleur.NatuurNotenhout, ..PlaatAfwerking.Fineer)
+	#dim Passages As %ListOfObjects = ..PassageBepaler.GeefPassages(UitvoeringInfo)
+	
+	Do $$$AssertEquals(Passages.Count(), 4)
+	
+	Do ..AssertPassage(Passages.GetAt(1), ..ProgrammaNaam.NE13, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(2), ..ProgrammaNaam.NN13G, $$$False, $$$True)
+	Do ..AssertPassage(Passages.GetAt(3), ..ProgrammaNaam.Schiele, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(4), ..ProgrammaNaam.Schiele, $$$True, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kantenband boven Fineer, Kantenband onder Melamine en PlaatAfwerking Fineer">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ..GeefUitvoeringInfo(..Kleur.NatuurEikenhout, ..Kleur.Wit, ..PlaatAfwerking.Fineer)
+	#dim Passages As %ListOfObjects = ..PassageBepaler.GeefPassages(UitvoeringInfo)
+	
+	Do $$$AssertEquals(Passages.Count(), 4)
+	
+	Do ..AssertPassage(Passages.GetAt(1), ..ProgrammaNaam.NE13, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(2), ..ProgrammaNaam.PVC13G, $$$False, $$$True)
+	Do ..AssertPassage(Passages.GetAt(3), ..ProgrammaNaam.Schiele, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(4), ..ProgrammaNaam.Transfer, $$$True, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kantenband boven Melamine, Kantenband onder Fineer en PlaatAfwerking Fineer">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ..GeefUitvoeringInfo(..Kleur.Wit, ..Kleur.NatuurEikenhout, ..PlaatAfwerking.Fineer)
+	#dim Passages As %ListOfObjects = ..PassageBepaler.GeefPassages(UitvoeringInfo)
+	
+	Do $$$AssertEquals(Passages.Count(), 4)
+	
+	Do ..AssertPassage(Passages.GetAt(1), ..ProgrammaNaam.PVC13, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(2), ..ProgrammaNaam.NE13G, $$$False, $$$True)
+	Do ..AssertPassage(Passages.GetAt(3), ..ProgrammaNaam.Transfer, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(4), ..ProgrammaNaam.Schiele, $$$True, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kantenband boven Fineer, Kantenband onder Melamine en PlaatAfwerking Melamine">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ..GeefUitvoeringInfo(..Kleur.NatuurEikenhout, ..Kleur.Wit, ..PlaatAfwerking.Melamine)
+	#dim Passages As %ListOfObjects = ..PassageBepaler.GeefPassages(UitvoeringInfo)
+	
+	Do $$$AssertEquals(Passages.Count(), 4)
+	
+	Do ..AssertPassage(Passages.GetAt(1), ..ProgrammaNaam.BINE13, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(2), ..ProgrammaNaam.PVC13G, $$$False, $$$True)
+	Do ..AssertPassage(Passages.GetAt(3), ..ProgrammaNaam.Schiele, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(4), ..ProgrammaNaam.Transfer, $$$True, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Kantenband boven Melamine, Kantenband onder Fineer en PlaatAfwerking Melamine">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ..GeefUitvoeringInfo(..Kleur.Wit, ..Kleur.NatuurEikenhout, ..PlaatAfwerking.Melamine)
+	#dim Passages As %ListOfObjects = ..PassageBepaler.GeefPassages(UitvoeringInfo)
+	
+	Do $$$AssertEquals(Passages.Count(), 4)
+	
+	Do ..AssertPassage(Passages.GetAt(1), ..ProgrammaNaam.PVC13, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(2), ..ProgrammaNaam.BINE13G, $$$False, $$$True)
+	Do ..AssertPassage(Passages.GetAt(3), ..ProgrammaNaam.Transfer, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(4), ..ProgrammaNaam.Schiele, $$$True, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/TestBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/TestBase.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/TestBase.cls.xml	(revision 58567)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.Machine.Kantenband.impl.PassageBepaler.TestBase">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Parameter Type As %String = "I";
+
+]]></Content>
+</UDLText>
+
+<Property name="PassageBepaler">
+<Type>APPS.Halux.Machine.Kantenband.impl.PassageBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeOnderdeelRol">
+<Type>APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Uitgang">
+<Type>APPS.Halux.Machine.Kantenband.enu.Uitgang</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Kleur">
+<Type>DOM.PM.enu.TAORKantenbandKleur.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PlaatAfwerking">
+<Type>DOM.PM.enu.TAORPlaatAfwerking.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProgrammaNaam">
+<Type>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..PassageBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.PassageBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="GeefUitvoeringInfo">
+<FormalSpec>KantenbandKleurBoven:DOM.PM.enu.TAORKantenbandKleur,KantenbandKleurOnder:DOM.PM.enu.TAORKantenbandKleur,PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo).%New()
+	
+	Set UitvoeringInfo.KantenbandData.KleurBoven = KantenbandKleurBoven
+	Set UitvoeringInfo.KantenbandData.KleurOnder = KantenbandKleurOnder
+	Set UitvoeringInfo.KantenbandData.Rol = ..LadeOnderdeelRol
+	Set UitvoeringInfo.KantenbandData.PlaatAfwerking = PlaatAfwerking
+	
+	Quit UitvoeringInfo
+]]></Implementation>
+</Method>
+
+<Method name="AssertPassage">
+<FormalSpec>Passage:APPS.Halux.Machine.Kantenband.Passage,VerwachtProgramma:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam,VerwachtMoetDraaien:%Boolean,VerwachtMoetKantelen:%Boolean,VerwachteUitgang:APPS.Halux.Machine.Kantenband.enu.Uitgang=##class(APPS.Halux.Machine.Kantenband.enu.Uitgang).GeenUitgang()</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(Passage.Programma, VerwachtProgramma)
+	Do $$$AssertEquals(Passage.Draai180Graden, VerwachtMoetDraaien)
+	Do $$$AssertEquals(Passage.Kantel180Graden, VerwachtMoetKantelen)
+	Do $$$AssertEquals(Passage.Uitgang, VerwachteUitgang)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Base.cls.xml
===================================================================
diff -u -r58511 -r58567
--- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Base.cls.xml	(.../Base.cls.xml)	(revision 58511)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Base.cls.xml	(.../Base.cls.xml)	(revision 58567)
@@ -9,16 +9,21 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Kleur">
-<Type>DOM.PM.enu.TAORKantenbandKleur.AutoComplete</Type>
+<Property name="LadeOnderdeelRol">
+<Type>APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LadeOnderdeelRol">
-<Type>APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel</Type>
+<Property name="Uitgang">
+<Type>APPS.Halux.Machine.Kantenband.enu.Uitgang</Type>
 <Private>1</Private>
 </Property>
 
+<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>
@@ -34,11 +39,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Uitgang">
-<Type>APPS.Halux.Machine.Kantenband.enu.Uitgang.AutoComplete</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="Definieer">
 <Abstract>1</Abstract>
 </Method>
@@ -71,6 +71,14 @@
 	Do ..DataDefinitie.Save()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKantenbandDefinitie">
+<FormalSpec>PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,KleurBoven:DOM.PM.enu.TAORKantenbandKleur,KleurOnder:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam,ProgrammaNaamOnder:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.KantenbandDefinitie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.KantenbandDefinitie).%New(PlaatAfwerking, KleurBoven, KleurOnder, ProgrammaNaamBoven, ProgrammaNaamOnder)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/KantenbandDefinitie.cls.xml
===================================================================
diff -u
--- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/KantenbandDefinitie.cls.xml	(revision 0)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/KantenbandDefinitie.cls.xml	(revision 58567)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.KantenbandDefinitie">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="PlaatAfwerking">
+<Type>DOM.PM.enu.TAORPlaatAfwerking</Type>
+</Property>
+
+<Property name="KleurBoven">
+<Type>DOM.PM.enu.TAORKantenbandKleur</Type>
+</Property>
+
+<Property name="KleurOnder">
+<Type>DOM.PM.enu.TAORKantenbandKleur</Type>
+</Property>
+
+<Property name="ProgrammaNaamBoven">
+<Type>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</Type>
+</Property>
+
+<Property name="ProgrammaNaamOnder">
+<Type>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,KleurBoven:DOM.PM.enu.TAORKantenbandKleur,KleurOnder:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam,ProgrammaNaamOnder:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..PlaatAfwerking = PlaatAfwerking
+	Set ..KleurBoven = KleurBoven
+	Set ..KleurOnder = KleurOnder
+	Set ..ProgrammaNaamBoven = ProgrammaNaamBoven
+	Set ..ProgrammaNaamOnder = ProgrammaNaamOnder
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
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>