Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml
===================================================================
diff -u -r65795 -r67619
--- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 65795)
+++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 67619)
@@ -44,7 +44,7 @@
 	Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New()
 	#dim VerkoopPrijs As %Numeric = VerkoopPrijsBepaler.BepaalVerkoopPrijs(TbxKenmerken, Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), KlantID).GeefVerkoopPrijs()
 	
-	Do $$$AssertEquals(VerkoopPrijs,63.68)
+	Do $$$AssertEquals(VerkoopPrijs,72.84)
 ]]></Implementation>
 </Method>
 
@@ -61,7 +61,7 @@
 	Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New()
 	#dim VerkoopPrijs As %Numeric = VerkoopPrijsBepaler.BepaalVerkoopPrijs(TbxKenmerken, Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), KlantID).GeefVerkoopPrijs()
 	
-	Do $$$AssertEquals(VerkoopPrijs,"95.24")
+	Do $$$AssertEquals(VerkoopPrijs,"108.03")
 ]]></Implementation>
 </Method>
 
@@ -78,7 +78,7 @@
 	Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New()
 	#dim VerkoopPrijs As %Numeric = VerkoopPrijsBepaler.BepaalVerkoopPrijs(TbxKenmerken, Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), KlantID).GeefVerkoopPrijs()
 	
-	Do $$$AssertEquals(VerkoopPrijs,117.98)
+	Do $$$AssertEquals(VerkoopPrijs,133.56)
 ]]></Implementation>
 </Method>
 
@@ -95,7 +95,7 @@
 	Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New()
 	#dim VerkoopPrijs As %Numeric = VerkoopPrijsBepaler.BepaalVerkoopPrijs(TbxKenmerken, Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), KlantID).GeefVerkoopPrijs()
 	
-	Do $$$AssertEquals(VerkoopPrijs,"89.04")
+	Do $$$AssertEquals(VerkoopPrijs,"102.25")
 ]]></Implementation>
 </Method>
 
@@ -112,7 +112,7 @@
 	Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New()
 	#dim VerkoopPrijs As %Numeric = VerkoopPrijsBepaler.BepaalVerkoopPrijs(TbxKenmerken, Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), KlantID).GeefVerkoopPrijs()
 	
-	Do $$$AssertEquals(VerkoopPrijs,"122.58")
+	Do $$$AssertEquals(VerkoopPrijs,"141.60")
 ]]></Implementation>
 </Method>
 
@@ -129,7 +129,7 @@
 	Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New()
 	#dim VerkoopPrijs As %Numeric = VerkoopPrijsBepaler.BepaalVerkoopPrijs(TbxKenmerken, Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), KlantID).GeefVerkoopPrijs()
 	
-	Do $$$AssertEquals(VerkoopPrijs,160.16)
+	Do $$$AssertEquals(VerkoopPrijs,176.66)
 ]]></Implementation>
 </Method>
 
@@ -146,7 +146,7 @@
 	Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New()
 	#dim VerkoopPrijs As %Numeric = VerkoopPrijsBepaler.BepaalVerkoopPrijs(TbxKenmerken, Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), KlantID).GeefVerkoopPrijs()
 	
-	Do $$$AssertEquals(VerkoopPrijs,44.46)
+	Do $$$AssertEquals(VerkoopPrijs,52.41)
 ]]></Implementation>
 </Method>
 
@@ -163,7 +163,7 @@
 	Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New()
 	#dim VerkoopPrijs As %Numeric = VerkoopPrijsBepaler.BepaalVerkoopPrijs(TbxKenmerken, Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), KlantID).GeefVerkoopPrijs()
 	
-	Do $$$AssertEquals(VerkoopPrijs,"72.94")
+	Do $$$AssertEquals(VerkoopPrijs,"83.11")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/EXT/Optima/CalculPrix/ServiceWeb/CalculerTiroir/Test.cls.xml
===================================================================
diff -u -r65795 -r67619
--- vhUnitTest/EXT/Optima/CalculPrix/ServiceWeb/CalculerTiroir/Test.cls.xml	(.../Test.cls.xml)	(revision 65795)
+++ vhUnitTest/EXT/Optima/CalculPrix/ServiceWeb/CalculerTiroir/Test.cls.xml	(.../Test.cls.xml)	(revision 67619)
@@ -25,7 +25,7 @@
 	#dim Response As EXT.Optima.CalculPrix.dto.Response = ..WebService.CalculerTiroir(Request)
 
 	#dim VerwachteResponse As EXT.Optima.CalculPrix.dto.Response = ##class(EXT.Optima.CalculPrix.dto.Response).%New()
-	Set VerwachteResponse.KostPrijs = 86.17
+	Set VerwachteResponse.KostPrijs = 100.21
 	Set VerwachteResponse.RefVanHoecke = "-VH_Fixed"
 	Set VerwachteResponse.ErrorCode = 0