Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r40575 -r40578
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 40575)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 40578)
@@ -494,11 +494,14 @@
 	Set KLRec5=$$$KLRec(5)
 	For I=3:1:5 Do:($L($P(KLRec5,"\",I))) ..Opmerkingen.Insert($P(KLRec5,"\",I))
 	
-	if KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie() {
-		#Dim DragerIDs as %String
-		Set DragerIDs = ##class(TECH.ArrayUtils).ArrayKeysToPieces(..GeefDragerIDsVanBon(MogelijkeDragersVoorKlant,.DragerLookup),", ")
-		#dim Sleutel As TECH.String = "LEV:"_ ##class(DOM.PM.enu.DragerType).Probox()
-		Do ..Opmerkingen.Insert( ##class(Res.Vertaling).GetVertaling("DOC", Sleutel,"L", Taal)_" : " _ DragerIDs)
+	if (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie() ! KlantID = ##class(DOM.VKP.enu.Klant).HaefeleNederland() ) {
+		#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,", "))
+		}
 	}
 
 	; Verzendwijze