Index: vhUnitTest/APPS/VisiDot/TestVHossCases.cls.xml
===================================================================
diff -u -r2783 -r2786
--- vhUnitTest/APPS/VisiDot/TestVHossCases.cls.xml	(.../TestVHossCases.cls.xml)	(revision 2783)
+++ vhUnitTest/APPS/VisiDot/TestVHossCases.cls.xml	(.../TestVHossCases.cls.xml)	(revision 2786)
@@ -85,13 +85,20 @@
 	//// ^TO(,,..ToeleveringID
 		
 	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..ToeleveringID)
-	k ^UPRCP("B","TB")
 	k ^KOD(1239,"F",..#OrderID)
 	k ^KO1(..#OrderID)
 	Quit ##super()
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	k ^UPRCP("B","VisiDot")
+	Quit ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestZijkantCorrect">
 <Implementation><![CDATA[
 	Set Capture=..VHossBuilder.CorrectVHoss(1,1)
@@ -182,6 +189,7 @@
 
 <Method name="TestEnd">
 <Implementation><![CDATA[
+	d WLIP^vhDBG(127,"TestEnd")
 	Set Capture=..VHossBuilder.CorrectVHoss(1,1)
 	Set Status = Capture.XMLExportToStream(.CaptureInfoStream,,"literal")	
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), CaptureInfoStream, .ResultDesc, .ProcessedData)
@@ -201,11 +209,13 @@
 	
 	Set ErrorCode=..Finish(ProcessedData)	
 	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).OK(),"Alle queue elementen van de batch hebben frameIDs")
+	d WLIP^vhDBG(127,"TestEnd Einde")
 ]]></Implementation>
 </Method>
 
 <Method name="TestEndNotAllDone">
 <Implementation><![CDATA[
+	d WLIP^vhDBG(127,"TestEndNotAllDone")
 	Set Capture=..VHossBuilder.CorrectVHoss(1,1)
 	Set Status = Capture.XMLExportToStream(.CaptureInfoStream,,"literal")	
 	Do ..WebService.UpdateData(##class(APPS.VisiDot.enu.ActionCodes).VHossRead(), CaptureInfoStream, .ResultDesc, .ProcessedData)
@@ -221,6 +231,7 @@
 	
 	Set ErrorCode=..Finish(ProcessedData)	
 	Do $$$AssertEquals(ErrorCode,##class(APPS.VisiDot.enu.FoutCodes).VHossOntbrekendeFrame(),"1 ontbrekend frame want 1 zijkant is niet gescanned geworden")
+	d WLIP^vhDBG(127,"TestEndNotAllDone EINDE")
 ]]></Implementation>
 </Method>