Index: DOM/PM/ProductKenmerkenSets.cls.xml
===================================================================
diff -u -r1775 -r1826
--- DOM/PM/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1775)
+++ DOM/PM/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1826)
@@ -23,7 +23,7 @@
 <ReturnType>DOM.PM.ProductKenmerkenSet</ReturnType>
 </Method>
 
-<Method name="GeefKenmerkenSets">
+<Method name="GeefProductKenmerkenSetIterator">
 <Description>
 Geeft een iterator terug van ProductKenmerkenSet</Description>
 <Abstract>1</Abstract>
Index: vhConsistency/Checks/MastersVarianten.cls.xml
===================================================================
diff -u -r1775 -r1826
--- vhConsistency/Checks/MastersVarianten.cls.xml	(.../MastersVarianten.cls.xml)	(revision 1775)
+++ vhConsistency/Checks/MastersVarianten.cls.xml	(.../MastersVarianten.cls.xml)	(revision 1826)
@@ -24,8 +24,8 @@
 		Set Product = ProductIterator.Next()
 		Set PRNr = Product.GeefPRNr()
 		
-		Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,"OL")
-		Set KenmerkenSetsIterator = ProductKenmerkenSets.GeefKenmerkenSets()
+		Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerken(PRNr).GeefProductKenmerkenSets("OL")
+		Set KenmerkenSetsIterator = ProductKenmerkenSets.GeefProductKenmerkenSetIterator()
 		If (KenmerkenSetsIterator.HasNext())
 		{
 			Set ProductKenmerkenSet = KenmerkenSetsIterator.Next()
@@ -38,7 +38,7 @@
 		 		While (AutoVariantenIterator.HasNext())
 		 		{
 			 		Set AutoVariantPRNr = AutoVariantenIterator.Next().PRNr
-			 		Set ProductKenmerkenSetsAuto = ProductAPI.GeefProductKenmerkenSets(AutoVariantPRNr,"OL")
+			 		Set ProductKenmerkenSetsAuto = ProductAPI.GeefProductKenmerken(PRNr).GeefProductKenmerkenSets("OL")
 			 		
 			 		If (ProductKenmerkenSets.GeefAantalSets() '= ProductKenmerkenSetsAuto.GeefAantalSets())
 			 		{
Index: CSC ProductKenmerken.prj.xml
===================================================================
diff -u
--- CSC ProductKenmerken.prj.xml	(revision 0)
+++ CSC ProductKenmerken.prj.xml	(revision 1826)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="CSC ProductKenmerken" LastModified="2011-08-18 11:57:16">
+  <Items>
+    <ProjectItem name="DOM.PM.ProductAPI" type="CLS"/>
+    <ProjectItem name="DOM.PM.ProductKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.ProductKenmerkenSet" type="CLS"/>
+    <ProjectItem name="DOM.PM.ProductKenmerkenSets" type="CLS"/>
+    <ProjectItem name="DOM.PM.impl.DataM.DataMProductAPI" type="CLS"/>
+    <ProjectItem name="DOM.PM.impl.ProductKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.impl.ProductKenmerkenSet" type="CLS"/>
+    <ProjectItem name="DOM.PM.impl.ProductKenmerkenSets" type="CLS"/>
+    <ProjectItem name="PRDUPLI.MAC" type="MAC"/>
+    <ProjectItem name="vhUnitTest.DOM.PM.TestProductKenmerkenSets" type="CLS"/>
+  </Items>
+</Project>
+</Export>
Index: vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml
===================================================================
diff -u -r1775 -r1826
--- vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml	(.../TestProductKenmerkenSets.cls.xml)	(revision 1775)
+++ vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml	(.../TestProductKenmerkenSets.cls.xml)	(revision 1826)
@@ -39,19 +39,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestProductKenmerken">
+<Implementation><![CDATA[
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ProductKenmerken = ProductAPI.GeefProductKenmerken(1024)
+	
+	Set KenmerkenSetsIterator = ProductKenmerken.GeefKenmerkenSetsIterator()
+	Set KenmerkenSets = KenmerkenSetsIterator.Next()
+	Do $$$AssertEquals(KenmerkenSets.GeefProductKenmerkenSetIterator().Next().GeefGroep(),"OEI","De eerste groep")
+	Set KenmerkenSets = KenmerkenSetsIterator.Next()
+	Do $$$AssertEquals(KenmerkenSets.GeefProductKenmerkenSetIterator().Next().GeefGroep(),"OL","De tweede groep")
+	Do $$$AssertFalse(KenmerkenSetsIterator.HasNext(),"Er zijn geen verdere groepen meer")
+	
+	Do $$$AssertTrue($IsObject(ProductKenmerken.GeefProductKenmerkenSets("OEI")),"De kenmerkensets werd teruggegeven")
+	Do $$$AssertTrue($IsObject(ProductKenmerken.GeefProductKenmerkenSet("OEI")),"De kenmerkenset werd teruggegeven")
+]]></Implementation>
+</Method>
+
 <Method name="TestMaakNieuweKenmerkenSet">
 <Implementation><![CDATA[
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set KenmerkGroep = "OL"
 	Set PRNr = 1001
 
-	Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,KenmerkGroep)
+	Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerken(PRNr).GeefProductKenmerkenSets(KenmerkGroep)
 	
 	Set GewijzigdePRNrs = ProductKenmerkenSets.MaakNieuweKenmerkenSet(PRNr)
 	
-	Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(GewijzigdePRNrs.GetAt(1),KenmerkGroep)	
+	Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerken(GewijzigdePRNrs.GetAt(1)).GeefProductKenmerkenSets(KenmerkGroep)	
 	
-	Set KenmerkenSetIt = ProductKenmerkenSets.GeefKenmerkenSets()
+	Set KenmerkenSetIt = ProductKenmerkenSets.GeefProductKenmerkenSetIterator()
 	
 	Do $$$AssertTrue(KenmerkenSetIt.HasNext(),"De aangemaakte KenmerkenSet heeft gewijzigde PRNrs.")
 	
@@ -87,7 +104,7 @@
 	Do $$$AssertEquals(Autos.GetAt(3),1021,"Correcte auto '1021' opgehaald van master.")	
 	
 	/// Aanmaken nieuwe KenmerkenSet
-	Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,KenmerkGroep)	
+	Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerken(PRNr).GeefProductKenmerkenSets(KenmerkGroep)	
 
 	Set GewijzigdePRNrs = ProductKenmerkenSets.MaakNieuweKenmerkenSet(PRNr)
 	
@@ -96,7 +113,7 @@
 	Do $$$AssertEquals(GewijzigdePRNrs.GetAt(3),1020,"Product met PRNr 1020 is gewijzigd.")	
 	Do $$$AssertEquals(GewijzigdePRNrs.GetAt(4),1021,"Product met PRNr 1020 is gewijzigd.")
 	
-	Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,KenmerkGroep)		
+	Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerken(PRNr).GeefProductKenmerkenSets(KenmerkGroep)		
 	For SubID = 1,2 {
 		Set KenmerkenSet = ProductKenmerkenSets.GeefKenmerkenSet(PRNr_"."_SubID)
 		Do $$$AssertTrue($IsObject(KenmerkenSet),"De aangemaakte KenmerkenSet is correct aangemaakt.")	
@@ -108,7 +125,7 @@
 	/// Test Auto's 
 	For GewijzigdePRNr = 2,3,4 {
 		Set PRNr = GewijzigdePRNrs.GetAt(GewijzigdePRNr)
-		Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,KenmerkGroep)
+		Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerken(PRNr).GeefProductKenmerkenSets(KenmerkGroep)
 		
 		Set KenmerkenSet = ProductKenmerkenSets.GeefKenmerkenSet(PRNr_".1")
 		Do $$$AssertTrue($IsObject(KenmerkenSet),"De aangemaakte auto KenmerkenSet voor "_PRNr_".1 is correct aangemaakt.")	
Index: DOM/PM/ProductAPI.cls.xml
===================================================================
diff -u -r1775 -r1826
--- DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 1775)
+++ DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 1826)
@@ -61,25 +61,12 @@
 <ReturnType>DOM.PM.Classificatie</ReturnType>
 </Method>
 
-<Method name="GeefProductKenmerkenSet">
-<Description>
-Geef de kenmerkenset van het opgegeven PRNr.
-Deze mag ENKEL gebruikt worden indien zeker geweten is dat dit product geen multiples heeft.
-Indien dit niet zeker is (of de code gaat expliciet zelf controleren op multiple of non-multiple) dan moet
-de method GeefProductKenmerkenSets gebruikt worden.</Description>
+<Method name="GeefProductKenmerken">
 <Abstract>1</Abstract>
-<FormalSpec>PRNr:%Integer,KenmerkenGroep:%String</FormalSpec>
-<ReturnType>DOM.PM.ProductKenmerkenSet</ReturnType>
+<FormalSpec>PRNr:%Integer</FormalSpec>
+<ReturnType>DOM.PM.ProductKenmerken</ReturnType>
 </Method>
 
-<Method name="GeefProductKenmerkenSets">
-<Description>
-Geeft alle kenmerkensets van het gevraagde product. Maakt zelf onderscheid tussen multiple en non-multiple.</Description>
-<Abstract>1</Abstract>
-<FormalSpec>PRNr:%Integer,KenmerkenGroep:%String</FormalSpec>
-<ReturnType>DOM.PM.ProductKenmerkenSets</ReturnType>
-</Method>
-
 <Method name="GeefOrgaluxToepasbaarheid">
 <Abstract>1</Abstract>
 <FormalSpec>ProductKenmerkenSet:DOM.PM.ProductKenmerkenSet</FormalSpec>
Index: DOM/PM/ProductKenmerkenSet.cls.xml
===================================================================
diff -u -r1777 -r1826
--- DOM/PM/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1777)
+++ DOM/PM/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1826)
@@ -7,6 +7,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="GeefGroep">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="GeefKenmerkenIterator">
 <Description>
 Geeft een iterator terug met alle kenmerken. Key/value pair.</Description>
