Index: EWRCPS2.mac.rou
===================================================================
diff -u -r50268 -r50273
--- EWRCPS2.mac.rou	(.../EWRCPS2.mac.rou)	(revision 50268)
+++ EWRCPS2.mac.rou	(.../EWRCPS2.mac.rou)	(revision 50273)
@@ -1,3 +1,4 @@
+#Include Prod.Product
 EWRCPS2 ;E'WMS Opbouw van naar RCP met Toeleveringsgegevens[ 10/26/2001  3:19 PM ]
  ;
 BLDRCP(LEVNr,TOENr,MarkRef,RCPNr,RCPDate,RCPLRef,RCPBRef) ; Opbouw van de Receptie en indien reeds doorgestuurd het nieuwe deel onmiddellijk doorsturen.
@@ -58,6 +59,7 @@
  If $D(^PRLINK("D",PRNr)) Do  ; Opslitsen in kindproducten
  .Set KPRNr=""
  .For  Set KPRNr=$O(^PRLINK("D",PRNr,KPRNr)) Quit:KPRNr=""  Do
+ ..Quit:$$$ProductGet(KPRNr,$$$LinkType)?1(1"HZ",1"HHZ")
  ..Do BLDSUB(RCPNr,TOENr,TLUNr,KPRNr,Qty*$P(^PRLINK("D",PRNr,KPRNr),D),RCPBRef)
  Else  Do
  .Do BLDSUB(RCPNr,TOENr,TLUNr,PRNr,Qty,RCPBRef)