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()
 	}