Index: vhDeploy/D20201117xHaefeleKlantKortingBestandenFtpNaarVhisie4.cls.xml
===================================================================
diff -u
--- vhDeploy/D20201117xHaefeleKlantKortingBestandenFtpNaarVhisie4.cls.xml	(revision 0)
+++ vhDeploy/D20201117xHaefeleKlantKortingBestandenFtpNaarVhisie4.cls.xml	(revision 62856)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20201117xHaefeleKlantKortingBestandenFtpNaarVhisie4">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>ConfigItem Haefele Ftp klantkortingbestanden naar vhisie4</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	if (##class(TECH.Config.ConfigMgr).Instance().GeefOmgeving() = "PROD") || (##class(TECH.Context.RuntimeContext).Instance().GeefServerNaam()="CACHEACCEPT2010"){
+		Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("FtpVhisie4MPKlantKortingBestanden",$$$True)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Korting/impl/EDIVerwerker.cls.xml
===================================================================
diff -u -r58718 -r62856
--- APPS/VKP/Korting/impl/EDIVerwerker.cls.xml	(.../EDIVerwerker.cls.xml)	(revision 58718)
+++ APPS/VKP/Korting/impl/EDIVerwerker.cls.xml	(.../EDIVerwerker.cls.xml)	(revision 62856)
@@ -23,14 +23,26 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FtpApi">
+<Type>TECH.Ftp.FtpAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Verwerker:APPS.common.EDI.EDIVerwerker="",KortingFactory:APPS.VKP.Korting.KortingFactory</FormalSpec>
+<FormalSpec>Verwerker:APPS.common.EDI.EDIVerwerker="",KortingFactory:APPS.VKP.Korting.KortingFactory,FtpApi:TECH.Ftp.FtpAPI="",ConfigMgr:TECH.Config.ConfigMgr=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <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())
+	Set ..ConfigMgr = $$$Inject(ConfigMgr,##class(TECH.Config.ConfigMgr).Instance())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -52,9 +64,29 @@
 	#dim KortingService As APPS.VKP.Korting.KortingService = ..KortingFactory.GeefKortingService(PersonalityID)
 	#dim VolledigeBestandNaam As %String = ##class(TECH.Files).AppendFile(DirRead,FileOfSubDir)
 	Do KortingService.StelInKortingenUitBestand(VolledigeBestandNaam,PersonalityID)
+	Do ..VerzendKortingBestandNaarVhisie4(VolledigeBestandNaam)
 ]]></Implementation>
 </Method>
 
+<Method name="VerzendKortingBestandNaarVhisie4">
+<FormalSpec>VolledigeBestandNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if ..ConfigMgr.GeefString("FtpVhisie4MPKlantKortingBestanden") = "1" {
+		#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()
+		} else {
+			Set FtpConfig = ##class(AX.Uitgaand.EC.impl.FTPConfig).%New().GeefConfigTest()
+		}
+		Set FtpConfig.ServerBestandsLocatie = "mup_customers/cron"
+		Do ..FtpApi.Connecteer(FtpConfig)
+		Do ..FtpApi.VerzendBestand(VolledigeBestandNaam, BestandsNaam )
+		Do ..FtpApi.VerbreekVerbinding()
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefPersonalityVanBestand">
 <FormalSpec>BestandNaam:%String</FormalSpec>
 <Private>1</Private>