Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r68308 -r68314
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 68308)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 68314)
@@ -108,44 +108,72 @@
 	#dim AxBomKenmerkenValue As %String = DummyId _ ";" _ DummyAantal
 	
 	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest()
-	Set Identnummer = ##class(WS.Vhisie4.OPC.dto.Identnummer).%New()
-	Set Identnummer.Id = DummyId
-	Set Identnummer.Aantal = DummyAantal
+	#dim Identnummer As WS.Vhisie4.OPC.dto.Identnummer = ..GeefBlumIdentnummer(DummyId, DummyAantal)
 	Do OPCKenmerkenRequest.BlumIdentnummers.Insert(Identnummer)
 	
-	Set DummyVertaald = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
-	Set DummyVertaald.Name = AxBomKenmerkenNaam
-	Set DummyVertaald.Value = AxBomKenmerkenValue
+	#dim DummyVertaaldKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk(AxBomKenmerkenNaam, AxBomKenmerkenValue)
+	Set DummyLeegKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
 	
-	Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers).DanReturn(DummyVertaald)
-	Set ..OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New(..BlumNaarAxKenmerkenConverterMock)
+	Set BlumNaarAxKenmerkenConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter).%New()
+	Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers).DanReturn(DummyVertaaldKenmerk)
+	Do BlumNaarAxKenmerkenConverterMock.IndienMethodCall("ConverteerBlumKenmerkenNaarAXKenmerk", $$$ElkeWaarde).DanReturn(DummyLeegKenmerk)
+	
+	Set ..OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New(BlumNaarAxKenmerkenConverterMock)
 	#dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
 	
-	Do ..BlumNaarAxKenmerkenConverterMock.Verifieer()
 	Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 1)
 	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt(AxBomKenmerkenNaam),AxBomKenmerkenValue)
+	
+	Do BlumNaarAxKenmerkenConverterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: BomKenmerken leeg indien identnummers niet aanwezig">
 <Implementation><![CDATA[
-	#dim DummyId As %String = "DummyId"
-	#dim DummyAantal As %Integer = 1
-	#dim AxBomKenmerkenNaam As %String = "Data.BomKenmerken.Stuklijst"
-	#dim AxBomKenmerkenValue As %String = DummyId _ ";" _ DummyAantal
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest()		
+	Set DummyLeegKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
 	
-	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest()
-		
-	Set DummyVertaald = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
-	Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers).DanReturn(DummyVertaald)
+	Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers).DanReturn(DummyLeegKenmerk)
+	Do ..BlumNaarAxKenmerkenConverterMock.IndienMethodCall("ConverteerBlumKenmerkenNaarAXKenmerk", $$$ElkeWaarde).DanReturn(DummyLeegKenmerk)
+	
 	Set ..OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New(..BlumNaarAxKenmerkenConverterMock)
 	#dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
 	
-	Do ..BlumNaarAxKenmerkenConverterMock.Verifieer()
 	Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 0)
+	
+	Do ..BlumNaarAxKenmerkenConverterMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test: DataKenmerken worden opgevuld indien BlumKenmerken opgevuld">
+<Implementation><![CDATA[
+	#dim AxKenmerkenNaam As %String = "Data.Kenmerken.DummyKenmerk"
+	#dim AxKenmerkenValue As %String = "DummyVertaaldKenmerk"
+	
+	Set OPCKenmerkenRequest = ##class(WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest).%New()
+	Set BlumKenmerken = ##class(%ListOfObjects).%New()
+	#dim BlumKenmerkVariant As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Programme", "REVEGO")
+	#dim BlumKenmerkRandom As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("DummyKenmerkName", "DummyKenmerkValue")
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(BlumKenmerkVariant)
+	Do OPCKenmerkenRequest.BlumKenmerken.Insert(BlumKenmerkRandom)
+	
+	#dim DummyVertaaldKenmerkVariant As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Variant", "RVG")
+	#dim DummyVertaalKenmerkdRandom As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Random", "Random")
+	Set DummyLeegKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	
+	Set BlumNaarAxKenmerkenConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter).%New()
+	Do BlumNaarAxKenmerkenConverterMock.IndienMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", $$$ElkeWaarde).DanReturn(DummyLeegKenmerk)
+	Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumKenmerkenNaarAXKenmerk", BlumKenmerkVariant).DanReturn(DummyVertaaldKenmerkVariant).ExactAantalKeer(1)
+	Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumKenmerkenNaarAXKenmerk", BlumKenmerkRandom).DanReturn(DummyVertaalKenmerkdRandom).ExactAantalKeer(1)
+	
+	Set ..OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New(BlumNaarAxKenmerkenConverterMock)
+	#dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 2)
+	Do BlumNaarAxKenmerkenConverterMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefRequest">
 <FormalSpec>IsTestRequest:%Boolean=0,ValueKenmerkProgramme:%String="REVEGO"</FormalSpec>
 <Private>1</Private>
@@ -178,6 +206,32 @@
 	Do BlumKenmerken.Insert(Kenmerk)
 ]]></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>
+
+<Method name="GeefBlumKenmerk">
+<FormalSpec>BlumKenmerkName:%String,BlumKenmerkValue:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.OPC.dto.Kenmerk</ReturnType>
+<Implementation><![CDATA[
+	Set Kenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
+	Set Kenmerk.Name = BlumKenmerkName
+	Set Kenmerk.Value = BlumKenmerkValue
+	
+	Quit Kenmerk
+]]></Implementation>
+</Method>
 </Class>