Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r36515 -r37034
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36515)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 37034)
@@ -3,6 +3,30 @@
 <Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Method name="Test: Het 1 pallet wordt meegegeven in de offertedata items">
+<Implementation><![CDATA[
+	#dim AantalPalletten As %Integer = 1
+	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ..GeefOfferteBerekenaar(AantalPalletten)
+	Do ..AssertAantalPalletten(OfferteBerekenaar.Bereken(..GeefBerekenInput()), AantalPalletten)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Het aantal palletten 2 wordt meegegeven in de offertedata items">
+<Implementation><![CDATA[
+	#dim AantalPalletten As %Integer = 2
+	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ..GeefOfferteBerekenaar(AantalPalletten)
+	Do ..AssertAantalPalletten(OfferteBerekenaar.Bereken(..GeefBerekenInput()), AantalPalletten)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Het aantal palletten 19 wordt meegegeven in de offertedata items">
+<Implementation><![CDATA[
+	#dim AantalPalletten As %Integer = 19
+	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ..GeefOfferteBerekenaar(AantalPalletten)
+	Do ..AssertAantalPalletten(OfferteBerekenaar.Bereken(..GeefBerekenInput()), AantalPalletten)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Bereken() geeft de juiste duurtijd weer">
 <Implementation><![CDATA[
 	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ..GeefOfferteBerekenaar()
@@ -27,8 +51,8 @@
 
 <Method name="Test: Bereken() vind landcode niet en geeft een exceptie">
 <Implementation><![CDATA[
-	#dim TransportduurRepositoryMock As vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository = ##class(vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New()
-	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ##class(APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar).%New(TransportduurRepositoryMock)
+	Set TransportduurRepositoryMock = ##class(vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New()
+	Set OfferteBerekenaar = ##class(APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar).%New(TransportduurRepositoryMock)
 	#dim DataNotFoundException As TECH.Exceptions.DataNotFoundException = ##class(TECH.Exceptions.DataNotFoundException).%New("")
 	Do TransportduurRepositoryMock.IndienMethodCall("GeefViaLandEnPostCode", $$$ElkeWaarde,$$$ElkeWaarde).DanException(DataNotFoundException)
 	
@@ -39,8 +63,8 @@
 
 <Method name="Test: Bereken() geeft een exceptie">
 <Implementation><![CDATA[
-	#dim TransportduurRepositoryMock As vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository = ##class(vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New()
-	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ##class(APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar).%New(TransportduurRepositoryMock)
+	Set TransportduurRepositoryMock = ##class(vhTest.Mock.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New()
+	Set OfferteBerekenaar = ##class(APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar).%New(TransportduurRepositoryMock)
 	#dim FileExceptie As TECH.Exceptions.DataNotFoundException = ##class(TECH.Exceptions.FileException).%New("DummyOmschrijving",1)
 	Do TransportduurRepositoryMock.IndienMethodCall("GeefViaLandEnPostCode", $$$ElkeWaarde,$$$ElkeWaarde).DanException(FileExceptie)
 	
@@ -101,6 +125,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertAantalPalletten">
+<FormalSpec>OfferteDataResult:APPS.TRANSP.OfferteService.dto.OfferteData,AantalPalletten:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(OfferteDataResult.Items.Count(), 1)
+	Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).AantalPalletten,AantalPalletten)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBerekenInput">
 <FormalSpec>LandCode:%String="DE"</FormalSpec>
 <Private>1</Private>
Index: APPS/TRANSP/OfferteService/dto/OfferteItem.cls.xml
===================================================================
diff -u -r34831 -r37034
--- APPS/TRANSP/OfferteService/dto/OfferteItem.cls.xml	(.../OfferteItem.cls.xml)	(revision 34831)
+++ APPS/TRANSP/OfferteService/dto/OfferteItem.cls.xml	(.../OfferteItem.cls.xml)	(revision 37034)
@@ -74,6 +74,11 @@
 <Parameter name="XMLNAME" value="Gegarandeerd"/>
 </Property>
 
+<Property name="AantalPalletten">
+<Type>%Integer</Type>
+<Parameter name="XMLNAME" value="AantalPalletten"/>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>OfferteItemState</State>
@@ -109,6 +114,9 @@
 <Value name="10">
 <Value>Gegarandeerd</Value>
 </Value>
+<Value name="11">
+<Value>AantalPalletten</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r36593 -r37034
--- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 36593)
+++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 37034)
@@ -43,6 +43,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AantalPalletten">
+<Type>TECH.Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>TransportduurRepository:APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository,TariefBepaler:APPS.TRANSP.Offerte.impl.DHL.TariefBepaler,StapelingBepaler:APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler</FormalSpec>
 <Private>1</Private>
@@ -72,8 +77,11 @@
 		Do ..OfferteData.Exceptions.Insert(##class(TECH.ExceptionHandler).Catch().ToString())
 	}
 
+
 	Try {
-		Set ..TransportTarief = ..BerekenTarief()
+		#dim Palletten As APPS.TRANSP.OfferteService.dto.Palletten = ..StapelingBepaler.Bepaal(..BerekenInput)
+		Set ..AantalPalletten = Palletten.Count()
+		Set ..TransportTarief = ..BerekenTarief(Palletten)
 	} Catch {
 		Do ..OfferteData.Exceptions.Insert(##class(TECH.ExceptionHandler).Catch().ToString())
 	}
@@ -89,12 +97,12 @@
 </Method>
 
 <Method name="BerekenTarief">
+<FormalSpec>Palletten:APPS.TRANSP.OfferteService.dto.Palletten</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Decimal</ReturnType>
 <Implementation><![CDATA[
 	#dim TotaalGewichtInKg As %Integer = 0
-	
-	#dim PallettenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..StapelingBepaler.Bepaal(..BerekenInput))
+	#dim PallettenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Palletten)
 	While PallettenIterator.HasNext()
 	{
 		#dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = PallettenIterator.Next()
@@ -118,6 +126,7 @@
 	Set OfferteItem.Code = TransportService.Code 
 	Set OfferteItem.CarbonNeutralPrijs = 0
 	Set OfferteItem.Kostprijs = ..TransportTarief
+	Set OfferteItem.AantalPalletten = ..AantalPalletten
 
 	#dim VroegsteAfhaalDag As TECH.enu.Day = ##class(TECH.DateUtils).DayNumber(..BerekenInput.VroegsteAfhaalDatum)