Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r61294 -r63827
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 61294)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 63827)
@@ -116,8 +116,8 @@
 	Else {
 		Set lbVariantenVoorTbx = $LB(##class(DOM.PM.enu.Variant).TandemboxAntaro())
 	}
-	
-	#dim KopieerKortingVanTbxNaarAndereTypes As %Boolean = ((PersonalityID = ##class(DOM.common.enu.Personality).HaefeleNL())||(PersonalityID = ##class(DOM.common.enu.Personality).HaefeleDE()))
+	Set Personality = ##class(DOM.common.enu.Personality.AutoComplete).%New()
+	#dim KopieerKortingVanTbxNaarAndereTypes As %Boolean = ((PersonalityID =Personality.HaefeleNL)||(PersonalityID = Personality.HaefeleDE)||(PersonalityID = Personality.HaefeleSE)||(PersonalityID = Personality.HaefeleFI))
 	If KopieerKortingVanTbxNaarAndereTypes {
 		Set lbVariantenVoorTbx = lbVariantenVoorTbx _ $LB(##class(DOM.PM.enu.Variant).LegraboxPure()) _ $LB(##class(DOM.PM.enu.Variant).Taorbox())
 	}