Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml =================================================================== diff -u -r39721 -r39738 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml (.../Test.cls.xml) (revision 39721) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/Sender/Test.cls.xml (.../Test.cls.xml) (revision 39738) @@ -15,9 +15,15 @@ Do ExportStatusServiceMock.VerwachtMethodCall("Registreer",..Matches.DataTransferObject(BezigResponse)).ExactAantalKeer(1) Set FtpApiMock = ##class(vhTest.Mock.TECH.Ftp.FtpAPI).%New() + + #Dim ConnectionString as %String = "ftpuser:fE2_hpfYFXc-6H78@192.168.100.60" + #Dim ServerBestandsLocatie as %String = "carts" + Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("Vhisie4.WinkelkarExport.FtpConfiguratie.ConnectionString",ConnectionString,..#Applicatie) + Do ##class(TECH.Config.ConfigMgr).Instance().ZetString("Vhisie4.WinkelkarExport.FtpConfiguratie.ServerBestandsLocatie",ServerBestandsLocatie,..#Applicatie) - Set FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New("ftpuser:fE2_hpfYFXc-6H78@192.168.100.60") - Set FtpConfiguratie.ServerBestandsLocatie = "carts" + Set FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New(ConnectionString) + Set FtpConfiguratie.ServerBestandsLocatie = ServerBestandsLocatie + Do FtpApiMock.VerwachtMethodCall("Connecteer",..Matches.DataTransferObject(FtpConfiguratie)).DanDoeNiks() Index: vhDeploy/Deploy20170209Vhisie4WinkelkarExportFTPConfiguratie.cls.xml =================================================================== diff -u --- vhDeploy/Deploy20170209Vhisie4WinkelkarExportFTPConfiguratie.cls.xml (revision 0) +++ vhDeploy/Deploy20170209Vhisie4WinkelkarExportFTPConfiguratie.cls.xml (revision 39738) @@ -0,0 +1,33 @@ + + + +vhDeploy.Deploy + + +%String +Ftp connection string en server directory configuratie + + + +1 + + + + + + Index: WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml =================================================================== diff -u -r39721 -r39738 --- WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml (.../Sender.cls.xml) (revision 39721) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarExport/Sender.cls.xml (.../Sender.cls.xml) (revision 39738) @@ -48,8 +48,8 @@ #dim Response As WS.Vhisie4.WinkelkarExport.SendResponse = ..GeefBezigSendResponse(Winkelkar) Do ..ExportStatusService.Registreer(Response) try { - set FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New("ftpuser:fE2_hpfYFXc-6H78@192.168.100.60") - set FtpConfiguratie.ServerBestandsLocatie = "carts" + set FtpConfiguratie = ##class(TECH.Ftp.FtpConfiguratie).%New(##class(TECH.Config.ConfigMgr).Instance().GeefString("Vhisie4.WinkelkarExport.FtpConfiguratie.ConnectionString")) + set FtpConfiguratie.ServerBestandsLocatie = ##class(TECH.Config.ConfigMgr).Instance().GeefString("Vhisie4.WinkelkarExport.FtpConfiguratie.ServerBestandsLocatie") Do ..FtpAPI.Connecteer(FtpConfiguratie) Do ..FtpAPI.VerzendStream(..GeefXMLStream(Winkelkar),..GeefBestandNaam(Winkelkar) )