Index: Sys/FOP/Task.cls.xml
===================================================================
diff -u -r1074 -r1785
--- Sys/FOP/Task.cls.xml	(.../Task.cls.xml)	(revision 1074)
+++ Sys/FOP/Task.cls.xml	(.../Task.cls.xml)	(revision 1785)
@@ -95,6 +95,20 @@
 <Parameter name="MAXLEN" value="500"/>
 </Property>
 
+<Property name="ActionToString">
+<Type>%Library.String</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}=##class(Sys.FOP.Task).%OpenId({ID}_"||"_{SubID}).GeefActieInfo() </SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
+<Property name="DocInfo">
+<Type>%Library.String</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}=##class(Sys.FOP.Task).%OpenId({ID}_"||"_{SubID}).GeefDocInfo() </SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
 <UDLText name="T">
 <Content><![CDATA[
 /***   Scheduler-related properties   *** /
@@ -339,6 +353,67 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDocInfo">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set DocInfo = ""
+	
+	/// Doc
+	Set Docs = ..Docs
+	Set AantalDocs = Docs.Count()
+	For i=1:1:AantalDocs {
+		Set Doc = Docs.GetAt(i)
+		If (AantalDocs > 1){
+			Set DocInfo = DocInfo_"[Doc"_i_"] "
+		}
+		Set DocInfo = DocInfo_Doc.ToString()
+		Set DocInfo = DocInfo_"    "
+	}
+	
+	/// MultiDoc
+	If $IsObject(..DocMulti){
+		Set DocInfo = DocInfo_..DocMulti.ToString()
+	}
+	Quit DocInfo
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+/
+/	Set 
+	If {ActionPrint}'= "" Set ToString = ToString_{ActionPrint_ToString}_"   "
+	If {ActionMail}'= "" Set ToString = ToString_{ActionMail_ToString}_"   "
+	If {ActionFax}'= "" Set ToString = ToString_{ActionFax_ToString}_"   "
+	If {ActionFtp}'= "" Set ToString = ToString_{ActionFtp_ToString}
+	If {ActionFile}'= "" Set ToString = ToString_{ActionFile_ToString}_"   "*/
+]]></Content>
+</UDLText>
+
+<Method name="GeefActieInfo">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ActieInfo = ""
+	If (..ActionMail'="" && $IsObject(..ActionMail)){
+		Set ActieInfo= ActieInfo_..ActionMail.ToString()
+	}
+	If (..ActionPrint'=""  && $IsObject(..ActionPrint)){
+		Set ActieInfo = ActieInfo_..ActionPrint.ToString()	
+	}
+	If (..ActionFax'="" && $IsObject(..ActionFax)){
+		Set ActieInfo = ActieInfo_..ActionFax.ToString()	
+	}
+	If ..ActionFtp'=""{
+		Set ActieInfo = ActieInfo_..ActionFtp.ToString()	
+	}
+	If ..ActionFile'=""{
+		Set ActieInfo = ActieInfo_..ActionFile.ToString()	
+	}
+	Quit ActieInfo
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^Sys.FOP.TaskD</DataLocation>