Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/FrontLBX/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml
===================================================================
diff -u -r63654 -r65437
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/FrontLBX/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml	(.../Test.cls.xml)	(revision 63654)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/FrontLBX/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml	(.../Test.cls.xml)	(revision 65437)
@@ -3,6 +3,11 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.FrontLBX.VerwerkingIDBepaler.BepaalVerwerkingID.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="FreesProgramma">
+<Type>%String</Type>
+<Default>Y</Default>
+</Parameter>
+
 <Property name="ProductieSequentieItem">
 <Type>APPS.Halux.common.ProductieSequentieItem</Type>
 <Private>1</Private>
@@ -32,31 +37,36 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
+	
 	Set ..KleurConverter  = ##class(vhTest.Fake.APPS.Halux.PPS.Activiteit.impl.TAOR.KleurConverter).%New()
 	Set ..ProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.common.FreesProgrammaBepaler).%New()
 	Set ..VolgnummerBepaler = ##class(vhTest.Fake.APPS.Halux.PPS.TAORProductie.impl.VolgnummerBepaler).%New()
-	
-	Do ..InitFrontLBX()
 	Set ..ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 3e karakter is een &apos;Y&apos;">
-<Implementation><![CDATA[	Do $$$AssertEquals($extract(..BepaalVerwerkingID(),3),"Y")
+<Method name="Test: 3e karakter wordt bepaald door de ProgrammaBepaler">
+<Implementation><![CDATA[
+	Do ..InitFrontLBX()
+	
+	Do ..ProgrammaBepaler.VerwachtMethodCall("BepaalFreesProgramma", ..FrontLBX).DanReturn(..#FreesProgramma)
+	
+	Do $$$AssertEquals($Extract(..BepaalVerwerkingID(), 3), ..#FreesProgramma)
+	Do ..ProgrammaBepaler.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="InitFrontLBX">
 <Private>1</Private>
 <Implementation><![CDATA[
+	Set Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
+	Do Lade.IndienMethodCall("GeefHoogte").DanReturn("F")
+	
 	Set ..FrontLBX = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
-		Set Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
 	Do ..FrontLBX.IndienMethodCall("GeefLade").DanReturn(Lade)
 	Do ..FrontLBX.IndienMethodCall("GeefBreedteInMM").DanReturn("250")
-	Do ..FrontLBX.IndienMethodCall("GeefKleur").DanReturn("250")
+	Do ..FrontLBX.IndienMethodCall("GeefKleur").DanReturn(##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout())
 	Do ..FrontLBX.IndienMethodCall("GeefAantalBodemOndersteuningen").DanReturn($$$DummyInteger).ExactAantalKeer(1)
-	Do Lade.IndienMethodCall("GeefHoogte").DanReturn("F")
-	Do ..ProgrammaBepaler.IndienMethodCall("BepaalFreesProgramma",..FrontLBX).DanReturn("Y")
 ]]></Implementation>
 </Method>
 
@@ -65,7 +75,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set VerwerkingIDBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Front.VerwerkingIDBepaler).%New(..ProgrammaBepaler, ..KleurConverter , ..VolgnummerBepaler)
-	Quit VerwerkingIDBepaler.BepaalVerwerkingID(..FrontLBX,..ProductieSequentieItem)
+	Quit VerwerkingIDBepaler.BepaalVerwerkingID(..FrontLBX, ..ProductieSequentieItem)
 ]]></Implementation>
 </Method>
 </Class>