Index: APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam.cls.xml
===================================================================
diff -u -r54561 -r54703
--- APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam.cls.xml	(.../ProgrammaNaam.cls.xml)	(revision 54561)
+++ APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam.cls.xml	(.../ProgrammaNaam.cls.xml)	(revision 54703)
@@ -76,6 +76,27 @@
 <Implementation><![CDATA[	Quit "SCHIELE ZIJKANTGROEF"
 ]]></Implementation>
 </Method>
+
+<Method name="ZonderSchieleAfkantenFineer">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
+<Implementation><![CDATA[	Quit "ZONDER SCHIELE AFKANTEN FINEER"
+]]></Implementation>
+</Method>
+
+<Method name="ZonderSchieleAfkantenFineerMetGroef">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
+<Implementation><![CDATA[	Quit "ZONDER SCHIELE AFKANTEN FINEER MET GROEF"
+]]></Implementation>
+</Method>
+
+<Method name="ZonderSchieleAfkantenFineer9mm">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</ReturnType>
+<Implementation><![CDATA[	Quit "ZONDER SCHIELE AFKANTEN FINEER 9MM"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml
===================================================================
diff -u -r54371 -r54703
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml	(.../PlaatAfwerkingBepaler.cls.xml)	(revision 54371)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml	(.../PlaatAfwerkingBepaler.cls.xml)	(revision 54703)
@@ -8,18 +8,29 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FineerOnbehandeldKleuren">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="MelamineKleuren">
 <Type>%ListOfDataTypes</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="PlaatAfwerkingEnum">
+<Type>DOM.PM.enu.TAORPlaatAfwerking.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..FineerKleuren = ##class(TECH.ListUtils).CreateListOfDataTypes("NE", "NN", "ZY", "MB", "SY", "BE", "XE")
+	Set ..FineerKleuren = ##class(TECH.ListUtils).CreateListOfDataTypes("NE", "NN", "ZY", "MB", "SY", "BE")
+	Set ..FineerOnbehandeldKleuren = ##class(TECH.ListUtils).CreateListOfDataTypes("XE")
 	Set ..MelamineKleuren = ##class(TECH.ListUtils).CreateListOfDataTypes("E1", "E2", "N1", "S", "W", "XG", "DA", "LA")
 	
 	Quit $$$OK
@@ -32,17 +43,57 @@
 <Implementation><![CDATA[
 	#dim PlaatAfwerking As DOM.PM.enu.TAORPlaatAfwerking = ""
 
-	If $Length(Kleur) {
-		If (##class(TECH.ListUtils).Contains(..FineerKleuren, Kleur)) {
-			Set PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Fineer()
-		} ElseIf (##class(TECH.ListUtils).Contains(..MelamineKleuren, Kleur)) {
-			Set PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
-		}
+	If (..IsFineer(Kleur) || ..IsFineerOnbehandeld(Kleur)) {
+		Set PlaatAfwerking = ..PlaatAfwerkingEnum.Fineer
+	} ElseIf (..IsMelamine(Kleur)) {
+		Set PlaatAfwerking = ..PlaatAfwerkingEnum.Melamine
 	}
 	
 	Quit PlaatAfwerking
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKantenbandPlaatAfwerking">
+<FormalSpec>Kleur:%String</FormalSpec>
+<ReturnType>DOM.PM.enu.TAORPlaatAfwerking</ReturnType>
+<Implementation><![CDATA[
+	#dim PlaatAfwerking As DOM.PM.enu.TAORPlaatAfwerking = ""
+
+	If (..IsFineer(Kleur)) {
+		Set PlaatAfwerking = ..PlaatAfwerkingEnum.Fineer
+	} ElseIf (..IsFineerOnbehandeld(Kleur)) {
+		Set PlaatAfwerking = ..PlaatAfwerkingEnum.FineerOnbehandeld
+	} ElseIf (..IsMelamine(Kleur)) {
+		Set PlaatAfwerking = ..PlaatAfwerkingEnum.Melamine
+	}
+	
+	Quit PlaatAfwerking
+]]></Implementation>
+</Method>
+
+<Method name="IsFineer">
+<FormalSpec>Kleur:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).Contains(..FineerKleuren, Kleur)
+]]></Implementation>
+</Method>
+
+<Method name="IsFineerOnbehandeld">
+<FormalSpec>Kleur:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).Contains(..FineerOnbehandeldKleuren, Kleur)
+]]></Implementation>
+</Method>
+
+<Method name="IsMelamine">
+<FormalSpec>Kleur:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).Contains(..MelamineKleuren, Kleur)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/Verwerker.cls.xml
===================================================================
diff -u -r54561 -r54703
--- APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 54561)
+++ APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 54703)
@@ -32,6 +32,12 @@
 		Do ..VerwerkSchieleZijkantGroef()
 	} ElseIf ProgrammaNaam = "SCHIELE ZONDER GROEF" {
 		Do ..VerwerkSchieleZonderGroef()
+	} ElseIf ProgrammaNaam = "ZONDER SCHIELE AFKANTEN FINEER" {
+		Do ..VerwerkZonderSchieleAfkantenFineer()
+	} ElseIf ProgrammaNaam = "ZONDER SCHIELE AFKANTEN FINEER 9MM" {
+		Do ..VerwerkZonderSchieleAfkantenFineer9mm()
+	} ElseIf ProgrammaNaam = "ZONDER SCHIELE AFKANTEN FINEER MET GROEF" {
+		Do ..VerwerkZonderSchieleAfkantenFineerMetGroef()
 	} Else {
 		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(ProgrammaNaam,"APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
@@ -98,6 +104,24 @@
 <Private>1</Private>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="VerwerkZonderSchieleAfkantenFineer">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkZonderSchieleAfkantenFineer9mm">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkZonderSchieleAfkantenFineerMetGroef">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml
===================================================================
diff -u -r54693 -r54703
--- APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 54693)
+++ APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 54703)
@@ -18,7 +18,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LadeKleur">
+<Property name="KantenbandKleurEnum">
 <Type>DOM.PM.enu.TAORKantenbandKleur.AutoComplete</Type>
 <Private>1</Private>
 </Property>
