Index: TECH/Ftp/FtpConfiguratie.cls.xml
===================================================================
diff -u -r2961 -r3670
--- TECH/Ftp/FtpConfiguratie.cls.xml	(.../FtpConfiguratie.cls.xml)	(revision 2961)
+++ TECH/Ftp/FtpConfiguratie.cls.xml	(.../FtpConfiguratie.cls.xml)	(revision 3670)
@@ -24,6 +24,11 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="UsePASV">
+<Type>%Boolean</Type>
+<InitialExpression>1</InitialExpression>
+</Property>
+
 <Property name="Timeout">
 <Type>%Integer</Type>
 <InitialExpression>10</InitialExpression>
Index: TECH/Ftp/impl/FtpAPI.cls.xml
===================================================================
diff -u -r3497 -r3670
--- TECH/Ftp/impl/FtpAPI.cls.xml	(.../FtpAPI.cls.xml)	(revision 3497)
+++ TECH/Ftp/impl/FtpAPI.cls.xml	(.../FtpAPI.cls.xml)	(revision 3670)
@@ -20,6 +20,8 @@
 	
 	Set ..FtpSessie = ##class(%Net.FtpSession).%New()
 	Set ..FtpSessie.Timeout = Configuratie.Timeout	
+	Set ..FtpSessie.SSLConfiguration = Configuratie.SSLConfiguration
+	Set ..FtpSessie.UsePASV = Configuratie.UsePASV
 	
 	If '..FtpSessie.Connect(Configuratie.Adres,Configuratie.Gebruiker,Configuratie.Paswoord,Configuratie.Poort) {
 		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Ftp kan niet verbinden : "_Configuratie.Adres)