Index: BL/Flow/TransportLijst/Doc.cls.xml
===================================================================
diff -u -r1785 -r1798
--- BL/Flow/TransportLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
+++ BL/Flow/TransportLijst/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1798)
@@ -47,22 +47,14 @@
 
 <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>
+[Review JBL  WV FOPQueue]  ik heb de commentaar weggehaald en doorverwezen naar de px-klasse. 
+                           de method impl is O.K. 
+
+Opbouw van de ListBuild TransportLijst : zie klasse BL.Flow.Proxy.pxTransportLijst  method Create() </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"){
@@ -183,7 +175,10 @@
 Als $LI(lbTransport)="TOER" 
    - 2de item : VanDatum ($H format)
    - 3de item : TotDatum ($H format)
-   - 4de item : VerzendWijze</Description>
+   - 4de item : VerzendWijze
+Als $LI(lbTransport)="BONS" 
+   - 2de item : List van BONNr
+</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[lbTransport:%List,Doc:Sys.FOP.emDoc,&sc:%Status]]></FormalSpec>
 <ReturnType>BL.Flow.Proxy.pxTransportLijst</ReturnType>
Index: Sys/FOP/Task.cls.xml
===================================================================
diff -u -r1785 -r1798
--- Sys/FOP/Task.cls.xml	(.../Task.cls.xml)	(revision 1785)
+++ Sys/FOP/Task.cls.xml	(.../Task.cls.xml)	(revision 1798)
@@ -367,48 +367,35 @@
 			Set DocInfo = DocInfo_"[Doc"_i_"] "
 		}
 		Set DocInfo = DocInfo_Doc.ToString()
-		Set DocInfo = DocInfo_"    "
+		Set DocInfo = DocInfo_"    "                  ; [Review JBL  WV FOPQueue]  nieuwe lijn beginnen : is dit mogelijk ?
 	}
 	
 	/// MultiDoc
 	If $IsObject(..DocMulti){
-		Set DocInfo = DocInfo_..DocMulti.ToString()
+		Set DocInfo = DocInfo_..DocMulti.ToString()   ; idem in DocMulti 
 	}
 	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()
+		Set ActieInfo= ActieInfo_..ActionMail.ToString()     ; [Review JBL  WV FOPQueue]  nieuwe lijn beginnen : is dit mogelijk ?
 	}
 	If (..ActionPrint'=""  && $IsObject(..ActionPrint)){
-		Set ActieInfo = ActieInfo_..ActionPrint.ToString()	
+		Set ActieInfo = ActieInfo_..ActionPrint.ToString()	 ; idem voor de andere ActieInfos
 	}
 	If (..ActionFax'="" && $IsObject(..ActionFax)){
-		Set ActieInfo = ActieInfo_..ActionFax.ToString()	
+		Set ActieInfo = ActieInfo_..ActionFax.ToString()
 	}
 	If ..ActionFtp'=""{
-		Set ActieInfo = ActieInfo_..ActionFtp.ToString()	
+		Set ActieInfo = ActieInfo_..ActionFtp.ToString()
 	}
 	If ..ActionFile'=""{
-		Set ActieInfo = ActieInfo_..ActionFile.ToString()	
+		Set ActieInfo = ActieInfo_..ActionFile.ToString()
 	}
 	Quit ActieInfo
 ]]></Implementation>
Index: BL/Flow/Offerte/Doc.cls.xml
===================================================================
diff -u -r1785 -r1798
--- BL/Flow/Offerte/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1785)
+++ BL/Flow/Offerte/Doc.cls.xml	(.../Doc.cls.xml)	(revision 1798)
@@ -31,14 +31,17 @@
 	Set ToString = ..#DocName_" ("
 	
 	Set OfferteNr = $LG(lbOfferte,1)
-	Set BronType = $LG(lbOfferte,2)	
+	Set BronType = $LG(lbOfferte,2)	    ; [Review JBL  WV FOPQueue]  Onderscheid maken tussen BronType = KOF en WS :  komen resp. uit ^KOFKL en uit ^Flow.Offerte.Hoofding 
 	Set ToString = ToString _"Nr: "_OfferteNr
 	