@@ -45,12 +45,12 @@
 	#dim Kantenband As %String = ""	
 
 	If ..HeeftKantenbandNodig(ProgrammaId) { 
-		#dim LadeKleur As %String = KantenbandData.LadeKleur
+		#dim KantenbandKleur As %String = KantenbandData.Kleur
 		
-		Set:(KantenbandData.LadeKleur = ..LadeKleur.Wit) LadeKleur = "W1"
-		Set:(KantenbandData.LadeKleur = ..LadeKleur.Zwart) LadeKleur = "Z8"
+		Set:(KantenbandData.Kleur = ..KantenbandKleurEnum.Wit) KantenbandKleur = "W1"
+		Set:(KantenbandData.Kleur = ..KantenbandKleurEnum.Zwart) KantenbandKleur = "Z8"
 		
-		Set Kantenband = LadeKleur _ ..DikteCodeBepaler.BepaalCode(KantenbandData.PlaatAfwerking) _ ..BreedteCodeBepaler.BepaalCode(KantenbandData.PlaatAfwerking)
+		Set Kantenband = KantenbandKleur _ ..DikteCodeBepaler.BepaalCode(KantenbandData.PlaatAfwerking) _ ..BreedteCodeBepaler.BepaalCode(KantenbandData.PlaatAfwerking)
 	}
 	
 	Quit Kantenband
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller.cls.xml
===================================================================
diff -u -r54693 -r54703
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller.cls.xml	(.../KantenbandDataLadeInfoAanvuller.cls.xml)	(revision 54693)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller.cls.xml	(.../KantenbandDataLadeInfoAanvuller.cls.xml)	(revision 54703)
@@ -8,14 +8,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PlaatAfwerkingBepaler">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,PlaatAfwerkingBepaler:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..LadeOnderdeel = LadeOnderdeel
+	Set ..PlaatAfwerkingBepaler = $$$Inject(PlaatAfwerkingBepaler, ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -24,15 +31,16 @@
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput</FormalSpec>
 <Implementation><![CDATA[
 	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..LadeOnderdeel.GeefLade()
+	#dim KantenbandKleur As DOM.PM.enu.TAORKantenbandKleur = ..LadeOnderdeel.GeefKleuren().GetAt(3)
 	
 	Set UitvoeringInfo.KantenbandData.Toelevering = UitvoeringInfo.ToeleveringID
 	Set UitvoeringInfo.KantenbandData.DossierCode = UitvoeringInfo.DossierCode
 	Set UitvoeringInfo.KantenbandData.BatchID = UitvoeringInfo.BatchID
 	Set UitvoeringInfo.KantenbandData.Concept = Lade.GeefConcept()
 	Set UitvoeringInfo.KantenbandData.LadeDiepte = Lade.GeefDiepte()
-	Set UitvoeringInfo.KantenbandData.LadeKleur = ..LadeOnderdeel.GeefKleuren().GetAt(3)
+	Set UitvoeringInfo.KantenbandData.Kleur = KantenbandKleur
 	Set UitvoeringInfo.KantenbandData.Rol = ..LadeOnderdeel.GeefRol()
-	Set UitvoeringInfo.KantenbandData.PlaatAfwerking = ..LadeOnderdeel.GeefDecors().GetAt(3)
+	Set UitvoeringInfo.KantenbandData.PlaatAfwerking = ..PlaatAfwerkingBepaler.GeefKantenbandPlaatAfwerking(KantenbandKleur)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Machine/Kantenband/PassageDefinitie.cls.xml
===================================================================
diff -u -r29059 -r54703
--- APPS/Halux/Machine/Kantenband/PassageDefinitie.cls.xml	(.../PassageDefinitie.cls.xml)	(revision 29059)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitie.cls.xml	(.../PassageDefinitie.cls.xml)	(revision 54703)
@@ -7,8 +7,8 @@
 <Type>DOM.PM.enu.TAORConcept</Type>
 </Property>
 
-<Property name="Decor">
-<Type>APPS.Halux.PPS.enu.TAORDecor</Type>
+<Property name="PlaatAfwerking">
+<Type>DOM.PM.enu.TAORPlaatAfwerking</Type>
 </Property>
 
 <Property name="Rol">
Index: vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml
===================================================================
diff -u -r45448 -r54703
--- vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml	(.../PlaatAfwerkingBepaler.cls.xml)	(revision 45448)
+++ vhTest/Mock/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml	(.../PlaatAfwerkingBepaler.cls.xml)	(revision 54703)
@@ -8,6 +8,13 @@
 <Super>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler,vhTest.Mock.DOM.PM.enu.TAORLadeKleur.Verwerker</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="GeefKantenbandPlaatAfwerking">
+<FormalSpec>Kleur:%String</FormalSpec>
+<ReturnType>DOM.PM.enu.TAORPlaatAfwerking</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKantenbandPlaatAfwerking",Kleur)
+]]></Implementation>
+</Method>
+
 <Method name="GeefPlaatAfwerking">
 <FormalSpec>Kleur:%String=""</FormalSpec>
 <ReturnType>DOM.PM.enu.TAORPlaatAfwerking</ReturnType>
Index: APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml
===================================================================
diff -u -r54690 -r54703
--- APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml	(.../PassageBepaler.cls.xml)	(revision 54690)
+++ APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml	(.../PassageBepaler.cls.xml)	(revision 54703)
@@ -49,7 +49,7 @@
 		#dim Passage As APPS.Halux.Machine.Kantenband.Passage = ##class(APPS.Halux.Machine.Kantenband.Passage).%New()
 		
 		Set Passage.Draai180Graden = PassageDefinitie.MoetDraaien
-		Set Passage.Kantel180Graden = PassageDefinitie.MoetKantellen
+		Set Passage.Kantel180Graden = PassageDefinitie.MoetKantelen
 		Set Passage.Kantenband = ..KantenbandBepaler.BepaalKantenband(UitvoeringInfo.KantenbandData, PassageDefinitie.Programma)
 		Set Passage.PrinterTekst = ..PrinterTekstBepaler.BepaalPrinterTekst(UitvoeringInfo, PassageDefinitie.Passage)
 		Set Passage.Uitgang = PassageDefinitie.Uitgang
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/KantenbandDataLadeInfoAanvuller/Test.cls.xml	(revision 54703)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataLadeInfoAanvuller.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: UitvoeringInfo wordt aangevuld">
+<Implementation><![CDATA[
+	#dim RandomConcept As %String = "RandomConcept"
+	#dim RandomLadeDiepte As %String = "DummyLadeDiepte"
+	#dim RandomRol As %String = "DummyRol"
+	#dim RandomPlaatAfwerking As %String = "RandomPlaatAfwerking"
+	
+	#dim DummyKleuren As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	Do DummyKleuren.SetAt("DummyKleur1", 1)
+	Do DummyKleuren.SetAt("DummyKleur2", 2)
+	Do DummyKleuren.SetAt("DummyKleur3", 3)
+	
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo).%New()
+	Set UitvoeringInfo.BatchID = "RandomBatchId"
+	Set UitvoeringInfo.ToeleveringID = "RandomToeleveringId"
+	Set UitvoeringInfo.DossierCode = "RandomDossierCode"
+	
+	#dim LadeMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
+	Do LadeMock.VerwachtMethodCall("GeefConcept").DanReturn(RandomConcept)
+	Do LadeMock.VerwachtMethodCall("GeefDiepte").DanReturn(RandomLadeDiepte)
+	
+	#dim LadeOnderdeelMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel).%New()
+	Do LadeOnderdeelMock.VerwachtMethodCall("GeefLade").DanReturn(LadeMock)
+	Do LadeOnderdeelMock.VerwachtMethodCall("GeefKleuren").DanReturn(DummyKleuren)
+	Do LadeOnderdeelMock.VerwachtMethodCall("GeefRol").DanReturn(RandomRol)
+	
+	#dim PlaatAfwerkingBepalerMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler).%New()
+	Do PlaatAfwerkingBepalerMock.VerwachtMethodCall("GeefKantenbandPlaatAfwerking", DummyKleuren.GetAt(3)).DanReturn(RandomPlaatAfwerking)
+	
+	#dim LadeInfoAanvuller As APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataLadeInfoAanvuller = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.KantenbandDataLadeInfoAanvuller).%New(LadeOnderdeelMock, PlaatAfwerkingBepalerMock)
+	Do LadeInfoAanvuller.VulAan(UitvoeringInfo)
+	
+	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.Toelevering, UitvoeringInfo.ToeleveringID)
+	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.DossierCode, UitvoeringInfo.DossierCode)
+	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.BatchID, UitvoeringInfo.BatchID)
+	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.Concept, RandomConcept)
+	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.LadeDiepte, RandomLadeDiepte)
+	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.Kleur, DummyKleuren.GetAt(3))
+	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.Rol, RandomRol)
+	Do $$$AssertEquals(UitvoeringInfo.KantenbandData.PlaatAfwerking, RandomPlaatAfwerking)
+	
+	Do LadeOnderdeelMock.Verifieer()
+	Do LadeMock.Verifieer()
+	Do PlaatAfwerkingBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml
===================================================================
diff -u -r54690 -r54703
--- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml	(.../Test.cls.xml)	(revision 54690)
+++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml	(.../Test.cls.xml)	(revision 54703)
@@ -13,7 +13,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LadeKleurEnum">
+<Property name="KantenbandKleurEnum">
 <Type>DOM.PM.enu.TAORLadeKleur.AutoComplete</Type>
 <Private>1</Private>
 </Property>
