Index: EWRCPS2.mac.rou
===================================================================
diff -u -r29059 -r50268
--- EWRCPS2.mac.rou	(.../EWRCPS2.mac.rou)	(revision 29059)
+++ EWRCPS2.mac.rou	(.../EWRCPS2.mac.rou)	(revision 50268)
@@ -65,6 +65,7 @@
  
 BLDSUB(RCPNr,TOENr,TLUNr,PRNr,Qty,RCPBRef) 
  ; opbouw van een subreceptielijn
+ Quit:$$$Not(Qty)
  New SubRec,SubTLNr,C,PRRec
  Set SubTLNr=$O(^RCP("D",RCPNr,"D",TOENr,TLUNr,""),-1)
  Set SubTLNr=SubTLNr\100+1*100
@@ -88,4 +89,3 @@
  
  ; Errormeldingen 
 NOPROD ;"Geen product gedefinieerd in :"_TOENr_";"_TLUNr
-