Index: vhUnitTest/APPS/common/impl/KlantInstellingenService/Test.cls.xml
===================================================================
diff -u -r59241 -r61684
--- vhUnitTest/APPS/common/impl/KlantInstellingenService/Test.cls.xml	(.../Test.cls.xml)	(revision 59241)
+++ vhUnitTest/APPS/common/impl/KlantInstellingenService/Test.cls.xml	(.../Test.cls.xml)	(revision 61684)
@@ -65,6 +65,24 @@
 	Do $$$AssertFalse(Result)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Haefele Belgie eigen Leverbon pdf">
+<Implementation><![CDATA[
+	#dim HaefeleBEKlantnummer as %String = "4875"
+	#dim Result as %Boolean = ..KlantInstellingService.HeeftEigenLeverbonPdf(HaefeleBEKlantnummer)
+	
+	Do $$$AssertTrue(Result)
+]]></Implementation>
+</Method>
+
+<Method name="Test: willekeurige klant heeft geen eigen Leverbon pdf">
+<Implementation><![CDATA[
+	#dim HaefeleBEKlantnummer as %String = "123456"
+	#dim Result as %Boolean = ..KlantInstellingService.HeeftEigenLeverbonPdf(HaefeleBEKlantnummer)
+	
+	Do $$$AssertFalse(Result)
+]]></Implementation>
+</Method>
 </Class>
 
 
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>