Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r60797 -r61684
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 60797)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 61684)
@@ -181,6 +181,16 @@
 	Quit (PartijID = ##class(DOM.VKP.enu.Klant).SFS())
 ]]></Implementation>
 </Method>
+
+<Method name="HeeftEigenLeverbonPdf">
+<FormalSpec>KLNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	Do ##class(Tools.Wlip).%New(207).String(Klant.HaefeleBelgie)
+	Quit ##class(TECH.StringUtils).Equals(##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr),Klant.HaefeleBelgie)
+]]></Implementation>
+</Method>
 </Class>