Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r40578 -r40579
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 40578)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 40579)
@@ -498,7 +498,6 @@
 		#Dim DragerIDs as %ArrayOfDataTypes
 		Set DragerIDs = ..GeefDragerIDsVanBon(MogelijkeDragersVoorKlant,.DragerLookup)
 		if DragerIDs.Count(){
-			Do ##class(Tools.Wlip).%New(207).String(" count " _ DragerIDs.Count())
 			#dim Sleutel As TECH.String = "LEV:"_ ##class(DOM.PM.enu.DragerType).Probox()
 			Do ..Opmerkingen.Insert( ##class(Res.Vertaling).GetVertaling("DOC", Sleutel,"L", Taal)_" ("_DragerIDs.Count()_") : " _ ##class(TECH.ArrayUtils).ArrayKeysToPieces(DragerIDs,", "))
 		}
@@ -583,8 +582,7 @@
 	Set IDArray = ##class(%ArrayOfDataTypes).%New()
 	
 	Set DragerTypeBepaler = ##class(DOM.PM.impl.DragerTypeBepaler).%New()
-	#Dim ORDNr as %String = ""
-	
+	#Dim ORDNr as %String = ""	
 	for { Set ORDNr=$Order(Lookup(ORDNr)) quit:ORDNr="" 
 		#Dim PRNr as %String = ""
 		Set PRNr=$Order(Lookup(ORDNr,PRNr))