Index: vhUnitTest/APPS/VKP/OrderIngave/impl/AdresUtils/ConverteerNaarLeverAdres/Test.cls.xml =================================================================== diff -u -r49779 -r56572 --- vhUnitTest/APPS/VKP/OrderIngave/impl/AdresUtils/ConverteerNaarLeverAdres/Test.cls.xml (.../Test.cls.xml) (revision 49779) +++ vhUnitTest/APPS/VKP/OrderIngave/impl/AdresUtils/ConverteerNaarLeverAdres/Test.cls.xml (.../Test.cls.xml) (revision 56572) @@ -61,7 +61,7 @@ ]]> - + + + + + LeverAdres:DOM.VKP.LeverAdres 1 Index: APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml =================================================================== diff -u -r50269 -r56572 --- APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml (.../AdresUtils.cls.xml) (revision 50269) +++ APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml (.../AdresUtils.cls.xml) (revision 56572) @@ -46,7 +46,11 @@ Do LeverAdres.ZetTaal(Adres.GeefTaal()) Do LeverAdres.ZetToenaam(Adres.GeefToenaam()) Do LeverAdres.ZetAxLeveradresId(Adres.GeefAxLeveradresId()) - Do LeverAdres.ZetVerzendingWijze(Klant.GeefVerzendingWijze()) + If (LeverAdres.GeefAxLeveradresId() = "") && (Klant.GeefID() = ##class(DOM.VKP.enu.Klant).DuPont()) { + Do LeverAdres.ZetVerzendingWijze(##class(DOM.VKP.VerzendwijzeUtils).EnumWaardeToTrimmedString(##class(DOM.VKP.enu.VerzendWijze).Distributeur1())) + } Else { + Do LeverAdres.ZetVerzendingWijze(Klant.GeefVerzendingWijze()) + } } ElseIf (Adres.GeefLeverAdresID() = "H") { Set LeverAdres = Klant.GeefAdres() Do LeverAdres.ZetVerzendingWijze(Klant.GeefVerzendingWijze()) Index: vhTest/Mock/APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml =================================================================== diff -u -r42444 -r56572 --- vhTest/Mock/APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml (.../AdresUtils.cls.xml) (revision 42444) +++ vhTest/Mock/APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml (.../AdresUtils.cls.xml) (revision 56572) @@ -8,6 +8,13 @@ APPS.VKP.OrderIngave.impl.AdresUtils,Tools.Mock.MockClassBase right + +LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository,VerkoopAPI:DOM.VKP.VerkoopAPI +%Status + + + KlantID:DOM.VKP.VanHoeckeKlantID,Adres:DOM.common.impl.VH.Adres DOM.VKP.LeverAdres