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))