Index: APPS/EC/impl/VerzendWijzeBepaler.cls.xml
===================================================================
diff -u -r62170 -r63827
--- APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 62170)
+++ APPS/EC/impl/VerzendWijzeBepaler.cls.xml	(.../VerzendWijzeBepaler.cls.xml)	(revision 63827)
@@ -59,9 +59,10 @@
 <ReturnType>APPS.VKP.VerzendWijze</ReturnType>
 <Implementation><![CDATA[
 	#dim VerzendWijze As APPS.VKP.VerzendWijze
+	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
 	
 	If (LeverAdres="") || (LeverAdres.GeefVerzendingWijze()="") || (Winkelkar.HeeftHerbestellingBijProbleem()) {
-		If Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).VanHoecke() {
+		If Winkelkar.GeefPersonalityID() = Personality.VanHoecke {
 			If Winkelkar.HeeftHerbestellingBijProbleem() {
 				#dim KlantID As DOM.common.PartijID = Winkelkar.GeefKlantID()
 				#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(KlantID)
@@ -81,28 +82,28 @@
 				}
 			}
 		} Else {
-			If Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleNL(){
+			If Winkelkar.GeefPersonalityID() = Personality.HaefeleNL{
 				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland()
 				Set Partij = ..PartijApi.GeefPartij(KlantID)
 				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
-			} ElseIf (Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleBE()) && ..ProjectSettingsAPI.IsActiefHaefeleBENaarEindklant(){
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleBE) && ..ProjectSettingsAPI.IsActiefHaefeleBENaarEindklant(){
 				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
 				Set Partij = ..PartijApi.GeefPartij(KlantID)
 				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
-			} ElseIf Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).HaefeleDE(){
+			} ElseIf (Winkelkar.GeefPersonalityID() = Personality.HaefeleDE) || (Winkelkar.GeefPersonalityID() = Personality.HaefeleFI) || (Winkelkar.GeefPersonalityID() = Personality.HaefeleSE) {
 				Set KlantID = ##class(DOM.VKP.enu.Klant).HaefeleDuitsland()
 				Set Partij = ..PartijApi.GeefPartij(KlantID)
 				#dim VerzendWijzeID as %String = ..HaefeleDEVerzendwijzeBepaler.GeefVerzendWijze(LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
 				Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),VerzendWijzeID,LeverAdres.GeefLand().GeefCode(),LeverAdres.GeefPostcode())
-			} ElseIf Winkelkar.GeefPersonalityID() = ##class(DOM.common.enu.Personality).Dupont() {
+			} ElseIf Winkelkar.GeefPersonalityID() = Personality.Dupont {
 					If ($$$Not($IsObject(LeverAdres)) || $$$HasLength(LeverAdres.GeefID()) || (Winkelkar.ExterneId = "")) {
 						Set VerzendWijze = ..GeefVerzendWijzeVanKlantID(##class(DOM.VKP.enu.Klant).DuPont())
 					} Else {
 						Set KlantID = ##class(DOM.VKP.enu.Klant).DuPont()
 						Set Partij = ..PartijApi.GeefPartij(KlantID)
 						Set VerzendWijze =  ##class(APPS.VKP.VerzendWijze).%New(..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantID),"DI1",Partij.GeefAdres().GeefLand().GeefCode(),Partij.GeefAdres().GeefPostcode())
 					}
-			} ElseIf Winkelkar.GeefPersonality().GeefLeverancierData().PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke() {
+			} ElseIf Winkelkar.GeefPersonality().GeefLeverancierData().PersonalityId = Personality.VanHoecke {
 				Set VerzendWijze =  ..GeefVerzendWijzeVanKlantID(Winkelkar.GeefPersonality().GeefLeverancierData().EigenKlantId)
 			} Else {
 				Set KlantID = ##class(DOM.VKP.enu.Klant).Hein()