Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Rug/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml
===================================================================
diff -u -r34144 -r34158
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Rug/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml	(.../Test.cls.xml)	(revision 34144)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Rug/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml	(.../Test.cls.xml)	(revision 34158)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.Rug.VerwerkingIDBepaler.BepaalVerwerkingID.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
 
 <Property name="ProductieSequentieItem">
 <Type>APPS.Halux.common.ProductieSequentieItem</Type>
@@ -32,105 +32,107 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
+	
 	Set ..ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
-	Do ..InitRug()
-	Set ..KleurConverter  = ##class(vhTest.Fake.APPS.Halux.PPS.Activiteit.impl.TAOR.KleurConverter).%New()
+	Set ..KleurConverter = ##class(vhTest.Fake.APPS.Halux.PPS.Activiteit.impl.TAOR.KleurConverter).%New()
 	Set ..VolgnummerBepaler = ##class(vhTest.Fake.APPS.Halux.PPS.TAORProductie.impl.VolgnummerBepaler).%New()
+	
+	Do ..InitRug()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Verwerking ID is 17 Lang">
-<Implementation><![CDATA[	do $$$AssertEquals($length(..BepaalVerwerkingID()),17)
+<Implementation><![CDATA[	Do $$$AssertEquals($Length(..BepaalVerwerkingID()), 17)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Uitlijning code staat op positie 10 en is een &apos;S&apos;">
-<Implementation><![CDATA[	do $$$AssertEquals($extract(..BepaalVerwerkingID(),10),"S")
+<Method name="Test positie 1: Prefix R">
+<Implementation><![CDATA[	Do ..AssertVerwerkingID(1, 1, "R")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Verwerking 16de karakter is een &apos;D&apos;">
-<Implementation><![CDATA[	do $$$AssertEquals($extract(..BepaalVerwerkingID(),16),"D")
+<Method name="Test positie 2: LadeHoogte">
+<Implementation><![CDATA[	Do ..AssertVerwerkingID(2, 2, ..Enum.LadeHoogte.M)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Aantal BodemOndersteuningen opgeroepen">
+<Method name="Test positie 3: Freesprogramma">
 <Implementation><![CDATA[
-	#Dim RugMock As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug = ..Rug
+	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(..FreesProgramma.Valinge)
+	Do ..AssertVerwerkingID(3, 3, ..FreesProgramma.Valinge)
 	
-	Do RugMock.VerwachtMethodCall("GeefAantalBodemOndersteuningen").ExactAantalKeer(1).DanReturn($$$DummyInteger)
-	Do ..BepaalVerwerkingID()
-	Do RugMock.Verifieer()
+	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(..FreesProgramma.Baliko)
+	Do ..AssertVerwerkingID(3, 3, ..FreesProgramma.Baliko)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Start met R">
-<Implementation><![CDATA[	Do ..AssertVerwerkingIDDeelString(1,1,"R")
+<Method name="Test positie 4-8: Breedte">
+<Implementation><![CDATA[
+	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(120.5)
+	Do ..AssertVerwerkingID(4, 8, "01205")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: LadezijdeHoogte op positie 2">
-<Implementation><![CDATA[	Do ..AssertVerwerkingIDDeelString(2,2,##class(DOM.PM.enu.TAORLadeHoogte).M())
-]]></Implementation>
-</Method>
-
-<Method name="Test: Freesprogramma op positie 3">
+<Method name="Test positie 9: Kleur">
 <Implementation><![CDATA[
-	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(..FreesProgramma.Valinge)
-	Do ..AssertVerwerkingIDDeelString(3, 3, ..FreesProgramma.Valinge)
+	Set ..KleurConverter = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.KleurConverter).%New()
 	
-	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(..FreesProgramma.Baliko)
-	Do ..AssertVerwerkingIDDeelString(3, 3, ..FreesProgramma.Baliko)
+	Do ..KleurConverter.VerwachtMethodCall("Converteer", ..Enum.LadeKleur.NatuurEikenhout).DanReturn("N")
+	Do ..AssertVerwerkingID(9, 9, "N")
+	Do ..KleurConverter.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Breedte op positie 4 tot en met 8">
-<Implementation><![CDATA[	Do ..AssertVerwerkingIDDeelString(4,8,"01205")
+<Method name="Test positie 10: Uitlijning code &apos;S&apos;">
+<Implementation><![CDATA[	Do ..AssertVerwerkingID(10, 10, "S")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Kleur staat op positie 9">
+<Method name="Test positie 11-15: Unieke ID">
 <Implementation><![CDATA[
-	Set KleurConverterMock = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.KleurConverter).%New()
-	Do KleurConverterMock.VerwachtMethodCall("Converteer",##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout()).DanReturn("N")
-	Set ..KleurConverter = KleurConverterMock
+	Set ..VolgnummerBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.VolgnummerBepaler).%New()
 	
-	Do ..AssertVerwerkingIDDeelString(9,9,"N")
-	Do KleurConverterMock.Verifieer()
+	Do ..VolgnummerBepaler.VerwachtMethodCall("BepaalVolgnummer", ..ProductieSequentieItem, 0, 1).DanReturn("54321")
+	Do ..AssertVerwerkingID(11, 15, "54321")
+	Do ..VolgnummerBepaler.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Unieke ID op positie 11 tot en met 15">
+<Method name="Test positie 16: &apos;D&apos;">
+<Implementation><![CDATA[	Do ..AssertVerwerkingID(16, 16, "D")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefAantalBodemOndersteuningen method wordt opgeroepen">
 <Implementation><![CDATA[
-	set VolgnummerBepalerBepalerMock = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.VolgnummerBepaler).%New()
-	do VolgnummerBepalerBepalerMock.VerwachtMethodCall("BepaalVolgnummer",..ProductieSequentieItem,0,1).DanReturn("54321")
-	set ..VolgnummerBepaler = VolgnummerBepalerBepalerMock
-	
-	Do ..AssertVerwerkingIDDeelString(11,15,"54321")
-	Do VolgnummerBepalerBepalerMock.Verifieer()
+	Do ..Rug.VerwachtMethodCall("GeefAantalBodemOndersteuningen").ExactAantalKeer(1).DanReturn($$$DummyInteger)
+	Do ..BepaalVerwerkingID()
+	Do ..Rug.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="InitRug">
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim LadeStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
+	Do LadeStub.IndienMethodCall("GeefHoogte").DanReturn(..Enum.LadeHoogte.M)
+	
 	Set ..Rug = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
-		Set LadeMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
-		Do LadeMock.IndienMethodCall("GeefHoogte").DanReturn(##class(DOM.PM.enu.TAORLadeHoogte).M())
-	Do ..Rug.IndienMethodCall("GeefLade").DanReturn(LadeMock)
-	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(120.5)
-	Do ..Rug.IndienMethodCall("GeefKleur").DanReturn(##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout())
+		
+	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(200)
+	Do ..Rug.IndienMethodCall("GeefLade").DanReturn(LadeStub)
+	Do ..Rug.IndienMethodCall("GeefKleur").DanReturn(..Enum.LadeKleur.NatuurEikenhout)
 	Do ..Rug.IndienMethodCall("GeefAantalBodemOndersteuningen").DanReturn($$$DummyInteger)
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(..FreesProgramma.Valinge)
 ]]></Implementation>
 </Method>
 
-<Method name="AssertVerwerkingIDDeelString">
+<Method name="AssertVerwerkingID">
 <FormalSpec>Van:%Integer,Tot:%Integer,VerwachteKarakters:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim VerwerkingID As TECH.String = ..BepaalVerwerkingID()
-	Do $$$AssertEquals($Extract(VerwerkingID,Van,Tot),VerwachteKarakters)
+	Do $$$AssertEquals($Extract(VerwerkingID, Van, Tot), VerwachteKarakters)
 ]]></Implementation>
 </Method>