Index: vhUnitTest/APPS/VKP/OrderIngave/impl/AdresUtils/ConverteerNaarLeverAdres/Test.cls.xml =================================================================== diff -u -r63975 -r67753 --- vhUnitTest/APPS/VKP/OrderIngave/impl/AdresUtils/ConverteerNaarLeverAdres/Test.cls.xml (.../Test.cls.xml) (revision 63975) +++ vhUnitTest/APPS/VKP/OrderIngave/impl/AdresUtils/ConverteerNaarLeverAdres/Test.cls.xml (.../Test.cls.xml) (revision 67753) @@ -153,6 +153,28 @@ ]]> + + + + LeverAdres:DOM.VKP.LeverAdres 1 Index: APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml =================================================================== diff -u -r65150 -r67753 --- APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml (.../AdresUtils.cls.xml) (revision 65150) +++ APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml (.../AdresUtils.cls.xml) (revision 67753) @@ -18,13 +18,19 @@ 1 + +APPS.EC.impl.OPOVerzendwijzeBepaler +1 + + LeverAdresRepository:DOM.VKP.impl.LeverAdresRepository,VerkoopAPI:DOM.VKP.VerkoopAPI %Status @@ -59,6 +65,8 @@ Do LeverAdres.ZetVerzendingWijze(..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(Adres.GeefLand().GeefCode(),Adres.GeefPostcode())) } ElseIf (Klant.GeefID() = ##class(DOM.VKP.enu.Klant).VanRaemdonck()) { Do LeverAdres.ZetVerzendingWijze(##class(DOM.VKP.VerzendwijzeUtils).EnumWaardeToTrimmedString(##class(DOM.VKP.enu.VerzendWijze).Distributeur1())) + } ElseIf (Klant.GeefID() = ##class(DOM.VKP.enu.Klant).OPO()) { + Do LeverAdres.ZetVerzendingWijze(..OPOVerzendwijzeBepaler.GeefVerzendWijze(Adres.GeefPostcode())) } Else { Do LeverAdres.ZetVerzendingWijze(Klant.GeefVerzendingWijze())