-	If $Data(^KOFKL1(OfferteNr,"F")){
+	If $Data(^KOFKL1(OfferteNr,"F")){   ; [Review JBL  WV FOPQueue]  Dit is deel 1 (KOF) 
 		Set KLNr=$P(^KOFKL1(OfferteNr,"F"),"\")
 		Set ToString = ToString_", KlantNr: "_KLNr
 	}
-		
+	
+	; [Review JBL  WV FOPQueue]  Deel 2 (WS) 
+	; Klasse Flow.Offerte.Hoofding openen en property KlantGetObjectId() opvragen 
+	
 	Set ToString = ToString _ ", BronType: "_BronType_")"
 		
 	Quit ToString
Index: Sys/FOP/emDoc.cls.xml
===================================================================
diff -u -r1785 -r1798
--- Sys/FOP/emDoc.cls.xml	(.../emDoc.cls.xml)	(revision 1785)
+++ Sys/FOP/emDoc.cls.xml	(.../emDoc.cls.xml)	(revision 1798)
@@ -315,8 +315,8 @@
 	Set ToString = ToString_"'"_Class_"'"
 	
 	If ($$$IsClassMethod(Class,"ToString")) {
-		Set ToString = $zobjclassmethod($LI(..DataDefsLB,2),"ToString",$LI(..DataDefsLB,4))   
-	}Else{
+		Set ToString = $zobjclassmethod($LI(..DataDefsLB,2),"ToString",$LI(..DataDefsLB,4))   ; [Review JBL  WV FOPQueue]  $LI(..DataDefsLB,2) vervangen door var Class 
+ 	}Else{
 		Set ToString = $$LCVT^vhLib(..DataDefsLB)
 	} 
 	Quit ToString
Index: Sys/FOP/SubTaskPrint.cls.xml
===================================================================
diff -u -r1785 -r1798
--- Sys/FOP/SubTaskPrint.cls.xml	(.../SubTaskPrint.cls.xml)	(revision 1785)
+++ Sys/FOP/SubTaskPrint.cls.xml	(.../SubTaskPrint.cls.xml)	(revision 1798)
@@ -48,7 +48,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set ToString = ""
-	Set:(..Printer'="") ToString = ToString_"Printer: "_..Printer_" (LogoPaper:"_..LogoPaper_", PapierLade:"_..PapierLade_", RectoVerso:"_..RectoVerso_")"
+	Set:(..Printer'="") ToString = ToString_"Printer: "_..Printer_" (LogoPaper:"_..LogoPaper_", PapierLade:"_..PapierLade_", RectoVerso:"_..RectoVerso_")"   ; [Review JBL  WV FOPQueue]  LogoPapier en Papierlade conditioneel, Rectoverso indien <> 0 
 	Quit ToString
 ]]></Implementation>
 </Method>
Index: Sys/FOP/SubTaskArchief.cls.xml
===================================================================
diff -u -r1785 -r1798
--- Sys/FOP/SubTaskArchief.cls.xml	(.../SubTaskArchief.cls.xml)	(revision 1785)
+++ Sys/FOP/SubTaskArchief.cls.xml	(.../SubTaskArchief.cls.xml)	(revision 1798)
@@ -27,7 +27,8 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set ToString = ""
-	Set:(..DocName'="" || (..DocPath'= "")) ToString = "Archief : "_..DocPath_"\"_..DocName 
+	Set:(..DocName_..DocPath '= "") ToString = "Archief : "_..DocPath_"\"_..DocName   ; [Review JBL  WV FOPQueue]  1. Woordje "Archief" mag gewoon "File" zijn
+	                                                                                  ;                            2. Concat Dir en FileName via  ##class(TECH.Files).AppendFile(,)
 	Quit ToString
 ]]></Implementation>
 </Method>
Index: Sys/FOP/SubTaskFTP.cls.xml
===================================================================
diff -u -r1785 -r1798
--- Sys/FOP/SubTaskFTP.cls.xml	(.../SubTaskFTP.cls.xml)	(revision 1785)
+++ Sys/FOP/SubTaskFTP.cls.xml	(.../SubTaskFTP.cls.xml)	(revision 1798)
@@ -54,7 +54,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set ToString = ""
-	Set:(..FromPath'="" || (..DestDir'= "") || (..DestFName'="")) ToString = "FTP : "_..FromPath_" -> "_..DestDir_"\"_..DestFName_"("_..UserName_","_..PassWord_")"
+	Set:(..FromPath'="" || (..DestDir'= "") || (..DestFName'="")) ToString = "FTP : "_..FromPath_" -> "_..DestDir_"\"_..DestFName_"("_..UserName_","_..PassWord_")"   ; [Review JBL  WV FOPQueue]  Alleen Destination vermelden, rest NIET 
 	Quit ToString
 ]]></Implementation>
 </Method>