Index: APPS/PM/OL/ProductKenmerken.cls.xml
===================================================================
diff -u -r1771 -r1775
--- APPS/PM/OL/ProductKenmerken.cls.xml	(.../ProductKenmerken.cls.xml)	(revision 1771)
+++ APPS/PM/OL/ProductKenmerken.cls.xml	(.../ProductKenmerken.cls.xml)	(revision 1775)
@@ -256,7 +256,7 @@
 	Set KTPatroon=KTPatroonFactory.GetKortTekstPatroon(PatroonCode)
 	Set ..KortTekstPatroon=KTPatroon
 	  ;w PatroonCode_" voor KT "_..KortTekst,!
-	  ;d WL^vhDBG("KortTekstPatroon :  Code= "_KTPatroon.PatroonCode_"  "_..KortTekst)   ; _KTPatroon.KenmerkInKortTekstDefsToString())
+	  ;d WLIP^vhDBG(191,"KortTekstPatroon :  Code= "_KTPatroon.PatroonCode_"  "_..KortTekst)   ; _KTPatroon.KenmerkInKortTekstDefsToString())
 	Quit
 ]]></Implementation>
 </Method>
@@ -337,7 +337,6 @@
 	Set Varianten = ##class(%ListOfDataTypes).%New()
 	
 	#define CvtMasterToVarKM(%m)   $Case(%m, "MasterVoorDieptes":$$$varkmDiepte, "MasterVoorBreedtes":$$$varkmBreedte, "MasterVoorKleuren":$$$varkmKleur, "MasterVoorWandDiktes":$$$varkmWandDikte)
