Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r59239 -r59241
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 59239)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 59241)
@@ -176,6 +176,15 @@
 <Implementation><![CDATA[	Quit (KlantID '= ##class(DOM.VKP.enu.Klant).DKGDeKeukenfabriek())
 ]]></Implementation>
 </Method>
+
+<Method name="HeeftEigenLeverbonHoofding">
+<FormalSpec>KLNr:TECH.String</FormalSpec>
+<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())
+]]></Implementation>
+</Method>
 </Class>