Index: PRBS.mac.rou
===================================================================
diff -u -r1419 -r1672
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1419)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 1672)
@@ -558,6 +558,7 @@
  .Set BSRec=^PRBS("BS",PRNr,BSKey)
  .Quit:$P(BSRec,D,3)'="K" ; geen kindproduct
  .Set KPRNr=$P(BSRec,D),Aantal=$P(BSRec,D,2),OrgVerp=$P(BSRec,D,12)
+ .Quit:'Aantal
  .Set R=Aantal_D_OrgVerp,^PRLINK("D",PRNr,KPRNr)=R
  Do KPBLDIND(PRNr)
  Quit
@@ -603,7 +604,12 @@
  .Do BLDIND(PRNr)
  .Do KPSAVE(PRNr)
  Quit
- 
+  
+BLDALLLINK ; Heropbouwen van alle indexen en PRLINK
+ Set PRNr=""
+ For  Set PRNr=$O(^PRBS("BS",PRNr))  Quit:PRNr=""  Do
+ .Do KPSAVE(PRNr)
+ Quit
 DELOBJ(PRNr,NoSaLijst) ; Verwijderen bouwsteen (zonder locking)
  New NoSa,BSNode,I
  Set:$G(NoSaLijst)="" NoSaLijst="N;S"