Index: DOM/PM/impl/ProductKenmerkenSets.cls.xml
===================================================================
diff -u -r1775 -r1826
--- DOM/PM/impl/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1775)
+++ DOM/PM/impl/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1826)
@@ -91,7 +91,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKenmerkenSets">
+<Method name="GeefProductKenmerkenSetIterator">
 <Description>
 Geeft een iterator terug van ProductKenmerkenSet.
 Met voor iedere multiple een </Description>
@@ -132,7 +132,6 @@
 <FormalSpec>BronUnID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	d WLIP^vhDBG(191,"BronUnID ? "_BronUnID)
 	Set GewijzigdePRNrs = ##class(%ListOfDataTypes).%New()
 	Set ProdMulti = ##class(BL.Kenm.ProdMulti).Create(..KenmerkGroep)
 	Set Status = ""
@@ -145,9 +144,7 @@
 	}
 	
 	Do GewijzigdePRNrs.Insert(##class(BL.Kenm.ProdMulti).GetCommonID(BronUnID))
-	d WLIP^vhDBG(191,"1 ? "_BronUnID)
 	Set NewUnID = ProdMulti.AddMultiple(BronUnID,.Status)
-	d WLIP^vhDBG(191,"2 ? "_BronUnID)
 	If (NewUnID = ""){
 		Set ErrorMsg = "Het gegeneerde nieuwe UnID '"_NewUnID_"' voor reeds bestaande UnID '"_BronUnID_"' is niet correct."
 		Set ErrorMsg = ErrorMsg_$C(13,10)_$$ParseStatus^vhLib(Status)
@@ -163,20 +160,17 @@
 	
 	/// Indien product een MASTER is, dan ook aan de AUTO's een KenmerkenSet toevoegen.
 	If (IsMaster) {
-		d WLIP^vhDBG(191,"Hier ben ik "_NewUnID)
 		Set Autos = ##class(APPS.PM.OL.MasterAutoGenerator).GeefAutosVoorMaster(NewUnID)
-		d WLIP^vhDBG(191,"Auto's ? "_Autos.Count()_ " ("_BronUnID_")")
 		Set AutoIt = ##class(TECH.ListIterator).%New(Autos)
 		While (AutoIt.HasNext()){
 			Set AutoUnID = ##class(BL.Kenm.ProdMulti).GetFullID(AutoIt.Next(),SubID)
-			d WLIP^vhDBG(191,"Auto ? "_AutoUnID)
 			If (BronUnID = AutoUnID) {
 				Set ErrorMsg = "Oneindige lus : MaakNieuweKenmerkenSet ("_UnID_") roept als Auto ("_AutoUnID_") op om opnieuw aan te maken"
 				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),ErrorMsg))		
 			}
 			
 			Set AutoGewijzigdePRNrs = ..MaakNieuweKenmerkenSet(AutoUnID)
-			Set NewUnIDIt = ProductAPI.GeefProductKenmerkenSets(AutoUnID, ..KenmerkGroep).GeefKenmerkenSets()
+			Set NewUnIDIt = ProductAPI.GeefProductKenmerken(AutoUnID).GeefProductKenmerkenSets(..KenmerkGroep).GeefProductKenmerkenSetIterator()
 			While NewUnIDIt.HasNext(){
 				Set NewUnID = NewUnIDIt.Next().GeefUnID()
 				Do ..AfhandelingAutoProduct(NewUnID)
Index: DOM/PM/impl/ProductKenmerkenSet.cls.xml
===================================================================
diff -u -r1777 -r1826
--- DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1777)
+++ DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1826)
@@ -46,6 +46,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGroep">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..KenmerkGroep
+]]></Implementation>
+</Method>
+
 <Method name="GeefKenmerkenIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1808 -r1826
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1808)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1826)
@@ -137,7 +137,7 @@
 				 	Set ProductKenmerkenSet = ##class(APPS.PM.dto.Kenm.ProductKenmerkenSet).%New()	 				
 					Set ProductKenmerkenSet.UnID = UnID	 	 				 	 
 					/// GeneratieType
