Index: Sys/FOP/SubTaskFax.cls.xml
===================================================================
diff -u -r1074 -r1785
--- Sys/FOP/SubTaskFax.cls.xml	(.../SubTaskFax.cls.xml)	(revision 1074)
+++ Sys/FOP/SubTaskFax.cls.xml	(.../SubTaskFax.cls.xml)	(revision 1785)
@@ -6,7 +6,7 @@
 Een opdracht bevat een of meerdere te verwerken documenten en een of meerdere actions</Description>
 <ClassType>serial</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%SerialObject</Super>
+<Super>BL.Sys.FOP.SubTask</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="FaxNr">
@@ -52,14 +52,21 @@
 <Type>Derde.Fax.UitgaandeFaxen</Type>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-///      ClassMethod FaxSendPDF(RecipientNr As %String, RecipientName As %String, SenderName As %String, Subject As %String, FilePath As %String, OnErrorMailTo As %String) As %Status
-///      s sc=##class(BL.Sys.FOP.Test).FaxSendPDF("037601919","Dummy","WimV@VH","Test001 van WimV",fp,"wv@vanhoecke.be") w sc,!
+<Method name="ToString">
+<Description>
+      ClassMethod FaxSendPDF(RecipientNr As %String, RecipientName As %String, SenderName As %String, Subject As %String, FilePath As %String, OnErrorMailTo As %String) As %Status
+      s sc=##class(BL.Sys.FOP.Test).FaxSendPDF("037601919","Dummy","WimV@VH","Test001 van WimV",fp,"wv@vanhoecke.be") w sc,!</Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ToString = ""
+	If ((..FaxNr'="")){
+		Set ToString = "Fax : "_..FaxNr
+		If (..FilePath '= "") Set ToString = " ( FilePath: "_..FilePath_")" 	
+	}
+	Quit ToString
+]]></Implementation>
+</Method>
 
-]]></Content>
-</UDLText>
-
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>SubTaskFaxState</State>