Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BerekenPrijzen/Test.cls.xml =================================================================== diff -u -r40898 -r47684 --- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BerekenPrijzen/Test.cls.xml (.../Test.cls.xml) (revision 40898) +++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BerekenPrijzen/Test.cls.xml (.../Test.cls.xml) (revision 47684) @@ -55,6 +55,7 @@ do ..IngegevenKenmerkenAPI.VerwachtMethodCall("GeefIngegevenKenmerken", ..DummyIKID).DanReturn(..TAORKenmerken) do ..VerkoopPrijsBepalerMock.IndienMethodCall("BepaalVerkoopPrijs", ..TAORKenmerken, $$$DummyInteger, ..GeefPersonality().GeefID(), ..GeefKlantID()).DanReturn(..VerkoopPrijsInfo) + do ..VerkoopPrijsBepalerMock.IndienMethodCall("BepaalVerkoopPrijs", ..TAORKenmerken, 0, ##class(DOM.common.enu.Personality).VanHoecke(), ##class(DOM.VKP.enu.Klant).LijstPrijsKlant()).DanReturn(..VerkoopPrijsInfo) do ..BerekenPrijzen(..TAORKenmerken, $$$DummyInteger) @@ -72,14 +73,15 @@ do ..IngegevenKenmerkenAPI.IndienMethodCall("GeefIngegevenKenmerken", ..DummyIKID).DanReturn(..TAORKenmerken) do ..VerkoopPrijsBepalerMock.VerwachtMethodCall("BepaalVerkoopPrijs", ..TAORKenmerken, $$$Aantal, ..GeefPersonality().GeefID(), ..GeefKlantID()).DanReturn(..VerkoopPrijsInfo) + do ..VerkoopPrijsBepalerMock.VerwachtMethodCall("BepaalVerkoopPrijs", ..TAORKenmerken, $$$Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), ##class(DOM.VKP.enu.Klant).LijstPrijsKlant()).DanReturn(..VerkoopPrijsInfo) do ..BerekenPrijzen(..TAORKenmerken, $$$Aantal) do ..VerkoopPrijsBepalerMock.Verifieer() ]]> - + Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijzen.cls.xml =================================================================== diff -u -r29059 -r47684 --- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijzen.cls.xml (.../PrijsBerekeningPrijzen.cls.xml) (revision 29059) +++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijzen.cls.xml (.../PrijsBerekeningPrijzen.cls.xml) (revision 47684) @@ -11,15 +11,20 @@ %Numeric + +%Numeric + + -AankoopPrijs:%Numeric="",VerkoopPrijs:%Numeric="" +AankoopPrijs:%Numeric="",VerkoopPrijs:%Numeric="",LijstPrijs:%Numeric="" 1 1 %Status 1 Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml =================================================================== diff -u -r47645 -r47684 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml (.../BewaarMaatwerkLijn.cls.xml) (revision 47645) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml (.../BewaarMaatwerkLijn.cls.xml) (revision 47684) @@ -64,7 +64,7 @@ Set Resultaat.EenheidPrijs = MaatwerkLijn.EenheidPrijs Set Resultaat.VerkoopPrijs = MaatwerkLijn.EenheidPrijs Set Resultaat.AankoopPrijs = MaatwerkLijn.AankoopPrijs - Set Resultaat.LijstPrijs = MaatwerkLijn.EenheidPrijs * 1.5 + Set Resultaat.LijstPrijs = MaatwerkLijn.LijstPrijs Set Resultaat.TotaalPrijs = MaatwerkLijn.TotaalPrijs Set Resultaat.PrijzenGeldigTotEnMet = Offerte.GeefPrijzenGeldigTotEnMetDatum() Set Resultaat.UnishopKenmerken = MaatwerkLijn.IngegevenKenmerken Index: APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml =================================================================== diff -u -r47497 -r47684 --- APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml (.../LijnNaarDtoVisitor.cls.xml) (revision 47497) +++ APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml (.../LijnNaarDtoVisitor.cls.xml) (revision 47684) @@ -89,6 +89,7 @@ Set Lijn.Aantal = MaatwerkLijn.GeefAantal() Set Lijn.EenheidPrijs = MaatwerkLijn.GeefEindklantEenheidPrijsNettoExclBTW() Set Lijn.AankoopPrijs = MaatwerkLijn.EenheidPrijsExclBTW + Set Lijn.LijstPrijs = MaatwerkLijn.LijstPrijs Set Lijn.TotaalPrijs = MaatwerkLijn.GeefEindklantTotaalPrijs() Set Lijn.ProjectReferentie = MaatwerkLijn.GeefProjectReferentie() Set Lijn.IngegevenKenmerken = ..GeefIngegevenKenmerken(MaatwerkLijn) Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml =================================================================== diff -u -r47653 -r47684 --- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml (.../PrijsBerekeningPrijsBepaler.cls.xml) (revision 47653) +++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml (.../PrijsBerekeningPrijsBepaler.cls.xml) (revision 47684) @@ -48,6 +48,11 @@ 1 + +%Numeric +1 + + VerkoopPrijsBepaler:DOM.PM.VerkoopPrijsBepaler,PrijsFactorBepalerFactory:APPS.EC.Winkelkar.WinkelkarService.PrijsFactorBepalerFactory,KortingBepaler:APPS.EC.Winkelkar.WinkelkarService.KortingBepaler 1 @@ -76,7 +81,7 @@ Do ..ValideerActieKortingen() - Quit ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijzen).%New(..AankoopPrijs,..VerkoopPrijs) + Quit ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijzen).%New(..AankoopPrijs,..VerkoopPrijs,..GeefLijstPrijs(Winkelkar.GeefPersonality(),Winkelkar.GeefKlantID())) ]]> @@ -184,8 +189,24 @@ ]]> + +Personality:DOM.common.Personality,KlantId:%String +1 +%Decimal + + + Personality:DOM.common.Personality,KlantId:%String +1 %Decimal - -Personality:DOM.common.Personality,KlantId:%String -%Decimal - - - DaroPersonality:DOM.common.DaroPersonality