Index: APPS/TRANSP/OfferteService/dto/Palet.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/OfferteService/dto/Palet.cls.xml	(revision 0)
+++ APPS/TRANSP/OfferteService/dto/Palet.cls.xml	(revision 34526)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.OfferteService.dto.Palet">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Afmeting">
+<Type>APPS.TRANSP.OfferteService.dto.Afmeting</Type>
+</Property>
+
+<Property name="Gewicht">
+<Type>TECH.Decimal</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/PalettenBepaler.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/Offerte/impl/DHL/PalettenBepaler.cls.xml	(revision 0)
+++ APPS/TRANSP/Offerte/impl/DHL/PalettenBepaler.cls.xml	(revision 34526)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.Offerte.impl.DHL.PalettenBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefPaletten">
+<FormalSpec>BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
+<ReturnType>APPS.TRANSP.OfferteService.dto.Paletten</ReturnType>
+<Implementation><![CDATA[
+	#dim Paletten As APPS.TRANSP.OfferteService.dto.Paletten = ##class(APPS.TRANSP.OfferteService.dto.Paletten).%New()
+	
+	#dim Palet As APPS.TRANSP.OfferteService.dto.Palet = ##class(APPS.TRANSP.OfferteService.dto.Palet).%New()
+	Set Palet.Gewicht = 100
+	Set Palet.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(1,1,1)
+	Do Paletten.Insert(Palet)
+	
+	Quit Paletten
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/OfferteService/dto/Paletten.cls.xml
===================================================================
diff -u
--- APPS/TRANSP/OfferteService/dto/Paletten.cls.xml	(revision 0)
+++ APPS/TRANSP/OfferteService/dto/Paletten.cls.xml	(revision 34526)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.TRANSP.OfferteService.dto.Paletten">
+<Super>%ListOfObjects</Super>
+
+<Parameter name="ELEMENTTYPE">
+<Default>APPS.TRANSP.OfferteService.dto.Palet</Default>
+</Parameter>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r34421 -r34526
--- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 34421)
+++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 34526)
@@ -28,15 +28,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PalettenBepaler">
+<Type>APPS.TRANSP.Offerte.impl.DHL.PalettenBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>TransportduurRepository:APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository,TariefBepaler:APPS.TRANSP.Offerte.impl.DHL.TariefBepaler</FormalSpec>
+<FormalSpec>TransportduurRepository:APPS.TRANSP.Offerte.impl.DHL.TransportduurRepository,TariefBepaler:APPS.TRANSP.Offerte.impl.DHL.TariefBepaler,PalettenBepaler:APPS.TRANSP.Offerte.impl.DHL.PalettenBepaler</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 ..TariefBepaler = $$$Inject(TariefBepaler,##class(APPS.TRANSP.Offerte.impl.DHL.TariefBepaler).%New())
+	Set ..PalettenBepaler = $$$Inject(PalettenBepaler, ##class(APPS.TRANSP.Offerte.impl.DHL.PalettenBepaler).%New())
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -48,14 +54,30 @@
 	Try {
 		Set ..BerekenInput = BerekenInput
 		Set ..TransportDuur = ..TransportduurRepository.GeefViaLandEnPostCode(BerekenInput.LeverAdres.LandCode,BerekenInput.LeverAdres.Postcode) 
-		Set ..TransportTarief = ..TariefBepaler.GeefTarief(BerekenInput) 
+		Set ..TransportTarief = ..BerekenTarief()
 	} Catch {
 		Do ..ThrowExceptie()
 	}
 	Quit ..MaakOfferteData()
 ]]></Implementation>
 </Method>
 
+<Method name="BerekenTarief">
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim TotaalTarief As %Decimal = 0
+	
+	#dim PalettenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..PalettenBepaler.GeefPaletten(..BerekenInput))
+	While PalettenIterator.HasNext()
+	{
+		#dim Palet As APPS.TRANSP.OfferteService.dto.Palet = PalettenIterator.Next()
+		Set TotaalTarief = TotaalTarief + ..TariefBepaler.GeefTarief(..BerekenInput.LeverAdres.LandCode, ..BerekenInput.LeverAdres.Postcode,Palet.Afmeting, Palet.Gewicht) 
+	}
+	Quit TotaalTarief
+]]></Implementation>
+</Method>
+
 <Method name="ThrowExceptie">
 <Private>1</Private>
 <Implementation><![CDATA[