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