Index: Sys/FOP/SubTaskArchief.cls.xml
===================================================================
diff -u -r1074 -r1785
--- Sys/FOP/SubTaskArchief.cls.xml	(.../SubTaskArchief.cls.xml)	(revision 1074)
+++ Sys/FOP/SubTaskArchief.cls.xml	(.../SubTaskArchief.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="DocName">
@@ -19,14 +19,19 @@
 <Parameter name="MAXLEN" value="100"/>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-///   Sleutels voor de zoekengine
-///  Property ArchiefSleutels As %String [ Collection = array ];
+<Method name="ToString">
+<Description>
+    Sleutels voor de zoekengine
+   Property ArchiefSleutels As %String [ Collection = array ];
+   </Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ToString = ""
+	Set:(..DocName'="" || (..DocPath'= "")) ToString = "Archief : "_..DocPath_"\"_..DocName 
+	Quit ToString
+]]></Implementation>
+</Method>
 
-]]></Content>
-</UDLText>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>SubTaskArchiefDefaultData</DefaultData>
@@ -38,7 +43,6 @@
 <Subscript>"ArchiefSleutels"</Subscript>
 </Data>
 <Data name="SubTaskArchiefDefaultData">
-<Structure>listnode</Structure>
 <Subscript>"SubTaskArchief"</Subscript>
 <Value name="1">
 <Value>DocName</Value>
@@ -48,7 +52,6 @@
 </Value>
 </Data>
 <Data name="SubTaskArchiefState">
-<Structure>listnode</Structure>
 <Subscript>"Sys.FOP.SubTaskArchief"</Subscript>
 <Value name="1">
 <Value>DocName</Value>
Index: BL/Flow/Offerte/Doc.cls.xml
===================================================================
diff -u -r1074 -r1785
--- BL/Flow/Offerte/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1074)
+++ BL/Flow/Offerte/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
@@ -22,6 +22,29 @@
 <Default>A</Default>
 </Parameter>
 
+<Method name="ToString">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>lbOfferte:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ToString = ..#DocName_" ("
+	
+	Set OfferteNr = $LG(lbOfferte,1)
+	Set BronType = $LG(lbOfferte,2)	
+	Set ToString = ToString _"Nr: "_OfferteNr
+	
+	If $Data(^KOFKL1(OfferteNr,"F")){
+		Set KLNr=$P(^KOFKL1(OfferteNr,"F"),"\")
+		Set ToString = ToString_", KlantNr: "_KLNr
+	}
+		
+	Set ToString = ToString _ ", BronType: "_BronType_")"
+		
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Method name="ValidateOFFNr">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>OFFNr:%String,KLNr:%String</FormalSpec>
Index: BL/Sys/FOP/SubTaks.cls.xml
===================================================================
diff -u
--- BL/Sys/FOP/SubTaks.cls.xml	(revision 0)
+++ BL/Sys/FOP/SubTaks.cls.xml	(revision 1785)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.Sys.FOP.SubTaks">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ToString">
+<Type>%Library.String</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}="ToString Niet Geimplementeerd."</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^BL.Sys.FOP.SubTaksS</StreamLocation>
+</Storage>
+</Class>
+</Export>
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>
Index: csp/fopqueue.cls.xml
===================================================================
diff -u -r1074 -r1785
--- csp/fopqueue.cls.xml	(.../fopqueue.cls.xml)	(revision 1074)
+++ csp/fopqueue.cls.xml	(.../fopqueue.cls.xml)	(revision 1785)
@@ -7,7 +7,20 @@
 <IncludeCode>%VHMacro</IncludeCode>
 <Language>cache</Language>
 <Super>%CSP.Page</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
+<Parameter name="CSPFILE">
+<Default>c:\cache\cache2005v021\csp\admin1\FOPQueue.csp</Default>
+</Parameter>
+
+<Parameter name="CSPURL">
+<Default>/csp/admin1/FOPQueue.csp</Default>
+</Parameter>
+
+<Parameter name="FileTimestamp">
+<Default>62308,62343</Default>
+</Parameter>
+
 <Method name="BuildHRef">
 <ClassMethod>1</ClassMethod>
 <CodeMode>code</CodeMode>
@@ -18,7 +31,6 @@
  #define QryVal(%v)   query.GetDataByName(%v)
  	New sDomain,sDomFull,sRef
  	Quit ""
