Index: APPS/VKP/Korting/impl/KortingService.cls.xml
===================================================================
diff -u -r63827 -r64995
--- APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 63827)
+++ APPS/VKP/Korting/impl/KortingService.cls.xml	(.../KortingService.cls.xml)	(revision 64995)
@@ -117,7 +117,7 @@
 		Set lbVariantenVoorTbx = $LB(##class(DOM.PM.enu.Variant).TandemboxAntaro())
 	}
 	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))
+	#dim KopieerKortingVanTbxNaarAndereTypes As %Boolean = ((PersonalityID =Personality.HaefeleNL)||(PersonalityID = Personality.HaefeleDE)||(PersonalityID = Personality.HaefeleSE)||(PersonalityID = Personality.HaefeleFI)||(PersonalityID =Personality.HaefeleFR)||(PersonalityID =Personality.HaefeleDK)||(PersonalityID =Personality.HaefeleIT)||(PersonalityID =Personality.HaefeleAT))
 	If KopieerKortingVanTbxNaarAndereTypes {
 		Set lbVariantenVoorTbx = lbVariantenVoorTbx _ $LB(##class(DOM.PM.enu.Variant).LegraboxPure()) _ $LB(##class(DOM.PM.enu.Variant).Taorbox())
 	}