Index: APPS/VKP/Korting/impl/EDIVerwerker.cls.xml
===================================================================
diff -u -r65150 -r65537
--- APPS/VKP/Korting/impl/EDIVerwerker.cls.xml	(.../EDIVerwerker.cls.xml)	(revision 65150)
+++ APPS/VKP/Korting/impl/EDIVerwerker.cls.xml	(.../EDIVerwerker.cls.xml)	(revision 65537)
@@ -68,6 +68,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProjectSettingsAPI">
+<Type>DOM.common.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Verwerker:APPS.common.EDI.EDIVerwerker="",KortingFactory:APPS.VKP.Korting.KortingFactory,FtpApi:TECH.Ftp.FtpAPI="",ConfigMgr:TECH.Config.ConfigMgr=""</FormalSpec>
 <Private>1</Private>
@@ -76,7 +81,11 @@
 <Implementation><![CDATA[
 	Do ##super(Verwerker)
 	Set ..KortingFactory = $$$Implementation(KortingFactory,##class(APPS.VKP.Korting.impl.KortingFactory).%New())
-	Set ..FtpApi = $$$Inject(FtpApi, ##class(TECH.Context).Instance().GeefFtpAPI())
+	If ..ProjectSettingsAPI.IsActiefBiztalkSFTP() {
+		Set ..FtpApi = $$$Inject(FtpApi, ##class(TECH.Ftp.impl.SFtpApiBiztalkBased).%New("BiztalkExportDirectory"))
+	} Else {
+		Set ..FtpApi = $$$Inject(FtpApi, ##class(TECH.Context).Instance().GeefFtpAPI())
+	}
 	Set ..ConfigMgr = $$$Inject(ConfigMgr,##class(TECH.Config.ConfigMgr).Instance())
 	Quit $$$OK
 ]]></Implementation>
@@ -109,12 +118,17 @@
 <Implementation><![CDATA[
 	if ..ConfigMgr.GeefBoolean("FtpVhisie4MPKlantKortingBestanden",$$$False) = $$$True {
 		#dim BestandsNaam as %String = ##class(TECH.File).GeefBestandsnaam(VolledigeBestandNaam)
-		if ##class(TECH.Config.ConfigMgr).Instance().GeefOmgeving() = "PROD" {
-			#dim FtpConfig as TECH.Ftp.FtpConfiguratie = ##class(AX.Uitgaand.EC.impl.FTPConfig).%New().GeefConfigProduction()
+		if ..ProjectSettingsAPI.IsActiefBiztalkSFTP(){
+			Set FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New()
+			Set FtpConfiguratie.ServerBestandsLocatie = "EC Cart Migration"
 		} else {
-			Set FtpConfig = ##class(AX.Uitgaand.EC.impl.FTPConfig).%New().GeefConfigTest()
+			if ##class(TECH.Config.ConfigMgr).Instance().GeefOmgeving() = "PROD" {
+				#dim FtpConfig as TECH.Ftp.FtpConfiguratie = ##class(AX.Uitgaand.EC.impl.FTPConfig).%New().GeefConfigProduction()
+			} else {
+				Set FtpConfig = ##class(AX.Uitgaand.EC.impl.FTPConfig).%New().GeefConfigTest()
+			}
+			Set FtpConfig.ServerBestandsLocatie = "mup_customers/cron"
 		}
-		Set FtpConfig.ServerBestandsLocatie = "mup_customers/cron"
 		Do ..FtpApi.Connecteer(FtpConfig)
 		Do ..FtpApi.VerzendBestand(VolledigeBestandNaam, BestandsNaam )
 		Do ..FtpApi.VerbreekVerbinding()