Index: EWBON2.mac.rou
===================================================================
diff -u -r734 -r1999
--- EWBON2.mac.rou	(.../EWBON2.mac.rou)	(revision 734)
+++ EWBON2.mac.rou	(.../EWBON2.mac.rou)	(revision 1999)
@@ -43,7 +43,7 @@
 BLDTL(KLNr,RCPNr,BONNr,BLUNr,Qty,BOQty,RCPBRef) 
  ; Verwerken van een terugnamelijn met eventuele opslitsing in verschillende kindproducten
  New BLNr,BLRec,PRNr,KPRNr,OLCache
- New SubRec,SubBLNr,IsWerkVl,IsOrgal
+ New SubRec,SubBLNr,IsWerkVl,IsOrgal,LinkQty
  Set BLNr=^BON("IU",BONNr,BLUNr)
  Set BLRec=^KUL(KLNr,"F",BONNr,BLNr)
  Set PRNr=$P(BLRec,D,2)
@@ -60,7 +60,9 @@
  .Set IsOrgal=$$ISORGAL^PRODUKT2(PRNr),KPRNr=""
  .For  Set KPRNr=$O(^PRLINK("D",PRNr,KPRNr)) Quit:KPRNr=""  Do
  ..If IsOrgal,$$OPSLZONE^PRODUKT2(KPRNr)=9,$P(^PRLINK("D",PRNr,KPRNr),D,2)'="O" Quit
- ..Do BLDSUB(RCPNr,BONNr,BLUNr,KPRNr,Qty*$P(^PRLINK("D",PRNr,KPRNr),D),RCPBRef)
+ ..Set LinkQty=$P(^PRLINK("D",PRNr,KPRNr),D)
+ ..Quit:(+LinkQty)'>0
+ ..Do BLDSUB(RCPNr,BONNr,BLUNr,KPRNr,Qty*LinkQty,RCPBRef)
  Else  Do
  .Do BLDSUB(RCPNr,BONNr,BLUNr,PRNr,Qty,RCPBRef)
  ;