Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r63906 -r73875
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 63906)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 73875)
@@ -65,7 +65,7 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
-	Quit ##class(TECH.StringUtils).Equals(KlantID, Klant.SFS, Klant.HaefeleBelgie, Klant.HaefeleNederland, Klant.HaefeleDuitsland)
+	Quit ##class(TECH.StringUtils).Equals(KlantID, Klant.SFS, Klant.OPO, Klant.HaefeleBelgie, Klant.HaefeleNederland, Klant.HaefeleDuitsland, Klant.HaefeleItalie, Klant.HaefeleOostenrijk, Klant.HaefeleDenemarken, Klant.HaefeleFrankrijk)
 ]]></Implementation>
 </Method>
 
@@ -193,10 +193,28 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
-	Quit ((PartijID = ##class(DOM.VKP.enu.Klant).SFS()) || (PartijID = ##class(DOM.VKP.enu.Klant).DuPont()))
+	Quit ((PartijID = ##class(DOM.VKP.enu.Klant).SFS()) || (PartijID = ##class(DOM.VKP.enu.Klant).DuPont()) || ..IsEenVanDeHaefeleKlanten(PartijID) || ..IsEenVanDeBlumKlanten(PartijID) )
 ]]></Implementation>
 </Method>
 
+<Method name="IsEenVanDeHaefeleKlanten">
+<FormalSpec>PartijID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	Quit ##class(TECH.StringUtils).Equals(PartijID,Klant.HaefeleDenemarken,Klant.HaefeleDuitsland,Klant.HaefeleFrankrijk,Klant.HaefeleItalie,Klant.HaefeleNederland,Klant.HaefeleOostenrijk,Klant.HaefeleZwitserland)
+]]></Implementation>
+</Method>
+
+<Method name="IsEenVanDeBlumKlanten">
+<FormalSpec>PartijID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	Quit ##class(TECH.StringUtils).Equals(PartijID,Klant.BlumPolen, Klant.BlumTsjechie)
+]]></Implementation>
+</Method>
+
 <Method name="HeeftEigenLeverbonPdf">
 <FormalSpec>KLNr:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -209,13 +227,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="MagKlantTAORFrontHoogteVerstellingBestellen">
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$False
-]]></Implementation>
-</Method>
 </Class>