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)))