Index: WS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1074 -r1551
--- WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1074)
+++ WS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1551)
@@ -64,5 +64,34 @@
 	quit Result
 ]]></Implementation>
 </Method>
+
+<Method name="MaakNieuweKenmerkenSets">
+<Description>
+Maak nieuwe kenmerkenset voor de opgegeven UnIDs (mogen ook PRNr's zijn)
+Returned lijst met gewijzigde PRNr's</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KenmerkGroep:%String,UnIDs:%ListOfDataTypes</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	set Result = ##class(APPS.PM.KenmerkenService).%New().MaakNieuweKenmerkenSets(KenmerkGroep, UnIDs)
+	$$$TECHErrorTrapOff
+	quit Result
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderKenmerkenSets">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KenmerkGroep:%String,UnIDs:%ListOfDataTypes</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	set Result = ##class(APPS.PM.KenmerkenService).%New().VerwijderKenmerkenSets(KenmerkGroep, UnIDs)
+	$$$TECHErrorTrapOff
+	quit Result
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/PM/OL/MasterAutoGenerator.cls.xml
===================================================================
diff -u -r1536 -r1551
--- APPS/PM/OL/MasterAutoGenerator.cls.xml	(.../MasterAutoGenerator.cls.xml)	(revision 1536)
+++ APPS/PM/OL/MasterAutoGenerator.cls.xml	(.../MasterAutoGenerator.cls.xml)	(revision 1551)
@@ -119,20 +119,20 @@
 JBL + 2011-06-21
 Geef voor het opgegeven UnID of PRNr de AUTO's
 indien het opgegeven UnID of PRNr een MASTER is.
+
+Return : Lijst met UnID's van de auto's in %String.
 </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>UnID:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
+<ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	// [ Review JBL   WV Kenmerken ]  Return type correct zetten 	
 	
 	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 KTPatroonFactory=##class(KortTekstPatroonFactory).%New()   ; [ Review JBL   WV Kenmerken ]  Wat is het nut van de vorige regel dan? 
 	
 	Set MasterProdKM = MasterAutoGenerator.GeefProductKenmerken(UnID)
 	
@@ -146,8 +146,7 @@
 		Set Varianten = ##class(%ListOfDataTypes).%New()
 	}
 	GoTo Finally
-Catch
-	// [ Review JBL   WV Kenmerken ]  Opgelet : de $ZTRAP wordt niet terug op leeg gezet. 
+Catch Set $ZTRAP = ""
 	Do ##class(vhLib.Logger).%New("APPS.PM.OL").ErrorMail("Geen varianten/auto's gevonden.",$$ParseStatus^vhLib(Varianten))	
 	Set $ECODE = ""
 	Set Varianten = ##class(%ListOfDataTypes).%New()
Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1542 -r1551
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1542)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1551)
@@ -92,21 +92,9 @@
 			}
 			Set UnIDIt = ##class(TECH.ListIterator).%New(UnIDs)
 			While (UnIDIt.HasNext()){
-				 Set UnID = UnIDIt.Next()						 	 
-				 
-			 	 Set ProductKenmerkenSet = ##class(APPS.PM.dto.Kenm.ProductKenmerkenSet).%New()			 	 			 	 
-			 	 Set ProductKenmerkenSet.UnID = UnID			 	 
+				 Set UnID = UnIDIt.Next()
+				 Set Kenmerken = ##class(%ListOfObjects).%New()
 			 	 
-			 	 /// GeneratieType
-			 	 Set KenmerkenSet = KenmerkenSets.GeefKenmerkenSet(UnID)
-			 	 If (KenmerkenSet.GeefKenmerkWaarden("GeneratieType").Count() > 0){
-			 	 	Set ProductKenmerkenSet.GeneratieType = KenmerkenSet.GeefKenmerkWaarden("GeneratieType").GetAt(1)
-			 	 }Else{
-				 	Set ProductKenmerkenSet.GeneratieType = ##class(APPS.PM.enu.GeneratieType).Single()	 
-				 }			 	 
-			 	 
-			 	 Set Kenmerken = ##class(%ListOfObjects).%New()
-			 	 
 				 Set tmpStatus=RS.Execute(KenmerkGroep)
 				 If $$$ISOK(tmpStatus)
 				 {				 	 
@@ -116,19 +104,29 @@
 						 If ##class(Prod.Kenmerk.DataDefinitie).%ExistsId(DataDefID)
 						 {
 						 	Set tmpDataDef=##class(Prod.Kenmerk.DataDefinitie).%OpenId(DataDefID)
-						 	Set ProductKenmerk = ##class(APPS.PM.dto.Kenm.ProductKenmerk).%New()
-						 	Set ProductKenmerk.Naam = tmpDataDef.GeefKenmerk().Kenmerk			 	
-						 	Set ProductKenmerk.Waarden = tmpDataDef.Waarden	
-						 	Do Kenmerken.Insert(ProductKenmerk)						 	
+						 	If (tmpDataDef.GeefKenmerk().Kenmerk '= "GeneratieType"){
+							 	Set ProductKenmerk = ##class(APPS.PM.dto.Kenm.ProductKenmerk).%New()
+							 	Set ProductKenmerk.Naam = tmpDataDef.GeefKenmerk().Kenmerk			 	
+							 	Set ProductKenmerk.Waarden = tmpDataDef.Waarden	
+							 	Do Kenmerken.Insert(ProductKenmerk)						 
+						 	}	
 						 }
 					 }
 				 }
 				 
 				 /// Enkel Set toevoegen als er kenmerken zijn voor die set.