@@ -72,10 +72,10 @@
 <Implementation><![CDATA[
 	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
 	
-	Set KantenbandData.LadeKleur = ..LadeKleurEnum.NatuurEikenhout
+	Set KantenbandData.Kleur = ..KantenbandKleurEnum.NatuurEikenhout
 	Do ..AssertKantenband($$$False, KantenbandData, "", "", "NE")
 	
-	Set KantenbandData.LadeKleur = ..LadeKleurEnum.NatuurNotenhout
+	Set KantenbandData.Kleur = ..KantenbandKleurEnum.NatuurNotenhout
 	Do ..AssertKantenband($$$False, KantenbandData, "", "", "NN")
 ]]></Implementation>
 </Method>
@@ -84,10 +84,10 @@
 <Implementation><![CDATA[
 	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
 	
-	Set KantenbandData.LadeKleur = ..LadeKleurEnum.Wit
+	Set KantenbandData.Kleur = ..KantenbandKleurEnum.Wit
 	Do ..AssertKantenband($$$False, KantenbandData, "", "", "W1")
 	
-	Set KantenbandData.LadeKleur = ..LadeKleurEnum.Zwart
+	Set KantenbandData.Kleur = ..KantenbandKleurEnum.Zwart
 	Do ..AssertKantenband($$$False, KantenbandData, "", "", "Z8")
 ]]></Implementation>
 </Method>
@@ -96,7 +96,7 @@
 <Implementation><![CDATA[
 	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
 	Set KantenbandData.PlaatAfwerking = ..PlaatAfwerkingEnum.Fineer
-	Set KantenbandData.LadeKleur = ..LadeKleurEnum.NatuurEikenhout
+	Set KantenbandData.Kleur = ..KantenbandKleurEnum.NatuurEikenhout
 	
 	#dim KantenbandProgramma As APPS.Halux.Machine.Kantenband.data.KantenbandProgramma = ##class(APPS.Halux.Machine.Kantenband.data.KantenbandProgramma).%New($$$DummyInteger)
 	Do KantenbandProgramma.ZetIsDoorvoer($$$False)
Index: vhDeploy/Deploy20190111xUpdateKantenbandPassageDefinities.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20190111xUpdateKantenbandPassageDefinities.cls.xml	(revision 0)
+++ vhDeploy/Deploy20190111xUpdateKantenbandPassageDefinities.cls.xml	(revision 54703)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20190111xUpdateKantenbandPassageDefinities">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Update Kantenband Passage Definities</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(APPS.Halux.Machine.Kantenband.ProgrammaDefinitieDefinieerder).%New().Definieer()
+	Do ##class(APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder).%New().Definieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Machine/Kantenband/data/PassageDefinitie.cls.xml
===================================================================
diff -u -r54575 -r54703
--- APPS/Halux/Machine/Kantenband/data/PassageDefinitie.cls.xml	(.../PassageDefinitie.cls.xml)	(revision 54575)
+++ APPS/Halux/Machine/Kantenband/data/PassageDefinitie.cls.xml	(.../PassageDefinitie.cls.xml)	(revision 54703)
@@ -10,7 +10,7 @@
 </Parameter>
 
 <Index name="UniqueIndex">
-<Properties>Concept,Decor,Rol,Passage,LadeHoogte</Properties>
+<Properties>Concept,PlaatAfwerking,Rol,Passage,LadeHoogte</Properties>
 <Unique>1</Unique>
 </Index>
 
@@ -19,8 +19,8 @@
 <Required>1</Required>
 </Property>
 
-<Property name="Decor">
-<Type>APPS.Halux.PPS.enu.TAORDecor</Type>
+<Property name="PlaatAfwerking">
+<Type>DOM.PM.enu.TAORPlaatAfwerking</Type>
 <Required>1</Required>
 </Property>
 
@@ -49,7 +49,7 @@
 <Parameter name="VALUELIST" value=",0,1"/>
 </Property>
 
-<Property name="MoetKantellen">
+<Property name="MoetKantelen">
 <Type>%String</Type>
 <Required>1</Required>
 <Parameter name="VALUELIST" value=",0,1"/>
@@ -82,7 +82,7 @@
 <Value>MoetDraaien</Value>
 </Value>
 <Value name="4">
-<Value>MoetKantellen</Value>
+<Value>MoetKantelen</Value>
 </Value>
 <Value name="5">
 <Value>Uitgang</Value>
@@ -94,7 +94,7 @@
 <Value>Concept</Value>
 </Value>
 <Value name="8">
-<Value>Decor</Value>
+<Value>PlaatAfwerking</Value>
 </Value>
 <Value name="9">
 <Value>Rol</Value>
Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder.cls.xml
===================================================================
diff -u -r54543 -r54703
--- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder.cls.xml	(.../PassageDefinitieDefinieerder.cls.xml)	(revision 54543)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder.cls.xml	(.../PassageDefinitieDefinieerder.cls.xml)	(revision 54703)
@@ -13,113 +13,144 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProgrammaNaam">
+<Property name="ProgrammaNaamEnum">
 <Type>APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam.AutoComplete</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="ConceptEnum">
+<Type>APPS.Halux.PPS.enu.TAORConcept.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PlaatAfwerkingEnum">
+<Type>DOM.PM.enu.TAORPlaatAfwerking.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PassageEnum">
+<Type>APPS.Halux.Machine.Kantenband.enu.Passage.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="UitgangEnum">
+<Type>APPS.Halux.Machine.Kantenband.enu.Uitgang.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeOnderdeelEnum">
+<Type>APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeHoogteEnum">
+<Type>DOM.PM.enu.TAORLadeHoogte.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Definieer">
 <Implementation><![CDATA[
 	Do ##class(APPS.Halux.Machine.Kantenband.data.PassageDefinitie).%KillExtent()
-	Do ..GegenereerdeCode()
-]]></Implementation>
-</Method>
 
-<Method name="GegenereerdeCode">
-<Description>
-Code gegenereerd uit excel, zie sharepoint </Description>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Do ..VoegToe("Baliko", "Fineer", "Zijkant").MetWaarde("1", ..ProgrammaNaam.AfkantenFineer, "1", "", "")
-	Do ..VoegToe("Baliko", "Fineer", "Zijkant").MetWaarde("2", ..ProgrammaNaam.AfkantenFineer, "1", "1", "")
-	Do ..VoegToe("Baliko", "Fineer", "Zijkant").MetWaarde("3", ..ProgrammaNaam.SchieleZonderGroef, "1", "", "")
-	Do ..VoegToe("Baliko", "Fineer", "Zijkant").MetWaarde("4", ..ProgrammaNaam.SchieleZonderGroef, "", "", "D")
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenFineer, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenFineer, $$$True, $$$True)
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Drie, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Vier, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$False, $$$False, ..UitgangEnum.D)
 
-	Do ..VoegToe("Baliko", "Fineer", "Rug").MetWaarde("1", ..ProgrammaNaam.AfkantenFineer, "1", "", "")
-	Do ..VoegToe("Baliko", "Fineer", "Rug").MetWaarde("2", ..ProgrammaNaam.AfkantenFineerMetGroef, "", "1", "")
-	Do ..VoegToe("Baliko", "Fineer", "Rug").MetWaarde("3", ..ProgrammaNaam.SchieleZonderGroef, "1", "", "")
-	Do ..VoegToe("Baliko", "Fineer", "Rug").MetWaarde("4", ..ProgrammaNaam.SchieleZonderGroef, "1", "1", "E")
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenFineer, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenFineerMetGroef, $$$False, $$$True)
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug).MetWaarde(..PassageEnum.Drie, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug).MetWaarde(..PassageEnum.Vier, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$True, ..UitgangEnum.E)
 
