Index: APPS/VKP/OrderIngaveService.cls.xml =================================================================== diff -u -r52715 -r52735 --- APPS/VKP/OrderIngaveService.cls.xml (.../OrderIngaveService.cls.xml) (revision 52715) +++ APPS/VKP/OrderIngaveService.cls.xml (.../OrderIngaveService.cls.xml) (revision 52735) @@ -78,8 +78,13 @@ 1 + +APPS.VKP.OrderIngaveService.LeverAdresAanpasserBijHerbestellingBijProbleem +1 + + -TekstLijnenToevoeger:APPS.VKP.OrderIngaveService.TekstLijnenToevoeger="",DateTimeAPI:TECH.DateTime.DateTimeAPI="",OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository,OrderAPI:DOM.VKP.OrderAPI,GebruikerBeheerder:DOM.common.VanHoeckeGebruikerBeheerder,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,OrderPrijsValidator:APPS.VKP.impl.OrderPrijsValidatie,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,AdresUtils:APPS.VKP.OrderIngave.impl.AdresUtils,WinkelkarLijnenNaarOrderKopieerder:APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder +TekstLijnenToevoeger:APPS.VKP.OrderIngaveService.TekstLijnenToevoeger="",DateTimeAPI:TECH.DateTime.DateTimeAPI="",OfferteRepository:APPS.VKP.Offerte.impl.OfferteRepository,OrderAPI:DOM.VKP.OrderAPI,GebruikerBeheerder:DOM.common.VanHoeckeGebruikerBeheerder,OrderLevenCyclusService:APPS.VKP.OrderLevenCyclusService,WinkelkarRepository:DOM.EC.Winkelkar.impl.WinkelkarRepository,OrderPrijsValidator:APPS.VKP.impl.OrderPrijsValidatie,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler,DocumentReferentiesRepository:DOM.VKP.DocumentReferentiesRepository,AdresUtils:APPS.VKP.OrderIngave.impl.AdresUtils,WinkelkarLijnenNaarOrderKopieerder:APPS.VKP.impl.WinkelkarLijnenNaarOrderKopieerder,LeveradresAanpasser:APPS.VKP.OrderIngaveService.LeverAdresAanpasserBijHerbestellingBijProbleem 1 1 %Status @@ -98,6 +103,7 @@ set ..OrderPrijsValidator = $$$Inject(OrderPrijsValidator,##class(APPS.VKP.impl.OrderPrijsValidatie).%New()) Set ..VroegsteLeverdatumBepaler = $$$Inject(VroegsteLeverdatumBepaler,##class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New()) Set ..DocumentReferentiesRepository = $$$Inject(DocumentReferentiesRepository,##class(DOM.VKP.DocumentReferentiesRepository).%New()) + set ..LeveradresAanpasser = $$$Inject(LeveradresAanpasser,##class(APPS.VKP.OrderIngaveService.LeverAdresAanpasserBijHerbestellingBijProbleem).%New()) Quit $$$OK ]]> @@ -190,15 +196,8 @@ #Dim LeverAdres As DOM.VKP.LeverAdres = ..AdresUtils.ConverteerNaarLeverAdres(Offerte.KlantID, Offerte.LeverAdres) - // indien winkelkar een herbestellingbijprobleem was, en indien verzend wijze <> GLS -> leveradres.id en AXLeveradresId clearen - #Dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..WinkelkarRepository.GeefViaID(Offerte.WinkelkarID) - #Dim GLS as %String = ##class(DOM.VKP.enu.VerzendWijze).Distributeur1() - if Winkelkar.HeeftHerbestellingBijProbleem() && $$$Not(##class(DOM.VKP.VerzendwijzeUtils).LijktOpEnumeratieVerzendwijze(LeverAdres.GeefVerzendingWijze(),GLS)) { - Do LeverAdres.ZetID("") - Do LeverAdres.ZetAxLeveradresId("") - Do LeverAdres.ZetVerzendingWijze(##class(DOM.VKP.VerzendwijzeUtils).EnumWaardeToTrimmedString(##class(DOM.VKP.enu.VerzendWijze).Distributeur1())) - } - + Do ..LeveradresAanpasser.PasLeveradresAan(Offerte,LeverAdres) + Do Order.ZetAfleveradres(LeverAdres) Do Order.ZetOorsprong(##class(BL.Flow.Offerte.enu.Oorsprong).UniShop()) Do Order.ZetOorsprongKetting($$$LCVT(..BepaalOorsprongKetting(Offerte)))