-				 If (Kenmerken.Count() > 0){
+				 If (Kenmerken.Count() > 0){					
+				 	 Set ProductKenmerkenSet = ##class(APPS.PM.dto.Kenm.ProductKenmerkenSet).%New()			 	 			 	 
+				 	 Set ProductKenmerkenSet.UnID = UnID			 	 
+				 	 
+				 	 /// GeneratieType
+				 	 Set KenmerkenSet = KenmerkenSets.GeefKenmerkenSet(UnID)
+				 	 If (KenmerkenSet.GeefKenmerkWaarden("GeneratieType").Count() > 0){
+				 	 	Set ProductKenmerkenSet.GeneratieType = KenmerkenSet.GeefKenmerkWaarden("GeneratieType").GetAt(1)
+				 	 }Else{
+					 	Set ProductKenmerkenSet.GeneratieType = ##class(APPS.PM.enu.GeneratieType).Single()	 
+					 }			 	 			 	 
 					
-					// [ Review JBL   WV Kenmerken ]  Code vanaf  New ProductKenmerkenSet  t/m  GeneratieType  mag naar hier (binnen de if{} ) verhuizen, denk ik. 
-					
 					Set ProductKenmerkenSet.Kenmerken = Kenmerken	 
 					Do ProductKenmerkenGroep.Sets.Insert(ProductKenmerkenSet)	
 				 }
Index: vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml
===================================================================
diff -u -r1536 -r1551
--- vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml	(.../TestProductKenmerkenSets.cls.xml)	(revision 1536)
+++ vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml	(.../TestProductKenmerkenSets.cls.xml)	(revision 1551)
@@ -55,16 +55,20 @@
 	
 	Do $$$AssertTrue(KenmerkenSetIt.HasNext(),"De aangemaakte KenmerkenSet heeft gewijzigde PRNrs.")
 	
+	Set SubID = 1
+	
 	While (KenmerkenSetIt.HasNext()){		
 		Set KenmerkenSet = KenmerkenSetIt.Next()	
 		
 		Do $$$AssertEquals(KenmerkenSet.GeefPRNr(),PRNr,"De aangemaakte KenmerkenSet heeft een correct PRNr.")
 		
+		Do $$$AssertEquals(KenmerkenSet.GeefUnID(),PRNr_"."_SubID,"De aangemaakte KenmerkenSet heeft een correct UnID")
+		
 		Do $$$AssertTrue(KenmerkenSet.GeefKenmerkWaarden("MeubelToepassing"),"De aangemaakte KenmerkenSet heeft waarden voor kenmerk 'MeubelToepassing'.")
 		
 		Do $$$AssertEquals(KenmerkenSet.GeefKenmerkWaarden("MeubelToepassing").GetAt(1),"Keuken","De aangemaakte KenmerkenSet heeft een correcte waarde voor kenmerk 'MeubelToepassing'.")
 	
-		// [ Review JBL   WV Kenmerken ]  Best ook iets checken van de UnID.  Is dit een test voor OneToMultiple ? 
+		Set SubID = SubID + 1 /// Ook checken van de UnID : verhogen van SubID
 	}
 ]]></Implementation>
 </Method>