Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml
===================================================================
diff -u -r60459 -r60473
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 60459)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 60473)
@@ -11,13 +11,19 @@
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Do ##super()
-	Set ..Bouwer = ##class(APPS.TRANSP.Transsmart.impl.RequestDataBouwer).%New()
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	Set ..Bouwer = ##class(APPS.TRANSP.Transsmart.impl.RequestDataBouwer).%New(##class(TECH.Context).Instance().GeefDateTimeAPI())
 ]]></Implementation>
 </Method>
 
 <Method name="Test doBooking DHL">
 <Implementation><![CDATA[
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+
 	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoColli()
+	#dim Datum as %Date = +(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())	
+	Set LeveringInfo.AfleverDatum = ##class(TECH.DateTime).BerekenWerkdag(Datum,1)
+
 	Set RitMock = ##class(vhTest.Mock.DOM.TRANSP.Rit).%New()
 	Do RitMock.VerwachtMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).DHL())
 	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
@@ -29,7 +35,12 @@
 
 <Method name="Test doBooking VRD">
 <Implementation><![CDATA[
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Do ##class(Tools.Wlip).%New(207).String(DateTimeAPI)
 	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroPallet()
+	#dim Datum as %Date = +(DateTimeAPI.CurrentHorolog())	
+	Set LeveringInfo.AfleverDatum = ##class(TECH.DateTime).BerekenWerkdag(Datum,1)
 	Set RitMock = ##class(vhTest.Mock.DOM.TRANSP.Rit).%New()
 	Do RitMock.VerwachtMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).VRD())
 	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
@@ -39,6 +50,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test doBooking VRD Magazijn werkt op voorhand">
+<Implementation><![CDATA[
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	Do ##class(Tools.Wlip).%New(207).String(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())
+	Do ##class(Tools.Wlip).%New(207).String(##class(TECH.DateTime).GeefDatumInPuntNotatie(+(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())))
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroPallet()
+	#dim Datum as %Date = +(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())	
+	Set LeveringInfo.AfleverDatum = ##class(TECH.DateTime).BerekenWerkdag(Datum,2)
+	Set RitMock = ##class(vhTest.Mock.DOM.TRANSP.Rit).%New()
+	Do RitMock.VerwachtMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).VRD())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestVRDLeveringVolgendeWerkdag.xml", "")
+	Do RitMock.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
 <Method name="Test doDelete">
 <Implementation><![CDATA[
 	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoDeleteRequest(..GeefVerzendDataVoorAnnulatie()), "doDeleteRequest.xml", "")