Index: vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestOpDragerAfmeldenBase.cls.xml
===================================================================
diff -u -r44519 -r45496
--- vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestOpDragerAfmeldenBase.cls.xml	(.../TestOpDragerAfmeldenBase.cls.xml)	(revision 44519)
+++ vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestOpDragerAfmeldenBase.cls.xml	(.../TestOpDragerAfmeldenBase.cls.xml)	(revision 45496)
@@ -19,8 +19,6 @@
 	Do ..Sessie.Save()	
 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID(..Sessie.GeefSessieSleutel())
 	
-	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(123358)
-	
 	Set ^KO2("F",1000,123358) = ""
 	Set ^KO1(123358,"F") = "1000\"
 	
@@ -68,36 +66,18 @@
 	Do ##super(aTestName)
 	If $IsObject(..Sessie) {
 		Do ..Sessie.Delete()
-		Do ..Opkuis()
 	}
+	Do ..Opkuis()
 ]]></Implementation>
 </Method>
 
 <Method name="Opkuis">
 <Private>1</Private>
 <Implementation><![CDATA[
-		
 	k ^aRecProdRecsToSend
-	Do:($Data(^KO1(123358))) DELOBJ^FLOWORD3(123358)
+	Do ##class(vhUnitTest.DataHelper).VerwijderOrder(123358)
+	Do ##class(vhUnitTest.DataHelper).VerwijderToelevering(999997)
 	
-	Do ##class(vhUnitTest.EventHelper).RaiseToeleveringVerwijderdEvents(999997)
-	
-	Do ##class(vhUnitTest.EventHelper).RaiseOrderVerwijderdEvents(123358)
-	Kill ^KOD(1000,"F",123358)
-	Kill ^KO2("F",1000,123358)
-	Kill ^KO1(123358,"F")
-	
-	Kill ^KTO2(6332,999997)
-	Kill ^KTO1(999997)
-	Kill ^KTO(6332,999997)	
-	
-	Kill ^TO("IP","614305")
-	Kill ^TO("IU","999997")
-	Kill ^TO("IP","620939")
-	Kill ^TO("IP","620938")
-	
-	Kill ^ORD("IU",123358)
-	
 	Do ..OpkuisTestOpdragerProductGroep()
 	
 	Kill ^UPRCP("B","Service")