-	Do ..VoegToe("Baliko", "Fineer", "Front").MetWaarde("1", ..ProgrammaNaam.AfkantenFineer, "1", "", "")
-	Do ..VoegToe("Baliko", "Fineer", "Front").MetWaarde("2", ..ProgrammaNaam.AfkantenFineer, "1", "1", "")
-	Do ..VoegToe("Baliko", "Fineer", "Front").MetWaarde("3", ..ProgrammaNaam.SchieleZonderGroef, "1", "", "")
-	Do ..VoegToe("Baliko", "Fineer", "Front").MetWaarde("4", ..ProgrammaNaam.SchieleZonderGroef, "", "", "E")
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenFineer, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenFineer, $$$True, $$$True)
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Drie, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Vier, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$False, $$$False, ..UitgangEnum.E)
 
-	Do ..VoegToe("Baliko", "Melamine", "Zijkant").MetWaarde("1", ..ProgrammaNaam.AfkantenMelamine, "1", "", "")
-	Do ..VoegToe("Baliko", "Melamine", "Zijkant").MetWaarde("2", ..ProgrammaNaam.AfkantenMelamine, "", "1", "D")
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenMelamine, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenMelamine, $$$False, $$$True, ..UitgangEnum.D)
 
-	Do ..VoegToe("Baliko", "Melamine", "Rug").MetWaarde("1", ..ProgrammaNaam.AfkantenMelamine, "1", "", "")
-	Do ..VoegToe("Baliko", "Melamine", "Rug").MetWaarde("2", ..ProgrammaNaam.AfkantenMelamineMetGroef, "", "", "E")
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Rug).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenMelamine, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Rug).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenMelamineMetGroef, $$$False, $$$False, ..UitgangEnum.E)
 
-	Do ..VoegToe("Baliko", "Melamine", "Front").MetWaarde("1", ..ProgrammaNaam.AfkantenMelamine, "1", "", "")
-	Do ..VoegToe("Baliko", "Melamine", "Front").MetWaarde("2", ..ProgrammaNaam.AfkantenMelamine, "", "", "E")
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenMelamine, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Baliko, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenMelamine, $$$False, $$$False, ..UitgangEnum.E)
 
-	Do ..VoegToe("Valinge", "Fineer", "Zijkant").MetWaarde("1", ..ProgrammaNaam.AfkantenFineer, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Zijkant").MetWaarde("2", ..ProgrammaNaam.AfkantenFineer, "1", "1", "")
-	Do ..VoegToe("Valinge", "Fineer", "Zijkant").MetWaarde("3", ..ProgrammaNaam.SchieleZonderGroef, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Zijkant").MetWaarde("4", ..ProgrammaNaam.SchieleZonderGroef, "", "", "D")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenFineer, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenFineer, $$$True, $$$True)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Drie, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Vier, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$False, $$$False, ..UitgangEnum.D)
 
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "K").MetWaarde("1", ..ProgrammaNaam.AfkantenFineer, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "K").MetWaarde("2", ..ProgrammaNaam.AfkantenFineerMetGroef, "", "1", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "K").MetWaarde("3", ..ProgrammaNaam.SchieleZonderGroef, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "K").MetWaarde("4", ..ProgrammaNaam.SchieleZonderGroef, "1", "1", "E")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.K).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenFineer, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.K).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenFineerMetGroef, $$$False, $$$True)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.K).MetWaarde(..PassageEnum.Drie, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.K).MetWaarde(..PassageEnum.Vier, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$True, ..UitgangEnum.E)
 
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "C").MetWaarde("1", ..ProgrammaNaam.AfkantenFineer, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "C").MetWaarde("2", ..ProgrammaNaam.AfkantenFineerMetGroef, "", "1", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "C").MetWaarde("3", ..ProgrammaNaam.SchieleZonderGroef, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "C").MetWaarde("4", ..ProgrammaNaam.SchieleZonderGroef, "1", "1", "E")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.C).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenFineer, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.C).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenFineerMetGroef, $$$False, $$$True)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.C).MetWaarde(..PassageEnum.Drie, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.C).MetWaarde(..PassageEnum.Vier, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$True, ..UitgangEnum.E)
 
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "F").MetWaarde("1", ..ProgrammaNaam.AfkantenFineer, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "F").MetWaarde("2", ..ProgrammaNaam.AfkantenFineerMetGroef, "", "1", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "F").MetWaarde("3", ..ProgrammaNaam.SchieleZonderGroef, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "F").MetWaarde("4", ..ProgrammaNaam.SchieleZonderGroef, "1", "1", "E")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.F).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenFineer, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.F).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenFineerMetGroef, $$$False, $$$True)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.F).MetWaarde(..PassageEnum.Drie, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.F).MetWaarde(..PassageEnum.Vier, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$True, ..UitgangEnum.E)
 
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "N").MetWaarde("1", ..ProgrammaNaam.AfkantenFineer, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "N").MetWaarde("2", ..ProgrammaNaam.AfkantenFineerMetGroef, "", "1", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "N").MetWaarde("3", ..ProgrammaNaam.SchieleZonderGroef, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "N").MetWaarde("4", ..ProgrammaNaam.SchieleZonderGroef, "1", "1", "E")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.N).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenFineer, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.N).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenFineerMetGroef, $$$False, $$$True)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.N).MetWaarde(..PassageEnum.Drie, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.N).MetWaarde(..PassageEnum.Vier, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$True, ..UitgangEnum.E)
 
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "M").MetWaarde("1", ..ProgrammaNaam.AfkantenFineer, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "M").MetWaarde("2", ..ProgrammaNaam.AfkantenFineerMetGroef, "", "1", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "M").MetWaarde("3", ..ProgrammaNaam.SchieleZonderGroef, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Rug", "M").MetWaarde("4", ..ProgrammaNaam.SchieleZonderGroef, "1", "1", "E")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.M).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenFineer, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.M).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenFineerMetGroef, $$$False, $$$True)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.M).MetWaarde(..PassageEnum.Drie, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.M).MetWaarde(..PassageEnum.Vier, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$True, ..UitgangEnum.E)
 
-	Do ..VoegToe("Valinge", "Fineer", "Front").MetWaarde("1", ..ProgrammaNaam.AfkantenFineer9mm, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Front").MetWaarde("2", ..ProgrammaNaam.AfkantenFineer9mm, "", "1", "")
-	Do ..VoegToe("Valinge", "Fineer", "Front").MetWaarde("3", ..ProgrammaNaam.SchieleZonderGroef, "1", "", "")
-	Do ..VoegToe("Valinge", "Fineer", "Front").MetWaarde("4", ..ProgrammaNaam.SchieleZonderGroef, "1", "1", "E")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenFineer9mm, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenFineer9mm, $$$False, $$$True)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Drie, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Fineer, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Vier, ..ProgrammaNaamEnum.SchieleZonderGroef, $$$True, $$$True, ..UitgangEnum.E)
 
-	Do ..VoegToe("Valinge", "Melamine", "Zijkant").MetWaarde("1", ..ProgrammaNaam.AfkantenMelamine, "1", "", "")
-	Do ..VoegToe("Valinge", "Melamine", "Zijkant").MetWaarde("2", ..ProgrammaNaam.AfkantenMelamine, "", "1", "D")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenMelamine, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenMelamine, $$$False, $$$True, ..UitgangEnum.D)
 
