Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumIdentnummersNaarAxKenmerk/Test.cls.xml
===================================================================
diff -u -r68956 -r68957
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumIdentnummersNaarAxKenmerk/Test.cls.xml	(.../Test.cls.xml)	(revision 68956)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumIdentnummersNaarAxKenmerk/Test.cls.xml	(.../Test.cls.xml)	(revision 68957)
@@ -15,8 +15,8 @@
 	#dim Resultaat As %ListOfObjects = BlumNaarAXKenmerkenConverter.ConverteerBlumIdentnummersNaarAxKenmerk(BlumIdentnummers)
 	
 	If ($$$AssertEquals(Resultaat.Count(), 1)) {
-		#dim StukLijst1 As %String = Resultaat.GetAt(1)
-		
+		#dim StukLijst1 As WS.Vhisie4.OPC.dto.Kenmerk = Resultaat.GetAt(1)
+				
 		Do $$$AssertEquals(StukLijst1.Name, "Data.Bomkenmerken.Stuklijst1")
 		
 		If ($$$AssertEquals($Length(StukLijst1.Value, ";"), 5)) {
@@ -38,8 +38,8 @@
 	#dim Resultaat As %ListOfObjects = BlumNaarAXKenmerkenConverter.ConverteerBlumIdentnummersNaarAxKenmerk(BlumIdentnummers)
 	
 	If ($$$AssertEquals(Resultaat.Count(), 2)) {
-		#dim StukLijst1 As %String = Resultaat.GetAt(1)
-		#dim StukLijst2 As %String = Resultaat.GetAt(2)
+		#dim StukLijst1 As WS.Vhisie4.OPC.dto.Kenmerk = Resultaat.GetAt(1)
+		#dim StukLijst2 As WS.Vhisie4.OPC.dto.Kenmerk = Resultaat.GetAt(2)
 		
 		Do $$$AssertEquals(StukLijst1.Name, "Data.Bomkenmerken.Stuklijst1")
 		Do $$$AssertTrue($Length(StukLijst1.Value) < 100)
@@ -70,7 +70,7 @@
 	#dim Resultaat As %ListOfObjects = BlumNaarAXKenmerkenConverter.ConverteerBlumIdentnummersNaarAxKenmerk(BlumIdentnummers)
 	
 	If ($$$AssertEquals(Resultaat.Count(), 1)) {
-		#dim StukLijst1 As %String = Resultaat.GetAt(1)
+		#dim StukLijst1 As WS.Vhisie4.OPC.dto.Kenmerk = Resultaat.GetAt(1)
 		
 		Do $$$AssertEquals(StukLijst1.Name, "Data.Bomkenmerken.Stuklijst1")
 		
@@ -90,15 +90,9 @@
 
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("BlumIdentnummer moet ingevuld worden.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", Substrings))
+	
 	Set BlumNaarAXKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter).%New()
-	#dim Resultaat As WS.Vhisie4.OPC.dto.Kenmerk = BlumNaarAXKenmerkenConverter.ConverteerBlumIdentnummersNaarAxKenmerk(BlumIdentnummers)
-
-	Do $$$AssertEquals(Resultaat.Name, "Data.Bomkenmerken.Stuklijst")
-		
-	If ($$$AssertEquals($Length(Resultaat.Value, ";"), 3)) {
-		Do $$$AssertEquals($Piece(Resultaat.Value, ";", 1, 1), 1)
-		Do $$$AssertEquals($Piece(Resultaat.Value, ";", 2, 2), "01234")
-	}
+	Do BlumNaarAXKenmerkenConverter.ConverteerBlumIdentnummersNaarAxKenmerk(BlumIdentnummers)
 ]]></Implementation>
 </Method>
 
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml
===================================================================
diff -u -r68956 -r68957
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml	(.../BlumNaarAXKenmerkenConverter.cls.xml)	(revision 68956)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml	(.../BlumNaarAXKenmerkenConverter.cls.xml)	(revision 68957)
@@ -3,6 +3,11 @@
 <Class name="WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter">
 <Super>TECH.Mockable</Super>
 
