Index: vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestGeefNogTeKiezenToeleveringenVoorProductGroep.cls.xml
===================================================================
diff -u -r29059 -r40220
--- vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestGeefNogTeKiezenToeleveringenVoorProductGroep.cls.xml	(.../TestGeefNogTeKiezenToeleveringenVoorProductGroep.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestGeefNogTeKiezenToeleveringenVoorProductGroep.cls.xml	(.../TestGeefNogTeKiezenToeleveringenVoorProductGroep.cls.xml)	(revision 40220)
@@ -1,18 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.Halux.Afmelden.ProductieAfmeldenService.TestGeefNogTeKiezenToeleveringenVoorProductGroep">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.Halux.Afmelden.ProductieAfmeldenService.TestControleerToeleveringVoorProductGroep")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="Sessie">
-<Type>APPS.algemeen.VhintraShell.impl.Sessie</Type>
-</Property>
-
-<Property name="Order1">
-<Type>DOM.VKP.Order</Type>
-</Property>
-
 <Parameter name="OrderID1">
 <Type>%String</Type>
 <Default>123350</Default>
@@ -23,10 +13,6 @@
 <Default>999995</Default>
 </Parameter>
 
-<Property name="Order2">
-<Type>DOM.VKP.Order</Type>
-</Property>
-
 <Parameter name="OrderID2">
 <Type>%String</Type>
 <Default>123400</Default>
@@ -37,9 +23,25 @@
 <Default>298105</Default>
 </Parameter>
 
+<Property name="Sessie">
+<Type>APPS.algemeen.VhintraShell.impl.Sessie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Order1">
+<Type>DOM.VKP.Order</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Order2">
+<Type>DOM.VKP.Order</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##super()
+	
 	Do ..CleanUp()
 	Set ..Sessie = ##class(APPS.algemeen.VhintraShell.impl.Sessie).%New(1000)
 	Do ..Sessie.Save()	
@@ -70,17 +72,14 @@
 	Set ToeleveringLijn = Service.VoegToeProductVoorLeverancier(Toelevering, HaluxID, 620939, 1)
 	Do Toelevering.ZetOrderID(..#OrderID2)
 	do Toelevering.Save()
-	
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ..Sessie.Delete()	
 	Do ..CleanUp()	
-	Quit $$$OK
+	Do ##super()
 ]]></Implementation>
 </Method>