Index: vhUnitTest/DOM/BKH/impl/VerkoopFactuurVoldaanGenerator.cls.xml
===================================================================
diff -u -r29059 -r40286
--- vhUnitTest/DOM/BKH/impl/VerkoopFactuurVoldaanGenerator.cls.xml	(.../VerkoopFactuurVoldaanGenerator.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/BKH/impl/VerkoopFactuurVoldaanGenerator.cls.xml	(.../VerkoopFactuurVoldaanGenerator.cls.xml)	(revision 40286)
@@ -3,9 +3,35 @@
 <Class name="vhUnitTest.DOM.BKH.impl.VerkoopFactuurVoldaanGenerator">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="Type">
+<Type>%String</Type>
+<Default>I</Default>
+</Parameter>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	
+	set ^KKL("TESTKLANTVANHOECKENV 1000",250001)=""
+	set ^KKL("TESTKLANTVANHOECKENV 1000",250002)=""
+	set ^KKL("TESTKLANTVANHOECKENV 1000",250003)=""
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	kill ^KKL("TESTKLANTVANHOECKENV 1000",250001)
+	kill ^KKL("TESTKLANTVANHOECKENV 1000",250002)
+	kill ^KKL("TESTKLANTVANHOECKENV 1000",250003)
+	 
+ 	#dim FactuurID As %Integer 
+  	for FactuurID = 250001:1:250003 do ##class(DOM.BKH.impl.VerkoopFactuurVoldaan).%DeleteId(FactuurID)
+  	
+  	do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="Test">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/display=all","DOM.BKH.impl.VerkoopFactuurVoldaanGenerator")</Description>
 <Implementation><![CDATA[
 	do ##class(DOM.DomeinContext).Instance().PushVerkoopAPIClassName("vhUnitTest.DOM.BKH.impl.VerkoopFactuurVoldaanGeneratorVerkoopAPI")
 	do ##class(DOM.DomeinContext).Instance().PushBoekhoudingAPIClassName("vhUnitTest.DOM.BKH.impl.VerkoopFactuurVoldaanGeneratorBoekhoudingAPI")
@@ -28,11 +54,6 @@
 ]]></Implementation>
 </Method>
 
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>I</Default>
-</Parameter>
-
 <Method name="ControleFactuurInBestanden">
 <FormalSpec>Info:%String,VoldaneFactuurIDs...:%String</FormalSpec>
 <Private>1</Private>
@@ -45,30 +66,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	set ^KKL("TESTKLANTVANHOECKENV 1000",250001)=""
-	set ^KKL("TESTKLANTVANHOECKENV 1000",250002)=""
-	set ^KKL("TESTKLANTVANHOECKENV 1000",250003)=""
- 	quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	kill ^KKL("TESTKLANTVANHOECKENV 1000",250001)
-	kill ^KKL("TESTKLANTVANHOECKENV 1000",250002)
-	kill ^KKL("TESTKLANTVANHOECKENV 1000",250003)
-	 
- 	#dim FactuurID As %Integer 
-  	for FactuurID = 250001:1:250003 do ##class(DOM.BKH.impl.VerkoopFactuurVoldaan).%DeleteId(FactuurID)
-	 
-	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>