Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Common/Aansturing/TestBase.cls.xml
===================================================================
diff -u -r30365 -r30788
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Common/Aansturing/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30365)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Common/Aansturing/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30788)
@@ -62,6 +62,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Producten">
+<Type>DOM.PM.Product</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
 <Method name="ConfiguratieGet">
 <Private>1</Private>
 <ReturnType>vhTest.Integratie.Productie.Planning.ActieveBatches.Common.Aansturing.Configuratie</ReturnType>
@@ -79,6 +85,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestCase)
+	Do ..VerwijderGemaakteProducten()
+]]></Implementation>
+</Method>
+
 <Method name="Test">
 <Implementation><![CDATA[
 	do ..Arrange()
@@ -359,6 +373,7 @@
 	#dim Product As DOM.PM.MaatwerkProduct = ##class(DOM.PM.Maatwerk.impl.ProductMaker).%New().MaakProductVanIngegevenKenmerken(IngegevenKenmerken)
 	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = Product.GeefBerekeningsSpecificatie()
 	Do BerekeningsSpecificatie.ZetBerekeningWijze(##class(DOM.PM.Maatwerk.Calc.Common.enu.BerekeningWijze).ProductieAansturing())
+	Do ..Producten.Insert(Product)
 	Quit Product.GeefPRNr()
 ]]></Implementation>
 </Method>
@@ -370,6 +385,19 @@
 <Implementation><![CDATA[	Quit ##class(vhTest.Integratie.Productie.Setup.ProductInfo).%New(..MaakProduct(IngegevenKenmerken),Aantal)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderGemaakteProducten">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ProductIterator = ##class(TECH.ListIterator).%New(..Producten)
+	While ProductIterator.HasNext() {
+		#dim Product As DOM.PM.Product = ProductIterator.Next()
+		If ##class(DOM.DomeinContext).Instance().GeefProductAPI().BestaatProduct(Product.GeefID()) {
+			Do DELETE^PRODUKT2(Product.GeefID())
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>