Index: APPS/Halux/Machine/Kantenband/impl/KantenbandDataBepaler.cls.xml
===================================================================
diff -u -r37029 -r54690
--- APPS/Halux/Machine/Kantenband/impl/KantenbandDataBepaler.cls.xml	(.../KantenbandDataBepaler.cls.xml)	(revision 37029)
+++ APPS/Halux/Machine/Kantenband/impl/KantenbandDataBepaler.cls.xml	(.../KantenbandDataBepaler.cls.xml)	(revision 54690)
@@ -3,47 +3,26 @@
 <Class name="APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler">
 <Super>TECH.Mockable,APPS.Halux.Machine.Kantenband.ProgrammaBepaler</Super>
 
-<Property name="KantenbandBepaler">
-<Type>APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="DimensieBepaler">
 <Type>APPS.Halux.Machine.Kantenband.impl.DimensieBepaler</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="PrinterTekstBepaler">
-<Type>APPS.Halux.Machine.Kantenband.impl.PrinterTekstBepaler</Type>
+<Property name="PassageBepaler">
+<Type>APPS.Halux.Machine.Kantenband.impl.PassageBepaler</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="PassageDefinitieRepository">
-<Type>APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="UitvoeringInfo">
-<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Data">
-<Type>APPS.Halux.Machine.Kantenband.Data</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>DimensieBepaler:APPS.Halux.Machine.Kantenband.impl.DimensieBepaler="",PrinterTekstBepaler:APPS.Halux.Machine.Kantenband.impl.PrinterTekstBepaler="",KantenbandBepaler:APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler="",PassageDefinitieRepository:APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository=""</FormalSpec>
+<FormalSpec>DimensieBepaler:APPS.Halux.Machine.Kantenband.impl.DimensieBepaler="",PassageBepaler:APPS.Halux.Machine.Kantenband.impl.PassageBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..DimensieBepaler = $$$Implementation(DimensieBepaler,##class(APPS.Halux.Machine.Kantenband.impl.DimensieBepaler).%New())
-	set ..PrinterTekstBepaler = $$$Implementation(PrinterTekstBepaler,##class(APPS.Halux.Machine.Kantenband.impl.PrinterTekstBepaler).%New())
-	set ..KantenbandBepaler = $$$Implementation(KantenbandBepaler,##class(APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New())
-	Set ..PassageDefinitieRepository = $$$Implementation(PassageDefinitieRepository,##class(APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository).%New())
+	Set ..DimensieBepaler = $$$Inject(DimensieBepaler, ##class(APPS.Halux.Machine.Kantenband.impl.DimensieBepaler).%New())
+	Set ..PassageBepaler = $$$Inject(PassageBepaler, ##class(APPS.Halux.Machine.Kantenband.impl.PassageBepaler).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -52,71 +31,20 @@
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo</FormalSpec>
 <ReturnType>APPS.Halux.Machine.Kantenband.Data</ReturnType>
 <Implementation><![CDATA[
-	do ..Init(UitvoeringInfo)
-	do ..VoegToeAfmetingen()
-	do ..VoegToePassages()
-
-	set ..Data.ID = UitvoeringInfo.VerwerkingID
-	set ..Data.BatchID = UitvoeringInfo.BatchID
-	set ..Data.Toelevering = UitvoeringInfo.ToeleveringID
-	set ..Data.DossierCode = UitvoeringInfo.DossierCode
-	quit ..Data
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeAfmetingen">
-<Private>1</Private>
-<Implementation><![CDATA[
-	set ..Data.Breedte = ..DimensieBepaler.BepaalBreedte(..UitvoeringInfo.KantenbandData)
-	set ..Data.Lengte = ..DimensieBepaler.BepaalLengte(..UitvoeringInfo.KantenbandData)
-	set ..Data.Dikte = ..DimensieBepaler.BepaalDikte(..UitvoeringInfo.KantenbandData)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToePassages">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ..UitvoeringInfo.KantenbandData
-	#dim PassageDefinities As %ListOfObjects = ..PassageDefinitieRepository.GeefPassageDefinities(KantenbandData.Concept, KantenbandData.Decor, KantenbandData.Rol , KantenbandData.Hoogte)
-	Do ..SorteerVolgensPassage(PassageDefinities)
+	#dim Data As APPS.Halux.Machine.Kantenband.Data = ##class(APPS.Halux.Machine.Kantenband.Data).%New()
 	
-	#Dim Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(PassageDefinities)
+	Set Data.Breedte = ..DimensieBepaler.BepaalBreedte(UitvoeringInfo.KantenbandData)
+	Set Data.Lengte = ..DimensieBepaler.BepaalLengte(UitvoeringInfo.KantenbandData)
+	Set Data.Dikte = ..DimensieBepaler.BepaalDikte(UitvoeringInfo.KantenbandData)
+	Set Data.Passages = ..PassageBepaler.GeefPassages(UitvoeringInfo)
+	Set Data.ID = UitvoeringInfo.VerwerkingID
+	Set Data.BatchID = UitvoeringInfo.BatchID
+	Set Data.Toelevering = UitvoeringInfo.ToeleveringID
+	Set Data.DossierCode = UitvoeringInfo.DossierCode
 	
-	While Iterator.HasNext() {
-		#dim PassageDefinitie As APPS.Halux.Machine.Kantenband.data.PassageDefinitie = Iterator.Next()
-		set Passage = ##class(APPS.Halux.Machine.Kantenband.Passage).%New()
-		Set Passage.Draai180Graden = PassageDefinitie.MoetDraaien
-		Set Passage.Kantel180Graden = PassageDefinitie.MoetKantellen
-		
-		Set Passage.Kantenband = ..KantenbandBepaler.BepaalKantenband(..UitvoeringInfo.KantenbandData,PassageDefinitie.Programma)
-		Set Passage.PrinterTekst = ..PrinterTekstBepaler.BepaalPrinterTekst(..UitvoeringInfo,PassageDefinitie.Passage)
-		Set Passage.Uitgang = PassageDefinitie.Uitgang
-		Set Passage.Programma = PassageDefinitie.Programma
-		
-		Do ..Data.Passages.Insert(Passage)
-	}
+	Quit Data
 ]]></Implementation>
 </Method>
-
-<Method name="SorteerVolgensPassage">
-<FormalSpec><![CDATA[&PassageDefinities:%ListOfObjects]]></FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	
-	Set Sorter = ##class(TECH.Algo.Sort.InsertionSort).%New()
-	Set Comparator = ##class(APPS.Halux.Machine.Kantenband.impl.PassageDefinitieComparator).%New()
-	Do Sorter.Sort(PassageDefinities, Comparator)
-]]></Implementation>
-</Method>
-
-<Method name="Init">
-<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	set ..Data = ##class(APPS.Halux.Machine.Kantenband.Data).%New()
-	set ..UitvoeringInfo = UitvoeringInfo
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml	(revision 54690)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.Machine.Kantenband.impl.PassageBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+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.PassageBepaler</Super>
+
+<Method name="GeefPassages">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml
===================================================================
diff -u -r54577 -r54690
--- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml	(.../Test.cls.xml)	(revision 54577)
+++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml	(.../Test.cls.xml)	(revision 54690)
@@ -8,22 +8,22 @@
 <Default>RandomProgrammaId</Default>
 </Parameter>
 
-<Property name="Decor">
-<Type>APPS.Halux.PPS.enu.TAORDecor.AutoComplete</Type>
+<Property name="PlaatAfwerkingEnum">
+<Type>DOM.PM.enu.TAORPlaatAfwerking.AutoComplete</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LadeKleur">
+<Property name="LadeKleurEnum">
 <Type>DOM.PM.enu.TAORLadeKleur.AutoComplete</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="Test: Standaardgedrag">
 <Implementation><![CDATA[
-	#dim DummyPlaatAfwerking As APPS.Halux.PPS.enu.TAORDecor = ##class(APPS.Halux.PPS.enu.TAORDecor).Fineer()
+	#dim DummyPlaatAfwerking As DOM.PM.enu.TAORPlaatAfwerking = ..PlaatAfwerkingEnum.Fineer
 	
 	#dim DummyKantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
-	Set DummyKantenbandData.Decor = DummyPlaatAfwerking
+	Set DummyKantenbandData.PlaatAfwerking = DummyPlaatAfwerking
 	
 	#dim DummyKantenbandProgramma As APPS.Halux.Machine.Kantenband.data.KantenbandProgramma = ##class(APPS.Halux.Machine.Kantenband.data.KantenbandProgramma).%New($$$DummyInteger)
 	#dim KantenbandRepositoryMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository).%New()
@@ -48,10 +48,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.Decor = ..Decor.Fineer
+	Set KantenbandData.PlaatAfwerking = ..PlaatAfwerkingEnum.Fineer
 	Do ..AssertKantenband($$$True, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "")
 	
-	Set KantenbandData.Decor = ..Decor.Melamine
+	Set KantenbandData.PlaatAfwerking = ..PlaatAfwerkingEnum.Melamine
 	Do ..AssertKantenband($$$True, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "")
 ]]></Implementation>
 </Method>
@@ -60,10 +60,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.Decor = ..Decor.Fineer
+	Set KantenbandData.PlaatAfwerking = ..PlaatAfwerkingEnum.Fineer
 	Do ..AssertKantenband($$$False, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "DummyDikteCodeDummyBreedteCode")
 	
-	Set KantenbandData.Decor = ..Decor.Melamine
+	Set KantenbandData.PlaatAfwerking = ..PlaatAfwerkingEnum.Melamine
 	Do ..AssertKantenband($$$False, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "DummyDikteCodeDummyBreedteCode")
 ]]></Implementation>
 </Method>
@@ -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 = ..LadeKleur.NatuurEikenhout
+	Set KantenbandData.LadeKleur = ..LadeKleurEnum.NatuurEikenhout
 	Do ..AssertKantenband($$$False, KantenbandData, "", "", "NE")
 	
-	Set KantenbandData.LadeKleur = ..LadeKleur.NatuurNotenhout
+	Set KantenbandData.LadeKleur = ..LadeKleurEnum.NatuurNotenhout
 	Do ..AssertKantenband($$$False, KantenbandData, "", "", "NN")
 ]]></Implementation>
 </Method>
@@ -84,19 +84,19 @@
 <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 = ..LadeKleur.Wit
+	Set KantenbandData.LadeKleur = ..LadeKleurEnum.Wit
 	Do ..AssertKantenband($$$False, KantenbandData, "", "", "W1")
 	
-	Set KantenbandData.LadeKleur = ..LadeKleur.Zwart
+	Set KantenbandData.LadeKleur = ..LadeKleurEnum.Zwart
 	Do ..AssertKantenband($$$False, KantenbandData, "", "", "Z8")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Reële data">
 <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.Decor = ..Decor.Fineer
-	Set KantenbandData.LadeKleur = ..LadeKleur.NatuurEikenhout
+	Set KantenbandData.PlaatAfwerking = ..PlaatAfwerkingEnum.Fineer
+	Set KantenbandData.LadeKleur = ..LadeKleurEnum.NatuurEikenhout
 	
 	#dim KantenbandProgramma As APPS.Halux.Machine.Kantenband.data.KantenbandProgramma = ##class(APPS.Halux.Machine.Kantenband.data.KantenbandProgramma).%New($$$DummyInteger)
 	Do KantenbandProgramma.ZetIsDoorvoer($$$False)
@@ -122,10 +122,10 @@
 	Do KantenbandRepositoryStub.IndienMethodCall("GeefProgramma", ..#RandomProgrammaId).DanReturn(KantenbandProgramma)
 	
 	#dim DikteCodeBepalerStub As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler).%New()
-	Do DikteCodeBepalerStub.IndienMethodCall("BepaalCode", KantenbandData.Decor).DanReturn(DikteCode)
+	Do DikteCodeBepalerStub.IndienMethodCall("BepaalCode", KantenbandData.PlaatAfwerking).DanReturn(DikteCode)
 	
 	#dim BreedteCodeBepalerStub As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler).%New()
-	Do BreedteCodeBepalerStub.IndienMethodCall("BepaalCode", KantenbandData.Decor).DanReturn(BreedteCode)	
+	Do BreedteCodeBepalerStub.IndienMethodCall("BepaalCode", KantenbandData.PlaatAfwerking).DanReturn(BreedteCode)	
 	
 	#dim KantenbandBepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New(KantenbandRepositoryStub, DikteCodeBepalerStub, BreedteCodeBepalerStub)
 	#dim Kantenband As %String = KantenbandBepaler.BepaalKantenband(KantenbandData, ..#RandomProgrammaId)
Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandDataBepaler/Test.cls.xml
===================================================================
diff -u -r37029 -r54690
--- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandDataBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 37029)
+++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandDataBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 54690)
@@ -3,189 +3,68 @@
 <Class name="vhUnitTest.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="AantalPassages">
-<Type>%Integer</Type>
-<Default>4</Default>
-</Parameter>
-
-<Property name="FakeDimensieBepaler">
-<Type>vhTest.Fake.APPS.Halux.Machine.Kantenband.impl.DimensieBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="PrinterTekstBepaler">
-<Type>APPS.Halux.Machine.Kantenband.impl.PrinterTekstBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="PassageDefinitieRepository">
-<Type>APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="UitvoeringInfo">
-<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="KantenbandBepaler">
-<Type>APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestCase:%String</FormalSpec>
+<Method name="Test: Standaard gedrag">
 <Implementation><![CDATA[
-	do ##super(aTestCase)
+	#dim RandomBreedte As %Double = 1.23
+	#dim RandomLengte As %Double = 4.56
+	#dim RandomDikte As %Double = 7.89
 	
-	Set ..UitvoeringInfo = ..GeefDummyUitvoeringInfo()
-	set ..FakeDimensieBepaler = ##class(vhTest.Fake.APPS.Halux.Machine.Kantenband.impl.DimensieBepaler).%New()
-	set ..PrinterTekstBepaler = ##class(vhTest.Fake.APPS.Halux.Machine.Kantenband.impl.PrinterTekstBepaler).%New()
-	Set ..PassageDefinitieRepository = ##class(vhTest.Fake.APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository).%New()
-	Set ..KantenbandBepaler = ##class(vhTest.Fake.APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New()
-]]></Implementation>
-</Method>
-
-<Method name="TestBreedteBepalerOpgeroepen">
-<Implementation><![CDATA[
-	#dim Bepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler = ..GeefKantenbandDataBepaler()
-	#dim Data As APPS.Halux.Machine.Kantenband.Data = Bepaler.BepaalProgramma(..UitvoeringInfo)
-	Do $$$AssertTrue(..FakeDimensieBepaler.IsOpgeroepen("BepaalBreedte"))
-]]></Implementation>
-</Method>
-
-<Method name="TestLengteBepalerOpgeroepen">
-<Implementation><![CDATA[
+	#dim DummyUitvoeringInfo = ..GeefDummyUitvoeringInfo()
+	#dim DummyPassages As %ListOfObjects = ..GeefDummyPassages()
 	
-	#dim Bepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler = ..GeefKantenbandDataBepaler()
-	#dim Data As APPS.Halux.Machine.Kantenband.Data = Bepaler.BepaalProgramma(..UitvoeringInfo)
-	Do $$$AssertTrue(..FakeDimensieBepaler.IsOpgeroepen("BepaalLengte"))
-]]></Implementation>
-</Method>
-
-<Method name="TestDikteBepalerOpgeroepen">
-<Implementation><![CDATA[
-	#dim Bepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler = ..GeefKantenbandDataBepaler()
-	#dim Data As APPS.Halux.Machine.Kantenband.Data = Bepaler.BepaalProgramma(..UitvoeringInfo)
-	Do $$$AssertTrue(..FakeDimensieBepaler.IsOpgeroepen("BepaalDikte"))
-]]></Implementation>
-</Method>
-
-<Method name="TestPrinterTekstBepalerOpgeroepen">
-<Implementation><![CDATA[
-	#dim PassageNr As TECH.Integer
-	Set PassageDefinitieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository).%New()
-	Do PassageDefinitieRepositoryStub.IndienMethodCall("GeefPassageDefinities", ..UitvoeringInfo.KantenbandData.Concept, ..UitvoeringInfo.KantenbandData.Decor, ..UitvoeringInfo.KantenbandData.Rol, ..UitvoeringInfo.KantenbandData.Hoogte).DanReturn(..GeefDummyPassageDefinities())
-	Set ..PassageDefinitieRepository = PassageDefinitieRepositoryStub
+	#dim DimensieBepalerMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.DimensieBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.DimensieBepaler).%New()
+	Do DimensieBepalerMock.VerwachtMethodCall("BepaalBreedte", DummyUitvoeringInfo.KantenbandData).DanReturn(RandomBreedte)
+	Do DimensieBepalerMock.VerwachtMethodCall("BepaalLengte", DummyUitvoeringInfo.KantenbandData).DanReturn(RandomLengte)
+	Do DimensieBepalerMock.VerwachtMethodCall("BepaalDikte", DummyUitvoeringInfo.KantenbandData).DanReturn(RandomDikte)
 	
-	set PrinterTekstBepalerMock = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PrinterTekstBepaler).%New()
-	For PassageNr=1:1:..#AantalPassages {
-		do PrinterTekstBepalerMock.VerwachtMethodCall("BepaalPrinterTekst",..UitvoeringInfo,PassageNr).DanReturn($$$DummyString_PassageNr)
-	}
-	Set ..PrinterTekstBepaler = PrinterTekstBepalerMock
+	#dim PassageBepalerMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PassageBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PassageBepaler).%New()
+	Do PassageBepalerMock.VerwachtMethodCall("GeefPassages", DummyUitvoeringInfo).DanReturn(DummyPassages)
 	
