Index: vhUnitTest/EXT/Optima/CalculPrix/ServiceWeb/CalculerTiroir/Test.cls.xml =================================================================== diff -u -r40102 -r45905 --- vhUnitTest/EXT/Optima/CalculPrix/ServiceWeb/CalculerTiroir/Test.cls.xml (.../Test.cls.xml) (revision 40102) +++ vhUnitTest/EXT/Optima/CalculPrix/ServiceWeb/CalculerTiroir/Test.cls.xml (.../Test.cls.xml) (revision 45905) @@ -23,7 +23,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 = 73.29 + Set VerwachteResponse.KostPrijs = 73.91 Set VerwachteResponse.RefVanHoecke = "-VH_Fixed" Set VerwachteResponse.ErrorCode = 0 Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml =================================================================== diff -u -r45144 -r45905 --- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml (.../Test.cls.xml) (revision 45144) +++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml (.../Test.cls.xml) (revision 45905) @@ -39,7 +39,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,51.47) + Do $$$AssertEquals(VerkoopPrijs,55.89) ]]> @@ -56,7 +56,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,76.56) + Do $$$AssertEquals(VerkoopPrijs,"82.40") ]]> @@ -73,7 +73,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,94.09) + Do $$$AssertEquals(VerkoopPrijs,104.02) ]]> @@ -90,7 +90,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,97.25) + Do $$$AssertEquals(VerkoopPrijs,"107.50") ]]> @@ -107,7 +107,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,"138.00") + Do $$$AssertEquals(VerkoopPrijs,"153.30") ]]> @@ -124,7 +124,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,130.67) + Do $$$AssertEquals(VerkoopPrijs,136.83) ]]> @@ -141,7 +141,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,35.76) + Do $$$AssertEquals(VerkoopPrijs,38.63) ]]> @@ -158,7 +158,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,"58.60") + Do $$$AssertEquals(VerkoopPrijs,63.59) ]]>