Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1629 -r1631
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1629)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1631)
@@ -106,9 +106,11 @@
 		 
 		 While (RS.Next())
 		 {	 
+		 	Set KenmerkNaam = RS.Data("KenmerkNaam")
 		 	Set UnID = RS.Data("UnID")
 		 	Set PRNr = ##class(BL.Kenm.ProdMulti).GetCommonID(UnID)			 	
-		 
+		 	Set KenmerkGroep = RS.Data("KenmerkGroep")
+		 	
 		 	/// Als PRNr verandert.
 		 	If (tmpPRNr '= PRNr){
 			 	Set ProductKenmerken = ##class(APPS.PM.dto.Kenm.ProductKenmerken).%New()
@@ -126,11 +128,11 @@
 		 	
 		 	 	
 			 /// Nagaan of dit record nog bij vorige hoort.
-		 	If (tmpUnID '= UnID || (tmpKenmerkGroep '= RS.Data("KenmerkGroep"))) {
+		 	If (tmpUnID '= UnID || (tmpKenmerkGroep '= KenmerkGroep)) {
 			 	Set ProductKenmerkenSet = ##class(APPS.PM.dto.Kenm.ProductKenmerkenSet).%New()	 				
 				Set ProductKenmerkenSet.UnID = UnID	 	 				 	 
 				/// GeneratieType
-				Set KenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr, tmpKenmerkGroep)
+				Set KenmerkenSets = ProductAPI.GeefProductKenmerkenSets(PRNr, KenmerkGroep)
 				Set KenmerkenSet = KenmerkenSets.GeefKenmerkenSet(UnID)
 				If (KenmerkenSet.GeefKenmerkWaarden("GeneratieType").Count() > 0){
 				 	Set ProductKenmerkenSet.GeneratieType = KenmerkenSet.GeefKenmerkWaarden("GeneratieType").GetAt(1)
@@ -141,14 +143,14 @@
 		 	}
 		 	
 		 	Set ProductKenmerk = ##class(APPS.PM.dto.Kenm.ProductKenmerk).%New()
-		 	Set ProductKenmerk.Naam = RS.Data("KenmerkNaam")
+		 	Set ProductKenmerk.Naam = KenmerkNaam
 		 	Set tmpDataDef=##class(Prod.Kenmerk.DataDefinitie).%OpenId(RS.Data("ID"))
 		 	Set ProductKenmerk.Waarden = tmpDataDef.Waarden	 
-		 	Do ProductKenmerkenSet.Kenmerken.Insert(ProductKenmerk)						 	
-		 	
+		 	Do ProductKenmerkenSet.Kenmerken.Insert(ProductKenmerk)
+			 
 		 	Set tmpPRNr = PRNr	 		
-		 	Set tmpUnID = UnID
-		 	Set tmpKenmerkGroep = RS.Data("KenmerkGroep")
+		 	Set tmpUnID = UnID	
+		 	Set tmpKenmerkGroep = KenmerkGroep	 	
 		 }
 	 }