Index: vhUnitTest/APPS/PM/BulkActie/TestWijzigKSProductStatus.cls.xml
===================================================================
diff -u -r29059 -r40173
--- vhUnitTest/APPS/PM/BulkActie/TestWijzigKSProductStatus.cls.xml	(.../TestWijzigKSProductStatus.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/BulkActie/TestWijzigKSProductStatus.cls.xml	(.../TestWijzigKSProductStatus.cls.xml)	(revision 40173)
@@ -5,6 +5,20 @@
 Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.BulkActie.TestWijzigKSProductStatus")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1001,1001)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1001,1001)
+	do ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestValideer">
 <Implementation><![CDATA[
 	set BulkActie = ##class(APPS.PM.BulkActie.Acties.WijzigKSProductStatus).%New("DummyFactor","DummyOmschrijving")
@@ -34,22 +48,6 @@
 	do $$$AssertEquals(Product.GeefKSProductStatus(),##class(DOM.PM.enu.KSProductStatus).Ja())
 ]]></Implementation>
 </Method>
-
-<Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(1001,1001)
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(1001,1001)
- 	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>