Index: vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml
===================================================================
diff -u -r33177 -r33484
--- vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 33177)
+++ vhUnitTest/APPS/TRANSP/UPS/impl/OfferteBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 33484)
@@ -32,6 +32,7 @@
 	#dim BerekenInput As APPS.TRANSP.OfferteService.dto.BerekenInput = ##class(APPS.TRANSP.OfferteService.dto.BerekenInput).%New()
 	Set BerekenInput.Referentie = "1"
 	Set BerekenInput.GewensteLeverDatum = ..GeefGeldigeDatum()
+	Set BerekenInput.VroegsteAfhaalDatum = ..GeefHuidigeDatum()
 	Set BerekenInput.LeverAdres = ##class(APPS.TRANSP.dto.InternationaalAdres).%New()
 	Set BerekenInput.LeverAdres.ProvincieCode = ""
 	Set BerekenInput.LeverAdres.LandCode = "DE"
@@ -44,7 +45,6 @@
 		Set TeverzendItem.WaardeGoederen = Item * 10
 		Set TeverzendItem.Gewicht = Item * 5
 		Set TeverzendItem.Afmeting = Item * 500
-		Set TeverzendItem.DatumBeschikbaar = ##class(TECH.DateTime).TextToDate(Item_"/03/2016")
 		Do BerekenInput.TeVerzendenItems.Insert(TeverzendItem)
 	}
 	
@@ -53,13 +53,19 @@
 </Method>
 
 <Method name="GeefGeldigeDatum">
+<Private>1</Private>
 <ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[
-	Set HuidigeDatum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
-	Quit ##class(TECH.DateTime).DatumBereken(HuidigeDatum,10, ##class(TECH.enu.DatePart).Dag())
+<Implementation><![CDATA[	Quit ##class(TECH.DateTime).DatumBereken(..GeefHuidigeDatum(),10, ##class(TECH.enu.DatePart).Dag())
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHuidigeDatum">
+<Private>1</Private>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+]]></Implementation>
+</Method>
+
 <Method name="GeefTransportOfferte">
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.OfferteService.dto.OfferteData</ReturnType>