Index: vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestGeefToeleveringAfmeldingData.cls.xml
===================================================================
diff -u -r35933 -r40231
--- vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestGeefToeleveringAfmeldingData.cls.xml	(.../TestGeefToeleveringAfmeldingData.cls.xml)	(revision 35933)
+++ vhUnitTest/APPS/Halux/Afmelden/ProductieAfmeldenService/TestGeefToeleveringAfmeldingData.cls.xml	(.../TestGeefToeleveringAfmeldingData.cls.xml)	(revision 40231)
@@ -3,10 +3,6 @@
 <Class name="vhUnitTest.APPS.Halux.Afmelden.ProductieAfmeldenService.TestGeefToeleveringAfmeldingData">
 <Super>vhUnitTest.APPS.MAG.Inventaris.Base</Super>
 
-<Property name="VolgNr">
-<Type>%Integer</Type>
-</Property>
-
 <Parameter name="ReceptieGroep">
 <Type>%String</Type>
 <Default>Service</Default>
@@ -17,31 +13,40 @@
 <Default>762813</Default>
 </Parameter>
 
+<Parameter name="OrderID">
+<Type>%String</Type>
+<Default>123356</Default>
+</Parameter>
+
+<Parameter name="ToeleveringID">
+<Type>%String</Type>
+<Default>999992</Default>
+</Parameter>
+
+<Property name="VolgNr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Sessie">
 <Type>APPS.algemeen.VhintraShell.impl.Sessie</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Batch">
 <Type>APPS.Halux.common.Batch</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Order">
 <Type>DOM.VKP.Order</Type>
+<Private>1</Private>
 </Property>
 
-<Parameter name="OrderID">
-<Type>%String</Type>
-<Default>123356</Default>
-</Parameter>
-
-<Parameter name="ToeleveringID">
-<Type>%String</Type>
-<Default>999992</Default>
-</Parameter>
-
 <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()	
@@ -77,20 +82,17 @@
 	
 	Set ..Batch =  ##class(vhUnitTest.APPS.Halux.BatchUtils).GeefNieuweBatch(Toeleveringen,##class(APPS.Halux.common.enu.ProductieLijn).Een())
 	Do ..Batch.Save()
-	
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Kill ^UPRCP("B",..#ReceptieGroep,..VolgNr)
 	Do ..Sessie.Delete()
 	
 	Do ..CleanUp()
 	
-	Quit $$$OK
+	Do ##super()
 ]]></Implementation>
 </Method>