Index: EWPAL2.mac.rou
===================================================================
diff -u -r734 -r1275
--- EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 734)
+++ EWPAL2.mac.rou	(.../EWPAL2.mac.rou)	(revision 1275)
@@ -45,12 +45,13 @@
  .For  Set LUNr=$O(^RCP("D",RCPNr,"D",BONNr,LUNr)) Quit:LUNr=""  Do
  ..Set SubLNr=""
  ..Quit:$P(^RCP("D",RCPNr,"D",BONNr,LUNr),D,2)="I"  ; Reeds ingeboekt
+ ..Quit:$P(^RCP("D",RCPNr,"D",BONNr,LUNr),D,1)'=MPRNr  ; Moeder product
  ..For  Set SubLNr=$O(^RCP("D",RCPNr,"D",BONNr,LUNr,SubLNr)) Quit:SubLNr=""  Do
  ...Set Rec=^RCP("D",RCPNr,"D",BONNr,LUNr,SubLNr)
  ...Quit:$P(Rec,D,1)'=KPRNr
  ...Quit:'$P(Rec,D,7)  ; Nog niet gestockeerd
  ...If $L($G(PalId)) Quit:$P(Rec,D,5)'=PalId
- ...w BONNr," ",RCPNr," ",KPRNr," ",$P(Rec,D,4),!
+ ...;w BONNr," ",RCPNr," ",LUNr," ",SubLNr," ",MPRNr," ",KPRNr," ",$P(Rec,D,4),!
  ...Set Qty=Qty+$P(Rec,D,4)
  Quit Qty