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>