-	Do ..VoegToe("Valinge", "Melamine", "Rug", "K").MetWaarde("1", ..ProgrammaNaam.AfkantenMelamine, "1", "", "")
-	Do ..VoegToe("Valinge", "Melamine", "Rug", "K").MetWaarde("2", ..ProgrammaNaam.AfkantenMelamineMetGroef, "", "", "E")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.K).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenMelamine, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.K).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenMelamineMetGroef, $$$False, $$$False, ..UitgangEnum.E)
 
-	Do ..VoegToe("Valinge", "Melamine", "Rug", "C").MetWaarde("1", ..ProgrammaNaam.AfkantenMelamine, "1", "", "")
-	Do ..VoegToe("Valinge", "Melamine", "Rug", "C").MetWaarde("2", ..ProgrammaNaam.AfkantenMelamineMetGroef, "", "", "E")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.C).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenMelamine, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.C).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenMelamineMetGroef, $$$False, $$$False, ..UitgangEnum.E)
 
-	Do ..VoegToe("Valinge", "Melamine", "Rug", "F").MetWaarde("1", ..ProgrammaNaam.AfkantenMelamine, "1", "", "")
-	Do ..VoegToe("Valinge", "Melamine", "Rug", "F").MetWaarde("2", ..ProgrammaNaam.AfkantenMelamineMetGroef, "", "", "E")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.F).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenMelamine, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.F).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenMelamineMetGroef, $$$False, $$$False, ..UitgangEnum.E)
 
-	Do ..VoegToe("Valinge", "Melamine", "Rug", "N").MetWaarde("1", ..ProgrammaNaam.AfkantenMelamine, "1", "", "")
-	Do ..VoegToe("Valinge", "Melamine", "Rug", "N").MetWaarde("2", ..ProgrammaNaam.AfkantenMelamineMetGroef, "", "", "E")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.N).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenMelamine, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.N).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenMelamineMetGroef, $$$False, $$$False, ..UitgangEnum.E)
 
-	Do ..VoegToe("Valinge", "Melamine", "Rug", "M").MetWaarde("1", ..ProgrammaNaam.AfkantenMelamine, "1", "", "")
-	Do ..VoegToe("Valinge", "Melamine", "Rug", "M").MetWaarde("2", ..ProgrammaNaam.AfkantenMelamineMetGroef, "", "", "E")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.M).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenMelamine, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Rug, ..LadeHoogteEnum.M).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenMelamineMetGroef, $$$False, $$$False, ..UitgangEnum.E)
 
-	Do ..VoegToe("Valinge", "Melamine", "Front").MetWaarde("1", ..ProgrammaNaam.AfkantenMelamine9mm, "1", "", "")
-	Do ..VoegToe("Valinge", "Melamine", "Front").MetWaarde("2", ..ProgrammaNaam.AfkantenMelamine9mm, "", "", "E")
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.AfkantenMelamine9mm, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.Melamine, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.AfkantenMelamine9mm, $$$False, $$$False, ..UitgangEnum.E)
+	
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.FineerOnbehandeld, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.ZonderSchieleAfkantenFineer, $$$True, $$$False)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.FineerOnbehandeld, ..LadeOnderdeelEnum.Zijkant).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.ZonderSchieleAfkantenFineer, $$$False, $$$True, ..UitgangEnum.D)
+	
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.FineerOnbehandeld, ..LadeOnderdeelEnum.Rug).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.ZonderSchieleAfkantenFineer, $$$False, $$$True)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.FineerOnbehandeld, ..LadeOnderdeelEnum.Rug).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.ZonderSchieleAfkantenFineerMetGroef, $$$False, $$$False, ..UitgangEnum.E)
+	
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.FineerOnbehandeld, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Een, ..ProgrammaNaamEnum.ZonderSchieleAfkantenFineer9mm, $$$False, $$$True)
+	Do ..VoegToe(..ConceptEnum.Valinge, ..PlaatAfwerkingEnum.FineerOnbehandeld, ..LadeOnderdeelEnum.Front).MetWaarde(..PassageEnum.Twee, ..ProgrammaNaamEnum.ZonderSchieleAfkantenFineer9mm, $$$False, $$$False, ..UitgangEnum.E)
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToe">
-<FormalSpec>Concept:%String,Decor:%String,Rol:APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel,LadeHoogte:DOM.PM.enu.LBXLadeHoogte=""</FormalSpec>
+<FormalSpec>Concept:APPS.Halux.PPS.enu.TAORConcept,PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,Rol:APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel,LadeHoogte:DOM.PM.enu.TAORLadeHoogte=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder</ReturnType>
 <Implementation><![CDATA[
 	Set ..DataDefinitie = ##class(APPS.Halux.Machine.Kantenband.data.PassageDefinitie).%New()
-	Set ..DataDefinitie.Concept = ##class(DOM.PM.enu.TAORConcept).DisplayToLogical(Concept)
-	Set ..DataDefinitie.Decor = ##class(APPS.Halux.PPS.enu.TAORDecor).DisplayToLogical(Decor)
+	Set ..DataDefinitie.Concept = Concept
+	Set ..DataDefinitie.PlaatAfwerking = PlaatAfwerking
 	Set ..DataDefinitie.Rol = Rol
 	Set ..DataDefinitie.LadeHoogte = LadeHoogte
 	
@@ -128,13 +159,13 @@
 </Method>
 
 <Method name="MetWaarde">
-<FormalSpec>Passage:APPS.Halux.Machine.Kantenband.enu.Passage,Programma:APPS.Halux.Machine.Kantenband.enu.KantenbandProgramma,MoetDraaien:%Boolean=$$$False,MoetKantellen:%Boolean=$$$False,Uitgang:APPS.Halux.Machine.Kantenband.enu.Uitgang=##class(APPS.Halux.Machine.Kantenband.enu.Uitgang).GeenUitgang()</FormalSpec>
+<FormalSpec>Passage:APPS.Halux.Machine.Kantenband.enu.Passage,Programma:APPS.Halux.Machine.Kantenband.enu.KantenbandProgramma,MoetDraaien:%Boolean=$$$False,MoetKantelen:%Boolean=$$$False,Uitgang:APPS.Halux.Machine.Kantenband.enu.Uitgang=..UitgangEnum.GeenUitgang</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..DataDefinitie.Passage = Passage
 	Set ..DataDefinitie.Programma = Programma
 	Set ..DataDefinitie.MoetDraaien = +MoetDraaien
-	Set ..DataDefinitie.MoetKantellen = +MoetKantellen
+	Set ..DataDefinitie.MoetKantelen = +MoetKantelen
 	Set ..DataDefinitie.Uitgang = Uitgang
 	Set ..DataDefinitie.GUID = ..#GUID
 	
Index: APPS/Halux/Machine/Kantenband/ProgrammaDefinitieDefinieerder.cls.xml
===================================================================
diff -u -r54562 -r54703
--- APPS/Halux/Machine/Kantenband/ProgrammaDefinitieDefinieerder.cls.xml	(.../ProgrammaDefinitieDefinieerder.cls.xml)	(revision 54562)
+++ APPS/Halux/Machine/Kantenband/ProgrammaDefinitieDefinieerder.cls.xml	(.../ProgrammaDefinitieDefinieerder.cls.xml)	(revision 54703)
@@ -28,6 +28,9 @@
 	Do ..BewaarProgramma(..ProgrammaNaam.SchieleMetGroef, $$$True)
 	Do ..BewaarProgramma(..ProgrammaNaam.SchieleZijkantGroef, $$$True)
 	Do ..BewaarProgramma(..ProgrammaNaam.Groef, $$$True)
+	Do ..BewaarProgramma(..ProgrammaNaam.ZonderSchieleAfkantenFineer, $$$False)
+	Do ..BewaarProgramma(..ProgrammaNaam.ZonderSchieleAfkantenFineerMetGroef, $$$False)
+	Do ..BewaarProgramma(..ProgrammaNaam.ZonderSchieleAfkantenFineer9mm, $$$False)
 ]]></Implementation>
 </Method>
 