-	
 	If ..GeneratieType=$$$gtMaster { 
 		// Patroon voor KortTekst om varianten te kunnen opzoeken 
 		Set KTPatroonFactory=##class(KortTekstPatroonFactory).%New()
@@ -353,7 +352,7 @@
 		Set lbExcludePRNrs=$LB(..PRNr)
 		Set PotentieleVarianten=..KortTekstPatroon.ZoekMatches(..KortTekst,..VariabeleKenmerken,lbExcludePRNrs)
 		d WLIP^vhDBG(127,"PotentieleVarianten aantal : "_PotentieleVarianten.Count())
-		Quit:(PotentieleVarianten.Count()=0) $$$ERROR($$$GeneralError,"Geen varianten gevonden voor deze master ("_..UnID_" "_..KortTekst_"  #KT="_(0)_")")     ; Master voor 0 producten 
+		Quit:(PotentieleVarianten.Count()=0) Varianten   // $$$ERROR($$$GeneralError,"Geen varianten gevonden voor deze master ("_..UnID_" "_..KortTekst_"  #KT="_(0)_")")     ; Master voor 0 producten 
 		
 		Set sc=$$$OK
 		Set CntVarianten=0
Index: vhConsistency/Checks/MastersVarianten.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/MastersVarianten.cls.xml	(revision 0)
+++ vhConsistency/Checks/MastersVarianten.cls.xml	(revision 1775)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhConsistency.Checks.MastersVarianten">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhConsistency.Check</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	/*Set ProductService = ##class(APPS.PM.ProductService).%New()
+	Set ZoekCriteria = ##class(APPS.PM.dto.ZoekCriteria).%New()
+	Set ZoekCriteria.GeneratieType = ##class(APPS.PM.enu.GeneratieType).Master()	
+	Set MasterProductIDs = ProductService.ZoekProducten(ZoekCriteria).HerkendeProducten*/
+	Set Status = $$$OK
+	
+	Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New()
+	Set MasterUnIDLijst = ##class(%ListOfDataTypes).%New()
+	
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ProductIterator = ProductAPI.GeefProductIterator()
+	While (ProductIterator.HasNext())
+	{
+		Set Product = ProductIterator.Next()
+		Set PRNr = Product.GeefPRNr()
+		
+		Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,"OL")
+		Set KenmerkenSetsIterator = ProductKenmerkenSets.GeefKenmerkenSets()
+		If (KenmerkenSetsIterator.HasNext())
+		{
+			Set ProductKenmerkenSet = KenmerkenSetsIterator.Next()
+			/// Als het een master is dan gaan we de wijzigingen ook doorvoeren op de varianten
+			/// Wijzigingen die binnen deze method lopen zullen echter niet in de bulk event komen, maar zullen allemaal single events zijn.
+			If ((ProductKenmerkenSet.GeefKenmerkWaarden("GeneratieType").GetAt(1) = ##class(APPS.PM.enu.GeneratieType).Master())) {
+		 		Do MasterUnIDLijst.Insert(PRNr)
+		 		Set AutoVariantenLijst = KenmerkenService.GeefAutoVariantenVanMasters(MasterUnIDLijst).GetAt(1).AutoVarianten
+		 		Set AutoVariantenIterator = ##class(TECH.ListIterator).%New(AutoVariantenLijst)
+		 		While (AutoVariantenIterator.HasNext())
+		 		{
+			 		Set AutoVariantPRNr = AutoVariantenIterator.Next().PRNr
+			 		Set ProductKenmerkenSetsAuto = ProductAPI.GeefProductKenmerkenSets(AutoVariantPRNr,"OL")
+			 		
+			 		If (ProductKenmerkenSets.GeefAantalSets() '= ProductKenmerkenSetsAuto.GeefAantalSets())
+			 		{
+				 		Set Status = $$$ERROR($$$GeneralError,"Er is een verschillend aantal")
+				 		Do ..VoegMeldingToe("De master "_Product.GeefKorttekst()_" ("_Product.GeefPRNr()_") heeft een verschillend aantal kenmerkensets met de autovariant "_AutoVariantPRNr)
+			 		}
+		 		}
+		 		
+		 		Do MasterUnIDLijst.Clear()		 		
+		 	}
+		}
+
+	}
+	
+	Quit Status
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhConsistency/Checks/Kenmerken.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/Kenmerken.cls.xml	(revision 0)
+++ vhConsistency/Checks/Kenmerken.cls.xml	(revision 1775)
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhConsistency.Checks.Kenmerken">
+<Description>
+</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhConsistency.Check</Super>
+</Class>
+</Export>
Index: vhUnitTest/APPS/PM/TestProductService.cls.xml
===================================================================
diff -u -r1763 -r1775
--- vhUnitTest/APPS/PM/TestProductService.cls.xml	(.../TestProductService.cls.xml)	(revision 1763)
+++ vhUnitTest/APPS/PM/TestProductService.cls.xml	(.../TestProductService.cls.xml)	(revision 1775)
@@ -20,7 +20,7 @@
 	
 	do ..objTestData.CreeerTestData()
 	do $$$AssertEquals($data(^KPR(1001,0)),1,"Producten aangemaakt")
-		
+	
 	quit $$$OK
 ]]></Implementation>
 </Method>
Index: vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml
===================================================================
diff -u -r1551 -r1775
--- vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml	(.../TestProductKenmerkenSets.cls.xml)	(revision 1551)
+++ vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml	(.../TestProductKenmerkenSets.cls.xml)	(revision 1775)
@@ -18,8 +18,8 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
  	set ..objTestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
-	
-	do ..objTestData.CreeerTestData()
+ 	
+ 	do ..objTestData.CreeerTestData()
 	do $$$AssertEquals($data(^KPR(1001,0)),1,"Producten aangemaakt")
 	
 	quit $$$OK
@@ -88,7 +88,7 @@
 	
 	/// Aanmaken nieuwe KenmerkenSet
 	Set ProductKenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr,KenmerkGroep)	
-	
+
 	Set GewijzigdePRNrs = ProductKenmerkenSets.MaakNieuweKenmerkenSet(PRNr)
 	
 	Do $$$AssertEquals(GewijzigdePRNrs.GetAt(1),1018,"Product met PRNr 1018 is gewijzigd.")	
Index: DOM/PM/ProductAPI.cls.xml
===================================================================
diff -u -r1580 -r1775
--- DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 1580)
+++ DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 1775)
@@ -11,6 +11,11 @@
 <ReturnType>DOM.PM.Product</ReturnType>
 </Method>
 
+<Method name="GeefProductIterator">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
 <Method name="GeefSamengesteldProduct">
 <Abstract>1</Abstract>
 <FormalSpec>Nr:%Integer</FormalSpec>