-	#dim Bepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler = ..GeefKantenbandDataBepaler()
-	#dim Data As APPS.Halux.Machine.Kantenband.Data = Bepaler.BepaalProgramma(..UitvoeringInfo)
+	#dim KantenbandDataBepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler).%New(DimensieBepalerMock, PassageBepalerMock)
+	#dim Data As APPS.Halux.Machine.Kantenband.Data = KantenbandDataBepaler.BepaalProgramma(DummyUitvoeringInfo)
 	
-	For PassageNr=1:1:..#AantalPassages {
-		Do $$$AssertEquals(Data.Passages.GetAt(PassageNr).PrinterTekst,$$$DummyString_PassageNr)
-	}
+	Do $$$AssertEquals(Data.Breedte, RandomBreedte)
+	Do $$$AssertEquals(Data.Lengte, RandomLengte)
+	Do $$$AssertEquals(Data.Dikte, RandomDikte)
+	Do $$$AssertEqualsList(Data.Passages, DummyPassages)
+	Do $$$AssertEquals(Data.ID, DummyUitvoeringInfo.VerwerkingID)
+	Do $$$AssertEquals(Data.BatchID, DummyUitvoeringInfo.BatchID)
+	Do $$$AssertEquals(Data.Toelevering, DummyUitvoeringInfo.ToeleveringID)
+	Do $$$AssertEquals(Data.DossierCode, DummyUitvoeringInfo.DossierCode)
 	