Index: vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/PassageDefinitieRepository.cls.xml
===================================================================
diff -u -r29059 -r54703
--- vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/PassageDefinitieRepository.cls.xml	(.../PassageDefinitieRepository.cls.xml)	(revision 29059)
+++ vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/PassageDefinitieRepository.cls.xml	(.../PassageDefinitieRepository.cls.xml)	(revision 54703)
@@ -3,39 +3,17 @@
 <Class name="vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
-<Method name="GeefAlgemenePassageDefinities">
-<FormalSpec>Concept:DOM.PM.enu.TAORConcept,Decor:APPS.Halux.PPS.enu.TAORDecor,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefAlgemenePassageDefinities",Concept,Decor,Rol)
-]]></Implementation>
-</Method>
-
-<Method name="GeefLadeHoogteSpecifiekePassageDefinities">
-<FormalSpec>Concept:DOM.PM.enu.TAORConcept,Decor:APPS.Halux.PPS.enu.TAORDecor,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,LadeHoogte:DOM.PM.enu.TAORLadeHoogte</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLadeHoogteSpecifiekePassageDefinities",Concept,Decor,Rol,LadeHoogte)
-]]></Implementation>
-</Method>
-
 <Method name="GeefPassageDefinities">
-<FormalSpec>Concept:DOM.PM.enu.TAORConcept,Decor:APPS.Halux.PPS.enu.TAORDecor,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,LadeHoogte:DOM.PM.enu.TAORLadeHoogte</FormalSpec>
+<FormalSpec>Concept:DOM.PM.enu.TAORConcept,PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,LadeHoogte:DOM.PM.enu.TAORLadeHoogte</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPassageDefinities",Concept,Decor,Rol,LadeHoogte)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPassageDefinities",Concept,PlaatAfwerking,Rol,LadeHoogte)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefPassages">
-<FormalSpec>Query:%String,Params:%List</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPassages",Query,Params)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFineerOnbehandeld/StartBatch/External_SQL.DB_KantenbandData.xml
===================================================================
diff -u -r54682 -r54703
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFineerOnbehandeld/StartBatch/External_SQL.DB_KantenbandData.xml	(.../External_SQL.DB_KantenbandData.xml)	(revision 54682)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFineerOnbehandeld/StartBatch/External_SQL.DB_KantenbandData.xml	(.../External_SQL.DB_KantenbandData.xml)	(revision 54703)
@@ -10,27 +10,27 @@
 Pass1Edgeband = XED08B17
 Pass1Exit = ""
 Pass1PrinterText = [1B][01][20][01][CC]TA'OR ZCF50L00001
-Pass1Program = AFKANTEN FINEER
+Pass1Program = ZONDER SCHIELE AFKANTEN FINEER
 Pass1Tilting180 = 0
 Pass1Turning180 = 1
 Pass2Edgeband = XED08B17
-Pass2Exit = ""
+Pass2Exit = D
 Pass2PrinterText = ""
-Pass2Program = AFKANTEN FINEER
+Pass2Program = ZONDER SCHIELE AFKANTEN FINEER
 Pass2Tilting180 = 1
-Pass2Turning180 = 1
+Pass2Turning180 = 0
 Pass3Edgeband = ""
 Pass3Exit = ""
 Pass3PrinterText = ""
-Pass3Program = SCHIELE ZONDER GROEF
-Pass3Tilting180 = 0
-Pass3Turning180 = 1
+Pass3Program = ""
+Pass3Tilting180 = ""
+Pass3Turning180 = ""
 Pass4Edgeband = ""
-Pass4Exit = D
+Pass4Exit = ""
 Pass4PrinterText = ""
-Pass4Program = SCHIELE ZONDER GROEF
-Pass4Tilting180 = 0
-Pass4Turning180 = 0
+Pass4Program = ""
+Pass4Tilting180 = ""
+Pass4Turning180 = ""
 PassNumber = 0
 Thickness = 13
 Toelevering = 222222
@@ -47,27 +47,27 @@
 Pass1Edgeband = XED08B17
 Pass1Exit = ""
 Pass1PrinterText = [1B][01][20][01][CC]TA'OR ZCF50R00001
-Pass1Program = AFKANTEN FINEER
+Pass1Program = ZONDER SCHIELE AFKANTEN FINEER
 Pass1Tilting180 = 0
 Pass1Turning180 = 1
 Pass2Edgeband = XED08B17
-Pass2Exit = ""
+Pass2Exit = D
 Pass2PrinterText = ""
-Pass2Program = AFKANTEN FINEER
+Pass2Program = ZONDER SCHIELE AFKANTEN FINEER
 Pass2Tilting180 = 1
-Pass2Turning180 = 1
+Pass2Turning180 = 0
 Pass3Edgeband = ""
 Pass3Exit = ""
 Pass3PrinterText = ""
-Pass3Program = SCHIELE ZONDER GROEF
-Pass3Tilting180 = 0
-Pass3Turning180 = 1
+Pass3Program = ""
+Pass3Tilting180 = ""
+Pass3Turning180 = ""
 Pass4Edgeband = ""
-Pass4Exit = D
+Pass4Exit = ""
 Pass4PrinterText = ""
-Pass4Program = SCHIELE ZONDER GROEF
-Pass4Tilting180 = 0
-Pass4Turning180 = 0
+Pass4Program = ""
+Pass4Tilting180 = ""
+Pass4Turning180 = ""
 PassNumber = 0
 Thickness = 13
 Toelevering = 222222
@@ -84,27 +84,27 @@
 Pass1Edgeband = XED08B17
 Pass1Exit = ""
 Pass1PrinterText = [1B][01][20][01][CC]TA'OR RCV05690FS00001D1
-Pass1Program = AFKANTEN FINEER
-Pass1Tilting180 = 0
-Pass1Turning180 = 1
+Pass1Program = ZONDER SCHIELE AFKANTEN FINEER
+Pass1Tilting180 = 1
+Pass1Turning180 = 0
 Pass2Edgeband = XED08B17
-Pass2Exit = ""
+Pass2Exit = E
 Pass2PrinterText = ""
-Pass2Program = AFKANTEN FINEER MET GROEF
-Pass2Tilting180 = 1
+Pass2Program = ZONDER SCHIELE AFKANTEN FINEER MET GROEF
+Pass2Tilting180 = 0
 Pass2Turning180 = 0
 Pass3Edgeband = ""
 Pass3Exit = ""
 Pass3PrinterText = ""
-Pass3Program = SCHIELE ZONDER GROEF
-Pass3Tilting180 = 0
-Pass3Turning180 = 1
+Pass3Program = ""
+Pass3Tilting180 = ""
+Pass3Turning180 = ""
 Pass4Edgeband = ""
-Pass4Exit = E
+Pass4Exit = ""
 Pass4PrinterText = ""
-Pass4Program = SCHIELE ZONDER GROEF
-Pass4Tilting180 = 1
-Pass4Turning180 = 1
+Pass4Program = ""
+Pass4Tilting180 = ""
+Pass4Turning180 = ""
 PassNumber = 0
 Thickness = 13
 Toelevering = 222222
