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>