Index: DOM/PM/impl/DataM/DataMProductCloner.cls.xml
===================================================================
diff -u -r1133 -r1341
--- DOM/PM/impl/DataM/DataMProductCloner.cls.xml	(.../DataMProductCloner.cls.xml)	(revision 1133)
+++ DOM/PM/impl/DataM/DataMProductCloner.cls.xml	(.../DataMProductCloner.cls.xml)	(revision 1341)
@@ -27,6 +27,15 @@
  	Merge ^PRBS("BS",PRNr) = ^PRBS("BS",Product.GeefPRNr())
  	Do BLDIND^PRBS(PRNr)
  	
+ 	Merge ^PRLINK("D",PRNr) = ^PRLINK("D",Product.GeefPRNr())
+ 	
+ 	Set Kind = $Order(^PRLINK("D",PRNr,""))
+ 	While (Kind '= "")
+ 	{
+	 	Set ^PRLINK("IKM",Kind,PRNr) = ""
+	 	Set Kind = $Order(^PRLINK("D",PRNr,Kind))
+ 	}
+ 	
  	// Optibox toestanden kopiëren
 	If ##class(BL.Prod.OptiBox.Optimize).HasOptiData("PR",Product.GeefPRNr())
 	{ ; Heeft optibox data gekoppeld aan het product