@@ -58,15 +63,18 @@
 
 <Method name="GeefProductKenmerkenSet">
 <Description>
-Geef de enige kenmerkenset van het opgegeven PRNr</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>PRNr:%Integer,KenmerkenGroep:%String</FormalSpec>
 <ReturnType>DOM.PM.ProductKenmerkenSet</ReturnType>
 </Method>
 
 <Method name="GeefProductKenmerkenSets">
 <Description>
-Geef meerdere kenmerkenset van het opgegeven PRNr, bij multiples</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>
Index: DOM/PM/ProductKenmerkenSets.cls.xml
===================================================================
diff -u -r1507 -r1775
--- DOM/PM/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1507)
+++ DOM/PM/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1775)
@@ -7,6 +7,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="GeefAantalSets">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
 <Method name="GeefKenmerkGroep">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
@@ -22,7 +27,7 @@
 <Description>
 Geeft een iterator terug van ProductKenmerkenSet</Description>
 <Abstract>1</Abstract>
-<ReturnType>TECH.ListIterator</ReturnType>
+<ReturnType>TECH.Iterator</ReturnType>
 </Method>
 
 <Method name="GeefPRNr">
Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml
===================================================================
diff -u -r1771 -r1775
--- DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1771)
+++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml	(.../DataMProductAPI.cls.xml)	(revision 1775)
@@ -79,6 +79,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.impl.DataM.DataMProductIterator).%New()
+]]></Implementation>
+</Method>
+
 <Method name="GeefSamengesteldProduct">
 <FormalSpec>ProductNummer:%Integer</FormalSpec>
 <ReturnType>DOM.PM.SamengesteldProduct</ReturnType>
Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml
===================================================================
diff -u -r1771 -r1775
--- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 1771)
+++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml	(.../TestKenmerkenService.cls.xml)	(revision 1775)
@@ -21,8 +21,8 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
  	set ..objTestData = ##class(vhUnitTest.DOM.PM.TestData).%New()
-	
 	do ..objTestData.CreeerTestData()
+	
 	do $$$AssertEquals($data(^KPR(1001,0)),1,"Producten aangemaakt")
 	
 	quit $$$OK
Index: DOM/PM/impl/DataM/DataMProductIterator.cls.xml
===================================================================
diff -u
--- DOM/PM/impl/DataM/DataMProductIterator.cls.xml	(revision 0)
+++ DOM/PM/impl/DataM/DataMProductIterator.cls.xml	(revision 1775)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.impl.DataM.DataMProductIterator">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Iterator,%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="VolgendProduct">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ..VolgendProduct = 999
+	Do ..BepaalVolgendProduct()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<Description>
+Returns the next element in the iteration.
+Only returns a valid element if HasNext() returns true
+Causes an error if HasNext() returns false</Description>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+	Set HuidigProduct = ..VolgendProduct
+	Do ..BepaalVolgendProduct()
+	Quit ..ProductAPI.GeefProduct(HuidigProduct)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVolgendProduct">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..VolgendProduct = $Order(^KPR(..VolgendProduct))
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<Description>
+Returns true if the iteration has more elements.</Description>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..VolgendProduct '= ""
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/PM/OL/MasterAutoGenerator.cls.xml
===================================================================
diff -u -r1771 -r1775
--- APPS/PM/OL/MasterAutoGenerator.cls.xml	(.../MasterAutoGenerator.cls.xml)	(revision 1771)
+++ APPS/PM/OL/MasterAutoGenerator.cls.xml	(.../MasterAutoGenerator.cls.xml)	(revision 1775)
@@ -126,14 +126,11 @@
 <FormalSpec>UnID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	
 	Set Varianten = ##class(%ListOfDataTypes).%New()
 	
 	Set BLProdMulti=##class(BL.Kenm.ProdMulti).Create($$$KenmerkGroepID)
 	Set MasterAutoGenerator=##class(APPS.PM.OL.MasterAutoGenerator).%New(BLProdMulti)
-	
-	Set KTPatroonFactory = MasterAutoGenerator.GeefKTPatroonFactory()
-	
+
 	Set MasterProdKM = MasterAutoGenerator.GeefProductKenmerken(UnID)
 	
 	Do MasterAutoGenerator.PrefetchKenmerkWaardeMappings()
