Index: vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml
===================================================================
diff -u -r31682 -r54577
--- vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml	(.../Test.cls.xml)	(revision 31682)
+++ vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/BepaalKantenband/Test.cls.xml	(.../Test.cls.xml)	(revision 54577)
@@ -3,120 +3,134 @@
 <Class name="vhUnitTest.APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler.BepaalKantenband.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="ProgrammaMetDoorvoer">
+<Parameter name="RandomProgrammaId">
 <Type>%String</Type>
-<Default>ProgrammaMetDoorvoer</Default>
+<Default>RandomProgrammaId</Default>
 </Parameter>
 
-<Parameter name="ProgrammaZonderDoorvoer">
-<Type>%String</Type>
-<Default>ProgrammaZonderDoorvoer</Default>
-</Parameter>
-
-<Property name="ProgrammaMetDoorvoer">
-<Type>APPS.Halux.Machine.Kantenband.data.KantenbandProgramma</Type>
+<Property name="Decor">
+<Type>APPS.Halux.PPS.enu.TAORDecor.AutoComplete</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ProgrammaZonderDoorvoer">
-<Type>APPS.Halux.Machine.Kantenband.data.KantenbandProgramma</Type>
+<Property name="LadeKleur">
+<Type>DOM.PM.enu.TAORLadeKleur.AutoComplete</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="KantenbandBepalerImpl">
-<Type>APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="KantenbandData">
-<Type>APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="KantenBandProgrammaRepositoryMock">
-<Type>vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Programma">
-<Type>TECH.String</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
+<Method name="Test: Standaardgedrag">
 <Implementation><![CDATA[
-	do ##super(aTestName)
-	set ..KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
-	Set ..KantenbandData.Decor = ##class(APPS.Halux.PPS.enu.TAORDecor).Fineer()
-	Set ..KantenBandProgrammaRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository).%New()
-	Set ..ProgrammaMetDoorvoer = ..GeefKantenbandProgramma($$$True)
-	Set ..ProgrammaZonderDoorvoer = ..GeefKantenbandProgramma($$$False)
-	Do ..KantenBandProgrammaRepositoryMock.IndienMethodCall("GeefProgramma", ..#ProgrammaMetDoorvoer).DanReturn(..ProgrammaMetDoorvoer)
-	Do ..KantenBandProgrammaRepositoryMock.IndienMethodCall("GeefProgramma", ..#ProgrammaZonderDoorvoer).DanReturn(..ProgrammaZonderDoorvoer)
-	Set ..Programma = ..#ProgrammaZonderDoorvoer
+	#dim DummyPlaatAfwerking As APPS.Halux.PPS.enu.TAORDecor = ##class(APPS.Halux.PPS.enu.TAORDecor).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
+	
+	#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()
+	Do KantenbandRepositoryMock.VerwachtMethodCall("GeefProgramma", ..#RandomProgrammaId).DanReturn(DummyKantenbandProgramma)	
+	
+	#dim DikteCodeBepalerMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler).%New()
+	Do DikteCodeBepalerMock.VerwachtMethodCall("BepaalCode", DummyPlaatAfwerking).DanReturn("DummyDikteCode")
+	
+	#dim BreedteCodeBepalerMock As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler).%New()
+	Do BreedteCodeBepalerMock.VerwachtMethodCall("BepaalCode", DummyPlaatAfwerking).DanReturn("DummyBreedteCode")
+	
+	#dim KantenbandBepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New(KantenbandRepositoryMock, DikteCodeBepalerMock, BreedteCodeBepalerMock)
+	#dim Kantenband As %String = KantenbandBepaler.BepaalKantenband(DummyKantenbandData, ..#RandomProgrammaId)
+	
+	Do KantenbandRepositoryMock.Verifieer()
+	Do DikteCodeBepalerMock.Verifieer()
+	Do BreedteCodeBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="TestKantenbandEnkelInPassageWaarKantenbandWordtAangebracht">
+<Method name="Test: Indien KantenbandProgramma met doorvoer, is geen kantenband nodig">
 <Implementation><![CDATA[
-	do $$$AssertTrue(..KantenbandIsLeeg())
+	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
 	
-	Set ..Programma = ..#ProgrammaMetDoorvoer
-	do $$$AssertFalse( ..KantenbandIsLeeg() )
+	Set KantenbandData.Decor = ..Decor.Fineer
+	Do ..AssertKantenband($$$True, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "")
+	
+	Set KantenbandData.Decor = ..Decor.Melamine
+	Do ..AssertKantenband($$$True, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "")
 ]]></Implementation>
 </Method>
 
-<Method name="TestFineerEnMelamineHebbenAndereBreedtes">
+<Method name="Test: Indien KantenbandProgramma zonder doorvoer, is kantenband nodig">
 <Implementation><![CDATA[
-	set ..KantenbandBepalerImpl = ##class(vhTest.Stub.APPS.Halux.Machine.Kantenband.impl.HeeftAltijdKantenbandNodigKantenbandBepaler).%New()
-	set ..KantenbandData.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout()
-
-	set ..KantenbandData.Decor = ##class(APPS.Halux.PPS.enu.TAORDecor).Fineer()
-	do ..AssertKantenband("NED08B17")
+	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
 	
-	set ..KantenbandData.Decor = ##class(APPS.Halux.PPS.enu.TAORDecor).Melamine()
-	do ..AssertKantenband("NED08B18")
+	Set KantenbandData.Decor = ..Decor.Fineer
+	Do ..AssertKantenband($$$False, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "DummyDikteCodeDummyBreedteCode")
+	
+	Set KantenbandData.Decor = ..Decor.Melamine
+	Do ..AssertKantenband($$$False, KantenbandData, "DummyDikteCode", "DummyBreedteCode", "DummyDikteCodeDummyBreedteCode")
 ]]></Implementation>
 </Method>
 
-<Method name="TestKleurCodeZitInProgramma">
+<Method name="Test: KleurCode zit in Kantenband">
 <Implementation><![CDATA[
-	set ..KantenbandBepalerImpl = ##class(vhTest.Stub.APPS.Halux.Machine.Kantenband.impl.HeeftAltijdKantenbandNodigKantenbandBepaler).%New()
-	set ..KantenbandData.Decor = ##class(APPS.Halux.PPS.enu.TAORDecor).Fineer()
+	#dim KantenbandData As APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData).%New()
 	
-	set ..KantenbandData.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout()
-	do ..AssertKantenband("NED08B17")
+	Set KantenbandData.LadeKleur = ..LadeKleur.NatuurEikenhout
+	Do ..AssertKantenband($$$False, KantenbandData, "", "", "NE")
 	
-	set ..KantenbandData.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
-	do ..AssertKantenband("NND08B17")
+	Set KantenbandData.LadeKleur = ..LadeKleur.NatuurNotenhout
+	Do ..AssertKantenband($$$False, KantenbandData, "", "", "NN")
 ]]></Implementation>
 </Method>
 
-<Method name="AssertKantenband">
-<FormalSpec>VerwachteKantenband:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[ 	do $$$AssertEquals(..KantenbandBepalerImpl.BepaalKantenband(..KantenbandData,..Programma),VerwachteKantenband)
+<Method name="Test: KleurCodes wit en zwart worden geconverteerd">
+<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
+	Do ..AssertKantenband($$$False, KantenbandData, "", "", "W1")
+	
+	Set KantenbandData.LadeKleur = ..LadeKleur.Zwart
+	Do ..AssertKantenband($$$False, KantenbandData, "", "", "Z8")
 ]]></Implementation>
 </Method>
 
-<Method name="KantenbandIsLeeg">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
+<Method name="Test: Reële data">
 <Implementation><![CDATA[
-	set ..KantenbandBepalerImpl = ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New(..KantenBandProgrammaRepositoryMock)
-	quit $length(..KantenbandBepalerImpl.BepaalKantenband(..KantenbandData,..Programma))>0
+	#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
+	
+	#dim KantenbandProgramma As APPS.Halux.Machine.Kantenband.data.KantenbandProgramma = ##class(APPS.Halux.Machine.Kantenband.data.KantenbandProgramma).%New($$$DummyInteger)
+	Do KantenbandProgramma.ZetIsDoorvoer($$$False)
+	
+	#dim KantenbandRepositoryStub As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository).%New()
+	Do KantenbandRepositoryStub.IndienMethodCall("GeefProgramma", ..#RandomProgrammaId).DanReturn(KantenbandProgramma)
+	
+	#dim KantenbandBepaler As APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandBepaler).%New(KantenbandRepositoryStub)
+	#dim Kantenband As %String = KantenbandBepaler.BepaalKantenband(KantenbandData, ..#RandomProgrammaId)
+	
+	Do $$$AssertEquals(Kantenband, "NED08B17")
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKantenbandProgramma">
-<FormalSpec>IsDoorvoer:%Boolean</FormalSpec>
+<Method name="AssertKantenband">
+<FormalSpec>IsDoorVoer:%Boolean,KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData,DikteCode:%String,BreedteCode:%String,VerwachteWaarde:%String</FormalSpec>
 <Private>1</Private>
-<ReturnType>APPS.Halux.Machine.Kantenband.data.KantenbandProgramma</ReturnType>
 <Implementation><![CDATA[
-	Set KantenbandProgramma = ##class(APPS.Halux.Machine.Kantenband.data.KantenbandProgramma).%New($$$DummyInteger)
-	Do KantenbandProgramma.ZetIsDoorvoer(IsDoorvoer)
-	Quit KantenbandProgramma
+	#dim KantenbandProgramma As APPS.Halux.Machine.Kantenband.data.KantenbandProgramma = ##class(APPS.Halux.Machine.Kantenband.data.KantenbandProgramma).%New($$$DummyInteger)
+	Do KantenbandProgramma.ZetIsDoorvoer(IsDoorVoer)
+	
+	#dim KantenbandRepositoryStub As vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository = ##class(vhTest.Mock.APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository).%New()
+	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)
+	
+	#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)	
+	
+	#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)
+	
+	Do $$$AssertEquals(Kantenband, VerwachteWaarde)
 ]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 54577 refers to a dead (removed) revision in file `vhUnitTest/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml
===================================================================
diff -u -r42267 -r54577
--- vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 42267)
+++ vhTest/Mock/APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 54577)
@@ -6,11 +6,12 @@
 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.KantenbandBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
 
 <Method name="BepaalKantenband">
-<FormalSpec>KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData,Programma:TECH.String</FormalSpec>
+<FormalSpec>KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData,ProgrammaId:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalKantenband",KantenbandData,Programma)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalKantenband",KantenbandData,ProgrammaId)
 ]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 54577 refers to a dead (removed) revision in file `vhTest/Stub/APPS/Halux/Machine/Kantenband/impl/HeeftAltijdKantenbandNodigKantenbandBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?