-					Set KenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr, KenmerkGroep)
+					Set KenmerkenSets = ProductAPI.GeefProductKenmerken(PRNr).GeefProductKenmerkenSets(KenmerkGroep)
 					Set KenmerkenSet = KenmerkenSets.GeefKenmerkenSet(UnID)
 					If (KenmerkenSet.GeefKenmerkWaarden("GeneratieType").Count() > 0){
 					 	Set ProductKenmerkenSet.GeneratieType = KenmerkenSet.GeefKenmerkWaarden("GeneratieType").GetAt(1)
@@ -398,7 +398,7 @@
 	While (UnIDIt.HasNext()){
 		Set UnID = UnIDIt.Next()
 		Set PRNr = ##class(BL.Kenm.ProdMulti).GetCommonID(UnID)
-		Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,KenmerkGroep)
+		Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerken(PRNr).GeefProductKenmerkenSets(KenmerkGroep)
 		Set NieuweGewijzigdePRNrs = ProductKenmerkenSets.VerwijderKenmerkenSet(UnID)
 		Set GewijzigdePRNrs = ##class(TECH.ListUtils).CopyList(NieuweGewijzigdePRNrs,GewijzigdePRNrs)
 	}
@@ -445,7 +445,7 @@
 		}
 		
 		Set PRNr = ##class(BL.Kenm.ProdMulti).GetCommonID(UnID)
