Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml
===================================================================
diff -u -r66251 -r74663
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 66251)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 74663)
@@ -8,11 +8,17 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProjectSettingsAPI">
+<Type>vhTest.Mock.DOM.common.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	Set ..ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).MockInstance()
 	Set ..Bouwer = ##class(APPS.TRANSP.Transsmart.impl.RequestDataBouwer).%New(##class(TECH.Context).Instance().GeefDateTimeAPI())
 ]]></Implementation>
 </Method>
@@ -47,25 +53,357 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test doBooking VRD">
+<Method name="Test doBooking Dachser Italie">
 <Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroPallet()
+	Set LeveringInfo.LeverAdres.LandCode = "IT"
+	#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).Dachser())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestDachser.xml", "")
+	Do RitMock.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Schenker PREMIUM ESchenker Enabled">
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoWWPalletEnHalve()
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsTranssmartESchenkerConnectieActief").DanReturn($$$True)
+	Set LeveringInfo.GeleverdAanKlantNummer = 37598
+	Set LeveringInfo.EmailAddressTrackTrace ="test@test.com"
+	#dim Datum as %Date = +(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())	
+	Set LeveringInfo.AfleverDatum = ##class(TECH.DateTime).BerekenWerkdag(Datum,1)
+	Set LeveringInfo.LeverAdres.LandCode = "CZ"
+	Set RitMock = ##class(vhTest.Mock.DOM.TRANSP.Rit).%New()
+	Do RitMock.VerwachtMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).Schenker())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestSchenker.xml", "")
+	Do RitMock.Verifieer()
+	Do ..ProjectSettingsAPI.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Schenker PARTLOAD via paletten ESchenker Enabled">
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoWWPalletEnHalve(8,2)
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsTranssmartESchenkerConnectieActief").DanReturn($$$True)
+	Set LeveringInfo.Gewicht = 2000
+	Set LeveringInfo.GeleverdAanKlantNummer = 37598
+	Set LeveringInfo.EmailAddressTrackTrace ="test@test.com"
+	Set LeveringInfo.LeverAdres.LandCode = "CZ"
+	#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).Schenker())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestSchenker.xml", "")
+	Do RitMock.Verifieer()
+	Do ..ProjectSettingsAPI.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Schenker PARTLOAD via gewicht ESchenker Enabled">
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoWWPalletEnHalve(1,1)
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsTranssmartESchenkerConnectieActief").DanReturn($$$True)
+	Set LeveringInfo.Gewicht = 2500
+	Set LeveringInfo.GeleverdAanKlantNummer = 37598
+	Set LeveringInfo.EmailAddressTrackTrace ="test@test.com"
+	Set LeveringInfo.LeverAdres.LandCode = "CZ"
+	#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).Schenker())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestSchenker.xml", "")
+	Do RitMock.Verifieer()
+	Do ..ProjectSettingsAPI.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Schenker PREMIUM">
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoWWPalletEnHalve()
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsTranssmartESchenkerConnectieActief").DanReturn($$$False)
+	Set LeveringInfo.GeleverdAanKlantNummer = 37598
+	Set LeveringInfo.EmailAddressTrackTrace ="test@test.com"
+	#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).Schenker())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestSchenker.xml", "")
+	Do RitMock.Verifieer()
+	Do ..ProjectSettingsAPI.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Schenker FTL voor aantal palletten">
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoWWPalletEnHalve(26,2)
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsTranssmartESchenkerConnectieActief").DanReturn($$$False)
+	Set LeveringInfo.Gewicht = 3000
+	Set LeveringInfo.GeleverdAanKlantNummer = 37598
+	Set LeveringInfo.EmailAddressTrackTrace ="test@test.com"
+	#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).Schenker())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestSchenker.xml", "")
+	Do RitMock.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+	Do ..ProjectSettingsAPI.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Schenker SNB Met ESC NIET actief">
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoWWPalletEnHalve(26,2)
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsTranssmartESchenkerConnectieActief").DanReturn($$$False)
+	Set LeveringInfo.Gewicht = 3000
+	Set LeveringInfo.GeleverdAanKlantNummer = 37598
+	Set LeveringInfo.EmailAddressTrackTrace ="test@test.com"
+	Set LeveringInfo.LeverAdres.LandCode = "PL"
+	#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).Schenker())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+
+	set result = ..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock)
+	do $$$AssertEquals(result.bookingInfo.carrier,"SNB")
+	Do RitMock.Verifieer()
+	Do ..ProjectSettingsAPI.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Schenker Naar Polen voorlopig SNB Met ESC actief">
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoWWPalletEnHalve(26,2)
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsTranssmartESchenkerConnectieActief").DanReturn($$$True)
+	Set LeveringInfo.Gewicht = 3000
+	Set LeveringInfo.GeleverdAanKlantNummer = 37598
+	Set LeveringInfo.EmailAddressTrackTrace ="test@test.com"
+	Set LeveringInfo.LeverAdres.LandCode = "PL"
+	#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).Schenker())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+
+	set result = ..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock)
+	do $$$AssertEquals(result.bookingInfo.carrier,"SNB")
+	Do RitMock.Verifieer()
+	Do ..ProjectSettingsAPI.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Schenker FTL voor gewicht">
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoWWPalletEnHalve(2,2)
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsTranssmartESchenkerConnectieActief").DanReturn($$$False)
+	set LeveringInfo.Gewicht = 19400
+	Set LeveringInfo.GeleverdAanKlantNummer = 37598
+	Set LeveringInfo.EmailAddressTrackTrace ="test@test.com"
+	#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).Schenker())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestSchenker.xml", "")
+	Do RitMock.Verifieer()
+	Do ..ProjectSettingsAPI.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Schenker LTL via paletten">
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoWWPalletEnHalve(8,2)
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsTranssmartESchenkerConnectieActief").DanReturn($$$False)
+	Set LeveringInfo.Gewicht = 2000
+	Set LeveringInfo.GeleverdAanKlantNummer = 37598
+	Set LeveringInfo.EmailAddressTrackTrace ="test@test.com"
+	#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).Schenker())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestSchenker.xml", "")
+	Do RitMock.Verifieer()
+	Do ..ProjectSettingsAPI.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Schenker LTL via gewicht">
+<Implementation><![CDATA[
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoWWPalletEnHalve(1,1)
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsTranssmartESchenkerConnectieActief").DanReturn($$$False)
+	Set LeveringInfo.Gewicht = 2500
+	Set LeveringInfo.GeleverdAanKlantNummer = 37598
+	Set LeveringInfo.EmailAddressTrackTrace ="test@test.com"
+	#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).Schenker())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestSchenker.xml", "")
+	Do RitMock.Verifieer()
+	Do ..ProjectSettingsAPI.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Weiss">
+<Implementation><![CDATA[
+	#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,1)
+
+	Set RitMock = ##class(vhTest.Mock.DOM.TRANSP.Rit).%New()
+	Do RitMock.VerwachtMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).Weiss())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestWeiss.xml", "")
+	Do RitMock.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Dachser Voor Haefele NO incoterms DD4">
+<Implementation><![CDATA[
+	Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+	#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,1)
+	Set LeveringInfo.GeleverdAanKlantNummer = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.HaefeleNoorwegen)
+	Set RitMock = ##class(vhTest.Mock.DOM.TRANSP.Rit).%New()
+	Do RitMock.VerwachtMethodCall("GeefTransporteur").DanReturn(##class(DOM.TRANSP.enu.Transporteur).Dachser())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestDachser.xml", "")
+	Do RitMock.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test VRD Europallet en WW pallet">
+<Implementation><![CDATA[
 	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("VRDEuropallettenDoorgeven").DanReturn($$$true)
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroEnWWPallet()
+	#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)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestVRD.xml", "")
+	Do RitMock.Verifieer()
+	do ..ProjectSettingsAPI.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
 
+<Method name="Test VRD en uitblanken telefoonnummer leveradres indien dit het VH nummer is">
+<Implementation><![CDATA[
+	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("VRDEuropallettenDoorgeven").DanReturn($$$true)
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroEnWWPallet()
+	Set LeveringInfo.LeverAdres.Telefoon = "+3237601900"
+	#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)
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestVRD.xml", "")
+	Do RitMock.Verifieer()
+	do ..ProjectSettingsAPI.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Dachser met costcenter voor OPO">
+<Implementation><![CDATA[
+	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	#dim Datum as %Date = +(DateTimeAPI.CurrentHorolog())
+	Set ..Bouwer = ##class(APPS.TRANSP.Transsmart.impl.RequestDataBouwer).%New(##class(TECH.Context).Instance().GeefDateTimeAPI())
+	
 	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroPallet()
+	Set LeveringInfo.GeleverdAanKlantNummer = 30467
+	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).Dachser())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestDachser.xml", "")
+	
+	Do RitMock.Verifieer()
+	
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking Dachser met costcenter voor OPO Duitsland">
+<Implementation><![CDATA[
+	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	#dim Datum as %Date = +(DateTimeAPI.CurrentHorolog())
+	Set ..Bouwer = ##class(APPS.TRANSP.Transsmart.impl.RequestDataBouwer).%New(##class(TECH.Context).Instance().GeefDateTimeAPI())
+	
+	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroPallet()
+	Set LeveringInfo.GeleverdAanKlantNummer = 39481
+	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).Dachser())
+	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
+	
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestDachser.xml", "")
+	
+	Do RitMock.Verifieer()
+	
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking VRD">
+<Implementation><![CDATA[
+	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("VRDEuropallettenDoorgeven").DanReturn($$$false)
+	#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)
 	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestVRD.xml", "")
 	Do RitMock.Verifieer()
+	do ..ProjectSettingsAPI.Verifieer()
 	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
 
 <Method name="Test doBooking VRD inclusief langgoed om wegwerppalet te kunnen aangeven">
 <Implementation><![CDATA[
 	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("VRDEuropallettenDoorgeven").DanReturn($$$false)
 
 	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoMixMetLanggoed()
 	#dim Datum as %Date = +(DateTimeAPI.CurrentHorolog())	
@@ -75,19 +413,19 @@
 	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
 	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestVRD.xml", "")
 	Do RitMock.Verifieer()
+	Do ..ProjectSettingsAPI.Verifieer()
 	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
 
 <Method name="Test doBooking VRD Met costcenter voor Haefele BE">
 <Implementation><![CDATA[
 	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("VRDEuropallettenDoorgeven").DanReturn($$$false)
 
-	;#dim ProjectSettingsAPI as vhTest.Mock.DOM.common.ProjectSettingsAPI = ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI()	
-	#dim ProjectSettingsAPI as vhTest.Mock.DOM.common.ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).MockInstance()
-	Do ProjectSettingsAPI.VerwachtMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$True)
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsActiefHaefeleBENaarEindklant").DanReturn($$$True)
 	
-	Set ..Bouwer = ##class(APPS.TRANSP.Transsmart.impl.RequestDataBouwer).%New(##class(TECH.Context).Instance().GeefDateTimeAPI(),ProjectSettingsAPI)
+	Set ..Bouwer = ##class(APPS.TRANSP.Transsmart.impl.RequestDataBouwer).%New(##class(TECH.Context).Instance().GeefDateTimeAPI())
 
 	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroPallet()
 	Set LeveringInfo.GeleverdAanKlantNummer = 4875
@@ -98,19 +436,19 @@
 	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
 	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestVRD.xml", "")
 	Do RitMock.Verifieer()
-	Do ProjectSettingsAPI.Verifieer()
+	Do ..ProjectSettingsAPI.Verifieer()
 	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
 
 <Method name="Test doBooking VRD Met costcenter voor Van Raemdonck">
 <Implementation><![CDATA[
 	#dim DateTimeAPI as TECH.DateTime.DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("VRDEuropallettenDoorgeven").DanReturn($$$false)
 
-	#dim ProjectSettingsAPI as vhTest.Mock.DOM.common.ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).MockInstance()
-	Do ProjectSettingsAPI.VerwachtMethodCall("IsActiefVanRaemdonckNaarEindklant").DanReturn($$$True)
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("IsActiefVanRaemdonckNaarEindklant").DanReturn($$$True)
 	
-	Set ..Bouwer = ##class(APPS.TRANSP.Transsmart.impl.RequestDataBouwer).%New(##class(TECH.Context).Instance().GeefDateTimeAPI(),ProjectSettingsAPI)
+	Set ..Bouwer = ##class(APPS.TRANSP.Transsmart.impl.RequestDataBouwer).%New(##class(TECH.Context).Instance().GeefDateTimeAPI())
 
 	#dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoEuroPallet()
 	Set LeveringInfo.GeleverdAanKlantNummer = 1523
@@ -121,7 +459,7 @@
 	Do RitMock.VerwachtMethodCall("GeefID").DanReturn(12345)
 	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoBookingRequest(LeveringInfo,RitMock), "doBookingRequestVRD.xml", "")
 	Do RitMock.Verifieer()
-	Do ProjectSettingsAPI.Verifieer()
+	Do ..ProjectSettingsAPI.Verifieer()
 	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
@@ -146,27 +484,64 @@
 <Implementation><![CDATA[
 	#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())	
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("VRDEuropallettenDoorgeven").DanReturn($$$false)
 	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 ..ProjectSettingsAPI.Verifieer()
 	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
 
-<Method name="Test doBooking VRD Magazijn heeft achterstand">
+<Method name="Test doBooking VRD Magazijn werkt op Lang voorhand">
 <Implementation><![CDATA[
 	#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())	
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("VRDEuropallettenDoorgeven").DanReturn($$$false)
+	
+	Set LeveringInfo.AfleverDatum = ##class(TECH.DateTime).BerekenWerkdag(Datum,4)
+	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 ..ProjectSettingsAPI.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking VRD Een zending wordt te laat verstuurd">
+<Implementation><![CDATA[
+	#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())	
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("VRDEuropallettenDoorgeven").DanReturn($$$false)
+	Set LeveringInfo.AfleverDatum = Datum
+	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 ..ProjectSettingsAPI.Verifieer()
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doBooking VRD Magazijn heeft achterstand">
+<Implementation><![CDATA[
+	#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())
+	Do ..ProjectSettingsAPI.VerwachtMethodCall("VRDEuropallettenDoorgeven").DanReturn($$$false)	
 	;Set LeveringInfo.AfleverDatum = ##class(TECH.DateTime).BerekenWerkdag(Datum,2)
 	Set LeveringInfo.AfleverDatum = Datum
 	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 ..ProjectSettingsAPI.Verifieer()
 	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
@@ -185,6 +560,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test doManifest voor Dachser">
+<Implementation><![CDATA[
+	#dim Datum as %Date = +(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())	
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoManifestRequest("DAC","1234",Datum,Datum+4), "doManifestRequest.xml", "")
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
+<Method name="Test doManifest voor Dachser met transportnr">
+<Implementation><![CDATA[
+	#dim Datum as %Date = +(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog())	
+	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoManifestRequest("DAC","1234",Datum,Datum+4, "12345"), "doManifestRequest.xml", "")
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+]]></Implementation>
+</Method>
+
 <Method name="Test doDelete">
 <Implementation><![CDATA[
 	Do ..DataExporteerder.ExporteerDataTransferObject(..Bouwer.MaakdoDeleteRequest(..GeefVerzendDataVoorAnnulatie()), "doDeleteRequest.xml", "")