Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r64045 -r64057
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64045)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64057)
@@ -131,18 +131,36 @@
 		#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
-		}
+		
+		Set IsHaefeleBelgie = ..IsZelfdeLeverAdres(LeverAdresHFBelgie, LeverAdresLevering)
 	}
 
 	Quit Levering.GeefGeleverdAanKlantID() = KlantId && $$$Not(IsHaefeleBelgie)
 ]]></Implementation>
 </Method>
 
+<Method name="IsZelfdeLeverAdres">
+<FormalSpec>LeverAdres1:DOM.VKP.LeverAdres,LeverAdres2:DOM.VKP.LeverAdres</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsZelfdeLeverAdres = $$$False
+	#dim Land1 As %String = ##class(TECH.StringUtils).ToLower(LeverAdres1.GeefLand().GeefNaam())
+	#dim Land2 As %String = ##class(TECH.StringUtils).ToLower(LeverAdres2.GeefLand().GeefNaam())
+	#dim Gemeente1 As %String = ##class(TECH.StringUtils).ToLower(LeverAdres1.GeefGemeente())
+	#dim Gemeente2 As %String = ##class(TECH.StringUtils).ToLower(LeverAdres2.GeefGemeente())
+	#dim Straat1 As %String = ##class(TECH.StringUtils).ToLower(LeverAdres1.GeefStraat())
+	#dim Straat2 As %String = ##class(TECH.StringUtils).ToLower(LeverAdres2.GeefStraat())
+				
+		If (##class(TECH.StringUtils).Equals(Land1, Land2) && ##class(TECH.StringUtils).Equals(Gemeente1, Gemeente2)
+				&& ##class(TECH.StringUtils).Equals(Straat1, Straat2)) {	
+			Set IsZelfdeLeverAdres = $$$True
+		}
+		
+	Quit IsZelfdeLeverAdres
+]]></Implementation>
+</Method>
+
 <Method name="VulAanKlantSpecifiek">
 <FormalSpec>KlantId:DOM.common.PartijID,NacalculatieDto:APPS.TRANSP.dto.Nacalculatie,Levering:DOM.TRANSP.impl.DataM.DataMLevering</FormalSpec>
 <Private>1</Private>
Index: vhTest/Fake/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r64044 -r64057
--- vhTest/Fake/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64044)
+++ vhTest/Fake/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64057)
@@ -28,6 +28,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsZelfdeLeverAdres">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="MagNacalculatieToevoegen">
 <FormalSpec>Levering:DOM.TRANSP.impl.DataM.DataMLevering</FormalSpec>
 <ReturnType>%Boolean</ReturnType>