Index: vhUnitTest/DOM/VKP/TestNativeKlant.cls.xml
===================================================================
diff -u -r29059 -r40299
--- vhUnitTest/DOM/VKP/TestNativeKlant.cls.xml	(.../TestNativeKlant.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/VKP/TestNativeKlant.cls.xml	(.../TestNativeKlant.cls.xml)	(revision 40299)
@@ -9,6 +9,21 @@
 <Type>DOM.VKP.VanHoeckeKlant</Type>
 </Property>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+ 	set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Klant.GeefID()
+	do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(KlantID)
+	Do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestPrijsCodex">
 <Implementation><![CDATA[
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Klant.GeefID()
@@ -42,23 +57,6 @@
 	do $$$AssertEquals(NativeKlant.GeefPrijsCodexTAOR(),"")
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
- 	set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
- 	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..Klant.GeefID()
-	do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(KlantID)
-	quit $$$OK
-]]></Implementation>
-</Method>
 </Class>