Index: APPS/PM/OL/MasterAutoGenerator.cls.xml
===================================================================
diff -u -r1507 -r1517
--- APPS/PM/OL/MasterAutoGenerator.cls.xml	(.../MasterAutoGenerator.cls.xml)	(revision 1507)
+++ APPS/PM/OL/MasterAutoGenerator.cls.xml	(.../MasterAutoGenerator.cls.xml)	(revision 1517)
@@ -244,12 +244,13 @@
 	Set ProdKM.TeVerwijderen=0
 	
 	// Alle kenmerken invullen 
-	Set ProductKenmerken=##class(APPS.PM.KenmerkenService).%New().GeefProductKenmerkenForUnID(ProdKM.PRNr, ProdKM.SubID, ..KenmerkGroepID)
-	If ($IsObject(ProductKenmerken))&&(ProductKenmerken.Kenmerken.Count()>0) {
-		Set KenmerkenIt=##class(TECH.ListIterator).%New(ProductKenmerken.Kenmerken)
+	Set KenmerkenSet = ##class(APPS.PM.KenmerkenService).%New().GeefProductKenmerkenForUnID(UnID, ..KenmerkGroepID)
+	
+	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.KenmerkNaam
+			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.