Index: vhDeploy/Maatwerk/Kenmerk/ProductKenmerkenUtils.cls.xml
===================================================================
diff -u -r29059 -r38590
--- vhDeploy/Maatwerk/Kenmerk/ProductKenmerkenUtils.cls.xml	(.../ProductKenmerkenUtils.cls.xml)	(revision 29059)
+++ vhDeploy/Maatwerk/Kenmerk/ProductKenmerkenUtils.cls.xml	(.../ProductKenmerkenUtils.cls.xml)	(revision 38590)
@@ -44,6 +44,65 @@
 	Do Kenmerken.Insert(ProductKenmerk)
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeWaardeViaKenmerkGroep">
+<FormalSpec>KenmerkGroep:%String,ProductID:%String,KenmerkNaam:%String,Waarde:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim KenmerkenService As APPS.PM.Kenmerk.impl.KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
+	
+	#dim ProductenKenmerken As APPS.PM.dto.Kenm.ProductenKenmerken = KenmerkenService.GeefProductKenmerken(##class(TECH.ListUtils).CreateListOfDataTypes(ProductID), ##class(TECH.ListUtils).CreateListOfDataTypes(KenmerkGroep))
+
+	#dim KenmerkIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ProductenKenmerken.Kenmerken)
+	While KenmerkIterator.HasNext(){
+		Do ..VoegToeWaardeViaProductKenmerken(KenmerkIterator.Next(), ProductID, KenmerkNaam, Waarde)
+	}
+	
+	Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeWaardeViaProductKenmerken">
+<FormalSpec>ProductKenmerken:APPS.PM.dto.Kenm.ProductKenmerken,ProductID:%String,KenmerkNaam:%String,Waarde:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim KenmerkGroepenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ProductKenmerken.KenmerkenGroepen)
+	While KenmerkGroepenIterator.HasNext() {
+		Do ..VoegToeWaardeViaKenmerkenGroep(KenmerkGroepenIterator.Next(), ProductID, KenmerkNaam, Waarde)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeWaardeViaKenmerkenGroep">
+<FormalSpec>KenmerkenGroep:APPS.PM.dto.Kenm.ProductKenmerkenGroep,ProductID:%String,KenmerkNaam:%String,Waarde:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim ProductKenmerkenSetIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(KenmerkenGroep.Sets)
+	While ProductKenmerkenSetIterator.HasNext(){
+		Do ..VoegToeWaardeViaProductKenmerkenSet(ProductKenmerkenSetIterator.Next(), ProductID, KenmerkNaam, Waarde)					
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeWaardeViaProductKenmerkenSet">
+<FormalSpec>ProductKenmerkenSet:APPS.PM.dto.Kenm.ProductKenmerkenSet,ProductID:%String,KenmerkNaam:%String,Waarde:%String</FormalSpec>
+<Implementation><![CDATA[
+	If (ProductKenmerkenSet.ProductID = ProductID) {
+		#dim ProductKenmerkIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ProductKenmerkenSet.Kenmerken)
+		While ProductKenmerkIterator.HasNext() {
+			Do ..VoegToeWaardeViaProductKenmerk(ProductKenmerkIterator.Next(), KenmerkNaam, Waarde)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeWaardeViaProductKenmerk">
+<FormalSpec>ProductKenmerk:APPS.PM.dto.Kenm.ProductKenmerk,KenmerkNaam:%String,Waarde:%String</FormalSpec>
+<Implementation><![CDATA[
+	If (ProductKenmerk.Naam = KenmerkNaam){
+		If 'ProductKenmerk.Waarden.Find(Waarde) {
+			Do ProductKenmerk.Waarden.Insert(Waarde)
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhDeploy/Maatwerk/TAOR/Deploy20161208xTAORSELAfdekkapBovenProductenFPCInvullen.cls.xml
===================================================================
diff -u -r38362 -r38590
--- vhDeploy/Maatwerk/TAOR/Deploy20161208xTAORSELAfdekkapBovenProductenFPCInvullen.cls.xml	(.../Deploy20161208xTAORSELAfdekkapBovenProductenFPCInvullen.cls.xml)	(revision 38362)
+++ vhDeploy/Maatwerk/TAOR/Deploy20161208xTAORSELAfdekkapBovenProductenFPCInvullen.cls.xml	(.../Deploy20161208xTAORSELAfdekkapBovenProductenFPCInvullen.cls.xml)	(revision 38590)
@@ -11,55 +11,16 @@
 <Method name="ExecCode">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	#Dim KenmerkGroep As TECH.String = "TAOR_SEL_AfdekkapBoven"
-	#Dim VerpakkingTypeKenmerk As TECH.String = "VerpakkingType"
+	#dim KenmerkGroep As TECH.String = "TAOR_SEL_AfdekkapBoven"
+	#dim VerpakkingTypeKenmerk As TECH.String = "VerpakkingType"
 	
-	#Dim INPTA1ZA7LIREKAPAL As TECH.String = "1238330"
-	#Dim INPTZ1ZA7LIREKAPZAL As TECH.String = "1238331"
+	#dim INPTA1ZA7LIREKAPAL As TECH.String = "1238330"
+	#dim INPTZ1ZA7LIREKAPZAL As TECH.String = "1238331"
 	
-	Do ..VoegToeWaarde(KenmerkGroep,INPTA1ZA7LIREKAPAL,VerpakkingTypeKenmerk,##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProcom())
-	Do ..VoegToeWaarde(KenmerkGroep,INPTZ1ZA7LIREKAPZAL,VerpakkingTypeKenmerk,##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProcom())
-]]></Implementation>
-</Method>
+	#dim ProductKenmerkenUtils As vhDeploy.Maatwerk.Kenmerk.ProductKenmerkenUtils = ##class(vhDeploy.Maatwerk.Kenmerk.ProductKenmerkenUtils).%New()
 
-<Method name="VoegToeWaarde">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>KenmerkGroep:%String,ProductID:%String,KenmerkNaam:%String,Waarde:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#Dim KenmerkenService As APPS.PM.Kenmerk.impl.KenmerkenService = ##class(APPS.PM.Kenmerk.impl.KenmerkenService).%New()
-	
-	#Dim ProductenKenmerken As APPS.PM.dto.Kenm.ProductenKenmerken = KenmerkenService.GeefProductKenmerken(##class(TECH.ListUtils).CreateListOfDataTypes(ProductID), ##class(TECH.ListUtils).CreateListOfDataTypes(KenmerkGroep))
-
-	#Dim KenmerkIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ProductenKenmerken.Kenmerken)
-	While KenmerkIterator.HasNext(){
-		
-		#Dim KenmerkGroepenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(KenmerkIterator.Next().KenmerkenGroepen)
-		While KenmerkGroepenIterator.HasNext() {
-			
-			#Dim ProductKenmerkenSetIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(KenmerkGroepenIterator.Next().Sets)
-			While ProductKenmerkenSetIterator.HasNext(){
-				
-				#Dim ProductKenmerkenSet As APPS.PM.dto.Kenm.ProductKenmerkenSet = ProductKenmerkenSetIterator.Next()
-				If (ProductKenmerkenSet.ProductID = ProductID) {
-					
-					#Dim ProductKenmerkIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ProductKenmerkenSet.Kenmerken)
-					While ProductKenmerkIterator.HasNext() {
-						
-						#Dim ProductKenmerk As APPS.PM.dto.Kenm.ProductKenmerk = ProductKenmerkIterator.Next()
-						If (ProductKenmerk.Naam = KenmerkNaam){
-							if 'ProductKenmerk.Waarden.Find(Waarde) {
-								Do ProductKenmerk.Waarden.Insert(Waarde)
-								w !, Waarde _" toegevoegd aan " _KenmerkNaam _" van de " _KenmerkGroep _ " voor productID " _ProductID
-							}
-						}
-					}
-				}
-			}
-		}
-	}
-	
-	Do KenmerkenService.BewaarProductenKenmerken(ProductenKenmerken)
+	Do ProductKenmerkenUtils.VoegToeWaardeViaKenmerkGroep(KenmerkGroep,INPTA1ZA7LIREKAPAL,VerpakkingTypeKenmerk,##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProcom())
+	Do ProductKenmerkenUtils.VoegToeWaardeViaKenmerkGroep(KenmerkGroep,INPTZ1ZA7LIREKAPZAL,VerpakkingTypeKenmerk,##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProcom())
 ]]></Implementation>
 </Method>
 </Class>