Index: EWRCPS2.mac.rou
===================================================================
diff -u -r50277 -r56134
--- EWRCPS2.mac.rou	(.../EWRCPS2.mac.rou)	(revision 50277)
+++ EWRCPS2.mac.rou	(.../EWRCPS2.mac.rou)	(revision 56134)
@@ -69,14 +69,20 @@
 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
- Set SubRec=""
- Set $P(SubRec,D,1)=PRNr
- Set $P(SubRec,D,3)=Qty
- Set $P(SubRec,D,10)=RCPBRef
- Set ^RCP("D",RCPNr,"D",TOENr,TLUNr,SubTLNr)=SubRec
+ New SubRec,SubTLNr,C,PRRec,SPRNr
+ If $D(^PRLINK("D",PRNr)) Do  ; Opslitsen in kindproducten, sopr kind
+ .Set SPRNr=""
+ .For  Set SPRNr=$O(^PRLINK("D",PRNr,SPRNr)) Quit:SPRNr=""  Do
+ ..Quit:$$$ProductGet(SPRNr,$$$LinkType)?1(1"HZ",1"HHZ")
+ ..Do BLDSUB(RCPNr,TOENr,TLUNr,SPRNr,Qty*$P(^PRLINK("D",PRNr,SPRNr),D),RCPBRef)
+ Else  Do
+ .Set SubTLNr=$O(^RCP("D",RCPNr,"D",TOENr,TLUNr,""),-1)
+ .Set SubTLNr=SubTLNr\100+1*100
+ .Set SubRec=""
+ .Set $P(SubRec,D,1)=PRNr
+ .Set $P(SubRec,D,3)=Qty
+ .Set $P(SubRec,D,10)=RCPBRef
+ .Set ^RCP("D",RCPNr,"D",TOENr,TLUNr,SubTLNr)=SubRec
  Quit
  
  ; Event bij het inboekenen van een toeleveringlijn