@@ -244,24 +241,20 @@
 	Set KTFromAdmin=$$$ProductGet(ProdKM.PRNr,$$$KortTekst)
 	Set ProdKM.KortTekst=KTFromAdmin
 	Set ProdKM.TeVerwijderen=0
-	
 	// Alle kenmerken invullen 
-	Set KenmerkenSet = ##class(APPS.PM.KenmerkenService).%New().GeefProductKenmerkenForUnID(UnID, ..KenmerkGroepID)
+	Set KenmerkenSet = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProductKenmerkenSets(ProdKM.PRNr, ..KenmerkGroepID).GeefKenmerkenSets().Next()
 	
-	If ($IsObject(KenmerkenSet))&&(KenmerkenSet.Kenmerken.Count()>0) {
-		Set KenmerkenIt=##class(TECH.ListIterator).%New(KenmerkenSet.Kenmerken)
-		While (KenmerkenIt.HasNext()) {
-			Set ProductKenmerk=KenmerkenIt.Next()
-			Set KenmerkNaam=ProductKenmerk.Naam
-			Set KenmerkWaarden=OLKenmerken.GetKenmerkenPublic(KenmerkNaam)   ; Waarden is een $LB() 
-			If ($LL(KenmerkWaarden)=1)&&(KenmerkNaam'?1(1"Diepte",1"WandDikte",1"WebSites",1"LadeFamilie",1"KleurFilter")) {
-				// Voor alle kenmerken, behalve bovenvernoemde in pattern-match, worden de single-value waarden omgezet van $LB() naar string.
-				Set KenmerkWaarden=$LG(KenmerkWaarden,1)
-			}
-			Do ProdKM.Kenmerken.SetAt(KenmerkWaarden,KenmerkNaam)
+	Set KenmerkenIt = KenmerkenSet.GeefKenmerkenIterator()
+	While (KenmerkenIt.HasNext()) {
+		Set KenmerkWaarden=KenmerkenIt.Next()
+		Set KenmerkNaam=KenmerkenIt.Key()   ; Waarden is een $LB() 
+		If ($LL(KenmerkWaarden)=1)&&(KenmerkNaam'?1(1"Diepte",1"WandDikte",1"WebSites",1"LadeFamilie",1"KleurFilter")) {
+			// Voor alle kenmerken, behalve bovenvernoemde in pattern-match, worden de single-value waarden omgezet van $LB() naar string.
+			Set KenmerkWaarden=$LG(KenmerkWaarden,1)
 		}
-		Set ProdKM.GeneratieType = KenmerkenSet.GeneratieType
+		Do ProdKM.Kenmerken.SetAt(KenmerkWaarden,KenmerkNaam)
 	}
+	Set ProdKM.GeneratieType = KenmerkenSet.GeefKenmerkWaarden("GeneratieType").GetAt(1)
 	
 	// Vervolledigen van de Kenmerken 
 	Set sc=ProdKM.VervolledigKenmerken()
Index: vhConsistency/ConsistencyCheck.cls.xml
===================================================================
diff -u -r1734 -r1775
--- vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1734)
+++ vhConsistency/ConsistencyCheck.cls.xml	(.../ConsistencyCheck.cls.xml)	(revision 1775)
@@ -51,7 +51,7 @@
 				Set $ZTRAP = ""
 			}
 			Continue
-ErrHandling Set CheckGefaald = 1 Do ..Meldingen.Write(ClassName_" : GEFAALD "_$C(13,10,9)_$ZE_$C(13,10))
+ErrHandling Set CheckGefaald = 1 Do ..Meldingen.Write(ClassName_" : GEFAALD "_$C(13,10,9)_##class(TECH.ExceptionHandler).Catch().ToString()_$C(13,10))
 		}		
 		
 		If (CheckGefaald || ToonAlles)
Index: DOM/PM/impl/ProductKenmerkenSet.cls.xml
===================================================================
diff -u -r1743 -r1775
--- DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1743)
+++ DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1775)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Kenmerken">
+<Type>%ArrayOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KenmerkGroep:%String,PRNr:%Integer,UnID:%String</FormalSpec>
 <Private>1</Private>
