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 @@
 
 
 
+
Index: VERV.mac.rou
===================================================================
diff -u -r29059 -r41120
--- VERV.mac.rou	(.../VERV.mac.rou)	(revision 29059)
+++ VERV.mac.rou	(.../VERV.mac.rou)	(revision 41120)
@@ -146,7 +146,7 @@
  Set PR="" Set:TR&(UZ) PR=$P($G(^KTO(LC,TR,UZ)),D,2)
  I 'PR G OVDNON
  I $E($TR($P(^KPR(PR,2),D,25),".",""),2,99)'=$P(^Verv(LC,"D",VRF,FAKRF,LRF),D,8) G OVDNON ; Identnummer verschillend
- I '$P(^KPR(PR,1),D,20),$P($G(^KTO(LC,TR,UZ)),D,3)'=$P(^Verv(LC,"D",VRF,FAKRF,LRF),D,11) G OVDNON ; Aantal verschillend voor NIET-stock producten
+ I $P($G(^KTO(LC,TR,UZ)),D,3)'=$P(^Verv(LC,"D",VRF,FAKRF,LRF),D,11) G OVDNON ; Aantal verschillend voor NIET-stock producten
  Set OGD=OGD+1
  S $P(^Verv(LC,"D",VRF,FAKRF,LRF),D,16)="I"
  Set FP=1525 W @F,$J(OGD,4) D ^VERVI G OVD1
@@ -192,3 +192,5 @@
 Z X ^cZ Q
 ZZ ; 13.09.91 -  8 u 16
 
+
+