Index: vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml
===================================================================
diff -u -r72335 -r72345
--- vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml	(.../Test.cls.xml)	(revision 72335)
+++ vhUnitTest/APPS/Verpakking/OrgaluxBonOptimizer/Test.cls.xml	(.../Test.cls.xml)	(revision 72345)
@@ -23,6 +23,11 @@
 <Default>KlantTestOrgaluxBonOptimizer</Default>
 </Parameter>
 
+<Parameter name="TestProductID">
+<Type>%String</Type>
+<Default>TestProductOrgaluxBonOptimizer</Default>
+</Parameter>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
  	Do ##super()
@@ -31,23 +36,14 @@
  	
  	Set ..OrgaluxBonOptimizer = ##class(APPS.Verpakking.OrgaluxBonOptimizer).%New()
  	Set ..SnijDataRepository = ##class(APPS.Verpakking.SnijDataRepository).%New()
+ 	Set ^KPR(..#TestProductID, 0) = "DummyKorttekst"
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method OnAfterOneTest(aTestName As %String)
-{
-	Do ..SnijDataRepository.VerwijderViaBonId(..#BonID)
-	Do ##super(aTestName)
-}
-*/
-]]></Content>
-</UDLText>
-
 <Method name="OnAfterAllTests">
-<Implementation><![CDATA[	Do ..VerwijderOLBonData()
+<Implementation><![CDATA[
+	Do ..VerwijderOLBonData()
+	Kill ^KPR(..#TestProductID, 0)
 ]]></Implementation>
 </Method>
 
@@ -88,7 +84,7 @@
 	
 	Do $$$AssertEquals(BoxDataListNaGroepering.Count(), 11)
 	Do $$$AssertEquals(BoxDataListNaGroepering.GetAt(1).OrigineleBoxDataID, "OL||Antislipmat groep||1")
-	Do $$$AssertEquals(BoxDataListNaGroepering.GetAt(1).Hoogte, 40)
+	Do $$$AssertEquals(BoxDataListNaGroepering.GetAt(1).Hoogte, 35)
 	Do $$$AssertEquals(BoxDataListNaGroepering.GetAt(1).Breedte, 526)
 	Do $$$AssertEquals(BoxDataListNaGroepering.GetAt(1).Diepte, 474)
 ]]></Implementation>
@@ -151,12 +147,9 @@
 	#dim BoxData As DS.Prod.OptiBox.BoxDataMetID = BoxDataList.GetAt(1)
 	Set BoxData.Breedte = 9999999
 	Set BoxData.Aantal = 1
-	Set BoxData.ObjRef = "TestProductOrgaluxBonOptimizer"
-	Set ^KPR(BoxData.ObjRef, 0) = "DummyKorttekst"
+	Set BoxData.ObjRef = ..#TestProductID
 	
 	#dim BesteStapeling  As APPS.Verpakking.dto.CubeIQ.Response = ..OrgaluxBonOptimizer.BepaalMinimumAantalPallettenVoorBon(BoxDataList)
-	
-	Kill ^KPR(BoxData.ObjRef, 0)
 ]]></Implementation>
 </Method>