Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BeslagDesign.cls.xml =================================================================== diff -u -r53906 -r53952 --- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BeslagDesign.cls.xml (.../BeslagDesign.cls.xml) (revision 53906) +++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BeslagDesign.cls.xml (.../BeslagDesign.cls.xml) (revision 53952) @@ -30,6 +30,7 @@ Do $$$AssertEquals(PrijsBerekeningPrijzen.AankoopPrijs, VerwachteAankoopPrijs) Do $$$AssertEquals(PrijsBerekeningPrijzen.VerkoopPrijs, VerwachteVerkoopPrijs) + Do $$$AssertEquals(PrijsBerekeningPrijzen.LijstPrijs, VerwachteVerkoopPrijs) ]]> Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml =================================================================== diff -u -r53784 -r53952 --- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml (.../PrijsBerekeningPrijsBepaler.cls.xml) (revision 53784) +++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml (.../PrijsBerekeningPrijsBepaler.cls.xml) (revision 53952) @@ -292,16 +292,25 @@ + +Op dit moment enkel in gebruik (vanuit de UI) voor Hein (en sub-personalities), en voor Beslag Design. +Bij de andere personalities geeft dit wellicht niet de juiste bruto-prijs terug... Personality:DOM.common.Personality,KlantId:%String 1 %Numeric @@ -314,7 +323,7 @@ #dim LeverancierVerkoopPrijs As %Numeric = ..GeefVerkoopPrijs(Personality,KlantId) * PrijsFactorVoorEindklant #dim LijnKorting As %Numeric = $$ROUND^KPRIJS(..KortingBepaler.BepaalKorting(..Winkelkar,..MaatwerkLijn) * PrijsFactorVoorEindklant) - + #dim KortingControle As %Numeric = 0 Set ActieIterator = ##class(TECH.ListIterator).%New(..MaatwerkLijn.GeefActies()) While ActieIterator.HasNext() {