Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml =================================================================== diff -u -r33695 -r33701 --- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 33695) +++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 33701) @@ -156,7 +156,7 @@ Do ..MaatwerkLijnBuilder.Init(Winkelkar) #dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ..MaatwerkLijnBuilder.MaakLijn(IngegevenKenmerken, Aantal, AdminTekstUtils.MaakTekstAdminVriendelijk(ProjectReferentie), GroepNaam) - Do ..ZetAantalEnPrijs(MaatwerkLijn, Aantal, Winkelkar) + Do ..WinkelkarPrijsUpdater.HerberekenLijn(Winkelkar, MaatwerkLijn) Do MaatwerkLijn.Save() @@ -290,8 +290,10 @@ do ##class(TECH.ExceptionHandler).Catch(..E.InvalidInputException).Rethrow(..E.InvalidUserInputException, "Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid.") } - Do ..MaatwerkLijnBuilder.Init(Winkelkar) - Do ..ZetAantalEnPrijs(Lijn, Aantal, Winkelkar) + Do Lijn.ZetAantal(Aantal) + + Do ..WinkelkarPrijsUpdater.HerberekenLijn(Winkelkar,Lijn) + Do Lijn.Save() Do Winkelkar.Save() ]]> @@ -305,6 +307,7 @@ Do ..MaatwerkLijnBuilder.Init(Winkelkar) Do ..MaatwerkLijnBuilder.WijzigLijnProjectReferentie(Lijn, NieuweProjectReferentie) + do Lijn.Save() do Winkelkar.Save() ]]> @@ -326,7 +329,7 @@ Do ..MaatwerkLijnBuilder.Init(Winkelkar) Do ..MaatwerkLijnBuilder.WijzigLijn(Lijn, IngegevenKenmerken, Aantal, GroepNaam, ProjectReferentie) - Do ..ZetAantalEnPrijs(Lijn, Aantal, Winkelkar) + Do ..WinkelkarPrijsUpdater.HerberekenLijn(Winkelkar,Lijn) Do Lijn.Save() Do Winkelkar.Save() @@ -443,14 +446,6 @@ Quit WinkelkarResultaat ]]> - - -Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Aantal:%Integer,Winkelkar:DOM.EC.Winkelkar.Winkelkar - -