Index: vhUnitTest/DOM/AKP/impl/ToeleveringService/TestBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/AKP/impl/ToeleveringService/TestBase.cls.xml	(revision 0)
+++ vhUnitTest/DOM/AKP/impl/ToeleveringService/TestBase.cls.xml	(revision 63891)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.AKP.impl.ToeleveringService.TestBase">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Producten">
+<Type>DOM.PM.Product</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="BerekeningServiceProduct">
+<Type>APPS.PM.Maatwerk.impl.BerekeningServiceProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	Do ##super()
+ 	Set ..BerekeningServiceProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	do ##class(vhTest.Utils.PersistentDataResetter).Reset()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderGemaakteProducten()
+	do ##class(vhTest.Utils.PersistentDataResetter).UndoReset()
+	do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="MaakProduct">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>DOM.PM.MaatwerkProduct</ReturnType>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.MaatwerkProduct = ..BerekeningServiceProduct.MaakProductVanKenmerken(IngegevenKenmerken, ##class(DOM.VKP.enu.Klant).VanHoecke(), 1)
+	Do ..Producten.Insert(Product)
+	
+	If (Product.GeefID() < ##class(vhTest.Utils.PersistentDataResetter).%GetParameter("ProductIDKantelPunt")) {
+		Do ##class(TECH.Exceptions.IllegalUsageException).Throw("ProductId '"_Product.GeefID()_"' < '"_##class(vhTest.Utils.PersistentDataResetter).%GetParameter("ProductIDKantelPunt")_"' gebruikt terwijl het niet expliciet toegelaten werd.")
+	}
+	
+	Quit Product
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderGemaakteProducten">
+<Implementation><![CDATA[
+	#dim ProductIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..Producten)
+	
+	While (ProductIterator.HasNext()) {
+		#dim Product As DOM.PM.Product = ProductIterator.Next()
+		
+		#dim ProductId As %String = Product.GeefID()
+		If (+ProductId >= ##class(vhTest.Utils.PersistentDataResetter).%GetParameter("ProductIDKantelPunt")) && ##class(DOM.DomeinContext).Instance().GeefProductAPI().BestaatProduct(ProductId) {
+			Do DELETE^PRODUKT2(ProductId)
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/AKP/impl/ToeleveringService/HeeftToeleveringMinstensEenSpaceStep/Test.cls.xml
===================================================================
diff -u -r63890 -r63891
--- vhUnitTest/DOM/AKP/impl/ToeleveringService/HeeftToeleveringMinstensEenSpaceStep/Test.cls.xml	(.../Test.cls.xml)	(revision 63890)
+++ vhUnitTest/DOM/AKP/impl/ToeleveringService/HeeftToeleveringMinstensEenSpaceStep/Test.cls.xml	(.../Test.cls.xml)	(revision 63891)
@@ -1,15 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.AKP.impl.ToeleveringService.HeeftToeleveringMinstensEenSpaceStep.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.AKP.impl.ToeleveringService.TestBase</Super>
 
-<Property name="Producten">
-<Type>DOM.PM.Product</Type>
-<Collection>list</Collection>
-<Private>1</Private>
-</Property>
-
-<Property name="Toelevering">
+<Property name="ToeleveringMock">
 <Type>vhTest.Mock.DOM.AKP.Toelevering</Type>
 <Private>1</Private>
 </Property>
@@ -24,41 +18,17 @@
 <Private>1</Private>
 </Property>
 
-<Property name="BerekeningServiceProduct">
-<Type>APPS.PM.Maatwerk.impl.BerekeningServiceProduct</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
- 	Do ##super()
- 	Set ..BerekeningServiceProduct = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
-]]></Implementation>
-</Method>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
-	Do ##class(vhTest.Utils.PersistentDataResetter).Reset()
 	
-	Set ..Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding()
+	Set ..ToeleveringMock = ##class(vhTest.Utils.DOM.AKP.Toelevering).StandaardToeleveringHoofding()
 	Set ..ToeleveringApiMock = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
-	
 	Set ..ProductTypeApiMock = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ..VerwijderGemaakteProducten()
-	
-	Do ##class(vhTest.Utils.PersistentDataResetter).UndoReset()
-	Do ##super(aTestName)
-]]></Implementation>
-</Method>
-
 <Method name="Test: Toeleveringnummer is leeg">
 <Implementation><![CDATA[
 	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen toeleveringNr meegegeven.")
@@ -76,53 +46,21 @@
 	#dim ProductToeleveringLijnSST As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
 	Do ProductToeleveringLijnSST.IndienMethodCall("GeefProductID").DanReturn(SST.GeefID())
 	
-	Do ..Toelevering.IndienMethodCall("GeefProductLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ProductToeleveringLijnSST))
-	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering", ..Toelevering.GeefID()).DanReturn(..Toelevering)
+	Do ..ToeleveringMock.IndienMethodCall("GeefProductLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ProductToeleveringLijnSST))
+	Do ..ToeleveringApiMock.VerwachtMethodCall("GeefToelevering", ..ToeleveringMock.GeefID()).DanReturn(..ToeleveringMock)
 	
 	Do ..ProductTypeApiMock.VerwachtMethodCall("IsMaatwerkProduct", $$$ElkeWaarde).DanReturn($$$True)
 	Do ..ProductTypeApiMock.VerwachtMethodCall("GeefMaatwerkProduct", SST.GeefID()).DanReturn(SST)
 	
 	Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New(..ToeleveringApiMock, ..ProductTypeApiMock)
-	#dim BevatSST As %Boolean = ToeleveringService.HeeftToeleveringMinstensEenSpaceStep(..Toelevering.GeefID())
+	#dim BevatSST As %Boolean = ToeleveringService.HeeftToeleveringMinstensEenSpaceStep(..ToeleveringMock.GeefID())
 	
 	Do $$$AssertEquals($$$True, BevatSST)
 	
 	Do ..ToeleveringApiMock.Verifieer()
 	Do ..ProductTypeApiMock.Verifieer()
 ]]></Implementation>
 </Method>
-
-<Method name="MaakProduct">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.PM.MaatwerkProduct</ReturnType>
-<Implementation><![CDATA[
-	#dim Product As DOM.PM.MaatwerkProduct = ..BerekeningServiceProduct.MaakProductVanKenmerken(IngegevenKenmerken, ##class(DOM.VKP.enu.Klant).VanHoecke(), 1)
-	Do ..Producten.Insert(Product)
-	
-	If (Product.GeefID() < ##class(vhTest.Utils.PersistentDataResetter).%GetParameter("ProductIDKantelPunt")) {
-		Do ##class(TECH.Exceptions.IllegalUsageException).Throw("ProductId '"_Product.GeefID()_"' < '"_##class(vhTest.Utils.PersistentDataResetter).%GetParameter("ProductIDKantelPunt")_"' gebruikt terwijl het niet expliciet toegelaten werd.")
-	}
-	
-	Quit Product
-]]></Implementation>
-</Method>
-
-<Method name="VerwijderGemaakteProducten">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim ProductIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..Producten)
-	
-	While (ProductIterator.HasNext()) {
-		#dim Product As DOM.PM.Product = ProductIterator.Next()
-		
-		#dim ProductId As %String = Product.GeefID()
-		If (+ProductId >= ##class(vhTest.Utils.PersistentDataResetter).%GetParameter("ProductIDKantelPunt")) && ##class(DOM.DomeinContext).Instance().GeefProductAPI().BestaatProduct(ProductId) {
-			Do DELETE^PRODUKT2(ProductId)
-		}
-	}
-]]></Implementation>
-</Method>
 </Class>