Index: vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestGeefProductInfoLijst.cls.xml
===================================================================
diff -u -r29059 -r33034
--- vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestGeefProductInfoLijst.cls.xml	(.../TestGeefProductInfoLijst.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestGeefProductInfoLijst.cls.xml	(.../TestGeefProductInfoLijst.cls.xml)	(revision 33034)
@@ -9,24 +9,11 @@
 <Type>APPS.algemeen.VhintraShell.impl.Sessie</Type>
 </Property>
 
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>I</Default>
-</Parameter>
-
-<Property name="objTestData">
-<Type>vhUnitTest.DOM.PM.TestData</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ..Opkuis()
 	
- 	set ..objTestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
- 	Do ..objTestData.CreeerTestData()
-	
 	Set ..Sessie = ##class(APPS.algemeen.VhintraShell.impl.Sessie).%New(1000)
 	Do ..Sessie.Save()	
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID(..Sessie.GeefSessieSleutel())
@@ -98,10 +85,6 @@
 	
 	Do ##class(vhUnitTest.APPS.Halux.Afmelden.ProductieAfmeldenService).KuisOpProductieGroep()
 	Kill ^UPRCP("B","Service")
-	
-	If $IsObject(..objTestData){
-		do ..objTestData.VerwijderTestData()
-	}
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestWisselToeleveringEnBevestigAfmelden.cls.xml
===================================================================
diff -u -r29059 -r33034
--- vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestWisselToeleveringEnBevestigAfmelden.cls.xml	(.../TestWisselToeleveringEnBevestigAfmelden.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestWisselToeleveringEnBevestigAfmelden.cls.xml	(.../TestWisselToeleveringEnBevestigAfmelden.cls.xml)	(revision 33034)
@@ -25,7 +25,7 @@
 	Do ..Opkuis()
 	
  	set ..objTestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
- 	Do ..objTestData.CreeerTestData()
+ 	Do ..objTestData.CreeerTestData(1000,1099)
 	
 	Set ..Sessie = ##class(APPS.algemeen.VhintraShell.impl.Sessie).%New(1000)
 	Do ..Sessie.Save()	
@@ -147,7 +147,7 @@
 	Kill ^UPRCP("B","Service")
 	
 	If $IsObject(..objTestData){
-		do ..objTestData.VerwijderTestData()
+		do ..objTestData.VerwijderTestData(1000,1099)
 	}
 	
 	&SQL(DELETE "EWMS"."Inventory" where loc_id = '0000TBSE')