Index: APPS/common/impl/KlantInstellingenService.cls.xml
===================================================================
diff -u -r58905 -r59012
--- APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 58905)
+++ APPS/common/impl/KlantInstellingenService.cls.xml	(.../KlantInstellingenService.cls.xml)	(revision 59012)
@@ -143,7 +143,9 @@
 <Method name="MoetVhossNummerOpLeveringBon">
 <FormalSpec>KLNr:TECH.String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$False
+<Implementation><![CDATA[
+	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
+	Quit ##class(TECH.StringUtils).Equals(PartijID, ##class(DOM.VKP.enu.Klant).VanhoutPro(), ##class(DOM.VKP.enu.Klant).GroupNivelles(), ##class(DOM.VKP.enu.Klant).TestklantVanHoecke())
 ]]></Implementation>
 </Method>