@@ -41,6 +46,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKenmerkenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	If (..Kenmerken.Count() = 0)
+	{
+		Set ResultSet = ##class(%ResultSet).%New()
+		Do ResultSet.Prepare("SELECT KenmerkNaam, Waarden FROM Prod_Kenmerk.DataDefinitie where KenmerkGroep = ? AND UnID = ?")
+		Do ResultSet.Execute(..KenmerkGroep,..UnID)
+		While (ResultSet.Next())
+		{
+			Do ..Kenmerken.SetAt(ResultSet.Data("Waarden"),ResultSet.Data("KenmerkNaam"))
+		}
+		Do ResultSet.Close()
+	}
+	Quit ##class(TECH.ListIterator).%New(..Kenmerken)
+]]></Implementation>
+</Method>
+
 <Method name="GeefKenmerkWaarden">
 <FormalSpec>KenmerkNaam:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
Index: DOM/PM/impl/ProductKenmerkenSets.cls.xml
===================================================================
diff -u -r1727 -r1775
--- DOM/PM/impl/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1727)
+++ DOM/PM/impl/ProductKenmerkenSets.cls.xml	(.../ProductKenmerkenSets.cls.xml)	(revision 1775)
@@ -17,6 +17,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KenmerkenSets">
+<Type>%ListOfObjects</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KenmerkGroep:%String,PRNr:%Integer</FormalSpec>
 <Private>1</Private>
@@ -32,6 +37,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalSets">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Do ..LaadKenmerkenSets()
+	Quit ..KenmerkenSets.Count()
+]]></Implementation>
+</Method>
+
 <Method name="GeefKenmerkGroep">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..KenmerkGroep