-	do PrinterTekstBepalerMock.Verifieer()
+	Do DimensieBepalerMock.Verifieer()
+	Do PassageBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="TestKantenbandBepalerOpgeroepen">
-<Implementation><![CDATA[
-	#dim PassageNr As TECH.Integer
-	Set PassageDefinitieRepositoryStub = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository).%New()
-	Do PassageDefinitieRepositoryStub.IndienMethodCall("GeefPassageDefinities", ..UitvoeringInfo.KantenbandData.Concept, ..UitvoeringInfo.KantenbandData.Decor, ..UitvoeringInfo.KantenbandData.Rol,..UitvoeringInfo.KantenbandData.Hoogte).DanReturn(..GeefDummyPassageDefinities())
-	Set ..PassageDefinitieRepository = PassageDefinitieRepositoryStub
-	
-	set KantenbandBepalerMock = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New()
-	For PassageNr=1:1:..#AantalPassages {
-		do KantenbandBepalerMock.VerwachtMethodCall("BepaalKantenband",..UitvoeringInfo.KantenbandData,..GeefDummyPassageDefinities().GetAt(PassageNr).Programma).DanReturn($$$DummyString_PassageNr)
-	}
-	Set ..KantenbandBepaler = KantenbandBepalerMock
-	
-	#dim Bepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler = ..GeefKantenbandDataBepaler()
-	#dim Data As APPS.Halux.Machine.Kantenband.Data = Bepaler.BepaalProgramma(..UitvoeringInfo)
-	
-	For PassageNr=1:1:..#AantalPassages {
-		Do $$$AssertEquals(Data.Passages.GetAt(PassageNr).Kantenband,$$$DummyString_PassageNr)
-	}
-	
-	do KantenbandBepalerMock.Verifieer()
-]]></Implementation>
-</Method>
-
-<Method name="TestPassagesIngevuld">
-<Implementation><![CDATA[
-	#dim Bepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler = ..GeefKantenbandDataBepaler()
-	#dim Data As APPS.Halux.Machine.Kantenband.Data = Bepaler.BepaalProgramma(..UitvoeringInfo)
-	
-	If $$$AssertEquals(Data.Passages.Count(),2) {
-		Do $$$AssertEquals(Data.Passages.GetAt(1).Programma,"FakeProgramma1")
-		Do $$$AssertEquals(Data.Passages.GetAt(2).Programma,"FakeProgramma2")
-	}
-]]></Implementation>
-</Method>
-
-<Method name="GeefKantenbandDataBepaler">
-<Private>1</Private>
-<ReturnType>APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler</ReturnType>
-<Implementation><![CDATA[	quit ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler).%New(..FakeDimensieBepaler,..PrinterTekstBepaler, ..KantenbandBepaler, ..PassageDefinitieRepository)
-]]></Implementation>
-</Method>
-
 <Method name="GeefDummyUitvoeringInfo">
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo</ReturnType>
 <Implementation><![CDATA[
-	set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo).%New()
-	set UitvoeringInfo.KantenbandData.Concept = ##class(APPS.Halux.PPS.enu.TAORConcept).Baliko()
-	set UitvoeringInfo.KantenbandData.Decor = ##class(APPS.Halux.PPS.enu.TAORDecor).Melamine()
-	set UitvoeringInfo.KantenbandData.Rol= ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).LadeZijkant()
-	set UitvoeringInfo.KantenbandData.Hoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
-	quit UitvoeringInfo
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo).%New()
+	
+	Set UitvoeringInfo.KantenbandData.Concept = ##class(APPS.Halux.PPS.enu.TAORConcept).Baliko()
+	Set UitvoeringInfo.KantenbandData.PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
+	Set UitvoeringInfo.KantenbandData.Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).LadeZijkant()
+	Set UitvoeringInfo.KantenbandData.Hoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
+	
+	Quit UitvoeringInfo
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDummyPassageDefinities">
+<Method name="GeefDummyPassages">
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	Set DummyPassageDefinities = ##class(%ListOfObjects).%New()
-	#dim PassageNr As TECH.Integer
-	For PassageNr=1:1:..#AantalPassages {
-		Do DummyPassageDefinities.Insert(..GeefDummyPassageDefinitie("Programma"_PassageNr, PassageNr))
-	}
-	Quit DummyPassageDefinities
-]]></Implementation>
-</Method>
+	#dim Passages As %ListOfObjects = ##class(%ListOfObjects).%New()
+	
+	Do Passages.Insert(##class(APPS.Halux.Machine.Kantenband.Passage).%New())
+	Do Passages.Insert(##class(APPS.Halux.Machine.Kantenband.Passage).%New())
+	Do Passages.Insert(##class(APPS.Halux.Machine.Kantenband.Passage).%New())
 
-<Method name="GeefDummyPassageDefinitie">
-<FormalSpec>Programma:TECH.String,Passage:APPS.Halux.Machine.Kantenband.enu.Passage</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.Halux.Machine.Kantenband.data.PassageDefinitie</ReturnType>
-<Implementation><![CDATA[
-	Set PassageDefinitie = ##class(APPS.Halux.Machine.Kantenband.data.PassageDefinitie).%New()
-	Set PassageDefinitie.Programma = Programma
-	Set PassageDefinitie.Passage = Passage
-	Quit PassageDefinitie
+	Quit Passages
 ]]></Implementation>
 </Method>
-
-<Method name="AssertPassage">
-<FormalSpec>Passage:APPS.Halux.Machine.Kantenband.Passage,Uitgang:APPS.Halux.Machine.Kantenband.enu.Uitgang,Programma:%String,Draaien:%Boolean,Kantelen:%Boolean</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	do $$$AssertEquals(Passage.Uitgang,Uitgang)
-	do $$$AssertEquals(Passage.Programma,Programma)
-	do $$$AssertEquals(Passage.Draai180Graden,Draaien)
-	do $$$AssertEquals(Passage.Kantel180Graden,Kantelen)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/PassageBepaler/Test.cls.xml	(revision 54690)
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.Machine.Kantenband.impl.PassageBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="PassageEnum">
+<Type>APPS.Halux.Machine.Kantenband.enu.Passage.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="Test: Standaard gedrag">
+<Implementation><![CDATA[
+	#dim DummyKantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ..GeefDummyKantenbandData()
+	#dim DummyUitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo = ..GeefDummyUitvoeringInfo(DummyKantenbandData)
+	#dim DummyPassageDefinities As %ListOfObjects = ..GeefDummyPassageDefinities()
+	
+	#dim PassageDefinitieRepositoryMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository).%New()
+	Do PassageDefinitieRepositoryMock.VerwachtMethodCall("GeefPassageDefinities", DummyKantenbandData.Concept, DummyKantenbandData.PlaatAfwerking, DummyKantenbandData.Rol, DummyKantenbandData.Hoogte).DanReturn(DummyPassageDefinities)
+	
+	#dim KantenbandBepalerMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New()
+	Do KantenbandBepalerMock.VerwachtMethodCall("BepaalKantenband", DummyKantenbandData, "Programma" _ ..PassageEnum.Een).DanReturn("DummyKantenband" _ ..PassageEnum.Een)
+	Do KantenbandBepalerMock.VerwachtMethodCall("BepaalKantenband", DummyKantenbandData, "Programma" _ ..PassageEnum.Twee).DanReturn("DummyKantenband" _ ..PassageEnum.Twee)
+	Do KantenbandBepalerMock.VerwachtMethodCall("BepaalKantenband", DummyKantenbandData, "Programma" _ ..PassageEnum.Drie).DanReturn("DummyKantenband" _ ..PassageEnum.Drie)
+	Do KantenbandBepalerMock.VerwachtMethodCall("BepaalKantenband", DummyKantenbandData, "Programma" _ ..PassageEnum.Vier).DanReturn("DummyKantenband" _ ..PassageEnum.Vier)
+	Do KantenbandBepalerMock.VerwachtMethodCall("BepaalKantenband", DummyKantenbandData, "Programma" _ ..PassageEnum.Uitgang).DanReturn("DummyKantenband" _ ..PassageEnum.Uitgang)
+	
+	#dim PrinterTekstBepalerMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PrinterTekstBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PrinterTekstBepaler).%New()
+	Do PrinterTekstBepalerMock.VerwachtMethodCall("BepaalPrinterTekst", DummyUitvoeringInfo, ..PassageEnum.Een).DanReturn("DummyPrinterTekst" _ ..PassageEnum.Een)
+	Do PrinterTekstBepalerMock.VerwachtMethodCall("BepaalPrinterTekst", DummyUitvoeringInfo, ..PassageEnum.Twee).DanReturn("DummyPrinterTekst" _ ..PassageEnum.Twee)
+	Do PrinterTekstBepalerMock.VerwachtMethodCall("BepaalPrinterTekst", DummyUitvoeringInfo, ..PassageEnum.Drie).DanReturn("DummyPrinterTekst" _ ..PassageEnum.Drie)
+	Do PrinterTekstBepalerMock.VerwachtMethodCall("BepaalPrinterTekst", DummyUitvoeringInfo, ..PassageEnum.Vier).DanReturn("DummyPrinterTekst" _ ..PassageEnum.Vier)
+	Do PrinterTekstBepalerMock.VerwachtMethodCall("BepaalPrinterTekst", DummyUitvoeringInfo, ..PassageEnum.Uitgang).DanReturn("DummyPrinterTekst" _ ..PassageEnum.Uitgang)
+	
+	#dim PassageBepaler As APPS.Halux.Machine.Kantenband.impl.PassageBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.PassageBepaler).%New(PassageDefinitieRepositoryMock, KantenbandBepalerMock, PrinterTekstBepalerMock)
+	#dim Passages As %ListOfObjects = PassageBepaler.GeefPassages(DummyUitvoeringInfo)
+	
+	Do PassageDefinitieRepositoryMock.Verifieer()
+	Do KantenbandBepalerMock.Verifieer()
+	Do PrinterTekstBepalerMock.Verifieer()
+	
+	Do ..AssertPassages(Passages, DummyPassageDefinities)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDummyUitvoeringInfo">
+<FormalSpec>KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData</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 = KantenbandData
+	
+	Quit UitvoeringInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefDummyKantenbandData">
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData</ReturnType>
+<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.Concept = ##class(APPS.Halux.PPS.enu.TAORConcept).Baliko()
+	Set KantenbandData.PlaatAfwerking = ##class(DOM.PM.enu.TAORPlaatAfwerking).Melamine()
+	Set KantenbandData.Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).LadeZijkant()
+	Set KantenbandData.Hoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
+	
+	Quit KantenbandData
+]]></Implementation>
+</Method>
+
+<Method name="GeefDummyPassageDefinities">
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim DummyPassageDefinities As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim PassageEnumIterator As TECH.Iterator = ##class(TECH.EnumerationUtils).ValueListIteratorVanEnumeratie("APPS.Halux.Machine.Kantenband.enu.Passage")
+	
+	While PassageEnumIterator.HasNext() {
+		#dim PassageEnum As APPS.Halux.Machine.Kantenband.enu.Passage = PassageEnumIterator.Next()
+		#dim PassageDefinitie As APPS.Halux.Machine.Kantenband.data.PassageDefinitie = ##class(APPS.Halux.Machine.Kantenband.data.PassageDefinitie).%New()
+	
+		Set PassageDefinitie.Programma = "Programma" _ PassageEnum
+		Set PassageDefinitie.Passage = PassageEnum
+		Set PassageDefinitie.MoetDraaien = $$$True
+		Set PassageDefinitie.MoetKantellen = $$$False
+		Set PassageDefinitie.Uitgang = ##class(APPS.Halux.Machine.Kantenband.enu.Uitgang).C()
+		
+		Do DummyPassageDefinities.Insert(PassageDefinitie)
+	}
+	
+	Quit DummyPassageDefinities
+]]></Implementation>
+</Method>
+
+<Method name="AssertPassages">
+<FormalSpec>Passages:%ListOfObjects,PassageDefinities:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim PassageEnumIterator As TECH.ListIterator = ##class(TECH.EnumerationUtils).ValueListIteratorVanEnumeratie("APPS.Halux.Machine.Kantenband.enu.Passage")
+	
+	While PassageEnumIterator.HasNext() {
+		#dim PassageEnum As APPS.Halux.Machine.Kantenband.enu.Passage = PassageEnumIterator.Next()
+		#dim PassageDefinitie As APPS.Halux.Machine.Kantenband.data.PassageDefinitie = PassageDefinities.GetAt(PassageEnumIterator.Key())
+		#dim Passage As APPS.Halux.Machine.Kantenband.Passage = Passages.GetAt(PassageEnumIterator.Key())
+		
+		Do $$$AssertEquals(Passage.Kantenband, "DummyKantenband" _ PassageEnum)
+		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.Uitgang, PassageDefinitie.Uitgang)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml	(revision 54690)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.PassageBepaler">
+<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</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.Machine.Kantenband.impl.PassageBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="GeefPassages">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefPassages",UitvoeringInfo)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml
===================================================================
diff -u
--- APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml	(revision 0)
+++ APPS/Halux/Machine/Kantenband/impl/PassageBepaler.cls.xml	(revision 54690)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Machine.Kantenband.impl.PassageBepaler">
+<Super>TECH.Mockable</Super>
+
+<Property name="PassageDefinitieRepository">
+<Type>APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KantenbandBepaler">
+<Type>APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PrinterTekstBepaler">
+<Type>APPS.Halux.Machine.Kantenband.impl.PrinterTekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PassageDefinitieRepository:APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository="",KantenbandBepaler:APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler="",PrinterTekstBepaler:APPS.Halux.Machine.Kantenband.impl.PrinterTekstBepaler=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..PassageDefinitieRepository = $$$Inject(PassageDefinitieRepository, ##class(APPS.Halux.Machine.Kantenband.impl.PassageDefinitieRepository).%New())
+	Set ..KantenbandBepaler = $$$Inject(KantenbandBepaler, ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New())
+	Set ..PrinterTekstBepaler = $$$Inject(PrinterTekstBepaler, ##class(APPS.Halux.Machine.Kantenband.impl.PrinterTekstBepaler).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefPassages">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KantenbandUitvoeringInfo</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Passages As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim PassageDefinities As %ListOfObjects = ..PassageDefinitieRepository.GeefPassageDefinities(UitvoeringInfo.KantenbandData.Concept, UitvoeringInfo.KantenbandData.PlaatAfwerking, UitvoeringInfo.KantenbandData.Rol , UitvoeringInfo.KantenbandData.Hoogte)
+
+	Do ..SorteerPassageDefinities(PassageDefinities)
+	
+	#dim PassageDefinitieIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(PassageDefinities)
+	
+	While PassageDefinitieIterator.HasNext() {
+		#dim PassageDefinitie As APPS.Halux.Machine.Kantenband.data.PassageDefinitie = PassageDefinitieIterator.Next()
+		#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.Kantenband = ..KantenbandBepaler.BepaalKantenband(UitvoeringInfo.KantenbandData, PassageDefinitie.Programma)
+		Set Passage.PrinterTekst = ..PrinterTekstBepaler.BepaalPrinterTekst(UitvoeringInfo, PassageDefinitie.Passage)
+		Set Passage.Uitgang = PassageDefinitie.Uitgang
+		Set Passage.Programma = PassageDefinitie.Programma
+		
+		Do Passages.Insert(Passage)
+	}
+	
+	Quit Passages
+]]></Implementation>
+</Method>
+
+<Method name="SorteerPassageDefinities">
+<FormalSpec>PassageDefinities:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Sorter As TECH.Algo.Sort.InsertionSort = ##class(TECH.Algo.Sort.InsertionSort).%New()
+	#dim Comparator As APPS.Halux.Machine.Kantenband.impl.PassageDefinitieComparator = ##class(APPS.Halux.Machine.Kantenband.impl.PassageDefinitieComparator).%New()
+	
+	Do Sorter.Sort(PassageDefinities, Comparator)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>