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
Index: vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/TariefBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/TariefBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/TariefBepaler.cls.xml	(revision 34166)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.TRANSP.Offerte.impl.DHL.TariefBepaler">
+<Super>APPS.TRANSP.Offerte.impl.DHL.TariefBepaler</Super>
+
+<Method name="GeefTarief">
+<FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
+<ReturnType>TECH.Decimal</ReturnType>
+<Implementation><![CDATA[	Quit 40.5
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r34163 -r34166
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 34163)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 34166)
@@ -7,10 +7,18 @@
 <Implementation><![CDATA[
 	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ..GeefOfferteBerekenaar()
 	
-	Do ..AssertOfferteDataResult(OfferteBerekenaar.Bereken(..GeefBerekenInput()))
+	Do ..AssertOfferteDataDuurtijd(OfferteBerekenaar.Bereken(..GeefBerekenInput()))
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Bereken() geeft het juiste tarief weer.">
+<Implementation><![CDATA[
+	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ..GeefOfferteBerekenaar()
+	
+	Do ..AssertOfferteDataTarief(OfferteBerekenaar.Bereken(..GeefBerekenInput()))
+]]></Implementation>
+</Method>
+
 <Method name="Test: Bereken() vind landcode niet en geeft een exceptie.">
 <Implementation><![CDATA[
 	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ..GeefOfferteBerekenaar()
@@ -22,7 +30,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="AssertOfferteDataResult">
+<Method name="AssertOfferteDataDuurtijd">
 <FormalSpec>OfferteDataResult:APPS.TRANSP.OfferteService.dto.OfferteData</FormalSpec>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(OfferteDataResult.Items.Count(), 1)
@@ -33,6 +41,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertOfferteDataTarief">
+<FormalSpec>OfferteDataResult:APPS.TRANSP.OfferteService.dto.OfferteData</FormalSpec>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(OfferteDataResult.Items.Count(), 1)
+	Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).CarbonNeutralPrijs,0)
+	Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).Kostprijs, 40.5)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBerekenInput">
 <FormalSpec>LandCode:%String="DE"</FormalSpec>
 <Private>1</Private>
@@ -51,8 +68,8 @@
 <ReturnType>APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar</ReturnType>
 <Implementation><![CDATA[
 	Set TransportduurRepositoryFake = ##class(vhTest.Fake.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New()
-	Set TariefRepositoryFake = ##class(vhTest.Fake.APPS.TRANSP.Offerte.impl.DHL.TariefRepository).%New()
-	Quit ##class(APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar).%New(TransportduurRepositoryFake, TariefRepositoryFake)
+	Set TariefBepalerFake = ##class(vhTest.Fake.APPS.TRANSP.Offerte.impl.DHL.TariefBepaler).%New()
+	Quit ##class(APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar).%New(TransportduurRepositoryFake, TariefBepalerFake)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/GewichtBerekenaar.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/GewichtBerekenaar.cls.xml	(revision 0)
+++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/GewichtBerekenaar.cls.xml	(revision 34166)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar.GewichtBerekenaar">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Bereken">
+<FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim TotaalGewicht As TECH.Decimal = 0
+	
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BerekenInput.TeVerzendenItems)
+	while Iterator.HasNext() {
+		#dim TeverzendItem As APPS.TRANSP.OfferteService.dto.TeverzendenItem = Iterator.Next()
+		Set TotaalGewicht = TotaalGewicht + (TeverzendItem.Gewicht * TeverzendItem.Aantal)
+	}
+	
+	// TODO KCA
+	// pallet informatie + afmetingen in meter
+	#dim BerekendGewicht As TECH.Decimal = (h * b * d) / 330
+	if BerekendGewicht > TotaalGewicht
+	{
+		Quit BerekendGewicht
+	}
+	Quit TotaalGewicht
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+	2.1.Welke palletten ?
+	europallet 			800 x 1200	Deze pallet wordt standaard gebruikt.
+	halve wegwerppallet	600 x 800	Deze pallet zal in de toekomst gebruikt worden indien we ook met Probox werken. 
+	wegwerppallet		1500 x 800	Deze pallet zullen we moeten gebruiken als we de grootste flatpack V1-dozen gebruiken (= als de lengte van de doos > 1200).
+*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>