Index: APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml
===================================================================
diff -u -r63975 -r64299
--- APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 63975)
+++ APPS/VKP/OrderIngave/impl/AdresUtils.cls.xml	(.../AdresUtils.cls.xml)	(revision 64299)
@@ -35,7 +35,7 @@
 <ReturnType>DOM.VKP.LeverAdres</ReturnType>
 <Implementation><![CDATA[
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID)
-	
+	Set KlantEnum = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
 	#Dim LeverAdres As DOM.VKP.LeverAdres 
 
 	If $$$HasLength(Adres.GeefAxLeveradresId()) {
@@ -55,7 +55,7 @@
 		If (LeverAdres.GeefAxLeveradresId() = ""){ 
 			If (Klant.GeefID() = ##class(DOM.VKP.enu.Klant).DuPont()) {
 				Do LeverAdres.ZetVerzendingWijze(##class(DOM.VKP.VerzendwijzeUtils).EnumWaardeToTrimmedString(##class(DOM.VKP.enu.VerzendWijze).Distributeur1()))
-			} elseif (Klant.GeefID() = ##class(DOM.VKP.enu.Klant).HaefeleDuitsland() ){
+			} elseif (Klant.GeefID() = KlantEnum.HaefeleDuitsland ) || (Klant.GeefID() = KlantEnum.HaefeleItalie )||(Klant.GeefID() = KlantEnum.HaefeleOostenrijk){
 				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()))