Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r34832 -r34872
--- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 34832)
+++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 34872)
@@ -58,9 +58,9 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(OfferteDataResult.Items.Count(), 1)
-	Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).LeverDag,"Mon")
-	Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).Duurtijd,4)
-	Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).LeverDatum,64040)
+	Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).LeverDag,"Wed")
+	Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).Duurtijd,6)
+	Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).LeverDatum,64042)
 	Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).LeverTijd,43200)
 ]]></Implementation>
 </Method>
Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml
===================================================================
diff -u -r34832 -r34872
--- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 34832)
+++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml	(.../OfferteBerekenaar.cls.xml)	(revision 34872)
@@ -108,9 +108,10 @@
 	Set OfferteItem.Kostprijs = ..TransportTarief
 
 	#dim VroegsteAfhaalDag As TECH.enu.Day = ##class(TECH.DateUtils).DayNumber(..BerekenInput.VroegsteAfhaalDatum)
-	
-	Set OfferteItem.Duurtijd = ..TransportDuur.DuurtijdPerWeekdagNr.GetAt(VroegsteAfhaalDag)
-	Set OfferteItem.LeverDatum = ##class(TECH.DateTime).DatumBereken(..BerekenInput.VroegsteAfhaalDatum, OfferteItem.Duurtijd, ##class(TECH.enu.DatePart).Dag())
+
+	#dim DuurtijdInWerkDagen As %Integer = ..TransportDuur.DuurtijdPerWeekdagNr.GetAt(VroegsteAfhaalDag)
+	Set OfferteItem.LeverDatum = ..BerekenLeverDag(..BerekenInput.VroegsteAfhaalDatum,DuurtijdInWerkDagen)
+	Set OfferteItem.Duurtijd = ##class(TECH.DateTime).DatumVerschil(..BerekenInput.VroegsteAfhaalDatum, OfferteItem.LeverDatum)
 	Set OfferteItem.LeverDag = ..GeefLeverDagAfkorting(##class(TECH.DateUtils).DayNumber(OfferteItem.LeverDatum))
 	Set OfferteItem.LeverTijd = ##class(%Library.Time).DisplayToLogical("12:00")
 	Set OfferteItem.OphaalDatum = ..BerekenInput.VroegsteAfhaalDatum
@@ -120,6 +121,34 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BerekenLeverDag">
+<FormalSpec>AfhaalDatum:%Date,DuurtijdInWerkDagen:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	#dim Leverdatum As %Date = AfhaalDatum
+	
+	While DuurtijdInWerkDagen > 0 
+	{
+		Set Leverdatum = ##class(TECH.DateTime).DatumBereken(Leverdatum, 1, ##class(TECH.enu.DatePart).Dag())
+		#dim VroegsteAfhaalDag As TECH.enu.Day = ##class(TECH.DateUtils).DayNumber(Leverdatum)
+		If ..IsWeekDag(VroegsteAfhaalDag)
+		{
+			Set DuurtijdInWerkDagen = DuurtijdInWerkDagen - 1
+		}
+	}
+	Quit Leverdatum
+]]></Implementation>
+</Method>
+
+<Method name="IsWeekDag">
+<FormalSpec>DagNummer:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (DagNummer < 6)
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeverDagAfkorting">
 <FormalSpec>WeekDayNumber:%Integer</FormalSpec>
 <Private>1</Private>