Index: vhUnitTest/APPS/MAG/Inventaris/InventarisService/IntegratieBase.cls.xml
===================================================================
diff -u -r29059 -r40121
--- vhUnitTest/APPS/MAG/Inventaris/InventarisService/IntegratieBase.cls.xml	(.../IntegratieBase.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/MAG/Inventaris/InventarisService/IntegratieBase.cls.xml	(.../IntegratieBase.cls.xml)	(revision 40121)
@@ -32,7 +32,8 @@
 
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
-	do ##super()
+	Do ##super()
+	
 	Set ..RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
 	Do ##class(APPS.MAG.UGLYPicking.impl.Sessie).%DeleteId(..RuntimeContext.GeefComputerNaam())
 	Do ..Opkuis()
@@ -46,6 +47,8 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestCase:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ##super(aTestCase)
+	
 	Set ..Service = ##class(APPS.MAG.Inventaris.impl.InventarisService).%New()
 	
 	Do ..MagHelper.MaakEWMSTestData()
@@ -69,8 +72,7 @@
 </Method>
 
 <Method name="OnAfterOneTest">
-<FormalSpec>s:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
+<FormalSpec>aTestname:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##class(vhUnitTest.APPS.MAG.MAGProducten).VerwijderProducten()
 	
@@ -87,17 +89,16 @@
 	
 	Do ..MagHelper.VerwijderEWMSTestData()
 	
-	Quit Status
+	Do ##super(aTestname)
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ..Opkuis()
 	Set %TECHContextRuntimeContext = ..RuntimeContext
 	
-	Quit $$$OK
+	Do ##super()
 ]]></Implementation>
 </Method>
 
@@ -122,6 +123,7 @@
 
 <Method name="MaakToReceivePallet">
 <FormalSpec>PalletID:%String="98765432"</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set ^RCP("D",1234) = ""
 	Set ^RCP("D",1234,"D",220568,1,1) = "1000\\\100"
@@ -138,6 +140,7 @@
 
 <Method name="VerwijderToReceivePallet">
 <FormalSpec>PalletID:%String="98765432"</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Kill ^RCP("D",1234)
 	Quit ..MagHelper.ExecEWMSQuery("DELETE FROM EWMS.dbo.to_recv WHERE order_nr = 1234 AND product = 1000")
@@ -146,6 +149,7 @@
 
 <Method name="MaakInventory">
 <FormalSpec>LocID:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#Dim Sectie As %String = "00000001"
@@ -164,6 +168,7 @@
 
 <Method name="MaakBon">
 <FormalSpec>ID:%Integer</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ^ORDW("IW",ID) = ""
@@ -196,6 +201,7 @@
 </Method>
 
 <Method name="VerwijderInventory">
+<Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#Dim Status As %Status = ..MagHelper.ExecEWMSQuery("DELETE FROM ewms.dbo.inventory WHERE product = '1000'")
@@ -205,6 +211,7 @@
 </Method>
 
 <Method name="VerwijderBestaandeReservaties">
+<Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set rsPalletReservatie = ##class(%ResultSet).%New("")