Index: KF0.mac.rou
===================================================================
diff -u -r1273 -r1481
--- KF0.mac.rou	(.../KF0.mac.rou)	(revision 1273)
+++ KF0.mac.rou	(.../KF0.mac.rou)	(revision 1481)
@@ -12,7 +12,7 @@
 M4 S MSG="MUNT PRODUKT NIET GELIJK AAN MUNT "_UOU G MY
 M5 S MSG="PRODUKT IN GEBRUIK" G MY
 M6 S MSG="GEEN MUNTKODE VOOR DIT PRODUKT" G MY
-M7 S MSG="NIET-STOCK PRODUKT ZONDER PRAKTISCHE VOORRAAD" G MY
+M7 S MSG="NIET-STOCK PRODUKT MET BOUWSTENEN ZONDER PRAKTISCHE VOORRAAD" G MY
 M8 S MSG="GEEN GROOTVERPAKKING VOOR DIT PRODUKT" G MY
 M9 S MSG="EEN NORMAAL ORDER MAG GEEN 8-PRODUKTEN BEVATTEN" G MY
 M10 S MSG="EEN AFROEP ORDER MAG ENKEL STOCKPRODUKTEN BEVATTEN" G MY
@@ -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 G M7
+ I 'PSN,UAF,PraStock<1,$D(^PRBS("BS",PR)) G M7
  I 'PSN,UAF,PraStock<1 D M13 G 9:K="-"
 13 I 'BackGrnd D IDPROD
  G M14:$E(PID)=7