Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r64044 -r64045
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64044)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64045)
@@ -123,7 +123,23 @@
 <FormalSpec>Levering:DOM.TRANSP.impl.DataM.DataMLevering,KlantId:DOM.common.PartijID</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit Levering.GeefGeleverdAanKlantID() = KlantId
+<Implementation><![CDATA[
+	#dim IsHaefeleBelgie As %Boolean = $$$False
+	#dim KlantIdHFBelgie As DOM.VKP.enu.Klant = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
+
+	If (Levering.GeefGeleverdAanKlantID() = KlantIdHFBelgie) {
+		#dim HFBelgie As DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantIdHFBelgie)
+		#dim LeverAdresHFBelgie As DOM.VKP.LeverAdres = HFBelgie.GeefAdres()
+		#dim LeverAdresLevering As DOM.VKP.LeverAdres = Levering.GeefAdres()
+				
+		If (##class(TECH.StringUtils).Equals(LeverAdresHFBelgie.GeefLand().GeefNaam(), LeverAdresLevering.GeefLand().GeefNaam()) 
+				&& ##class(TECH.StringUtils).Equals(LeverAdresHFBelgie.GeefGemeente(), LeverAdresLevering.GeefGemeente())
+				&& ##class(TECH.StringUtils).Equals(LeverAdresHFBelgie.GeefStraat(), LeverAdresLevering.GeefStraat())) {
+			Set IsHaefeleBelgie = $$$True
+		}
+	}
+
+	Quit Levering.GeefGeleverdAanKlantID() = KlantId && $$$Not(IsHaefeleBelgie)
 ]]></Implementation>
 </Method>