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>