Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r34177 -r34535
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 34177)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 34535)
@@ -3,24 +3,30 @@
 <Class name="vhUnitTest.APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Bereken() geeft de juiste duurtijd weer.">
+<Method name="Test: Bereken() geeft de juiste duurtijd weer">
 <Implementation><![CDATA[
 	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ..GeefOfferteBerekenaar()
-	
 	Do ..AssertOfferteDataDuurtijd(OfferteBerekenaar.Bereken(..GeefBerekenInput()))
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Bereken() geeft het juiste tarief weer.">
+<Method name="Test: Bereken() geeft het juiste tarief weer voor 1 pallet">
 <Implementation><![CDATA[
 	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ..GeefOfferteBerekenaar()
-	
-	Do ..AssertOfferteDataTarief(OfferteBerekenaar.Bereken(..GeefBerekenInput()))
+	Do ..AssertOfferteDataTariefVoor1Pallet(OfferteBerekenaar.Bereken(..GeefBerekenInput()))
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Bereken() vind landcode niet en geeft een exceptie.">
+<Method name="Test: Bereken() geeft het juiste tarief weer voor 2 palletten">
 <Implementation><![CDATA[
+	#dim AantalPalletten As %Integer = 2
+	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ..GeefOfferteBerekenaar(AantalPalletten)
+	Do ..AssertOfferteDataTariefVoor2Palletten(OfferteBerekenaar.Bereken(..GeefBerekenInput()))
+]]></Implementation>
+</Method>
+
+<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)
 	#dim DataNotFoundException As TECH.Exceptions.DataNotFoundException = ##class(TECH.Exceptions.DataNotFoundException).%New("")
@@ -33,7 +39,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Bereken() geeft een exceptie.">
+<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)
@@ -59,7 +65,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="AssertOfferteDataTarief">
+<Method name="AssertOfferteDataTariefVoor1Pallet">
 <FormalSpec>OfferteDataResult:APPS.TRANSP.OfferteService.dto.OfferteData</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -69,6 +75,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertOfferteDataTariefVoor2Palletten">
+<FormalSpec>OfferteDataResult:APPS.TRANSP.OfferteService.dto.OfferteData</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(OfferteDataResult.Items.Count(), 1)
+	Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).CarbonNeutralPrijs,0)
+	Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).Kostprijs, 81)
+]]></Implementation>
+</Method>
+
 <Method name="GeefBerekenInput">
 <FormalSpec>LandCode:%String="DE"</FormalSpec>
 <Private>1</Private>
@@ -84,12 +100,15 @@
 </Method>
 
 <Method name="GeefOfferteBerekenaar">
+<FormalSpec>AantalPalletten:%Integer=1</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar</ReturnType>
 <Implementation><![CDATA[
 	Set TransportduurRepositoryFake = ##class(vhTest.Fake.APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository).%New()
 	Set TariefBepalerFake = ##class(vhTest.Fake.APPS.TRANSP.Offerte.impl.DHL.TariefBepaler).%New()
-	Quit ##class(APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar).%New(TransportduurRepositoryFake, TariefBepalerFake)
+	Set PallettenBepalerFake = ##class(vhTest.Fake.APPS.TRANSP.Offerte.impl.DHL.PallettenBepaler).%New()
+	Do PallettenBepalerFake.ZetAantalPalletten(AantalPalletten)
+	Quit ##class(APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar).%New(TransportduurRepositoryFake, TariefBepalerFake, PallettenBepalerFake)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler.cls.xml	(revision 34535)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.TRANSP.Offerte.impl.DHL.PallettenBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AantalPalletten">
+<Type>%Integer</Type>
+<InitialExpression>1</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Method name="ZetAantalPalletten">
+<FormalSpec>AantalPalletten:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set ..AantalPalletten = AantalPalletten
+]]></Implementation>
+</Method>
+
+<Method name="Bepaal">
+<FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
+<ReturnType>APPS.TRANSP.OfferteService.dto.Palletten</ReturnType>
+<Implementation><![CDATA[
+	#dim Palletten As APPS.TRANSP.OfferteService.dto.Palletten = ##class(APPS.TRANSP.OfferteService.dto.Palletten).%New()
+	
+	#dim Teller As %Integer = 0
+	for Teller=1:1:..AantalPalletten 
+	{
+		#dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = ##class(APPS.TRANSP.OfferteService.dto.Pallet).%New()
+		Set Pallet.Gewicht = 100
+		Set Pallet.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(1,1,1)
+		Do Palletten.Insert(Pallet)
+	}
+	Quit Palletten
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>