Index: vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml
===================================================================
diff -u -r64106 -r64107
--- vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml	(.../Test.cls.xml)	(revision 64106)
+++ vhUnitTest/APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler/BepaalTransportData/Test.cls.xml	(.../Test.cls.xml)	(revision 64107)
@@ -85,6 +85,73 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Leeg leveradres van een rit geeft InvalidInputException">
+<Implementation><![CDATA[
+	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
+	
+	Set Leveringen = ##class(%ListOfObjects).%New()	
+	#dim Levering As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId)	
+	Do Levering.VerwachtMethodCall("GeefAdres").DanReturn("")
+	Do Leveringen.Insert(Levering)
+	Set LeveringIterator = ##class(TECH.ListIterator).%New(Leveringen)
+	
+	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
+	Do RitMock.VerwachtMethodCall("GeefLeveringIterator").DanReturn(LeveringIterator)
+	Set Ritten = ##class(%ListOfObjects).%New()
+	Do Ritten.Insert(RitMock)
+	Set RitIterator = ##class(TECH.ListIterator).%New(Ritten)
+	
+	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
+	
+	Set TransportdataVoorKlantBepaler = ##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(, ,RitIterator)
+	
+	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("Leveradressen konden niet vergeleken worden omwille van een of meerdere lege leveradressen.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substring))
+	
+	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
+	
+	Do RitMock.Verifieer()
+	Do Levering.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Leeg leveradres van een klant geeft InvalidInputException">
+<Implementation><![CDATA[
+	#dim KlantId As %String = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()
+	
+	Set VanHoeckeKlantMock = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Do VanHoeckeKlantMock.VerwachtMethodCall("GeefAdres").DanReturn("")
+	
+	Set VerkoopApiMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopApiMock.VerwachtMethodCall("GeefKlant", KlantId).DanReturn(VanHoeckeKlantMock)
+		
+	Set Leveringen = ##class(%ListOfObjects).%New()	
+	#dim Levering As vhTest.Mock.DOM.TRANSP.Levering = ..GeefLeveringMock(KlantId)	
+	Do Leveringen.Insert(Levering)
+	Set LeveringIterator = ##class(TECH.ListIterator).%New(Leveringen)
+	
+	#dim RitMock As vhTest.Mock.DOM.TRANSP.Rit = ..GeefRitMock(KlantId)
+	Do RitMock.VerwachtMethodCall("GeefLeveringIterator").DanReturn(LeveringIterator)
+	Set Ritten = ##class(%ListOfObjects).%New()
+	Do Ritten.Insert(RitMock)
+	Set RitIterator = ##class(TECH.ListIterator).%New(Ritten)
+	
+	#dim TransporteurIterator As TECH.Iterator = ..GeefTransportIterator(##class(DOM.TRANSP.enu.Transporteur).TTC(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL())
+	
+	Set TransportdataVoorKlantBepaler = ##class(APPS.TRANSP.impl.TransportService.Nacalculator.TransportdataVoorKlantBepaler).%New(VerkoopApiMock, ,RitIterator)
+	
+	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("Leveradressen konden niet vergeleken worden omwille van een of meerdere lege leveradressen.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substring))
+	
+	#dim TransportData As APPS.TRANSP.dto.NacalculatieLijst = TransportdataVoorKlantBepaler.BepaalTransportData(KlantId, TransporteurIterator)
+	
+	Do RitMock.Verifieer()
+	Do Levering.Verifieer()
+	Do VerkoopApiMock.Verifieer()
+	Do VanHoeckeKlantMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefTransportIterator">
 <FormalSpec>Transporteur...:DOM.TRANSP.enu.Transporteur</FormalSpec>
 <Private>1</Private>
Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r64105 -r64107
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64105)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml	(.../TransportdataVoorKlantBepaler.cls.xml)	(revision 64107)
@@ -93,7 +93,7 @@
 			#dim Levering As DOM.TRANSP.impl.DataM.DataMLevering
 			
 			While LeveringIterator.HasNext() {
-				Set Levering = LeveringIterator.Next()
+				Set Levering = LeveringIterator.Next()			
 				If ..MagNacalculatieToevoegen(Levering, KlantId) {
 					Set NacalculatieDto = ##class(APPS.TRANSP.dto.Nacalculatie).%New()
 					Set NacalculatieDto.AantalColli = Levering.GeefAantalColli()
@@ -133,16 +133,15 @@
 <Implementation><![CDATA[
 	#dim IsLeverAdresHaefeleBelgie 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()
-		
 		Set IsLeverAdresHaefeleBelgie = ..IsZelfdeLeverAdres(LeverAdresHFBelgie, LeverAdresLevering)
 	}
-
-	Quit (Levering.GeefGeleverdAanKlantID() = KlantId) && $$$Not(IsLeverAdresHaefeleBelgie)
+	
+	Quit (Levering.GeefGeleverdAanKlantID() = KlantId) && ($$$Not(IsLeverAdresHaefeleBelgie))
 ]]></Implementation>
 </Method>
 
@@ -151,6 +150,11 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	If $$$Not($IsObject(LeverAdres1) && $IsObject(LeverAdres2))
+	{
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Leveradressen konden niet vergeleken worden omwille van een of meerdere lege leveradressen.")
+	}
+	
 	#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())