Index: TECH/StringUtils.cls.xml
===================================================================
diff -u -r2234 -r2239
--- TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2234)
+++ TECH/StringUtils.cls.xml	(.../StringUtils.cls.xml)	(revision 2239)
@@ -430,6 +430,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetFirstPart">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>String:%String,Delimiter:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit $piece(String,Delimiter,1)
+]]></Implementation>
+</Method>
+
 <Method name="StripLastPart">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>String:%String,Delimiter:%String</FormalSpec>
Index: TECH/Ftp/FtpConfiguratie.cls.xml
===================================================================
diff -u -r2238 -r2239
--- TECH/Ftp/FtpConfiguratie.cls.xml	(.../FtpConfiguratie.cls.xml)	(revision 2238)
+++ TECH/Ftp/FtpConfiguratie.cls.xml	(.../FtpConfiguratie.cls.xml)	(revision 2239)
@@ -17,6 +17,7 @@
 
 <Property name="Poort">
 <Type>%Integer</Type>
+<InitialExpression>21</InitialExpression>
 </Property>
 
 <Property name="ServerBestandsLocatie">
@@ -25,6 +26,7 @@
 
 <Property name="Timeout">
 <Type>%Integer</Type>
+<InitialExpression>10</InitialExpression>
 </Property>
 
 <Method name="%OnNew">
@@ -37,10 +39,7 @@
 	if (FtpConfiguratie '= "") {
 		Set ..Adres = ##class(TECH.StringUtils).GetLastPart(FtpConfiguratie,"@")
 		Set ..Gebruiker = ##class(TECH.StringUtils).GetFirstPart(FtpConfiguratie,":")
-		Set ..Paswoord =  ##class(TECH.StringUtils).GetLastPart(##class(TECH.StringUtils).StripLastPart(FtpConfiguratie,"@"),":")
-		Set ..ServerBestandsLocatie = ""
-		Set ..Poort = 21
-		Set ..Timeout = 10
+		Set ..Paswoord = ##class(TECH.StringUtils).StripLastPart(##class(TECH.StringUtils).StripFirstPart(FtpConfiguratie,":"),"@")
 	}
 	Quit $$$OK
 ]]></Implementation>