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 + +