Index: DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml =================================================================== diff -u -r38918 -r39249 --- DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml (.../TbxHelper.cls.xml) (revision 38918) +++ DOM/PM/impl/VerkoopPrijsBepaler/TbxHelper.cls.xml (.../TbxHelper.cls.xml) (revision 39249) @@ -36,6 +36,7 @@ Do ..VulInWebOrderLijn(WebOrderLijn,IngegevenKenmerken) Do ..WebOrder.Lijnen.SetAt(WebOrderLijn,1) + Set ..WebOrder.NietMeeleveren = IngegevenKenmerken.NietMeeleveren Set blTBox=##class(BL.PR.GA.TandemBox).%New() Do blTBox.Initialize($LG(..WebOrder.DCsFromLijnen(),1)) Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml =================================================================== diff -u -r39248 -r39249 --- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml (.../Test.cls.xml) (revision 39248) +++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml (.../Test.cls.xml) (revision 39249) @@ -67,7 +67,7 @@ Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New() #dim VerkoopPrijs As %Numeric = VerkoopPrijsBepaler.BepaalVerkoopPrijs(TbxKenmerken, Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), KlantID) - Do $$$AssertEquals(VerkoopPrijs,51.47) + Do $$$AssertEquals(VerkoopPrijs,35.76) ]]>