+<Parameter name="KenmerkBomNaamPrefix">
+<Type>%String</Type>
+<Default>Data.Bomkenmerken</Default>
+</Parameter>
+
 <Parameter name="KenmerkNaamPrefix">
 <Type>%String</Type>
 <Default>Data.Kenmerken</Default>
@@ -17,12 +22,12 @@
 <FormalSpec>BlumIdentnummerLijst:%ListOfObjects</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	Set VertaaldeKenmerken = ##class(%ListOfObjects).%New()
+	Set AxStuklijstKenmerken = ##class(%ListOfObjects).%New()
 	#dim BlumIdentnummer As WS.Vhisie4.OPC.dto.Identnummer
 	#dim BlumIdentnummersIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BlumIdentnummerLijst)
 	#dim StukLijst As %String = ""
 	#dim Index As %Integer = 1
-
+	
 	While (BlumIdentnummersIterator.HasNext()) {		
 		Set BlumIdentnummer = BlumIdentnummersIterator.Next()
 				
@@ -36,41 +41,32 @@
 		
 		If (($Length(StukLijst) + $Length(BlumIdentnummer.Aantal _";"_BlumIdentnummer.Id _";")) > 100)
 		{
-			Set VertaaldKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
-			Set VertaaldKenmerk.Name = "Data.Bomkenmerken.Stuklijst" _ Index
-			Set VertaaldKenmerk.Value = StukLijst
-			Do VertaaldeKenmerken.Insert(VertaaldKenmerk)
+			#dim AxKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefAxKenmerk(..#KenmerkBomNaamPrefix _ ".Stuklijst" _ Index, StukLijst)
+			Do AxStuklijstKenmerken.Insert(AxKenmerk)
 			
 			Set Index = Index + 1
 			Set StukLijst = BlumIdentnummer.Aantal _";"_BlumIdentnummer.Id _";"
 			
 		} Else {
 			Set StukLijst = StukLijst_BlumIdentnummer.Aantal _";"_BlumIdentnummer.Id _";"
 		}
-		
-		
 	}
 	
 	If ($$$HasLength(StukLijst)) {
-		Set VertaaldKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
-		Set VertaaldKenmerk.Name = "Data.Bomkenmerken.Stuklijst" _ Index
-		Set VertaaldKenmerk.Value = StukLijst
-		
-		Do VertaaldeKenmerken.Insert(VertaaldKenmerk)
+		Set AxKenmerk = ..GeefAxKenmerk(..#KenmerkBomNaamPrefix _ ".Stuklijst" _ Index, StukLijst)		
+		Do AxStuklijstKenmerken.Insert(AxKenmerk)
 	}
 	
-	Quit VertaaldeKenmerken
+	Quit AxStuklijstKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="GeefFamilieKenmerk">
 <ReturnType>WS.Vhisie4.OPC.dto.Kenmerk</ReturnType>
 <Implementation><![CDATA[
-	Set FamilieKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
-	Set FamilieKenmerk.Value = ##class(DOM.PM.enu.Familie).Meubel()
-	Set FamilieKenmerk.Name = ..#KenmerkNaamPrefix _ ".Familie"
-	
-	Quit FamilieKenmerk
+	#dim AxFamilieKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefAxKenmerk(..#KenmerkNaamPrefix _ ".Familie", ##class(DOM.PM.enu.Familie).Meubel())
+
+	Quit AxFamilieKenmerk
 ]]></Implementation>
 </Method>
 
@@ -185,6 +181,20 @@
 	Quit KenmerkValueBlum
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAxKenmerk">
+<FormalSpec>Name:%String,Value:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.OPC.dto.Kenmerk</ReturnType>
+<Implementation><![CDATA[
+	Set AxKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	
+	Set AxKenmerk.Name = Name
+	Set AxKenmerk.Value = Value
+	
+	Quit AxKenmerk
+]]></Implementation>
+</Method>
 </Class>