@@ -53,24 +66,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="LaadKenmerkenSets">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (..KenmerkenSets.Count() = 0)
+	{
+		Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+		Set Product = ProductAPI.GeefProduct(..PRNr)
+		
+		Set Multiples = Product.GeefMultiples()
+		If (Multiples.Count()>0)
+		{
+			Set MultiplesIt = ##class(TECH.ListIterator).%New(Multiples)
+			While MultiplesIt.HasNext(){
+				Set UnID = MultiplesIt.Next()
+				Do ..KenmerkenSets.Insert(##class(DOM.PM.impl.ProductKenmerkenSet).%New(..KenmerkGroep,..PRNr,UnID))		
+			}
+		}
+		Else
+		{
+			Do ..KenmerkenSets.Insert(##class(DOM.PM.impl.ProductKenmerkenSet).%New(..KenmerkGroep,..PRNr,..PRNr))	
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefKenmerkenSets">
 <Description>
 Geeft een iterator terug van ProductKenmerkenSet.
 Met voor iedere multiple een </Description>
-<ReturnType>TECH.ListIterator</ReturnType>
+<ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-		
-	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-	Set Product = ProductAPI.GeefProduct(..PRNr)
-	
-	Set KenmerkenSets = ##class(%ListOfObjects).%New()
-	Set Multiples = Product.GeefMultiples()
-	Set MultiplesIt = ##class(TECH.ListIterator).%New(Multiples)
-	While MultiplesIt.HasNext(){
-		Set UnID = MultiplesIt.Next()
-		Do KenmerkenSets.Insert(##class(DOM.PM.impl.ProductKenmerkenSet).%New(..KenmerkGroep,..PRNr,UnID))		
-	}
-	Quit ##class(TECH.ListIterator).%New(KenmerkenSets)
+	Do ..LaadKenmerkenSets()
+	Quit ##class(TECH.ListIterator).%New(..KenmerkenSets)
 ]]></Implementation>
 </Method>
 
@@ -104,7 +132,7 @@
 <FormalSpec>BronUnID:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	d WLIP^vhDBG(127,"BronUnID ? "_BronUnID)
+	d WLIP^vhDBG(191,"BronUnID ? "_BronUnID)
 	Set GewijzigdePRNrs = ##class(%ListOfDataTypes).%New()
 	Set ProdMulti = ##class(BL.Kenm.ProdMulti).Create(..KenmerkGroep)
 	Set Status = ""
@@ -117,9 +145,9 @@
 	}
 	
 	Do GewijzigdePRNrs.Insert(##class(BL.Kenm.ProdMulti).GetCommonID(BronUnID))
-	d WLIP^vhDBG(127,"1 ? "_BronUnID)
+	d WLIP^vhDBG(191,"1 ? "_BronUnID)
 	Set NewUnID = ProdMulti.AddMultiple(BronUnID,.Status)
-	d WLIP^vhDBG(127,"2 ? "_BronUnID)
+	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)
@@ -134,13 +162,14 @@
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	
 	/// Indien product een MASTER is, dan ook aan de AUTO's een KenmerkenSet toevoegen.
-	If (IsMaster) {	
+	If (IsMaster) {
+		d WLIP^vhDBG(191,"Hier ben ik "_NewUnID)
 		Set Autos = ##class(APPS.PM.OL.MasterAutoGenerator).GeefAutosVoorMaster(NewUnID)
-		d WLIP^vhDBG(127,"Auto's ? "_Autos.Count()_ " ("_BronUnID_")")
+		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(127,"Auto ? "_AutoUnID)
+			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))		
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r1645 -r1775
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1645)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1775)
@@ -295,8 +295,10 @@
 	Set Multiples = ##class(%ListOfDataTypes).%New()	
 	Set MultipleGroepenIt = ..GeefMultipleGroepen()				
 	While (MultipleGroepenIt.HasNext()){		
-		Set MultipleGroep = MultipleGroepenIt.Next()	    		
-		Set MultipleNrs = ##class(BL.Kenm.ProdMulti).Create(MultipleGroep).GetMultiplesLB(..GeefPRNr())  
+		Set MultipleGroep = MultipleGroepenIt.Next()	
+		Set ProdMulti = ##class(BL.Kenm.ProdMulti).%New()
+		Do ProdMulti.Initialize(MultipleGroep,0)
+		Set MultipleNrs = ProdMulti.GetMultiplesLB(..GeefPRNr())  
 		If ($ll(MultipleNrs) > 0) {
 		 	for i=1:1:$ll(MultipleNrs)
 			{	
Index: DOM/PM/ProductKenmerkenSet.cls.xml
===================================================================
diff -u -r1727 -r1775
--- DOM/PM/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1727)
+++ DOM/PM/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1775)
@@ -7,6 +7,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="GeefKenmerkenIterator">
+<Description>
+Geeft een iterator terug met alle kenmerken. Key/value pair.</Description>
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+
 <Method name="GeefKenmerkWaarden">
 <Abstract>1</Abstract>
 <FormalSpec>KenmerkNaam:%String</FormalSpec>
Index: vhConsistency/Checks/Multiples.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/Multiples.cls.xml	(revision 0)
+++ vhConsistency/Checks/Multiples.cls.xml	(revision 1775)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhConsistency.Checks.Multiples">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhConsistency.Check</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set ProductIterator = ProductAPI.GeefProductIterator()
+	Set Status = $$$OK
+	While (ProductIterator.HasNext())
+	{
+		Set Product = ProductIterator.Next()
+		Set Multiples = Product.GeefMultiples()
+		
+		If (Multiples.Count() > 0)
+		{
+			Set i = 1
+			
+			If ($Piece(Multiples.GetAt(1),".",2)'="1")
+			{
+				Set Status = $$$ERROR($$$GeneralError,"Fout")
+				Do ..VoegMeldingToe("Product "_Product.GeefKorttekst()_" ("_Product.GeefPRNr()_") heeft multiples die niet starten met nummer 1.")
+			}
+			ElseIf (Multiples.Count() > 1)
+			{
+				While (i < Multiples.Count()) && ($Piece(Multiples.GetAt(i),".",2) = ($Piece(Multiples.GetAt(i+1),".",2) - 1))
+				{
+					Set i = i + 1
+				}
+				
+				If (i < Multiples.Count())
+				{
+					Set Status = $$$ERROR($$$GeneralError,"Fout")
+					Do ..VoegMeldingToe("Product "_Product.GeefKorttekst()_" ("_Product.GeefPRNr()_") heeft multiples met gaten ("_##class(TECH.ListUtils).ListToPieces(Multiples,",")_").")
+				}
+			}
+		}
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+</Class>
+</Export>