Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r36486 -r36515
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36486)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36515)
@@ -49,6 +49,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Bereken() vult details in voor Email OV ">
+<Implementation><![CDATA[
+	#dim AantalPalletten As %Integer = 2
+	#dim OfferteBerekenaar As APPS.TRANSP.Offerte.impl.DHL.OfferteBerekenaar = ..GeefOfferteBerekenaar(AantalPalletten)
+	Do ..AssertOfferteDataDetails(OfferteBerekenaar.Bereken(..GeefBerekenInput()))
+]]></Implementation>
+</Method>
+
+<Method name="AssertOfferteDataDetails">
+<FormalSpec>OfferteDataResult:APPS.TRANSP.OfferteService.dto.OfferteData</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(OfferteDataResult.Details.Count(), 4)
+	Do $$$AssertEquals(OfferteDataResult.Details.GetAt(1),"DHL Pallet:Gewicht 100Kg,Hoogte 1mm,Breedte 1mm,Lengte 1mm")
+	Do $$$AssertEquals(OfferteDataResult.Details.GetAt(2),"DHL Pallet:Gewicht 100Kg,Hoogte 1mm,Breedte 1mm,Lengte 1mm")
+	Do $$$AssertEquals(OfferteDataResult.Details.GetAt(3),"DHL Totaal:Gewicht 200Kg,Tarief 81 euro")
+	Do $$$AssertEquals(OfferteDataResult.Details.GetAt(4),"DHL Transportduur:Aantal dagen 4,Dag Wed,OphaalDatum 28.04.16,LeverDatum 04.05.16")
+]]></Implementation>
+</Method>
+
 <Method name="AssertOfferteDataDuurtijd">
 <FormalSpec>OfferteDataResult:APPS.TRANSP.OfferteService.dto.OfferteData</FormalSpec>
 <Private>1</Private>
Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r36486 -r36515
--- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 36486)
+++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 36515)
@@ -42,13 +42,15 @@
 	
 	#dim ZendingDetails As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden = ##class(WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden).%New()
 	#dim Exceptions As List Of %String = ##class(%ListOfDataTypes).%New()