Index: vhTest/Fake/APPS/Halux/Machine/Kantenband/impl/PassageDefinitieRepository.cls.xml
===================================================================
diff -u -r29059 -r54703
--- vhTest/Fake/APPS/Halux/Machine/Kantenband/impl/PassageDefinitieRepository.cls.xml	(.../PassageDefinitieRepository.cls.xml)	(revision 29059)
+++ vhTest/Fake/APPS/Halux/Machine/Kantenband/impl/PassageDefinitieRepository.cls.xml	(.../PassageDefinitieRepository.cls.xml)	(revision 54703)
@@ -8,7 +8,7 @@
 <Super>APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository</Super>
 
 <Method name="GeefPassageDefinities">
-<FormalSpec>Concept:DOM.PM.enu.TAORConcept,Decor:APPS.Halux.PPS.enu.TAORDecor,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<FormalSpec>Concept:DOM.PM.enu.TAORConcept,PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set PassageDefinities = ##class(%ListOfObjects).%New()
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler/GeefPlaatAfwerking/Test.cls.xml
===================================================================
diff -u -r54371 -r54703
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler/GeefPlaatAfwerking/Test.cls.xml	(.../Test.cls.xml)	(revision 54371)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler/GeefPlaatAfwerking/Test.cls.xml	(.../Test.cls.xml)	(revision 54703)
@@ -12,6 +12,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VerwachteFineerOnbehandeldKleuren">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VerwachteMelamineKleuren">
 <Type>%ListOfDataTypes</Type>
 <Private>1</Private>
@@ -22,7 +27,8 @@
 	Do ##super()
 	
 	Set ..PlaatAfwerkingBepaler = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler).%New()
-	Set ..VerwachteFineerKleuren = ##class(TECH.ListUtils).CreateListOfDataTypes("NE", "NN", "MB", "SY", "ZY", "BE", "XE")
+	Set ..VerwachteFineerKleuren = ##class(TECH.ListUtils).CreateListOfDataTypes("NE", "NN", "MB", "SY", "ZY", "BE")
+	Set ..VerwachteFineerOnbehandeldKleuren = ##class(TECH.ListUtils).CreateListOfDataTypes("XE")
 	Set ..VerwachteMelamineKleuren = ##class(TECH.ListUtils).CreateListOfDataTypes("E1", "E2", "N1", "S", "W", "XG", "DA", "LA")
 ]]></Implementation>
 </Method>
@@ -40,6 +46,7 @@
 		#dim LadeKleur As DOM.PM.enu.TAORLadeKleur = Iterator.Next()
 		
 		Do ..AssertPlaatAfwerking(LadeKleur)
+		Do ..AssertKantenbandPlaatAfwerking(LadeKleur)
 	}
 ]]></Implementation>
 </Method>
@@ -52,6 +59,7 @@
 		#dim BodemKleur As DOM.PM.enu.TAORBodemKleur = Iterator.Next()
 		
 		Do ..AssertPlaatAfwerking(BodemKleur)
+		Do ..AssertKantenbandPlaatAfwerking(BodemKleur)
 	}
 ]]></Implementation>
 </Method>
@@ -64,31 +72,61 @@
 		#dim KantenbandKleur As DOM.PM.enu.TAORKantenbandKleur = Iterator.Next()
 		
 		Do ..AssertPlaatAfwerking(KantenbandKleur)
+		Do ..AssertKantenbandPlaatAfwerking(KantenbandKleur)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="AssertPlaatAfwerking">
-<FormalSpec>Kleur:%CacheString,VerwachtePlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking</FormalSpec>
+<FormalSpec>Kleur:%CacheString</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim PlaatAfwerking As DOM.PM.enu.TAORPlaatAfwerking = ..PlaatAfwerkingBepaler.GeefPlaatAfwerking(Kleur)
+	
 	#dim IsFineer As %Boolean = ##class(TECH.ListUtils).Contains(..VerwachteFineerKleuren, Kleur)
+	#dim IsFineerOnbehandeld As %Boolean = ##class(TECH.ListUtils).Contains(..VerwachteFineerOnbehandeldKleuren, Kleur)
 	#dim IsMelamine As %Boolean = ##class(TECH.ListUtils).Contains(..VerwachteMelamineKleuren, Kleur)
 	
-	If ($$$Not(IsFineer) && $$$Not(IsMelamine)) {
+	If ($$$Not(IsFineer) && $$$Not(IsMelamine) && $$$Not(IsFineerOnbehandeld)) {
 		Do ..Fail("Geen PlaatAfwerking gedefinieerd voor kleur '" _ Kleur _ "'.")
 	} Else {
-		If (##class(TECH.ListUtils).Contains(..VerwachteFineerKleuren, Kleur)) {
+		If (IsFineer || IsFineerOnbehandeld) {
 			Do $$$AssertEquals(PlaatAfwerking, ..Enum.PlaatAfwerking.Fineer)
 		}
 		
-		If (##class(TECH.ListUtils).Contains(..VerwachteMelamineKleuren, Kleur)) {
+		If (IsMelamine) {
 			Do $$$AssertEquals(PlaatAfwerking, ..Enum.PlaatAfwerking.Melamine)
 		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="AssertKantenbandPlaatAfwerking">
+<FormalSpec>Kleur:%CacheString,VerwachtePlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim PlaatAfwerking As DOM.PM.enu.TAORPlaatAfwerking = ..PlaatAfwerkingBepaler.GeefKantenbandPlaatAfwerking(Kleur)
+	#dim IsFineer As %Boolean = ##class(TECH.ListUtils).Contains(..VerwachteFineerKleuren, Kleur)
+	#dim IsFineerOnbehandeld As %Boolean = ##class(TECH.ListUtils).Contains(..VerwachteFineerOnbehandeldKleuren, Kleur)
+	#dim IsMelamine As %Boolean = ##class(TECH.ListUtils).Contains(..VerwachteMelamineKleuren, Kleur)
+	
+	If ($$$Not(IsFineer) && $$$Not(IsMelamine) && $$$Not(IsFineerOnbehandeld)) {
+		Do ..Fail("Geen Kantenband PlaatAfwerking gedefinieerd voor kleur '" _ Kleur _ "'.")
+	} Else {
+		If (IsFineer) {
+			Do $$$AssertEquals(PlaatAfwerking, ..Enum.PlaatAfwerking.Fineer)
+		}
+		
+		If (IsFineerOnbehandeld) {
+			Do $$$AssertEquals(PlaatAfwerking, ..Enum.PlaatAfwerking.FineerOnbehandeld)
+		}
+		
+		If (IsMelamine) {
+			Do $$$AssertEquals(PlaatAfwerking, ..Enum.PlaatAfwerking.Melamine)
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml
===================================================================
diff -u -r31542 -r54703
--- vhTest/Fake/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml	(.../PlaatAfwerkingBepaler.cls.xml)	(revision 31542)
+++ vhTest/Fake/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/PlaatAfwerkingBepaler.cls.xml	(.../PlaatAfwerkingBepaler.cls.xml)	(revision 54703)
@@ -7,6 +7,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.PlaatAfwerkingBepaler</Super>
 
+<Method name="GeefKantenbandPlaatAfwerking">
+<FormalSpec>Kleur:%String</FormalSpec>
+<ReturnType>DOM.PM.enu.TAORPlaatAfwerking</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="GeefPlaatAfwerking">
 <FormalSpec>LadeKleur:DOM.PM.enu.TAORLadeKleur</FormalSpec>
 <ReturnType>DOM.PM.enu.TAORPlaatAfwerking</ReturnType>
Index: APPS/Halux/PPS/Activiteit/impl/common/dto/KantenbandData.cls.xml
===================================================================
diff -u -r54693 -r54703
--- APPS/Halux/PPS/Activiteit/impl/common/dto/KantenbandData.cls.xml	(.../KantenbandData.cls.xml)	(revision 54693)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/KantenbandData.cls.xml	(.../KantenbandData.cls.xml)	(revision 54703)
@@ -23,7 +23,7 @@
 <Type>%Numeric</Type>
 </Property>
 
-<Property name="LadeKleur">
+<Property name="Kleur">
 <Type>DOM.PM.enu.TAORKantenbandKleur</Type>
 </Property>
 
@@ -120,7 +120,7 @@
 <Value>Concept</Value>
 </Value>
 <Value name="4">
-<Value>LadeKleur</Value>
+<Value>Kleur</Value>
 </Value>
 <Value name="5">
 <Value>LadeDiepte</Value>
Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/Test.cls.xml
===================================================================
diff -u -r54690 -r54703
--- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 54690)
+++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 54703)
@@ -84,7 +84,7 @@
 		Set PassageDefinitie.Programma = "Programma" _ PassageEnum
 		Set PassageDefinitie.Passage = PassageEnum
 		Set PassageDefinitie.MoetDraaien = $$$True
-		Set PassageDefinitie.MoetKantellen = $$$False
+		Set PassageDefinitie.MoetKantelen = $$$False
 		Set PassageDefinitie.Uitgang = ##class(APPS.Halux.Machine.Kantenband.enu.Uitgang).C()
 		
 		Do DummyPassageDefinities.Insert(PassageDefinitie)
@@ -109,7 +109,7 @@
 		Do $$$AssertEquals(Passage.PrinterTekst, "DummyPrinterTekst" _ PassageEnum)
 		Do $$$AssertEquals(Passage.Programma, PassageDefinitie.Programma)
 		Do $$$AssertEquals(Passage.Draai180Graden, PassageDefinitie.MoetDraaien)
-		Do $$$AssertEquals(Passage.Kantel180Graden, PassageDefinitie.MoetKantellen)
+		Do $$$AssertEquals(Passage.Kantel180Graden, PassageDefinitie.MoetKantelen)
 		Do $$$AssertEquals(Passage.Uitgang, PassageDefinitie.Uitgang)
 	}
 ]]></Implementation>
Index: APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/AutoComplete.cls.xml
===================================================================
diff -u -r54561 -r54703
--- APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 54561)
+++ APPS/Halux/Machine/Kantenband/enu/ProgrammaNaam/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 54703)
@@ -78,6 +78,32 @@
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
+
+<Property name="ZonderSchieleAfkantenFineer">
+<Type>%String</Type>
+<InitialExpression>"ZONDER SCHIELE AFKANTEN FINEER"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="ZonderSchieleAfkantenFineer9mm">
+<Type>%String</Type>
+<InitialExpression>"ZONDER SCHIELE AFKANTEN FINEER 9MM"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="ZonderSchieleAfkantenFineerMetGroef">
+<Type>%String</Type>
+<InitialExpression>"ZONDER SCHIELE AFKANTEN FINEER MET GROEF"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^APPS.Halux.Ma3C56.AutoCompleteS</StreamLocation>
+</Storage>
 </Class>
 
 
