Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r34160 -r34163
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 34160)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 34163)
@@ -15,7 +15,7 @@
 <Implementation><![CDATA[
 	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ..GeefOfferteBerekenaar()
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er is een fout opgetreden bij het ophalen van de transportduur")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er is een fout opgetreden bij het ophalen van de transportgegevens")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.TRANSP.Offerte.exc.TransportOfferteBerekenExceptie",Substrings))
 	
 	Do OfferteBerekenaar.Bereken(..GeefBerekenInput("OngeldigeLandCode"))
@@ -51,7 +51,8 @@
 <ReturnType>APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar</ReturnType>
 <Implementation><![CDATA[
 	Set TransportduurRepositoryFake = ##class(vhTest.Fake.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New()
-	Quit ##class(APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar).%New(TransportduurRepositoryFake)
+	Set TariefRepositoryFake = ##class(vhTest.Fake.APPS.TRANSP.Offerte.impl.DHL.TariefRepository).%New()
+	Quit ##class(APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar).%New(TransportduurRepositoryFake, TariefRepositoryFake)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/TariefRepository.cls.xml	(revision 34163)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.TRANSP.Offerte.impl.DHL.TariefRepository">
+<Super>APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository</Super>
+
+<Method name="GeefViaLandEnPostCode">
+<FormalSpec>LandCode:%String,Postcode:%String</FormalSpec>
+<ReturnType>APPS.TRANSP.Offerte.impl.DHL.Tarief</ReturnType>
+<Implementation><![CDATA[
+	Quit:(LandCode="DE") ..GeefFakeTransportTarief()
+
+	Do ##class(TECH.Exceptions.DataNotFoundException).Throw("'geen data gevonden voor APPS.TRANSP.Offerte.impl.DHL.Tarief")
+]]></Implementation>
+</Method>
+
+<Method name="GeefFakeTransportTarief">
+<ReturnType>APPS.TRANSP.Offerte.impl.DHL.Tarief</ReturnType>
+<Implementation><![CDATA[
+	#dim TransportTarief As APPS.TRANSP.Offerte.impl.DHL.Tarief = ##class(APPS.TRANSP.Offerte.impl.DHL.Tarief).%New()
+	Quit TransportTarief
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r34152 -r34163
--- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 34152)
+++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 34163)
@@ -8,14 +8,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TariefRepository">
+<Type>APPS.TRANSP.Offerte.impl.DHL.TariefRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>TransportduurRepository:APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository</FormalSpec>
+<FormalSpec>TransportduurRepository:APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository,TariefRepository:APPS.TRANSP.Offerte.impl.DHL.TariefRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..TransportduurRepository = $$$Inject(TransportduurRepository, ##class(APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New())
+	Set ..TariefRepository = $$$Inject(TariefRepository, ##class(APPS.TRANSP.Offerte.impl.DHL.TariefRepository).%New())
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -26,6 +32,7 @@
 <Implementation><![CDATA[
 	Try {
 		#dim TransportDuur As APPS.TRANSP.Offerte.impl.DHL.Transportduur = ..TransportduurRepository.GeefViaLandEnPostCode(BerekenInput.LeverAdres.LandCode,BerekenInput.LeverAdres.Postcode) 
+		#dim TransportTarief As APPS.TRANSP.Offerte.impl.DHL.Tarief = ..TariefRepository.GeefViaLandEnPostCode(BerekenInput.LeverAdres.LandCode,BerekenInput.LeverAdres.Postcode) 
 	} Catch {
 		Do ..ThrowExceptie()
 	}
@@ -40,7 +47,7 @@
 	{ 
 		#dim NieuweExceptie As APPS.TRANSP.Offerte.exc.TransportOfferteBerekenExceptie = ##class(APPS.TRANSP.Offerte.exc.TransportOfferteBerekenExceptie).%New("")
 		Do NieuweExceptie.VoegToeInnerExceptie(Exceptie)
-		Do NieuweExceptie.Throw("Er is een fout opgetreden bij het ophalen van de transportduur")
+		Do NieuweExceptie.Throw("Er is een fout opgetreden bij het ophalen van de transportgegevens")
 	} Else {
 		Do Exceptie.Rethrow()
 	}