- 
 ]]></Implementation>
 </Method>
 
@@ -28,9 +40,7 @@
 <FormalSpec>PrioCode</FormalSpec>
 <Language>cache</Language>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
- 	Quit ##class(Sys.FOP.QueueItem).GetMaxBusyTasks(PrioCode)
- 
+<Implementation><![CDATA[ 	Quit ##class(Sys.FOP.QueueItem).GetMaxBusyTasks(PrioCode)
 ]]></Implementation>
 </Method>
 
@@ -475,11 +485,11 @@
  	/***   SQL STATEMENTS   ***/
  	/***   ==============   ***/
  	; SQL-statement for FOP Queue 
- 	Set sqlFOP="SELECT Top 100  ID,Status,Priority,RunMode,Task,Task->KeyWords As Task_KeyWords, Created,Started,Finished,(InternePersoonInits || ' - ' || InternePersoon) As InternePersoon "
+ 	Set sqlFOP="SELECT Top 100  ID,Status,Priority,RunMode,Task,Task->KeyWords As Task_KeyWords,Task->ActionToString As Action,Task->DocInfo, Created,Started,Finished,(InternePersoonInits || ' - ' || InternePersoon) As InternePersoon "
  	Set sqlFOP=sqlFOP_$C(13,10)_"  FROM Sys_FOP.TaskQueue  WHERE (ID > 1) "
  	Set sqlFOP=sqlFOP_$C(13,10)_"  ORDER BY StatusNum DESC, ID, Priority DESC "
  	; SQL-statement for FOP QueueArchive 
- 	Set sqlArchive="SELECT ID,Status,Priority,RunMode,Task,Task->KeyWords As Task_KeyWords, Created,Started,Finished,(InternePersoonInits || ' - ' || InternePersoon) As InternePersoon "
+ 	Set sqlArchive="SELECT ID,Status,Priority,RunMode,Task,Task->KeyWords As Task_KeyWords,Task->ActionToString, Task->DocInfo ,Created,Started,Finished,(InternePersoonInits || ' - ' || InternePersoon) As InternePersoon "
  	Set sqlArchive=sqlArchive_$C(13,10)_"  FROM Sys_FOP.QueueArchive "
  	Set sqlArchive=sqlArchive_$C(13,10)_"  WHERE Created BETWEEN '"_##class(Sys.cTimeStamp).LogicalToDisplay(+$H)_"' and '"_##class(Sys.cTimeStamp).LogicalToDisplay(+$H+1)_"'"
  	Set sqlArchive=sqlArchive_$C(13,10)_"  ORDER BY ID DESC"
@@ -524,7 +534,6 @@
  	Set CspPageTitle="FOP Queue"_$S($G(blnFOPNOW):"", $G(blnFOPCNT):" Count", $G(blnFOPARCHIVE):" Archive", $G(blnFOPLevBon):" LevBons", 1:"")
  	Set CurMaxBT=..GetMaxBusyTask("")
  	Quit 1
- 
 ]]></Implementation>
 </Method>
 
@@ -539,7 +548,6 @@
  	Set ^Sys.FOP.Settings("Scheduler","MaxBusyTask")=NewMaxBT
  	Do:($G(blnTrigger,1)) ##class(BL.Sys.FOP.Scheduler).Trigger()
  	Quit ""
- 
 ]]></Implementation>
 </Method>
 
@@ -552,7 +560,6 @@
 <Implementation><![CDATA[
  	Set sc=##class(BL.Sys.FOP.Scheduler).Stop()
  	Quit "SysFopScheduler "_$S(sc=0:"is niet actief.", $$$ISERR(sc):"is NIET correct gestopt! "_$$$CRLF_"Error :"_$$ParseStatus^vhLib(sc), 1:"is correct gestopt.")
- 
 ]]></Implementation>
 </Method>
 
@@ -565,20 +572,7 @@
 <Implementation><![CDATA[
  	Do ##class(BL.Sys.FOP.Scheduler).Trigger()
  	Quit ""
- 
 ]]></Implementation>
 </Method>
-
-<Parameter name="CSPFILE">
-<Default>c:\cachesys\csp\admin1\FOPQueue.csp</Default>
-</Parameter>
-
-<Parameter name="CSPURL">
-<Default>/csp/admin1/FOPQueue.csp</Default>
-</Parameter>
-
-<Parameter name="FileTimestamp">
-<Default>62105,37022</Default>
-</Parameter>
 </Class>
 </Export>