Index: APPS/Halux/Machine/Kantenband/impl/PassageDefinitieRepository.cls.xml
===================================================================
diff -u -r29059 -r54703
--- APPS/Halux/Machine/Kantenband/impl/PassageDefinitieRepository.cls.xml	(.../PassageDefinitieRepository.cls.xml)	(revision 29059)
+++ APPS/Halux/Machine/Kantenband/impl/PassageDefinitieRepository.cls.xml	(.../PassageDefinitieRepository.cls.xml)	(revision 54703)
@@ -15,40 +15,46 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Set ..QueryAPI = $$$Implementation(QueryAPI, ##class(TECH.Context).Instance().GeefQueryAPI())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefPassageDefinities">
-<FormalSpec>Concept:DOM.PM.enu.TAORConcept,Decor:APPS.Halux.PPS.enu.TAORDecor,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,LadeHoogte:DOM.PM.enu.TAORLadeHoogte</FormalSpec>
+<FormalSpec>Concept:DOM.PM.enu.TAORConcept,PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,LadeHoogte:DOM.PM.enu.TAORLadeHoogte</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim PassageDefinities As %ListOfObjects = ..GeefLadeHoogteSpecifiekePassageDefinities(Concept,Decor,Rol,LadeHoogte)
-	if $$$Not(PassageDefinities.Size) set PassageDefinities = ..GeefAlgemenePassageDefinities(Concept,Decor,Rol)
-	quit PassageDefinities
+	#dim PassageDefinities As %ListOfObjects = ..GeefLadeHoogteSpecifiekePassageDefinities(Concept, PlaatAfwerking, Rol, LadeHoogte)
+	
+	If $$$Not(PassageDefinities.Size) {
+		Set PassageDefinities = ..GeefAlgemenePassageDefinities(Concept, PlaatAfwerking, Rol)
+	}
+	
+	Quit PassageDefinities
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLadeHoogteSpecifiekePassageDefinities">
-<FormalSpec>Concept:DOM.PM.enu.TAORConcept,Decor:APPS.Halux.PPS.enu.TAORDecor,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,LadeHoogte:DOM.PM.enu.TAORLadeHoogte</FormalSpec>
+<FormalSpec>Concept:DOM.PM.enu.TAORConcept,PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol,LadeHoogte:DOM.PM.enu.TAORLadeHoogte</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim Query As %String = "SELECT ID FROM APPS_Halux_Machine_Kantenband_data.PassageDefinitie WHERE Concept = ? AND Decor = ? AND Rol = ? And LadeHoogte = ?"
-	#dim Params As %List = $ListBuild(Concept, Decor, Rol,LadeHoogte)
-	quit ..GeefPassages(Query,Params)
+	#dim Query As %String = "SELECT ID FROM APPS_Halux_Machine_Kantenband_data.PassageDefinitie WHERE Concept = ? AND PlaatAfwerking = ? AND Rol = ? And LadeHoogte = ?"
+	#dim Params As %List = $ListBuild(Concept, PlaatAfwerking, Rol, LadeHoogte)
+	
+	Quit ..GeefPassages(Query,Params)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAlgemenePassageDefinities">
-<FormalSpec>Concept:DOM.PM.enu.TAORConcept,Decor:APPS.Halux.PPS.enu.TAORDecor,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<FormalSpec>Concept:DOM.PM.enu.TAORConcept,PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	#dim Query As %String = "SELECT ID FROM APPS_Halux_Machine_Kantenband_data.PassageDefinitie WHERE Concept = ? AND Decor = ? AND Rol = ? And LadeHoogte is null"
-	#dim Params As %List = $ListBuild(Concept, Decor, Rol)
-	quit ..GeefPassages(Query,Params)
+	#dim Query As %String = "SELECT ID FROM APPS_Halux_Machine_Kantenband_data.PassageDefinitie WHERE Concept = ? AND PlaatAfwerking = ? AND Rol = ? And LadeHoogte is null"
+	#dim Params As %List = $ListBuild(Concept, PlaatAfwerking, Rol)
+	
+	Quit ..GeefPassages(Query, Params)
 ]]></Implementation>
 </Method>
 
@@ -57,11 +63,13 @@
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	set PassageDefinities = ##class(%ListOfObjects).%New()
+	#dim PassageDefinities As %ListOfObjects = ##class(%ListOfObjects).%New()
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query, Params)
-	while ResultSet.Next() {
+	
+	While ResultSet.Next() {
 		Do PassageDefinities.Insert(##class(APPS.Halux.Machine.Kantenband.data.PassageDefinitie).OpenId(ResultSet.GetDataByName("ID")))
 	}
+	
 	Quit PassageDefinities
 ]]></Implementation>
 </Method>