Index: PRBS.mac.rou
===================================================================
diff -u -r2589 -r2614
--- PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 2589)
+++ PRBS.mac.rou	(.../PRBS.mac.rou)	(revision 2614)
@@ -725,6 +725,33 @@
  For  Set BSKey=$O(^PRBS("BS",MPRNr,BSKey)) Quit:BSKey=""  Set BSRec=^PRBS("BS",MPRNr,BSKey) Set:$P(BSRec,D,3)="K" AantKind=AantKind+$P(BSRec,D,2)
  Quit AantKind
  
+ ; Ophalen van de reletie moeder, kinderen en kleinkinderen
+Moeder2KindRecursief(MPRNr,Moeder2Kind)
+ New BSKey,KBSKey,Rec,KPRNr,KKPRNr,StockOverKind,LinkQty,KKLinkQty
+ Set StockOverKind=$P(^KPR(MPRNr,0),D,23)="S"
+ Set (Moeder2Kind(MPRNr),Moeder2Kind("M",MPRNr))=1
+ If $D(^PRBS("BS",MPRNr)) Do
+ .Set BSKey=""
+ .For  Set BSKey=$O(^PRBS("BS",MPRNr,BSKey)) Quit:BSKey=""  Do
+ ..Set Rec=^PRBS("BS",MPRNr,BSKey)
+ ..Quit:$P(Rec,D,3)'="K"
+ ..Set KPRNr=$P(Rec,D)
+ ..Quit:'KPRNr
+ ..Set LinkQty=$P(Rec,D,2)
+ ..Quit:(+LinkQty)'>0
+ ..Set (Moeder2Kind(KPRNr),Moeder2Kind("K",KPRNr))=LinkQty
+ ..If StockOverKind,$D(^PRBS("BS",KPRNr)) Do  ; Indien stock over kinderen de kleinkinderen aflopen
+ ...Set KBSKey=""
+ ...For  Set KBSKey=$O(^PRBS("BS",KPRNr,KBSKey)) Quit:KBSKey=""  Do
+ ....Set Rec=^PRBS("BS",KPRNr,KBSKey)
+ ....Quit:$P(Rec,D,3)'="K"
+ ....Set KKPRNr=$P(Rec,D)
+ ....Quit:'KKPRNr
+ ....Set KKLinkQty=$P(Rec,D,2)
+ ....Quit:(+KKLinkQty)'>0
+ ....Set (Moeder2Kind(KKPRNr),Moeder2Kind("KK",KKPRNr))=(LinkQty*KKLinkQty)
+ Quit
+ 
 BouwSteenTypes(MPRNr)
  New BSRec,Types,BSKey
  Set Types="",BSKey=""