-		Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,KenmerkGroep)
+		Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerken(PRNr).GeefProductKenmerkenSets(KenmerkGroep)
 		
 		
 		/// Indien UnID een Auto is, kan er geen nieuwe kenmerkenset gecreeerd worden
Index: PRDUPLI.mac.rou
===================================================================
diff -u -r1777 -r1826
--- PRDUPLI.mac.rou	(.../PRDUPLI.mac.rou)	(revision 1777)
+++ PRDUPLI.mac.rou	(.../PRDUPLI.mac.rou)	(revision 1826)
@@ -160,22 +160,36 @@
  . . Do ##class(BL.Prod.OptiBox.BoxData).%New().Copy("PR",PRNr,"PR",NewPRNr)
  ;Copieren van kenmerken
  Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
- Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,"OL")
- If (ProductKenmerkenSets.GeefAantalSets()>0){ ; Heeft kenmerken
+ Set ProductKenmerken = ProductAPI.GeefProductKenmerken(PRNr)
+ If (ProductKenmerken.GeefKenmerkenSetsIterator().HasNext()){ ; Heeft kenmerken
  	Set X=$$^vhTXTPOP("PRDUPLI","COPYKENMERK","",$P(^KPR(PRNr,0),D,1))
  	If (X) { ;Copieren
+ 	
+ 	 	Set KenmerkenSetsIterator = ProductKenmerken.GeefKenmerkenSetsIterator()
+ 	 	While (KenmerkenSetsIterator.HasNext())
+ 	 	{
+	 	 	Set ProductKenmerkenSets = KenmerkenSetsIterator.Next()
+			Set ProductKenmerkenSetsIterator = ProductKenmerkenSets.GeefProductKenmerkenSetIterator()
+			While (ProductKenmerkenSetsIterator.HasNext()) {
+			 	Set KenmerkenSet = ProductKenmerkenSetsIterator.Next()
+			 	Set NewUnID = KenmerkenSet.GeefUnID()
+			 	Set $Piece(NewUnID,".") = NewPRNr
+			 	Do ##class(Prod.Kenmerk.DataDefinitie).CopyViaPRNr(KenmerkenSet.GeefUnID(),NewUnID,$LB(KenmerkenSet.GeefGroep()),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 KenmerkenSetsIterator = ProductKenmerkenSets.GeefKenmerkenSets()
-		While (KenmerkenSetsIterator.HasNext()) {
-		 	Set KenmerkenSet = KenmerkenSetsIterator.Next()
+		Set ProductKenmerkenSetsIterator = ProductKenmerken.GeefProductKenmerkenSets("OL").GeefProductKenmerkenSetIterator()
+		While (ProductKenmerkenSetsIterator.HasNext()) {
+			Set KenmerkenSet = ProductKenmerkenSetsIterator.Next()
 		 	Set NewUnID = KenmerkenSet.GeefUnID()
-		 	Set $Piece(NewUnID,".") = NewPRNr
-		 	Do ##class(Prod.Kenmerk.DataDefinitie).CopyViaPRNr(KenmerkenSet.GeefUnID(),NewUnID,,0,,$LB("OEI")) ; exclude OEI kenmerken
+			Set $Piece(NewUnID,".") = NewPRNr
 		 	For i = 1 : 1 : $LL(lbClearKenmerken) {
-			 	Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM("OL",NewUnID,$LI(lbClearKenmerken,i))
-		 	}
+				Do ##class(Prod.Kenmerk.DataDefinitie).DeleteKM("OL",NewUnID,$LI(lbClearKenmerken,i))
+			}
 		}
+ 
  	}
  }
 	
Index: DOM/PM/impl/ProductKenmerken.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/ProductKenmerken.cls.xml	(revision 0)
+++ DOM/PM/impl/ProductKenmerken.cls.xml	(revision 1826)
@@ -0,0 +1,90 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.impl.ProductKenmerken">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,DOM.PM.ProductKenmerken</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="KenmerkenSets">
+<Type>DOM.PM.impl.ProductKenmerkenSets</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="PRNr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PRNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..PRNr = PRNr
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerkenSetsIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..KenmerkenSets)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductKenmerkenSets">
+<FormalSpec>KenmerkGroep:%String</FormalSpec>
+<ReturnType>DOM.PM.ProductKenmerkenSets</ReturnType>
+<Implementation><![CDATA[
+	Set ProductKenmerkenSets = ""
+	If (..HeeftKenmerkGroep(KenmerkGroep))
+	{
+		Set ProductKenmerkenSets = ..KenmerkenSets.GetAt(KenmerkGroep)
+	}
+	Quit ProductKenmerkenSets
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductKenmerkenSet">
+<FormalSpec>KenmerkGroep:%String</FormalSpec>
+<ReturnType>DOM.PM.ProductKenmerkenSet</ReturnType>
+<Implementation><![CDATA[
+	Set ProductKenmerkenSet = ""
+	If (..HeeftKenmerkGroep(KenmerkGroep))
+	{
+		Set ProductKenmerkenSets = ..KenmerkenSets.GetAt(KenmerkGroep)
+		Set ProductKenmerkenSet = ProductKenmerkenSets.GeefProductKenmerkenSetIterator().Next()
+	}
+	Quit ProductKenmerkenSet
+]]></Implementation>
+</Method>
+
+<Method name="HeeftKenmerkGroep">
+<FormalSpec>KenmerkGroep</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..KenmerkenSets.IsDefined(KenmerkGroep)
+]]></Implementation>
+</Method>
+
+<Method name="KenmerkenSetsGet">
+<Private>1</Private>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<Implementation><![CDATA[
+	If ('$IsObject(r%KenmerkenSets))
+	{
+		Set r%KenmerkenSets = ##class(%ArrayOfObjects).%New()
+		Set ResultSet = ##class(%ResultSet).%New()
+		Do ResultSet.Prepare("SELECT DISTINCT(Kenmerk->Groep) AS Groep FROM Prod_Kenmerk.DataDefinitie WHERE $Piece(UnID,'.',1) = ?")
+		Do ResultSet.Execute(..PRNr)
+		While (ResultSet.Next())
+		{
+			Set Groep = ResultSet.Data("Groep")
+			Do r%KenmerkenSets.SetAt(##class(DOM.PM.impl.ProductKenmerkenSets).%New(Groep,..PRNr),Groep)
+		}
+	}
+	Quit r%KenmerkenSets
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/ProductKenmerken.cls.xml
===================================================================
diff -u
--- DOM/PM/ProductKenmerken.cls.xml	(revision 0)
+++ DOM/PM/ProductKenmerken.cls.xml	(revision 1826)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.ProductKenmerken">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefKenmerkenSetsIterator">
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
+<Method name="GeefProductKenmerkenSet">
+<Description>
+Geef de kenmerkenset van het opgegeven PRNr.
+Deze mag ENKEL gebruikt worden indien zeker geweten is dat dit product geen multiples heeft.
+Indien dit niet zeker is (of de code gaat expliciet zelf controleren op multiple of non-multiple) dan moet
+de method GeefProductKenmerkenSets gebruikt worden.</Description>
+<Abstract>1</Abstract>
+<FormalSpec>KenmerkGroep:%String</FormalSpec>
+<ReturnType>DOM.PM.ProductKenmerkenSet</ReturnType>
+</Method>
+
+<Method name="GeefProductKenmerkenSets">
+<Description>
+Geeft alle kenmerkensets van het gevraagde product. Maakt zelf onderscheid tussen multiple en non-multiple.</Description>
+<Abstract>1</Abstract>
+<FormalSpec>KenmerkGroep:%String</FormalSpec>
+<ReturnType>DOM.PM.ProductKenmerkenSets</ReturnType>
+</Method>
+
+<Method name="HeeftKenmerkGroep">
+<Abstract>1</Abstract>
+<FormalSpec>KenmerkGroep</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r1792 -r1826
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1792)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1826)
@@ -201,26 +201,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductKenmerkenSet">
-<Description>
-Geef de enige kenmerkenset van het opgegeven PRNr</Description>
-<FormalSpec>PRNr:%Integer,KenmerkGroep:%String</FormalSpec>
-<ReturnType>DOM.PM.ProductKenmerkenSet</ReturnType>
-<Implementation><![CDATA[
-	Set ProductKenmerkenSets = ##class(DOM.PM.impl.ProductKenmerkenSets).%New(KenmerkGroep,PRNr)
-	Quit ProductKenmerkenSets.GeefKenmerkenSet(PRNr)
+<Method name="GeefProductKenmerken">
+<FormalSpec>PRNr:%Integer</FormalSpec>
+<ReturnType>DOM.PM.ProductKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.ProductKenmerken).%New(PRNr)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefProductKenmerkenSets">
-<Description>
-Geef meerdere kenmerkenset van het opgegeven PRNr, bij multiples</Description>
-<FormalSpec>PRNr:%Integer,KenmerkGroep:%String</FormalSpec>
-<ReturnType>DOM.PM.ProductKenmerkenSets</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.ProductKenmerkenSets).%New(KenmerkGroep,PRNr)
-]]></Implementation>
-</Method>
-
 <Method name="GeefOrgaluxToepasbaarheid">
 <FormalSpec>ProductKenmerkenSet:DOM.PM.ProductKenmerkenSet</FormalSpec>
 <ReturnType>Prod.Kenmerk.Orgalux</ReturnType>
@@ -252,7 +239,7 @@
 				Set KenmerkenSet = KenmerkenSetIt.Next()
 				Set UnID = KenmerkenSet.UnID
 							
-				Set ProductKenmerkenSets = ..GeefProductKenmerkenSets(PRNr,KenmerkGroep.Naam)		 	
+				Set ProductKenmerkenSets = ..GeefProductKenmerken(PRNr).GeefProductKenmerkenSets(KenmerkGroep.Naam)		 	
 				Set ProductKenmerkenSet = ProductKenmerkenSets.GeefKenmerkenSet(UnID)
 								
 				/// Nagaan dat product als GeneratieType niet AUTO is.
Index: APPS/PM/OL/MasterAutoGenerator.cls.xml
===================================================================
diff -u -r1775 -r1826
--- APPS/PM/OL/MasterAutoGenerator.cls.xml	(.../MasterAutoGenerator.cls.xml)	(revision 1775)
+++ APPS/PM/OL/MasterAutoGenerator.cls.xml	(.../MasterAutoGenerator.cls.xml)	(revision 1826)
@@ -242,7 +242,7 @@
 	Set ProdKM.KortTekst=KTFromAdmin
 	Set ProdKM.TeVerwijderen=0
 	// Alle kenmerken invullen 
-	Set KenmerkenSet = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProductKenmerkenSets(ProdKM.PRNr, ..KenmerkGroepID).GeefKenmerkenSets().Next()
+	Set KenmerkenSet = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProductKenmerken(ProdKM.PRNr).GeefProductKenmerkenSet(..KenmerkGroepID)
 	
 	Set KenmerkenIt = KenmerkenSet.GeefKenmerkenIterator()
 	While (KenmerkenIt.HasNext()) {