Index: APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml =================================================================== diff -u -r49779 -r50269 --- APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml (.../AdresUtils.cls.xml) (revision 49779) +++ APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml (.../AdresUtils.cls.xml) (revision 50269) @@ -32,7 +32,9 @@ #Dim LeverAdres As DOM.VKP.LeverAdres - If (Adres.GeefLeverAdresID() = "") { + If $$$HasLength(Adres.GeefAxLeveradresId()) { + Set LeverAdres = ..LeverAdresRepository.GeefViaKlantIDEnLeverAdresID(KlantID, Adres.GeefAxLeveradresId()) + } ElseIf (Adres.GeefLeverAdresID() = "") { Set LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New() Do LeverAdres.ZetID(Adres.GeefLeverAdresID()) Do LeverAdres.ZetAanspreking(Adres.GeefAanspreking())