Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder.cls.xml
===================================================================
diff -u -r58511 -r58575
--- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder.cls.xml	(.../PassageDefinitieDefinieerder.cls.xml)	(revision 58511)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder.cls.xml	(.../PassageDefinitieDefinieerder.cls.xml)	(revision 58575)
@@ -12,6 +12,7 @@
 <Implementation><![CDATA[
 	Do ##class(APPS.Halux.Machine.Kantenband.data.PassageDefinitie).%KillExtent()
 	
+	Do ##class(APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.Front).%New().Definieer()
 	Do ##class(APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.Rug).%New().Definieer()
 	Do ##class(APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.Zijkant).%New().Definieer()
 ]]></Implementation>
Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/TestFront.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/TestFront.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/TestFront.cls.xml	(revision 58575)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.Machine.Kantenband.impl.PassageBepaler.TestFront">
+<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).Front()
+	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.PVC9, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(2), ..ProgrammaNaam.PVC9, $$$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.NE9, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(2), ..ProgrammaNaam.NE9, $$$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 Fineer PlaatAfwerking verwacht slechts 2 passage voor BrutEik">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ..GeefUitvoeringInfo(..Kleur.BrutEik, ..Kleur.BrutEik, ..PlaatAfwerking.Fineer)
+	#dim Passages As %ListOfObjects = ..PassageBepaler.GeefPassages(UitvoeringInfo)
+	
+	Do $$$AssertEquals(Passages.Count(), 2)
+	
+	Do ..AssertPassage(Passages.GetAt(1), ..ProgrammaNaam.XE9, $$$True, $$$False)
+	Do ..AssertPassage(Passages.GetAt(2), ..ProgrammaNaam.XE9, $$$False, $$$False, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschillende kleur voor Kantenband boven-onder kan niet bij Front">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ..GeefUitvoeringInfo(..Kleur.Wit, ..Kleur.Zwart, ..PlaatAfwerking.Fineer)
+	#dim Passages As %ListOfObjects = ..PassageBepaler.GeefPassages(UitvoeringInfo)
+	
+	Do $$$AssertEquals(Passages.Count(), 0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Verschillende PlaatAfwerking voor Kantenband en Plaat kan niet bij Front">
+<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(), 0)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Front.cls.xml
===================================================================
diff -u
--- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Front.cls.xml	(revision 0)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Front.cls.xml	(revision 58575)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.Front">
+<Super>APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.Base</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LadeOnderdeelRol = ##class(APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel).Front()
+	Set ..Uitgang = ##class(APPS.Halux.Machine.Kantenband.enu.Uitgang).E()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Definieer">
+<Implementation><![CDATA[
+	Do ..DefinieerFineer()
+	Do ..DefinieerMelamine()
+]]></Implementation>
+</Method>
+
+<Method name="DefinieerFineer">
+<Implementation><![CDATA[
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, ..Kleur.NatuurEikenhout, ..Kleur.NatuurEikenhout, ..ProgrammaNaam.NE9, ..ProgrammaNaam.NE9))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, ..Kleur.NatuurNotenhout, ..Kleur.NatuurNotenhout, ..ProgrammaNaam.NN9, ..ProgrammaNaam.NN9))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, ..Kleur.ZwartIngekleurdYaya, ..Kleur.ZwartIngekleurdYaya, ..ProgrammaNaam.ZY9, ..ProgrammaNaam.ZY9))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, ..Kleur.Berk, ..Kleur.Berk, ..ProgrammaNaam.BE9, ..ProgrammaNaam.BE9))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, ..Kleur.Sycomore, ..Kleur.Sycomore, ..ProgrammaNaam.SY9, ..ProgrammaNaam.SY9))
+	Do ..VoegToeDefinitieFineer(..GeefKantenbandDefinitie(..PlaatAfwerking.Fineer, ..Kleur.MultiplexBerk, ..Kleur.MultiplexBerk, ..ProgrammaNaam.MB9, ..ProgrammaNaam.MB9))
+	
+	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.BrutEik, ..Kleur.BrutEik).MetWaarde(..Passage.Een, ..ProgrammaNaam.XE9, $$$True, $$$False)
+	Do ..VoegToe(..PlaatAfwerking.Fineer, ..Kleur.BrutEik, ..Kleur.BrutEik).MetWaarde(..Passage.Twee, ..ProgrammaNaam.XE9, $$$False, $$$False, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDefinitieFineer">
+<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.Schiele, $$$True, $$$True, ..Uitgang)
+]]></Implementation>
+</Method>
+
+<Method name="DefinieerMelamine">
+<Implementation><![CDATA[
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, ..Kleur.BardolinoEik, ..Kleur.BardolinoEik, ..ProgrammaNaam.PVC9, ..ProgrammaNaam.PVC9))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, ..Kleur.NebraskaEikenhout, ..Kleur.NebraskaEikenhout, ..ProgrammaNaam.PVC9, ..ProgrammaNaam.PVC9))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, ..Kleur.Zwart, ..Kleur.Zwart, ..ProgrammaNaam.PVC9, ..ProgrammaNaam.PVC9))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, ..Kleur.Wit, ..Kleur.Wit, ..ProgrammaNaam.PVC9, ..ProgrammaNaam.PVC9))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, ..Kleur.OnyxGrijs, ..Kleur.OnyxGrijs, ..ProgrammaNaam.PVC9, ..ProgrammaNaam.PVC9))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, ..Kleur.Dakar, ..Kleur.Dakar, ..ProgrammaNaam.PVC9, ..ProgrammaNaam.PVC9))
+	Do ..VoegToeDefinitieMelamine(..GeefKantenbandDefinitie(..PlaatAfwerking.Melamine, ..Kleur.Linnen, ..Kleur.Linnen, ..ProgrammaNaam.XPVC9, ..ProgrammaNaam.XPVC9))
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDefinitieMelamine">
+<FormalSpec>KantenbandDefinitie:APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.KantenbandDefinitie</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Een, KantenbandDefinitie.ProgrammaNaamBoven, $$$True, $$$False)
+	Do ..VoegToe(KantenbandDefinitie.PlaatAfwerking, KantenbandDefinitie.KleurBoven, KantenbandDefinitie.KleurOnder).MetWaarde(..Passage.Twee, KantenbandDefinitie.ProgrammaNaamOnder, $$$False, $$$False, ..Uitgang)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>