Index: APPS/VKP/OrderIngaveService.cls.xml =================================================================== diff -u -r52181 -r52715 --- APPS/VKP/OrderIngaveService.cls.xml (.../OrderIngaveService.cls.xml) (revision 52181) +++ APPS/VKP/OrderIngaveService.cls.xml (.../OrderIngaveService.cls.xml) (revision 52715) @@ -189,6 +189,15 @@ Do Order.ZetDocumentReferenties(OrderDocRef) #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 Order.ZetAfleveradres(LeverAdres) Do Order.ZetOorsprong(##class(BL.Flow.Offerte.enu.Oorsprong).UniShop())