+	#dim Details As List Of %String = ##class(%ListOfDataTypes).%New()
 	
 	#dim TransportFirmas As TECH.ListIterator = ##class(APPS.TRANSP.enu.TransportFirma).ValueListIterator()
 	While TransportFirmas.HasNext() {
 		#dim TransportFirma As %String = TransportFirmas.Next()
 		try {
 			#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ..TransportOfferteService.BerekenOfferte(TransportFirma, BerekenInput)
-			Do ..VoegToeExcepties(.Exceptions, OfferteData.Exceptions)
+			Do ..VoegToeAanList(.Exceptions, OfferteData.Exceptions)
+			Do ..VoegToeAanList(.Details, OfferteData.Details)
 			#dim OfferteDataIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(OfferteData.Items)
 			While OfferteDataIterator.HasNext()	{
 				Do ZendingDetails.Insert(..GeefZendingDetail(TransportFirma, OfferteDataIterator.Next()))
@@ -60,31 +62,37 @@
 	
 	If (Exceptions.Count() > 0)
 	{
-		Do ..ThrowException(Exceptions)	
+		Do ..ThrowException(Exceptions, Details)	
 	}
-	
 	Quit ZendingDetails
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeExcepties">
-<FormalSpec><![CDATA[&Exceptions:%List,ToeTeVoegenExceptions:%List]]></FormalSpec>
+<Method name="VoegToeAanList">
+<FormalSpec><![CDATA[&ItemList:%List,ToeTeVoegenItems:%List]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim ExceptionsIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ToeTeVoegenExceptions)
-	While ExceptionsIterator.HasNext()
+	#Dim ToeTeVoegenItemsIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ToeTeVoegenItems)
+	While ToeTeVoegenItemsIterator.HasNext()
 	{
-		Do Exceptions.Insert(ExceptionsIterator.Next())
+		Do ItemList.Insert(ToeTeVoegenItemsIterator.Next())
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="ThrowException">
-<FormalSpec>Exceptions:%List</FormalSpec>
+<FormalSpec>Exceptions:%List,Details:%List</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#Dim ExceptionsIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Exceptions)
 	#Dim ExceptionString As TECH.String = ""
+
+	#Dim DetailsIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Details)
+	While DetailsIterator.HasNext()
+	{
+		Set ExceptionString = ExceptionString _$C(13,10) _DetailsIterator.Next()
+	}
+	Set ExceptionString = ExceptionString _$C(13,10) _"-----------------------------------------------------------------------"
+	#Dim ExceptionsIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Exceptions)
 	While ExceptionsIterator.HasNext()
 	{
 		Set ExceptionString = ExceptionString _$C(13,10) _ExceptionsIterator.Next()
Index: WS/EC/Unishop/InternationaleZending/Service.cls.xml
===================================================================
diff -u -r36388 -r36515
--- WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 36388)
+++ WS/EC/Unishop/InternationaleZending/Service.cls.xml	(.../Service.cls.xml)	(revision 36515)
@@ -55,19 +55,21 @@
 <ReturnType>WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden</ReturnType>
 <Implementation><![CDATA[
 	#dim VerzendingMogelijkheden As WS.EC.ExterneVerkoop.dto.VerzendingMogelijkheden 
+	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput
 	try
 	{
 		#dim Verpakkingen As APPS.VKP.Offerte.dto.VerpakkingList = ..OfferteService.GeefProductVerpakkingDetails(OfferteID)
 		#dim LeverAdres As DOM.VKP.LeverAdres = ..OfferteService.GeefLeverAdres(OfferteID)
 		#dim VroegsteAfhaalDatum As %Date = ..GeefVroegsteAfhaalDatum(OfferteID)
 		
-		#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ..NaarBerekenInputConverter.Convert(Verpakkingen, LeverAdres, OfferteID, VroegsteAfhaalDatum)
+		Set BerekenInput = ..NaarBerekenInputConverter.Convert(Verpakkingen, LeverAdres, OfferteID, VroegsteAfhaalDatum)
 		Set VerzendingMogelijkheden = ..ZendingDetails.GeefZendingDetails(BerekenInput, Taal)
 
 		Do ..BewaarVerzendingMogelijkheden(OfferteID, VerzendingMogelijkheden)
 		
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..BewaarVoorMailNaarOV(Exception.ToString(), BerekenInput)
 		Do ##class(WS.EC.Unishop.InternationaleZending.exc.KanNietBerekenen).Throw(Exception.ToString())
 	}
 	Quit VerzendingMogelijkheden
@@ -270,6 +272,13 @@
 	do ##class(TECH.ExceptionHandler).Throw(Exception)
 ]]></Implementation>
 </Method>
+
+<Method name="BewaarVoorMailNaarOV">
+<FormalSpec>Content:%String,BerekenInput:APPS.TRANSP.OfferteService.dto.BerekenInput</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	; respository BerekeningFouten
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r36486 -r36515
--- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 36486)
+++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 36515)
@@ -33,6 +33,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OfferteData">
+<Type>APPS.TRANSP.OfferteService.dto.OfferteData</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>
@@ -43,6 +48,7 @@
 	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 ..StapelingBepaler = $$$Inject(StapelingBepaler, ##class(APPS.TRANSP.Offerte.impl.DHL.StapelingBepaler).%New())
+	Set ..OfferteData = ##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New()
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -52,27 +58,26 @@
 <ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>
 <Implementation><![CDATA[
 	Set ..BerekenInput = BerekenInput
-	#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ##class(APPS.TRANSP.OfferteService.dto.OfferteData).%New()
 
 	Try {
 		Set ..TransportDuur = ..TransportduurRepository.GeefViaLandEnPostCode(BerekenInput.LeverAdres.LandCode,BerekenInput.LeverAdres.Postcode) 
 	} Catch {
-		Do OfferteData.Exceptions.Insert(##class(TECH.ExceptionHandler).Catch().ToString())
+		Do ..OfferteData.Exceptions.Insert(##class(TECH.ExceptionHandler).Catch().ToString())
 	}
 
 	Try {
 		Set ..TransportTarief = ..BerekenTarief()
 	} Catch {
-		Do OfferteData.Exceptions.Insert(##class(TECH.ExceptionHandler).Catch().ToString())
+		Do ..OfferteData.Exceptions.Insert(##class(TECH.ExceptionHandler).Catch().ToString())
 	}
 	
 	try {
-		Do ..MaakOfferteData(.OfferteData)
+		Do ..MaakOfferteData()
 	}catch {
-		Do OfferteData.Exceptions.Insert(##class(TECH.ExceptionHandler).Catch().ToString())
+		Do ..OfferteData.Exceptions.Insert(##class(TECH.ExceptionHandler).Catch().ToString())
 	}
 	
-	Quit OfferteData
+	Quit ..OfferteData
 ]]></Implementation>
 </Method>
 
@@ -87,14 +92,15 @@
 	{
 		#dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = PallettenIterator.Next()
 		Set TotaalGewichtInKg = TotaalGewichtInKg + ..TariefBepaler.BepaalFactureerbaarGewichtInKg(Pallet.Afmeting, Pallet.GewichtInKG)
-
+		Do ..BewaarPalletInDetails(Pallet)
 	}
-	Quit ..TariefBepaler.GeefTarief(..BerekenInput.LeverAdres.LandCode, ..BerekenInput.LeverAdres.Postcode, TotaalGewichtInKg)
+	#dim Tarief As TECH.Decimal = ..TariefBepaler.GeefTarief(..BerekenInput.LeverAdres.LandCode, ..BerekenInput.LeverAdres.Postcode, TotaalGewichtInKg)
+	Do ..BewaarTotalenInDetails(Tarief, TotaalGewichtInKg)
+	Quit Tarief
 ]]></Implementation>
 </Method>
 
 <Method name="MaakOfferteData">
-<FormalSpec><![CDATA[&OfferteData:APPS.TRANSP.OfferteService.dto.OfferteData]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim OfferteItem As APPS.TRANSP.OfferteService.dto.OfferteItem = ##class(APPS.TRANSP.OfferteService.dto.OfferteItem).%New()
@@ -115,7 +121,8 @@
 	Set OfferteItem.LeverTijd = ##class(%Library.Time).DisplayToLogical("12:00")
 	Set OfferteItem.OphaalDatum = ..BerekenInput.VroegsteAfhaalDatum
 	
-	Do OfferteData.Items.Insert(OfferteItem)
+	Do ..OfferteData.Items.Insert(OfferteItem)
+	Do ..BewaarOfferteItemInDetails(OfferteItem)
 ]]></Implementation>
 </Method>
 
@@ -179,6 +186,34 @@
 	Quit ServiceCode
 ]]></Implementation>
 </Method>
+
+<Method name="BewaarPalletInDetails">
+<FormalSpec>Pallet:APPS.TRANSP.OfferteService.dto.Pallet</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Detail As %String = "DHL Pallet:" _"Gewicht " _Pallet.GewichtInKG _"Kg,Hoogte " _Pallet.Afmeting.Hoogte _"mm,Breedte " _Pallet.Afmeting.Breedte _"mm,Lengte " _Pallet.Afmeting.Lengte _"mm"
+	Do ..OfferteData.Details.Insert(Detail)
+]]></Implementation>
+</Method>
+
+<Method name="BewaarTotalenInDetails">
+<FormalSpec>Tarief:TECH.Decimal,TotaalGewichtInKg:TECH.Decimal</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Detail As %String = "DHL Totaal:" _"Gewicht " _TotaalGewichtInKg _"Kg,Tarief " _Tarief _" euro"
+	Do ..OfferteData.Details.Insert(Detail)
+]]></Implementation>
+</Method>
+
+<Method name="BewaarOfferteItemInDetails">
+<FormalSpec>OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Detail As %String = "DHL Transportduur:" _"Aantal dagen " _OfferteItem.Duurtijd _",Dag " _OfferteItem.LeverDag 
+	Set Detail = Detail _",OphaalDatum " _##class(TECH.DateTime).GeefDatumInPuntNotatie(OfferteItem.OphaalDatum) _",LeverDatum " _##class(TECH.DateTime).GeefDatumInPuntNotatie(OfferteItem.LeverDatum)
+	Do ..OfferteData.Details.Insert(Detail)
+]]></Implementation>
+</Method>
 </Class>