Index: vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml
===================================================================
diff -u -r73780 -r74232
--- vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 73780)
+++ vhUnitTest/APPS/TRANSP/Transsmart/impl/RequestDataBouwer/Test.cls.xml	(.../Test.cls.xml)	(revision 74232)
@@ -69,9 +69,69 @@
 ]]></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 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"
+	#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"
+	#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())	
@@ -82,13 +142,15 @@
 	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"
@@ -101,12 +163,14 @@
 	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 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"
@@ -118,13 +182,15 @@
 	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"
@@ -136,13 +202,15 @@
 	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"
@@ -154,6 +222,7 @@
 	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>