Index: EWORDS2.mac.rou
===================================================================
diff -u -r921 -r2974
--- EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 921)
+++ EWORDS2.mac.rou	(.../EWORDS2.mac.rou)	(revision 2974)
@@ -78,6 +78,7 @@
  .Set KPRNr=""
  .For  Set KPRNr=$O(^PRLINK("D",PRNr,KPRNr)) Quit:KPRNr=""  Do
  . . Set LinkQty=$P(^PRLINK("D",PRNr,KPRNr),D)
+ . . Quit:(+LinkQty)'>0
  . . Set LinkPRNr=$$SingleKind(KPRNr)
  . . Do BLDASUB(CONSNr,ORDNr,OLUNr,LinkPRNr,Qty*LinkQty,KPRNr)
  Else  Do
@@ -131,6 +132,7 @@
  .Set ManChk=1
  .For  Set KPRNr=$O(^PRLINK("D",PRNr,KPRNr)) Quit:KPRNr=""  Do
  .. Set LinkQty=$P(^PRLINK("D",PRNr,KPRNr),D)
+ .. Quit:(+LinkQty)'>0
  .. Set LinkPRNr=$$SingleKind(KPRNr)
  .. Set ManOpsl=$$OPSLMAN^PRODUKT2(KPRNr)
  .. Set:'ManOpsl ManChk=0