Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68248 -r68262
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml	(.../OPCKenmerkenConverter.cls.xml)	(revision 68248)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml	(.../OPCKenmerkenConverter.cls.xml)	(revision 68262)
@@ -3,12 +3,98 @@
 <Class name="WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter">
 <Super>TECH.Mockable</Super>
 
+<Property name="MeldingenAanGebruiker">
+<Type>TECH.String</Type>
+<Collection>list</Collection>
+</Property>
+
 <Method name="ConverteerBlumKenmerkenNaarAXKenmerken">
 <FormalSpec>OPCKenmerkenRequest:WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest</FormalSpec>
 <ReturnType>WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse</ReturnType>
-<Implementation><![CDATA[	Quit ""
+<Implementation><![CDATA[
+	Set ..MeldingenAanGebruiker = ##class(%ListOfDataTypes).%New()
+	
+	#dim AXConfiguratieArray As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()
+	#dim AXBomKenmerkenList As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCKenmerkenRequest.BlumKenmerken)
+	#dim IdentnummerIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCKenmerkenRequest.BlumIdentnummers)
+	#dim IsTestRequest As %Boolean = ..BevatKenmerkenIteratorKenmerk(KenmerkenIterator, "test")
+	
+	If IsTestRequest {
+		Set AXConfiguratieArray = ..GeefTestAXConfiguratieArray()
+	}
+	
+	Set NaarAXGeconverteerdeKenmerkenResponse = ##class(WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse).%New()
+	Set NaarAXGeconverteerdeKenmerkenResponse.AxKenmerken = AXConfiguratieArray
+	Set NaarAXGeconverteerdeKenmerkenResponse.MeldingenAanGebruiker = ..MeldingenAanGebruiker
+	
+	Quit NaarAXGeconverteerdeKenmerkenResponse
 ]]></Implementation>
 </Method>
+
+<Method name="BevatKenmerkenIteratorKenmerk">
+<FormalSpec>KenmerkenIterator:TECH.Iterator,KenmerkName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim BevatKenmerkenIteratorKenmerk As %Boolean = $$$False
+	#dim IsKenmerkNameGevonden As %Boolean = $$$False
+	#dim Kenmerk As WS.Vhisie4.OPC.dto.Kenmerk
+	
+	Do KenmerkenIterator.Reset()
+	While (KenmerkenIterator.HasNext() & $$$Not(IsKenmerkNameGevonden)) {
+		Set Kenmerk = KenmerkenIterator.Next()
+		If (##class(TECH.StringUtils).ToLower(Kenmerk.Name) = KenmerkName) {
+			Set BevatKenmerkenIteratorKenmerk = $$$True
+			Set IsKenmerkNameGevonden = $$$True
+		}
+	}
+	Do KenmerkenIterator.Reset()
+	
+	Quit BevatKenmerkenIteratorKenmerk
+]]></Implementation>
+</Method>
+
+<Method name="GeefTestAXConfiguratieArray">
+<Private>1</Private>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set TestAXConfiguratieArray = ##class(%ArrayOfDataTypes).%New()
+	
+	Do TestAXConfiguratieArray.SetAt("01039285;1;01039286;2;01039287;3;01039288;4", "Data.Bomkenmerken.Stuklijst")
+	Do TestAXConfiguratieArray.SetAt(1, "Data.Kenmerken.Binnencorpusbreedteindetoepassing")
+	Do TestAXConfiguratieArray.SetAt("true", "Data.Kenmerken.Contactschakelaarhouderinbegrepen")
+	Do TestAXConfiguratieArray.SetAt(##class(DOM.PM.enu.RVGCorpusConstructie).MetSokkel(), "Data.Kenmerken.Corpusconstructie")
+	Do TestAXConfiguratieArray.SetAt(##class(DOM.PM.enu.RVGDeurOndersteuning).PartitieZijwand(), "Data.Kenmerken.Deurondersteuning")
+	Do TestAXConfiguratieArray.SetAt(2, "Data.Kenmerken.Diktegeleiderafdekking")
+	Do TestAXConfiguratieArray.SetAt(3, "Data.Kenmerken.Diktetussenplank")
+	Do TestAXConfiguratieArray.SetAt(4, "Data.Kenmerken.Frontbreedte")
+	Do TestAXConfiguratieArray.SetAt(5, "Data.Kenmerken.Frontbreedtelinks")
+	Do TestAXConfiguratieArray.SetAt(6, "Data.Kenmerken.Frontbreedterechts")
+	Do TestAXConfiguratieArray.SetAt(7, "Data.Kenmerken.Frontdikte")
+	Do TestAXConfiguratieArray.SetAt(8, "Data.Kenmerken.Fronthoogte")
+	Do TestAXConfiguratieArray.SetAt(9, "Data.Kenmerken.Frontoverstand")
+	Do TestAXConfiguratieArray.SetAt(10, "Data.Kenmerken.Frontoverstandlinks")
+	Do TestAXConfiguratieArray.SetAt(11, "Data.Kenmerken.Frontoverstandrechts")
+	Do TestAXConfiguratieArray.SetAt(12, "Data.Kenmerken.Inbouwbreedte")
+	Do TestAXConfiguratieArray.SetAt(13, "Data.Kenmerken.Inbouwdiepte")
+	Do TestAXConfiguratieArray.SetAt(14, "Data.Kenmerken.Nominalelengte")
+	Do TestAXConfiguratieArray.SetAt(15, "Data.Kenmerken.Nominalelengtelinks")
+	Do TestAXConfiguratieArray.SetAt(16, "Data.Kenmerken.Nominalelengterechts")
+	Do TestAXConfiguratieArray.SetAt(##class(DOM.PM.enu.RVGPlanmatigeAanpak).Nis(), "Data.Kenmerken.Planmatigeaanpak")
+	Do TestAXConfiguratieArray.SetAt(17, "Data.Kenmerken.Pocketachterwanddikte")
+	Do TestAXConfiguratieArray.SetAt(18, "Data.Kenmerken.Pocketdiepte")
+	Do TestAXConfiguratieArray.SetAt(19, "Data.Kenmerken.Pockethoogte")
+	Do TestAXConfiguratieArray.SetAt(20, "Data.Kenmerken.Pocketzijkantdikte")
+	Do TestAXConfiguratieArray.SetAt(##class(DOM.PM.enu.RVGToepassing).UnoRechts(), "Data.Kenmerken.Toepassing")
+	Do TestAXConfiguratieArray.SetAt(##class(DOM.PM.enu.Variant).Revego(), "Data.Kenmerken.Variant")	
+	Do TestAXConfiguratieArray.SetAt(21, "Data.Kenmerken.Voegboven")
+	Do TestAXConfiguratieArray.SetAt(22, "Data.Kenmerken.Voegonder")
+	Do TestAXConfiguratieArray.SetAt(23, "Data.Kenmerken.Voegzijkant")
+	
+	Quit TestAXConfiguratieArray
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r68261 -r68262
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 68261)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 68262)
@@ -3,8 +3,79 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: ">
+<Property name="OPCKenmerkenConverter">
+<Type>WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New()
+]]></Implementation>
 </Method>
+
+<Method name="Test: Request met test-kenmerk geeft response met dummy kenmerken">
+<Implementation><![CDATA[
+	#dim VoegToeTestRequestKenmerk As %Boolean = $$$True
+	#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequestMetKenmerken(VoegToeTestRequestKenmerk)
+	#dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
+	
+	Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 30)
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Bomkenmerken.Stuklijst"),"01039285;1;01039286;2;01039287;3;01039288;4")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Binnencorpusbreedteindetoepassing"),"1")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Contactschakelaarhouderinbegrepen"),"true")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Corpusconstructie"),"MetSokkel")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Deurondersteuning"),"PartitieZijwand")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Diktegeleiderafdekking"),"2")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Diktetussenplank"),"3")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Frontbreedte"),"4")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Frontbreedtelinks"),"5")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Frontbreedterechts"),"6")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Frontdikte"),"7")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Fronthoogte"),"8")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Frontoverstand"),"9")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Frontoverstandlinks"),"10")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Frontoverstandrechts"),"11")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Inbouwbreedte"),"12")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Inbouwdiepte"),"13")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Nominalelengte"),"14")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Nominalelengtelinks"),"15")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Nominalelengterechts"),"16")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Planmatigeaanpak"),"Nis")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Pocketachterwanddikte"),"17")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Pocketdiepte"),"18")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Pockethoogte"),"19")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Pocketzijkantdikte"),"20")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Toepassing"),"UnoRechts")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Variant"),"RVG")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Voegboven"),"21")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Voegonder"),"22")
+	Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Voegzijkant"),"23")
+]]></Implementation>
+</Method>
+
+<Method name="GeefRequestMetKenmerken">
+<FormalSpec>IsTestRequest:%Boolean=0</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest</ReturnType>
+<Implementation><![CDATA[
+	Set OPCKenmerkenRequest = ##class(WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest).%New()
+	Set BlumKenmerken = ##class(%ListOfObjects).%New()
+		
+	If IsTestRequest {
+		Set Kenmerk = ##class(WS.Vhisie4.OCC.dto.Kenmerk).%New()
+		Set Kenmerk.Name = "test"
+		Do BlumKenmerken.Insert(Kenmerk)
+	}
+	
+	Set OPCKenmerkenRequest.BlumKenmerken = BlumKenmerken
+	
+	Quit OPCKenmerkenRequest
+]]></Implementation>
+</Method>
 </Class>