Index: vhUnitTest/DS/Prod/TestVoorraadTelling.cls.xml
===================================================================
diff -u -r29059 -r40250
--- vhUnitTest/DS/Prod/TestVoorraadTelling.cls.xml	(.../TestVoorraadTelling.cls.xml)	(revision 29059)
+++ vhUnitTest/DS/Prod/TestVoorraadTelling.cls.xml	(.../TestVoorraadTelling.cls.xml)	(revision 40250)
@@ -1,10 +1,53 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DS.Prod.TestVoorraadTelling">
-<Description>
-Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DS.Prod.TestVoorraadTelling")</Description>
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	Do ##super()
+	
+	#dim ProductID As %String = 1000
+	
+	Do ..CleanUpProduct(ProductID)	
+	
+	Set ^KPR(ProductID,0)="358M2702SF Z RE V20WA/G\TANDEMBOX plus, F-design\\\8\\5.5290\C#B\0\\ladeprofiel rechts, staal, 270mm diep\\\393\\\200#200\6\2.5433\\\\\\\\\62311"
+	Set ^KPR(ProductID,1)="1\3\\\\\.5\\2371\\\\474.51\\\\2\\\1\46#0\TANDEMBOX plus, F-design\51#0#49\9#285#0\\\"
+	Set ^KPR(ProductID,2)="\\\\\\\08\0#0\\Z\B\C128\9002617431698\1\800\A;62397,49106\42.9\30\0\3.6\\1880\\0.999.999.1\\61393"
+	Set ^KPR(ProductID,3)="\\\\\\\\\\\\\\\\\\\\côté droite, en acier, 270mm de profondeur\\\\\\"
+	Set ^KPR(ProductID,4)="\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(ProductID,5)="\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KPR(ProductID,15)=	"\\\\1G\G\\\ST\PR\M\ZKGVP\"
+	set ^KPR(ProductID,"I")=""
+	set ^KPR(ProductID,"J")=""
+	set ^KPR(ProductID,"J5005")="5005\ \"
+	set $piece(^KPR(ProductID,"J5005"),"\",16)= 1 			      ; grootverpakking
+	set $piece(^KPR(ProductID,"J5005"),"\",17)= "EUR"			  ; muntcode
+	set $piece(^KPR(ProductID,"J5005"),"\",19)= "10"
+	do Gemaakt^PRODUKT2(ProductID)
+	
+	Kill ^PRSTOCK("D",ProductID)
+	Set ^PRSTOCK("D",ProductID)	= "19488\\\\1543\934\6141\424\43\0"
+	
+	Do ##class(DS.Prod.VoorraadTelling).%DeleteId(ProductID)
+	
+	Set VoorraadTelling = ##class(BL.Prod.VoorraadTelling).%New()
+	Do VoorraadTelling.Init($j)
+	
+	Do VoorraadTelling.AddProduct(ProductID,0)
+	
+	Do ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB",ProductID,"BasisType","BODEMSTN",";",17)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	#dim ProductID As %String = 1000
+	Do ..CleanUpProduct(ProductID)
+]]></Implementation>
+</Method>
+
 <Method name="TestGeefStockVanWerkvloer">
 <Implementation><![CDATA[
 	#dim ProductID As %String = 1000
@@ -96,52 +139,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	#dim ProductID As %String = 1000
-	
-	Do ..CleanUpProduct(ProductID)	
-	
-	Set ^KPR(ProductID,0)="358M2702SF Z RE V20WA/G\TANDEMBOX plus, F-design\\\8\\5.5290\C#B\0\\ladeprofiel rechts, staal, 270mm diep\\\393\\\200#200\6\2.5433\\\\\\\\\62311"
-	Set ^KPR(ProductID,1)="1\3\\\\\.5\\2371\\\\474.51\\\\2\\\1\46#0\TANDEMBOX plus, F-design\51#0#49\9#285#0\\\"
-	Set ^KPR(ProductID,2)="\\\\\\\08\0#0\\Z\B\C128\9002617431698\1\800\A;62397,49106\42.9\30\0\3.6\\1880\\0.999.999.1\\61393"
-	Set ^KPR(ProductID,3)="\\\\\\\\\\\\\\\\\\\\côté droite, en acier, 270mm de profondeur\\\\\\"
-	Set ^KPR(ProductID,4)="\\\\\\\\\\\\\\\\\\\\\\\\\\"
-	Set ^KPR(ProductID,5)="\\\\\\\\\\\\\\\\\\\\\\\\\\"
-	Set ^KPR(ProductID,15)=	"\\\\1G\G\\\ST\PR\M\ZKGVP\"
-	set ^KPR(ProductID,"I")=""
-	set ^KPR(ProductID,"J")=""
-	set ^KPR(ProductID,"J5005")="5005\ \"
-	set $piece(^KPR(ProductID,"J5005"),"\",16)= 1 			      ; grootverpakking
-	set $piece(^KPR(ProductID,"J5005"),"\",17)= "EUR"			  ; muntcode
-	set $piece(^KPR(ProductID,"J5005"),"\",19)= "10"
-	do Gemaakt^PRODUKT2(ProductID)
-	
-	Kill ^PRSTOCK("D",ProductID)
-	Set ^PRSTOCK("D",ProductID)	= "19488\\\\1543\934\6141\424\43\0"
-	
-	Do ##class(DS.Prod.VoorraadTelling).%DeleteId(ProductID)
-	
-	Set VoorraadTelling = ##class(BL.Prod.VoorraadTelling).%New()
-	Do VoorraadTelling.Init($j)
-	
-	Do VoorraadTelling.AddProduct(ProductID,0)
-	
-	Set sc=##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak("TB",ProductID,"BasisType","BODEMSTN",";",17) 
-	
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="OnAfterAllTests">
-<Implementation><![CDATA[
-	do ##super()
-	#dim ProductID As %String = 1000
-	Do ..CleanUpProduct(ProductID)
-]]></Implementation>
-</Method>
-
 <Method name="CleanUpProduct">
 <FormalSpec>ProductID</FormalSpec>
 <Private>1</Private>