Index: vhUnitTest/APPS/VKP/TestOrderlijnPrijsBepaler.cls.xml
===================================================================
diff -u -r29059 -r40151
--- vhUnitTest/APPS/VKP/TestOrderlijnPrijsBepaler.cls.xml	(.../TestOrderlijnPrijsBepaler.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/TestOrderlijnPrijsBepaler.cls.xml	(.../TestOrderlijnPrijsBepaler.cls.xml)	(revision 40151)
@@ -13,6 +13,24 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+ 	do ##super()
+ 	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1018,1018)
+ 	set ..Onderneming = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
+ 	set ..Consument = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeConsument()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Onderneming.GeefID())
+	do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Consument.GeefID())
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData()
+	do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestNettoPrijzenOnderneming">
 <Implementation><![CDATA[
 	#dim Order As DOM.VKP.Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().MaakNieuwOrder(..Onderneming.GeefID())
@@ -109,26 +127,6 @@
 <Implementation><![CDATA[	quit ##class(TECH.Math).Round(Bedrag,6)
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
- 	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1018,1018)
- 	set ..Onderneming = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
- 	set ..Consument = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeConsument()
- 	quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Onderneming.GeefID())
-	do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Consument.GeefID())
-	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData()
-	quit $$$OK
-]]></Implementation>
-</Method>
 </Class>