Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r34163 -r34166
--- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 34163)
+++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 34166)
@@ -8,20 +8,41 @@
 <Private>1</Private>
 </Property>
 
-<Property name="TariefRepository">
-<Type>APPS.TRANSP.Offerte.impl.DHL.TariefRepository</Type>
+<Property name="TariefBepaler">
+<Type>APPS.TRANSP.Offerte.impl.DHL.TariefBepaler</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="TransportDuur">
+<Type>APPS.TRANSP.Offerte.impl.DHL.Transportduur</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TransportTarief">
+<Type>TECH.Decimal</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BerekenInput">
+<Type>APPS.TRANSP.OfferteService.dto.BerekenInput</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GewichtBerekenaar">
+<Type>APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar.GewichtBerekenaar</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>TransportduurRepository:APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository,TariefRepository:APPS.TRANSP.Offerte.impl.DHL.TariefRepository</FormalSpec>
+<FormalSpec>TransportduurRepository:APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository,TariefBepaler:APPS.TRANSP.Offerte.impl.DHL.TariefBepaler</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())
+	Set ..TariefBepaler = $$$Inject(TariefBepaler,##class(APPS.TRANSP.Offerte.impl.DHL.TariefBepaler).%New())
+	Set ..GewichtBerekenaar = ##class(APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar.GewichtBerekenaar).%New()
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -31,16 +52,18 @@
 <ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
 <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) 
+		Set ..BerekenInput = BerekenInput
+		Set ..TransportDuur = ..TransportduurRepository.GeefViaLandEnPostCode(BerekenInput.LeverAdres.LandCode,BerekenInput.LeverAdres.Postcode) 
+		Set ..TransportTarief = ..TariefBepaler.GeefTarief(BerekenInput) 
 	} Catch {
 		Do ..ThrowExceptie()
 	}
-	Quit ..MaakOfferteData(TransportDuur,BerekenInput.VroegsteAfhaalDatum)
+	Quit ..MaakOfferteData()
 ]]></Implementation>
 </Method>
 
 <Method name="ThrowExceptie">
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 	If Exceptie.GeefExceptionCode() = ##class(TECH.enu.ExceptionCode).DataNotFound()
@@ -55,7 +78,6 @@
 </Method>
 
 <Method name="MaakOfferteData">
-<FormalSpec>Transportduur:APPS.TRANSP.Offerte.impl.DHL.Transportduur,VroegsteAfhaalDatum:%Date</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
 <Implementation><![CDATA[
@@ -65,15 +87,16 @@
 	///te converteren adhv opgegeven tabel id conversie naar vanhoecke interne ID.
 	///Set OfferteItem.Omschrijving = "DHL Freight"
 	///Set OfferteItem.Code = Transportduur.GeefID() 
-	///Set OfferteItem.CarbonNeutralPrijs = 0
+	Set OfferteItem.CarbonNeutralPrijs = 0
+	Set OfferteItem.Kostprijs = ..TransportTarief
 
-	#dim VroegsteAfhaalDag As TECH.enu.Day = ##class(TECH.DateUtils).DayNumber(VroegsteAfhaalDatum)
+	#dim VroegsteAfhaalDag As TECH.enu.Day = ##class(TECH.DateUtils).DayNumber(..BerekenInput.VroegsteAfhaalDatum)
 	
-	Set OfferteItem.Duurtijd = Transportduur.DuurtijdPerWeekdagNr.GetAt(VroegsteAfhaalDag)
-	Set OfferteItem.LeverDatum = ##class(TECH.DateTime).DatumBereken(VroegsteAfhaalDatum, OfferteItem.Duurtijd, ##class(TECH.enu.DatePart).Dag())
+	Set OfferteItem.Duurtijd = ..TransportDuur.DuurtijdPerWeekdagNr.GetAt(VroegsteAfhaalDag)
+	Set OfferteItem.LeverDatum = ##class(TECH.DateTime).DatumBereken(..BerekenInput.VroegsteAfhaalDatum, OfferteItem.Duurtijd, ##class(TECH.enu.DatePart).Dag())
 	Set OfferteItem.LeverDag = ..GeefLeverDagAfkorting(##class(TECH.DateUtils).DayNumber(OfferteItem.LeverDatum))
 	Set OfferteItem.LeverTijd = "12:00"
-	Set OfferteItem.OphaalDatum = VroegsteAfhaalDatum
+	Set OfferteItem.OphaalDatum = ..BerekenInput.VroegsteAfhaalDatum
 	
 	Do OfferteData.Items.Insert(OfferteItem)
 	Quit OfferteData