Index: Sys/FOP/SubTaskMail.cls.xml
===================================================================
diff -u -r1074 -r1785
--- Sys/FOP/SubTaskMail.cls.xml	(.../SubTaskMail.cls.xml)	(revision 1074)
+++ Sys/FOP/SubTaskMail.cls.xml	(.../SubTaskMail.cls.xml)	(revision 1785)
@@ -7,7 +7,7 @@
 <ClassType>serial</ClassType>
 <IncludeCode>%VHMacro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%SerialObject</Super>
+<Super>BL.Sys.FOP.SubTask</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Aan">
@@ -59,13 +59,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ToString = ""
+	If (..From'="" || (..Aan'="")){	
+		Set StrippedFrom = $TR(..From,"<>","") 
+		Set StrippedAan = $TR($$LCVT^vhLib(..Aan),"<>","") 
+		If (($Length(..CC)>0) && ($LL(..CC) > 0) &&($LG(..CC,1) '= "")){ Set StrippedCC = ", CC: "_$TR($$LCVT^vhLib(..CC),"<>","") }	
+		If (($Length(..BCC)>0) && ($LL(..BCC) > 0) &&($LG(..BCC,1) '= "")){ Set StrippedBCC = ", BCC: "_$TR($$LCVT^vhLib(..BCC),"<>","") }
+		Set ToString = ToString_"Mail : "_StrippedFrom_" -> "_StrippedAan_$G(StrippedCC)_$G(StrippedBCC)
+	}
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>SubTaskMailDefaultData</DefaultData>
 <State>SubTaskMailState</State>
 <StreamLocation>^Sys.FOP.SubTaskMailS</StreamLocation>
 <Data name="SubTaskMailDefaultData">
-<Structure>listnode</Structure>
 <Subscript>"SubTaskMail"</Subscript>
 <Value name="1">
 <Value>Aan</Value>
@@ -81,7 +95,6 @@
 </Value>
 </Data>
 <Data name="SubTaskMailState">
-<Structure>listnode</Structure>
 <Subscript>"Sys.FOP.SubTaskMail"</Subscript>
 <Value name="1">
 <Value>Aan</Value>
Index: BL/Flow/Order/Doc.cls.xml
===================================================================
diff -u -r1074 -r1785
--- BL/Flow/Order/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1074)
+++ BL/Flow/Order/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
@@ -28,6 +28,32 @@
 <Default>KyoceraFS4000</Default>
 </Parameter>
 
+<Method name="ToString">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>lbOrders:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	
+	Set ToString = ..#DocName_" ("	
+	For i=1:1:$LL(lbOrders) {
+		Set tmpLB=$LB($LI(lbOrders,i))
+		Set OrderNr = $LG(tmpLB,1)
+		
+		Set ToString = ToString_"Nr: "_OrderNr
+		
+		If $Data(^KO1(OrderNr,"F")){
+			Set KLNr = $P(^KO1(OrderNr,"F"),"\")
+			Set ToString = ToString_", KlantNr:"_KLNr
+		}		
+		
+		If (i'=$LL(lbOrders)) Set ToString = ToString_";  "
+	}		
+	Set ToString = ToString_")"
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Method name="ValidateORDNr">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ORDNr:%String,KLNr:%String</FormalSpec>
Index: BL/Flow/Factuur/Doc.cls.xml
===================================================================
diff -u -r1074 -r1785
--- BL/Flow/Factuur/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1074)
+++ BL/Flow/Factuur/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
@@ -32,6 +32,29 @@
 <Type>%String</Type>
 </Property>
 
+<Method name="ToString">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>lbFacturen:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ToString = ..#DocName_" ("
+	Set FactSoort="F"
+	
+	For i=1:1:$LL(lbFacturen) {
+		Set tmpLB=$LI(lbFacturen,i)	 
+		Set FactuurNr = $LG(tmpLB,1)
+		Set ToString = ToString _"Nr: "_FactuurNr
+		If $Data(^KFA(FactSoort,FactuurNr,0,0)){
+			Set KLNr=$P(^KFA(FactSoort,FactuurNr,0,0),"\",1)
+			Set ToString = ToString _ ", KlantNr: "_KLNr
+		}	
+	}
+	Set ToString = ToString_")"
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Method name="ValidateFactNr">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>FactType:%String,FANr:%String,KLNr:%String</FormalSpec>
Index: Sys/FOP/SubTaskPrint.cls.xml
===================================================================
diff -u -r1074 -r1785
--- Sys/FOP/SubTaskPrint.cls.xml	(.../SubTaskPrint.cls.xml)	(revision 1074)
+++ Sys/FOP/SubTaskPrint.cls.xml	(.../SubTaskPrint.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="Printer">
@@ -44,6 +44,15 @@
 <Parameter name="MAXLEN" value="100"/>
 </Property>
 
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ToString = ""
+	Set:(..Printer'="") ToString = ToString_"Printer: "_..Printer_" (LogoPaper:"_..LogoPaper_", PapierLade:"_..PapierLade_", RectoVerso:"_..RectoVerso_")"
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>SubTaskPrintDefaultData</DefaultData>
Index: WV FOP DocBase.prj.xml
===================================================================
diff -u -r1682 -r1785
--- WV FOP DocBase.prj.xml	(.../WV FOP DocBase.prj.xml)	(revision 1682)
+++ WV FOP DocBase.prj.xml	(.../WV FOP DocBase.prj.xml)	(revision 1785)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="WV FOP DocBase" LastModified="2011-07-14 10:57:21" TargetType="0" HttpServer="http://Cache02:1972">
+<Project name="WV FOP DocBase" LastModified="2011-08-05 15:37:54" TargetType="0" HttpServer="http://Cache02:1972">
   <Items>
     <ProjectItem name="/csp/admin1/FOPQueue.csp" type="CSP"/>
     <ProjectItem name="/csp/admin1/FOPTask.csp" type="CSP"/>
@@ -12,9 +12,14 @@
     <ProjectItem name="BL.Sys.FOP.Common.INC" type="MAC"/>
     <ProjectItem name="BL.Sys.FOP.CommonTasks" type="CLS"/>
     <ProjectItem name="BL.Sys.FOP.Data" type="CLS"/>
+    <ProjectItem name="BL.Sys.FOP.DataMgr" type="CLS"/>
+    <ProjectItem name="BL.Sys.FOP.DataXML" type="CLS"/>
     <ProjectItem name="BL.Sys.FOP.DocBase" type="CLS"/>
     <ProjectItem name="BL.Sys.FOP.Interface" type="CLS"/>
     <ProjectItem name="BL.Sys.FOP.Scheduler" type="CLS"/>
+    <ProjectItem name="BL.Sys.FOP.SubTaks" type="CLS"/>
+    <ProjectItem name="BL.Sys.FOP.SubTask" type="CLS"/>
+    <ProjectItem name="BL.Sys.FOP.TaskMgr" type="CLS"/>
     <ProjectItem name="BL.Sys.FOP.Test" type="CLS"/>
     <ProjectItem name="BL.Sys.FOP.Verwerker" type="CLS"/>
     <ProjectItem name="BL.Sys.FOP.Verwerker.tmpDev.MAC" type="MAC"/>
Index: BL/Flow/Pakbon/Doc.cls.xml
===================================================================
diff -u -r1074 -r1785
--- BL/Flow/Pakbon/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1074)
+++ BL/Flow/Pakbon/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
@@ -43,6 +43,20 @@
 <Default>BL.Flow.Pakbon.PakbonXML</Default>
 </Parameter>
 
+<Method name="ToString">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BonNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	
+	Set ToString = ..#DocName_" ("	
+	Set ToString = ToString_"Nr: "_BonNr		
+	Set ToString = ToString_")"
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Method name="GetADBTemplate">
 <Description>
 Ophalen van de ADBTemplate (stapled of not stapled) </Description>
Index: BL/Flow/Toelevering/Doc.cls.xml
===================================================================
diff -u -r1074 -r1785
--- BL/Flow/Toelevering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1074)
+++ BL/Flow/Toelevering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
@@ -28,6 +28,25 @@
 <Default>BROTHERBOEKH</Default>
 </Parameter>
 
+<Method name="ToString">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Toeleveringen:%List</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ToeleveringNr = $LG(Toeleveringen,1)
+	Set ToString = ..#DocName_" ("	
+	Set ToString = ToString_"Nr: "_ToeleveringNr
+	If $Data(^KTO1(ToeleveringNr)) {
+		Set ToString = ToString_", LevNr: "_$P(^KTO1(ToeleveringNr),"\")
+	}
+	
+	Set ToString = ToString_")"	
+	
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Method name="ValidateTOENr">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>TOENr:%String,LEVNr:%String</FormalSpec>
Index: Sys/FOP/SubTaskFTP.cls.xml
===================================================================
diff -u -r1074 -r1785
--- Sys/FOP/SubTaskFTP.cls.xml	(.../SubTaskFTP.cls.xml)	(revision 1074)
+++ Sys/FOP/SubTaskFTP.cls.xml	(.../SubTaskFTP.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="FtpServer">
@@ -50,6 +50,15 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ToString = ""
+	Set:(..FromPath'="" || (..DestDir'= "") || (..DestFName'="")) ToString = "FTP : "_..FromPath_" -> "_..DestDir_"\"_..DestFName_"("_..UserName_","_..PassWord_")"
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>SubTaskFTPState</State>
Index: BL/Flow/TransportLijst/Doc.cls.xml
===================================================================
diff -u -r1074 -r1785
--- BL/Flow/TransportLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1074)
+++ BL/Flow/TransportLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
@@ -45,6 +45,46 @@
 <Default>LEVBON_PS</Default>
 </Parameter>
 
+<Method name="ToString">
+<Description>
+Aanmaken van het TransportLijst-proxy object
+Als $LI(lbCrit)="TRANSP" 
+   - 2de item : Transportnr
+Als $LI(lbCrit)="TOER" 
+   - 2de item : VanDatum ($H format)
+   - 3de item : TotDatum ($H format)
+   - 4de item : VerzendWijze
+Als $LI(lbCrit)="BONS" 
+   - 2de item : List van BONNr
+   
+   </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TransportLijst:%List</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	Set TYPE = $LG(TransportLijst,1)
+	Set ToString = ..#DocName_" ("_TYPE_" => "	
+	If (TYPE = "TRANSP"){
+		Set ToString = ToString_"Nr: "_$LG(TransportLijst,2)
+	}ElseIf (TYPE = "TOER"){
+		Set ToString = ToString_"Van: "_$zd($LG(TransportLijst,2),4)
+		Set ToString = ToString_", Tot: "_$zd($LG(TransportLijst,3),4)
+		Set ToString = ToString_", VerzendWijze: "_$LG(TransportLijst,4)
+	}ElseIf (TYPE = "BONS"){
+		Set BonNrs = $LG(TransportLijst,2)
+		Set ToString = ToString_"BonNrs: "
+		For i=1:1:$LL(BonNrs) {
+			Set ToString = ToString_$LG(BonNrs,i)
+			If (i'= $LL(BonNrs)) Set ToString = ToString_", "
+		}
+	}	
+	Set ToString = ToString_")"	
+	
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Method name="RenderAndFileDoc">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[TransportNr:%String,&FilePath:%String]]></FormalSpec>
Index: Sys/FOP/emDoc.cls.xml
===================================================================
diff -u -r1074 -r1785
--- Sys/FOP/emDoc.cls.xml	(.../emDoc.cls.xml)	(revision 1074)
+++ Sys/FOP/emDoc.cls.xml	(.../emDoc.cls.xml)	(revision 1785)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="Sys.FOP.emDoc">
 <ClassType>serial</ClassType>
-<IncludeCode>%VHMacro</IncludeCode>
+<IncludeCode>%VHMacro,vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SerialObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -304,6 +304,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ToString = ""
+	Set ToString = ..DataType_", "
+	Set ToString = ToString_"Taal: "_..Taal_", "	
+	
+	Set Class = $LI(..DataDefsLB,2)
+	Set ToString = ToString_"'"_Class_"'"
+	
+	If ($$$IsClassMethod(Class,"ToString")) {
+		Set ToString = $zobjclassmethod($LI(..DataDefsLB,2),"ToString",$LI(..DataDefsLB,4))   
+	}Else{
+		Set ToString = $$LCVT^vhLib(..DataDefsLB)
+	} 
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>emDocState</State>
Index: BL/Sys/FOP/SubTask.cls.xml
===================================================================
diff -u
--- BL/Sys/FOP/SubTask.cls.xml	(revision 0)
+++ BL/Sys/FOP/SubTask.cls.xml	(revision 1785)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.Sys.FOP.SubTask">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ToString">
+<Type>%Library.String</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}="ToString Niet Geimplementeerd."</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^BL.Sys.FOP.SubTaskS</StreamLocation>
+</Storage>
+</Class>
+</Export>
Index: Sys/FOP/emDocMulti.cls.xml
===================================================================
diff -u -r1074 -r1785
--- Sys/FOP/emDocMulti.cls.xml	(.../emDocMulti.cls.xml)	(revision 1074)
+++ Sys/FOP/emDocMulti.cls.xml	(.../emDocMulti.cls.xml)	(revision 1785)
@@ -465,6 +465,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ToString = ""
+	Set AantalDocs = ..Docs.Count()
+	For i=1:1:AantalDocs {
+		Set Doc = ..Docs.GetAt(i)
+		If AantalDocs > 1 {
+			Set ToString = ToString_" [Doc"_i_"] "
+		}
+		Set ToString = ToString_Doc.ToString()
+		
+	}
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>emDocMultiState</State>
Index: BL/Flow/PrijsLijst/Doc.cls.xml
===================================================================
diff -u -r1074 -r1785
--- BL/Flow/PrijsLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1074)
+++ BL/Flow/PrijsLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
@@ -28,6 +28,19 @@
 <Default>KyoceraFS4000</Default>
 </Parameter>
 
+<Method name="ToString">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Klanten:%List</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+		
+	Set ToString = ..#DocName_" ("	
+	Set ToString = ToString_"KlantNr: "_$LG(Klanten,1)
+	Set ToString = ToString_")"
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Method name="ValidateKLNr">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KLNr:%String</FormalSpec>
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>
Index: WV FOP Proxy.prj.xml
===================================================================
diff -u -r1030 -r1785
--- WV FOP Proxy.prj.xml	(.../WV FOP Proxy.prj.xml)	(revision 1030)
+++ WV FOP Proxy.prj.xml	(.../WV FOP Proxy.prj.xml)	(revision 1785)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:47">
-<Project name="WV FOP Proxy" LastModified="2011-02-10 11:33:23" Target="DiffTime^vhDTyp" TargetType="2">
+<Export generator="Cache" version="9">
+<Project name="WV FOP Proxy" LastModified="2011-08-10 15:02:30" Target="DiffTime^vhDTyp" TargetType="2">
   <Items>
     <ProjectItem name="APPS.HR.WerknemersLijstBijBrand.dto.Statuut" type="CLS"/>
     <ProjectItem name="APPS.HR.WerknemersLijstBijBrand.dto.Werkgever" type="CLS"/>
@@ -89,6 +89,7 @@
     <ProjectItem name="BL.Sys.FOP.Common.INC" type="MAC"/>
     <ProjectItem name="BL.Sys.FOP.DataMgr" type="CLS"/>
     <ProjectItem name="BL.Sys.FOP.DataXML" type="CLS"/>
+    <ProjectItem name="BL.Sys.FOP.SubTask" type="CLS"/>
     <ProjectItem name="BL.Sys.FOP.TaskMgr" type="CLS"/>
     <ProjectItem name="DCBON.MAC" type="MAC"/>
     <ProjectItem name="DCFAKT.MAC" type="MAC"/>
@@ -130,11 +131,18 @@
     <ProjectItem name="Flow.Uitlevering.Lijn" type="CLS"/>
     <ProjectItem name="Flow.Uitlevering.RecuPak" type="CLS"/>
     <ProjectItem name="PVXMLFakt.MAC" type="MAC"/>
+    <ProjectItem name="Sys.FOP.SubTaskArchief" type="CLS"/>
+    <ProjectItem name="Sys.FOP.SubTaskFTP" type="CLS"/>
+    <ProjectItem name="Sys.FOP.SubTaskFax" type="CLS"/>
+    <ProjectItem name="Sys.FOP.SubTaskMail" type="CLS"/>
+    <ProjectItem name="Sys.FOP.SubTaskPrint" type="CLS"/>
+    <ProjectItem name="Sys.FOP.Task" type="CLS"/>
+    <ProjectItem name="Sys.FOP.emDoc" type="CLS"/>
+    <ProjectItem name="Sys.FOP.emDocMulti" type="CLS"/>
     <ProjectItem name="WS.FOP.StatusServer" type="CLS"/>
     <ProjectItem name="WS.SOAPClientExt" type="CLS"/>
     <ProjectItem name="WV.FaktuurPrint.MAC" type="MAC"/>
     <ProjectItem name="zTryout.CSC.Try" type="CLS"/>
   </Items>
 </Project>
-<Checksum value="3442751593"/>
 </Export>
Index: JBL Product AMF.prj.xml
===================================================================
diff -u -r1727 -r1785
--- JBL Product AMF.prj.xml	(.../JBL Product AMF.prj.xml)	(revision 1727)
+++ JBL Product AMF.prj.xml	(.../JBL Product AMF.prj.xml)	(revision 1785)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="JBL Product AMF" LastModified="2011-08-01 17:40:26">
+<Project name="JBL Product AMF" LastModified="2011-08-04 11:37:38">
   <Items>
     <ProjectItem name="%Prod.Product.INC" type="MAC"/>
     <ProjectItem name="APPS.PM.KenmerkenService" type="CLS"/>
@@ -88,6 +88,7 @@
     <ProjectItem name="WS.Prod.Select" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110627x1157" type="CLS"/>
     <ProjectItem name="vhDeploy.JBL.Deploy20110714x0848" type="CLS"/>
+    <ProjectItem name="vhDeploy.JBL.Deploy20110804x11122" type="CLS"/>
     <ProjectItem name="vhDeploy.JBL.vhDeploy20110629x1147" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.PM.OL.MasterAutoGenerator" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.PM.TestKenmerkenService" type="CLS"/>
Index: Default_JorenB.prj.xml
===================================================================
diff -u -r1507 -r1785
--- Default_JorenB.prj.xml	(.../Default_JorenB.prj.xml)	(revision 1507)
+++ Default_JorenB.prj.xml	(.../Default_JorenB.prj.xml)	(revision 1785)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="Default_JorenB" LastModified="2011-06-21 10:45:05">
+<Project name="Default_JorenB" LastModified="2011-07-14 17:27:05">
   <Items>
     <ProjectItem name="APPS.CRM.impl.InlezenKlantGegevens" type="CLS"/>
     <ProjectItem name="APPS.Halux.Planning.dto.ActieParameter" type="CLS"/>
@@ -59,6 +59,7 @@
     <ProjectItem name="vhDeploy.Deploy0003" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy201105261322" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy201105301430" type="CLS"/>
+    <ProjectItem name="vhDeploy.JBL.Deploy20110714x1725" type="CLS"/>
     <ProjectItem name="vhLib.Logger" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.CRM.TestKlantBestand" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.CRM.TestMaakKlant" type="CLS"/>
Index: BL/Flow/Levering/Doc.cls.xml
===================================================================
diff -u -r1074 -r1785
--- BL/Flow/Levering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1074)
+++ BL/Flow/Levering/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
@@ -44,6 +44,28 @@
 <Default>6</Default>
 </Parameter>
 
+<Method name="ToString">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>lbLevering:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ToString = ..#DocName_" ("
+	
+	Set BonNr = $LG(lbLevering,1)
+	Set ShowRembours = $LG(lbLevering,2)	
+	Set ToString = ToString _"Nr: "_BonNr
+	
+	If $Data(^KU1(BonNr,"F")){
+		Set KLNr=$P(^KU1(BonNr,"F"),"\",1)
+		Set ToString = ToString_", KlantNr: "_KLNr
+	}
+	Set ToString = ToString _ ", ShowRembours: "_ShowRembours_")"
+		
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Method name="ValidateBONNr">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BONNr:%String,KLNr:%String</FormalSpec>
Index: _csp/admin1/FOPQueue.csp
===================================================================
diff -u -r757 -r1785
--- _csp/admin1/FOPQueue.csp	(.../FOPQueue.csp)	(revision 757)
+++ _csp/admin1/FOPQueue.csp	(.../FOPQueue.csp)	(revision 1785)
@@ -290,7 +290,7 @@
 	Set sqlFOP=sqlFOP_$C(13,10)_"  FROM Sys_FOP.TaskQueue  WHERE (ID > 1) "
 	Set sqlFOP=sqlFOP_$C(13,10)_"  ORDER BY StatusNum DESC, ID, Priority DESC "
 	; SQL-statement for FOP QueueArchive 
-	Set sqlArchive="SELECT ID,Status,Priority,RunMode,Task,Task->KeyWords As Task_KeyWords, Created,Started,Finished,(InternePersoonInits || ' - ' || InternePersoon) As InternePersoon "
+	Set sqlArchive="SELECT ID,Status,Priority,RunMode,Task,Task->KeyWords As Task_KeyWords,Task->ActionToString, Task->DocInfo ,Created,Started,Finished,(InternePersoonInits || ' - ' || InternePersoon) As InternePersoon "
 	Set sqlArchive=sqlArchive_$C(13,10)_"  FROM Sys_FOP.QueueArchive "
 	Set sqlArchive=sqlArchive_$C(13,10)_"  WHERE Created BETWEEN '"_##class(Sys.cTimeStamp).LogicalToDisplay(+$H)_"' and '"_##class(Sys.cTimeStamp).LogicalToDisplay(+$H+1)_"'"
 	Set sqlArchive=sqlArchive_$C(13,10)_"  ORDER BY ID DESC"
Index: WS/EC/UserServer.cls.xml
===================================================================
diff -u -r1762 -r1785
--- WS/EC/UserServer.cls.xml	(.../UserServer.cls.xml)	(revision 1762)
+++ WS/EC/UserServer.cls.xml	(.../UserServer.cls.xml)	(revision 1785)
@@ -136,7 +136,7 @@
 	$$$WebServiceTrap
 	$$$ReInstateSession(SessionKey)
 	$$$blToegang
-	
+	 
 	Set:$G(ZoekType)=$C(0) ZoekType=""
 	Set %Logging=$$AddToLog^BL.EC.Common($$$logGrpToegang,$$$tgKlantSelect,"ZoekKlant","Crit:"_$G(Criteria)_";Type:"_$G(ZoekType))
 	Quit:(Criteria="")||(Criteria=$C(0)) ""
Index: BL/Flow/Pakbon/PakbonXML.cls.xml
===================================================================
diff -u -r1074 -r1785
--- BL/Flow/Pakbon/PakbonXML.cls.xml	(.../PakbonXML.cls.xml)	(revision 1074)
+++ BL/Flow/Pakbon/PakbonXML.cls.xml	(.../PakbonXML.cls.xml)	(revision 1785)
@@ -9,6 +9,22 @@
 <Default>DOCS</Default>
 </Parameter>
 
+<Method name="ToString">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>lbPakbon:%List</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+		
+	Set PakbonNr = $LG(lbPakbon,1)
+	Set ToString = "PakbonXML ("	
+	Set ToString = ToString_"Nr: "_PakbonNr
+	Set Hoofding = ##class(Flow.OrderWMS.Hoofding).%OpenId(PakbonNr)
+	Set ToString = ToString_", KlantNr: "_Hoofding.Klant.Nummer
+	Set ToString = ToString_")"
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Method name="BuildProxyDoc">
 <Description>
 Aanmaken van het proxy-object "DOCS" dat de proxy-facturen bevat. 
Index: BL/Flow/Rappel/Doc.cls.xml
===================================================================
diff -u -r1074 -r1785
--- BL/Flow/Rappel/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1074)
+++ BL/Flow/Rappel/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
@@ -28,6 +28,33 @@
 <Default>KyoceraFS4000</Default>
 </Parameter>
 
+<Method name="ToString">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Rappels:%List</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	
+	#define KLNr(%v)       $LI(%v,1)
+	#define RapDatum(%v)   $LG(%v,2)
+	#define Exemp(%v)      $LG(%v,3)
+	#define RapType(%v)    $LG(%v,4)
+	#define IncRap(%v)     $LG(%v,5)	
+	
+	Set ToString = ..#DocName_" ("	
+	For i=1:1:$LL(Rappels) {
+		Set Rappel=$LI(Rappels,i)		
+		Set ToString = ToString_"KlantNr: "_$$$KLNr(Rappel)
+		Set ToString = ToString_", Datum: "_$zd($$$RapDatum(Rappel),4)
+		Set ToString = ToString_", Exemp: "_$$$Exemp(Rappel)
+		Set ToString = ToString_", RapType: "_$$$RapType(Rappel)
+		Set ToString = ToString_", IncRap: "_$$$IncRap(Rappel)
+	}
+	Set ToString = ToString_")"	
+	
+	Quit ToString
+]]></Implementation>
+</Method>
+
 <Method name="IncrementRappelNr">
 <Description>
 Verhogen van de rappelnrs op de facturen.