Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml =================================================================== diff -u -r33680 -r33689 --- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 33680) +++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml (.../WinkelkarService.cls.xml) (revision 33689) @@ -150,6 +150,8 @@ Do ..MaatwerkLijnBuilder.Init(Winkelkar) #dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ..MaatwerkLijnBuilder.MaakLijn(IngegevenKenmerken, Aantal, AdminTekstUtils.MaakTekstAdminVriendelijk(ProjectReferentie), GroepNaam) + Do MaatwerkLijn.Save() + Do Winkelkar.Save() Quit MaatwerkLijn.%Id() @@ -281,7 +283,7 @@ } Do ..MaatwerkLijnBuilder.Init(Winkelkar) - Do ..MaatwerkLijnBuilder.ZetAantalEnHerberekenPrijsEnGewicht(Lijn, Aantal) + Do ..MaatwerkLijnBuilder.ZetAantalEnPrijs(Lijn, Aantal) Do Lijn.Save() Do Winkelkar.Save() ]]> @@ -316,6 +318,7 @@ Do ..MaatwerkLijnBuilder.Init(Winkelkar) Do ..MaatwerkLijnBuilder.WijzigLijn(Lijn, IngegevenKenmerken, Aantal, GroepNaam, ProjectReferentie) + Do Lijn.Save() Do Winkelkar.Save() Quit ..GeefWinkelkar(WinkelkarID) Index: APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml =================================================================== diff -u -r33680 -r33689 --- APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml (.../MaatwerkLijnBuilder.cls.xml) (revision 33680) +++ APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml (.../MaatwerkLijnBuilder.cls.xml) (revision 33689) @@ -39,12 +39,11 @@ Do ..ZetIngegevenKenmerken(Lijn, IngegevenKenmerken) - Do ..ZetAantalEnHerberekenPrijsEnGewicht(Lijn, Aantal) + Do ..ZetAantalEnPrijs(Lijn, Aantal) Do Lijn.ZetProjectReferentie(ProjectReferentie) Do ..VoegToeAanGroep(GroepNaam, Lijn) - Do Lijn.Save() Quit Lijn ]]> @@ -61,7 +60,7 @@ Do ..ZetIngegevenKenmerken(Lijn, IngegevenKenmerken) - Do ..ZetAantalEnHerberekenPrijsEnGewicht(Lijn, Aantal) + Do ..ZetAantalEnPrijs(Lijn, Aantal) If ProjectReferentie '= "" { Do Lijn.ZetProjectReferentie(ProjectReferentie) @@ -75,16 +74,13 @@ #dim GewijzigdeKenmerkenStream As %Stream = IngegevenKenmerken.ToStream() Do ##class(APPS.EC.Winkelkar.impl.Logger).%New(..Winkelkar).VoegToeLogItemWijzigMaatwerkLijn(OorspronkelijkAantalVanLijn, IngegevenKenmerkenStream,GewijzigdeKenmerkenStream, Lijn) - - Do Lijn.Save() ]]> - + Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Aantal:%Integer