Index: Sys/FOP/SubTaskFTP.cls.xml
===================================================================
diff -u -r1835 -r2038
--- Sys/FOP/SubTaskFTP.cls.xml	(.../SubTaskFTP.cls.xml)	(revision 1835)
+++ Sys/FOP/SubTaskFTP.cls.xml	(.../SubTaskFTP.cls.xml)	(revision 2038)
@@ -50,6 +50,31 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Property name="DeleteAfterSend">
+<Description>
+Optioneel; leeg=default </Description>
+<Type>%Boolean</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FtpServer:%String,FromPath:%String,DestDir:%String,DestFName:%String,UserName:%String,PassWord:%String,Port:%Integer,BinaryFtp:%Boolean,DeleteAfterSend:%Boolean=0</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..FtpServer=FtpServer
+	Set ..FromPath=$G(FromPath)
+	Set ..DestDir=$G(DestDir)
+	Set ..DestFName=$G(DestFName)
+	Set ..UserName=$G(UserName)
+	Set ..PassWord=$G(PassWord)
+	Set ..Port=$G(Port)
+	Set ..BinaryFtp=$G(BinaryFtp)
+	Set ..DeleteAfterSend=DeleteAfterSend
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -90,6 +115,9 @@
 <Value name="8">
 <Value>UserName</Value>
 </Value>
+<Value name="9">
+<Value>DeleteAfterSend</Value>
+</Value>
 </Data>
 </Storage>
 </Class>