Index: WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml
===================================================================
diff -u -r33098 -r33124
--- WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 33098)
+++ WS/EC/Unishop/InternationaleZending/impl/ZendingDetails.cls.xml	(.../ZendingDetails.cls.xml)	(revision 33124)
@@ -30,22 +30,30 @@
 	While TransportFirmas.HasNext() {
 		#dim TransportFirma As %String = TransportFirmas.Next()
 		#dim OfferteData As APPS.TRANSP.OfferteService.dto.OfferteData = ..TransportOfferteService.BerekenOfferte(TransportFirma, BerekenInput)
-		#dim OfferteDataIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(OfferteData.Items)
 		
+		#dim OfferteDataIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(OfferteData.Items)
 		While OfferteDataIterator.HasNext()	{
-			#dim OfferteItem As APPS.TRANSP.OfferteService.dto.OfferteItem = OfferteDataIterator.Next()
-			#dim ZendingDetail As WS.EC.Unishop.InternationaleZending.dto.Detail = ##class(WS.EC.Unishop.InternationaleZending.dto.Detail).%New()
-			Set ZendingDetail.Code = OfferteItem.Code
-			Set ZendingDetail.CarbonNeutral  = OfferteItem.Optie
-			#dim LeverDatum As %Date = ##class(TECH.DateTime).DatumBereken(OfferteItem.OphaalDatum,OfferteItem.Duurtijd, ##class(TECH.enu.DatePart).Dag())
-			Set ZendingDetail.Omschrijving = ##class(TECH.DateTime).GeefDatumInPuntNotatie(LeverDatum) _" " _OfferteItem.Omschrijving _" ? " _OfferteItem.Kostprijs
-			Do ZendingDetails.Items.Insert(ZendingDetail)
+			Do ZendingDetails.Items.Insert(..GeefZendingDetail(OfferteDataIterator.Next()))
 			} 
 		}
 	
 	Quit ZendingDetails
 ]]></Implementation>
 </Method>
+
+<Method name="GeefZendingDetail">
+<FormalSpec>OfferteItem:APPS.TRANSP.OfferteService.dto.OfferteItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.EC.Unishop.InternationaleZending.dto.Detail</ReturnType>
+<Implementation><![CDATA[
+	#dim ZendingDetail As WS.EC.Unishop.InternationaleZending.dto.Detail = ##class(WS.EC.Unishop.InternationaleZending.dto.Detail).%New()
+	Set ZendingDetail.Code = OfferteItem.Code
+	Set ZendingDetail.CarbonNeutral  = OfferteItem.Optie
+	#dim LeverDatum As %Date = ##class(TECH.DateTime).DatumBereken(OfferteItem.OphaalDatum,OfferteItem.Duurtijd, ##class(TECH.enu.DatePart).Dag())
+	Set ZendingDetail.Omschrijving = ##class(TECH.DateTime).GeefDatumInPuntNotatie(LeverDatum) _" " _OfferteItem.Omschrijving _" ? " _OfferteItem.Kostprijs
+	Quit ZendingDetail
+]]></Implementation>
+</Method>
 </Class>