Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml
===================================================================
diff -u -r68313 -r68321
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml	(.../BlumNaarAXKenmerkenConverter.cls.xml)	(revision 68313)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml	(.../BlumNaarAXKenmerkenConverter.cls.xml)	(revision 68321)
@@ -14,6 +14,15 @@
 
 	While (BlumIdentnummersIterator.HasNext()) {		
 		Set BlumIdentnummer = BlumIdentnummersIterator.Next()
+		
+		If ($$$Not($$$HasLength(BlumIdentnummer.Aantal))) {
+			Set BlumIdentnummer.Aantal = 1
+		}
+		
+		If ($$$Not($$$HasLength(BlumIdentnummer.Id))) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("BlumIdentnummer moet ingevuld worden.")) 
+		}
+		
 		Set StukLijst = StukLijst_BlumIdentnummer.Aantal _";"_BlumIdentnummer.Id _";"
 	}
 	
Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumIdentnummersNaarAxKenmerk/Test.cls.xml
===================================================================
diff -u -r68320 -r68321
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumIdentnummersNaarAxKenmerk/Test.cls.xml	(.../Test.cls.xml)	(revision 68320)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumIdentnummersNaarAxKenmerk/Test.cls.xml	(.../Test.cls.xml)	(revision 68321)
@@ -3,8 +3,79 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter.ConverteerBlumIdentnummersNaarAxKenmerk.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: ">
+<Method name="Test: Lijst van identnummers wordt vertaald naar een string seperated door puntkomma">
+<Implementation><![CDATA[
+	Set BlumIdentnummers = ##class(%ListOfObjects).%New()
+	#dim Identnummer1 As WS.Vhisie4.OPC.dto.Identnummer = ..GeefBlumIdentnummer("01234", 1)
+	#dim Identnummer2 As WS.Vhisie4.OPC.dto.Identnummer = ..GeefBlumIdentnummer("56789", 2)
+	Do BlumIdentnummers.Insert(Identnummer1)
+	Do BlumIdentnummers.Insert(Identnummer2)
+	
+	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, ";"), 5)) {
+		Do $$$AssertEquals($Piece(Resultaat.Value, ";", 1, 1), 1)
+		Do $$$AssertEquals($Piece(Resultaat.Value, ";", 2, 2), "01234")
+		Do $$$AssertEquals($Piece(Resultaat.Value, ";", 3, 3), 2)
+		Do $$$AssertEquals($Piece(Resultaat.Value, ";", 4, 4), "56789")
+		Do $$$AssertEquals($Piece(Resultaat.Value, ";", 5, 5), "")
+	}
+]]></Implementation>
 </Method>
+
+<Method name="Test: Identnummer met onbekend aantal, wordt gedefault op aantal = 1">
+<Implementation><![CDATA[
+	Set BlumIdentnummers = ##class(%ListOfObjects).%New()
+	#dim Identnummer As WS.Vhisie4.OPC.dto.Identnummer = ..GeefBlumIdentnummer("01234", "")
+	Do BlumIdentnummers.Insert(Identnummer)
+
+	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")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Test: Identnummer met onbekend id, gooit InvalidInputException">
+<Implementation><![CDATA[
+	Set BlumIdentnummers = ##class(%ListOfObjects).%New()
+	#dim Identnummer As WS.Vhisie4.OPC.dto.Identnummer = ..GeefBlumIdentnummer("", 1)
+	Do BlumIdentnummers.Insert(Identnummer)
+
+	#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")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBlumIdentnummer">
+<FormalSpec>BlumIdentnummer:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.OPC.dto.Identnummer</ReturnType>
+<Implementation><![CDATA[
+	Set Kenmerk = ##class(WS.Vhisie4.OPC.dto.Identnummer).%New()
+	Set Kenmerk.Id = BlumIdentnummer
+	Set Kenmerk.Aantal = Aantal
+	
+	Quit Kenmerk
+]]></Implementation>
+</Method>
 </Class>