Index: KF0.mac.rou
===================================================================
diff -u -r1481 -r1483
--- KF0.mac.rou	(.../KF0.mac.rou)	(revision 1481)
+++ KF0.mac.rou	(.../KF0.mac.rou)	(revision 1483)
@@ -104,7 +104,7 @@
 12 S:KB<1 PB=0 S X=^(1),UE=$P(X,D,12),PSN=$P(X,D,20),ULT="" G YZ:'$$IsCommAkt^PRODUKT2(PR,KC)
  Set UE="" ; Eeenheid op leeg omdat in ^KPR daar de controlestatus zit CW 11.02.09
 134 S X=@("^"_Q_"PR(PR,2)"),PRE=$P(X,D,9),PID=$P(X,D,25),PraStock=PST-$P(PRE,"#",2)
- I 'PSN,UAF,PraStock<1,$D(^PRBS("BS",PR)) G M7
+ I 'PSN,UAF,PraStock<1,$P($O(^PRBS("BS",PR,"KIND")),".")="KIND" G M7
  I 'PSN,UAF,PraStock<1 D M13 G 9:K="-"
 13 I 'BackGrnd D IDPROD
  G M14:$E(PID)=7