Index: EWRCPF.mac.rou
===================================================================
diff -u -r1079 -r2614
--- EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 1079)
+++ EWRCPF.mac.rou	(.../EWRCPF.mac.rou)	(revision 2614)
@@ -103,7 +103,7 @@
 QTYSTAT(RCPNr,BONNr,LUNr) ; Cumulatie receptielijn en status
  ; De aantallen van de sublijnen cumuleren en doorgeven aan de receptielijn, rekening houdend met moeder->kindproducten
  ; De status/errormelding van de sublijn propageren naar receptielijn en verder naar receptiehoofding
- New SubLNr,Qty,MinQty,MaxQty,MPRNr,KPRNr,RCPRec,LRec,SubRec,MKQty,SKQty,CKQty,RCPLCnt,StatCnt,RCPLStat,FStat,EStat,LEStat,LFStat
+ New SubLNr,Qty,MinQty,MaxQty,MPRNr,KPRNr,RCPRec,LRec,SubRec,MKQty,SKQty,CKQty,RCPLCnt,StatCnt,RCPLStat,FStat,EStat,LEStat,LFStat,Factor
  Set LRec=^RCP("D",RCPNr,"D",BONNr,LUNr)
  If $G(^EWLOG("DEBUG"))=2 Write !,LRec
  Set SubLNr=""
@@ -122,10 +122,11 @@
  ;Gecontroleerde goederen
  Set KPRNr=""
  Set MPRNr=$P(LRec,D,1)
+ Do Moeder2KindRecursief^PRBS(MPRNr,.Factor)
  Set MinQty=999999999
  Set MaxQty=-1
  For  Set KPRNr=$O(CKQty(KPRNr)) Quit:KPRNr=""  Do
- .Set Qty=CKQty(KPRNr)\$P($G(^PRLINK("D",MPRNr,KPRNr),1),D)
+ .Set Qty=CKQty(KPRNr)\$P($G(Factor(KPRNr),1),D)
  .Set:Qty<MinQty MinQty=Qty
  .Set:Qty>MaxQty MaxQty=Qty
  Set:MinQty=999999999 MinQty=0
@@ -141,7 +142,7 @@
  Set MinQty=999999999
  Set MaxQty=-1
  For  Set KPRNr=$O(SKQty(KPRNr)) Quit:KPRNr=""  Do
- .Set Qty=SKQty(KPRNr)\$P($G(^PRLINK("D",MPRNr,KPRNr),1),D)
+ .Set Qty=SKQty(KPRNr)\$P($G(Factor(KPRNr),1),D)
  .Set:Qty<MinQty MinQty=Qty
  .Set:Qty>MaxQty MaxQty=Qty
  Set:MinQty=999999999 MinQty=0