Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r39926 -r39941
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 39926)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 39941)
@@ -118,7 +118,11 @@
 <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).Planofurn())
+	
+	quit ##class(TECH.StringUtils).Equals( PartijID, 
+		##class(DOM.VKP.enu.Klant).Planofurn(),
+		##class(DOM.VKP.enu.Klant).WilsInterieurbouw(),
+		##class(DOM.VKP.enu.Klant).HaefeleBelgie() )
 ]]></Implementation>
 </Method>