Index: EWRCPBL.mac.rou
===================================================================
diff -u -r38734 -r41120
--- EWRCPBL.mac.rou	(.../EWRCPBL.mac.rou)	(revision 38734)
+++ EWRCPBL.mac.rou	(.../EWRCPBL.mac.rou)	(revision 41120)
@@ -58,6 +58,8 @@
  ...Set BLId=$P(RecVL,D,8) ; Identnr van de vervoerlijst
  ...Set QuitFlag = VHId'=BLId
  ...Quit:QuitFlag  ; Verschillend produkt
+ ...Set QuitFlag = $P(^KTO(LEVNr,TOENr,$P(Key,D,3)),D,3)'=$P(RecVL,D,10)
+ ...Quit:QuitFlag  ; Verschillend aantal
  ...Set QuitFlag = '$P(^KPR(PRNr,2),D,15)
  ...Quit:QuitFlag  ; Manueel product
  ...Set QuitFlag = '$$CHKCONTR(LEVNr,TOENr,$P(Key,D,3),$P(RecVL,D,12))
@@ -174,3 +176,4 @@
 
 
 
+