Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r1074 -r1122
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1074)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1122)
@@ -390,7 +390,9 @@
 		SELECT ID,Kenmerk->Groep INTO :DDefID,:KenmerkGroep FROM Prod_Kenmerk.DataDefinitie 
 		WHERE (UnID=:FromUnID) AND ((Kenmerk->Groep = :GroepID) OR (:GroepID="*")) )
 	&sql(OPEN crsCP)
-	Kill sc
+	//JBL + 2011-05-09 de Kill sc weggehaald omdat deze in de code hieronder nog gebruikt wordt en dus undefined kan geven !! 
+	//Kill sc
+	
 	For  &sql(FETCH crsCP) Quit:SQLCODE  Do  Quit:($$$ISERR(sc))
 	. If $LL($G(lbExcludeGroepIDs)) Quit:$LF(lbExcludeGroepIDs,KenmerkGroep)
 	. Set objFrom=##class(Prod.Kenmerk.DataDefinitie).%OpenId(DDefID)
Index: PRDUPLI.mac.rou
===================================================================
diff -u -r1029 -r1122
--- PRDUPLI.mac.rou	(.../PRDUPLI.mac.rou)	(revision 1029)
+++ PRDUPLI.mac.rou	(.../PRDUPLI.mac.rou)	(revision 1122)
@@ -159,10 +159,28 @@
  . If X Do  ;Copieren
  . . Do ##class(BL.Prod.OptiBox.BoxData).%New().Copy("PR",PRNr,"PR",NewPRNr)
  ;Copieren van kenmerken
- If ##class(Prod.Kenmerk.DataDefinitie).Exists(PRNr) Do  ; Heeft kenmerken
- . Set X=$$^vhTXTPOP("PRDUPLI","COPYKENMERK","",$P(^KPR(PRNr,0),D,1))
- . If X Do  ;Copieren
- . . Do ##class(Prod.Kenmerk.DataDefinitie).CopyViaPRNr(PRNr,NewPRNr,,0,$LB("OEI")) ; exclude OEI kenmerken
+ If (##class(Prod.Kenmerk.DataDefinitie).Exists(PRNr)){ ; Heeft kenmerken
+ Set X=$$^vhTXTPOP("PRDUPLI","COPYKENMERK","",$P(^KPR(PRNr,0),D,1))
+ Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+ Set ProductService = ##class(APPS.PM.ProductService).%New()
+ 	If (X) { ;Copieren
+	 	Do ##class(Prod.Kenmerk.DataDefinitie).CopyViaPRNr(PRNr,NewPRNr,,0,,$LB("OEI")) ; exclude OEI kenmerken
+	 	Set lbClearKenmerken= $LB("GeneratieType","MasterVoorBreedtes","MasterVoorDieptes","MasterVoorKleuren","MasterVoorWandDiktes")
+	 	Set lbClearKenmerken = lbClearKenmerken_$LB("SleutelVarFotoB","SleutelVarFotoD","SleutelVarFotoKlr","SleutelVarFotoWD","SleutelVarTekstB","SleutelVarTekstD","SleutelVarTekstKlr","SleutelVarTekstWD")
+	 	Set Product = ProductAPI.GeefProduct(NewPRNr)			
+		Set ProductIDs = ProductService.GeefProductIDsVanProduct(Product)
+		Set itProductID = ##class(TECH.ListIterator).%New(ProductIDs)
+		While (itProductID.HasNext()){
+			Set ProductID = itProductID.Next()
+		 	For i = 1 : 1 : $LL(lbClearKenmerken) {		 	 	
+		 	 	Set UnID = ##class(BL.Kenm.ProdMulti).GetFullID(ProductID.PRNr, ProductID.MultipleNr)
+		 	 	Do WLIP^vhDBG(127,"UnID : "_UnID_" -> "_$ListGet(lbClearKenmerken,i))	 	
+		 	 	Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM("OL",UnID,$ListGet(lbClearKenmerken,i))
+		 	}
+ 		}
+ 	}
+ }
+	
  ;Copieren van images
  If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PRDUPLI_MagImagesCopieren"),##class(BL.Prod.ImageLink).HasImage(PRNr) Do  ; Heeft images
  . Set X=$$^vhTXTPOP("PRDUPLI","COPYIMAGE","",$P(^KPR(PRNr,0),D,1))