Index: vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml
===================================================================
diff -u -r2783 -r2786
--- vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 2783)
+++ vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 2786)
@@ -62,6 +62,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..ToeleveringID)
+	k ^KOD(1239,"F",..#OrderID)
+	k ^KO1(..#OrderID)
+	
+	Quit ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	k ^UPRCP("B","VisiDot")
+	Quit ##super()
+]]></Implementation>
+</Method>
+
 <Method name="Import">
 <FormalSpec>Dir,FileName</FormalSpec>
 <Private>1</Private>
@@ -172,19 +192,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..ToeleveringID)
-	k ^UPRCP("B","TB")
-	k ^KOD(1239,"F",..#OrderID)
-	k ^KO1(..#OrderID)
-	
-	Quit ##super(aTestName)
-]]></Implementation>
-</Method>
-
 <Method name="TestNormalReadAllOK">
 <Implementation><![CDATA[
 	Set Dir = "Stage2_NormalRead_AllOk\"