Index: DOM/PM/ProductKenmerkenSet.cls.xml
===================================================================
diff -u -r1775 -r1777
--- DOM/PM/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1775)
+++ DOM/PM/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1777)
@@ -30,6 +30,11 @@
 <ReturnType>%String</ReturnType>
 </Method>
 
+<Method name="VerwijderKenmerk">
+<Abstract>1</Abstract>
+<FormalSpec>KenmerkNaam:%String</FormalSpec>
+</Method>
+
 <Method name="ZetKenmerkWaarden">
 <Abstract>1</Abstract>
 <FormalSpec>Waarden:%ListOfDataTypes,KenmerkNaam:%String,InstanceVersion:%Integer</FormalSpec>
Index: DOM/PM/impl/ProductKenmerkenSet.cls.xml
===================================================================
diff -u -r1775 -r1777
--- DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1775)
+++ DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1777)
@@ -102,6 +102,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderKenmerk">
+<FormalSpec>KenmerkNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Status = ##class(Prod.Kenmerk.DataDefinitie).DeleteKM("OL",..UnID,KenmerkNaam)
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon kenmerk "_KenmerkNaam_" niet verwijderen"))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ZetRaiseEvent">
 <Description>
 Instellen of een event moet geraised worden bij het wijzigen van kenmerken in deze kenmerkenset.</Description>
Index: PRDUPLI.mac.rou
===================================================================
diff -u -r1772 -r1777
--- PRDUPLI.mac.rou	(.../PRDUPLI.mac.rou)	(revision 1772)
+++ PRDUPLI.mac.rou	(.../PRDUPLI.mac.rou)	(revision 1777)
@@ -159,24 +159,23 @@
  . 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)) { ; 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()
+ Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,"OL")
+ If (ProductKenmerkenSets.GeefAantalSets()>0){ ; Heeft kenmerken
+ 	Set X=$$^vhTXTPOP("PRDUPLI","COPYKENMERK","",$P(^KPR(PRNr,0),D,1))
  	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 ##class(Prod.Kenmerk.DataDefinitie).DeleteKM("OL",UnID,$ListGet(lbClearKenmerken,i))
+		Set lbClearKenmerken= $LB("GeneratieType","MasterVoorBreedtes","MasterVoorDieptes","MasterVoorKleuren","MasterVoorWandDiktes")
+		Set lbClearKenmerken = lbClearKenmerken_$LB("SleutelVarFotoB","SleutelVarFotoD","SleutelVarFotoKlr","SleutelVarFotoWD","SleutelVarTekstB","SleutelVarTekstD","SleutelVarTekstKlr","SleutelVarTekstWD")
+		Set KenmerkenSetsIterator = ProductKenmerkenSets.GeefKenmerkenSets()
+		While (KenmerkenSetsIterator.HasNext()) {
+		 	Set KenmerkenSet = KenmerkenSetsIterator.Next()
+		 	Set NewUnID = KenmerkenSet.GeefUnID()
+		 	Set $Piece(NewUnID,".") = NewPRNr
+		 	Do ##class(Prod.Kenmerk.DataDefinitie).CopyViaPRNr(KenmerkenSet.GeefUnID(),NewUnID,,0,,$LB("OEI")) ; exclude OEI kenmerken
+		 	For i = 1 : 1 : $LL(lbClearKenmerken) {
+			 	Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM("OL",NewUnID,$LI(lbClearKenmerken,i))
 		 	}
- 		}
+		}
  	}
  }