Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r68345 -r68393
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml (.../Test.cls.xml) (revision 68345)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml (.../Test.cls.xml) (revision 68393)
@@ -29,14 +29,15 @@
#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest(VoegToeTestRequestKenmerk)
#dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
- Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 32)
+ Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 33)
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.Familie"),"Meubel")
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")
@@ -122,14 +123,15 @@
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(), 1)
+ Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 2)
Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt(AxBomKenmerkenNaam),AxBomKenmerkenValue)
+ Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Familie"), "Meubel")
Do BlumNaarAxKenmerkenConverterMock.Verifieer()
]]>
-
+
@@ -169,7 +172,7 @@
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 $$$AssertEquals(Resultaat.AxKenmerken.Count(), 3)
Do BlumNaarAxKenmerkenConverterMock.Verifieer()
]]>
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68371 -r68393
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68371)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68393)
@@ -91,7 +91,9 @@
KenmerkenIterator:TECH.Iterator,AXConfiguratieArray:%ArrayOfDataTypes
1
-
@@ -117,6 +119,13 @@
]]>
+
+AXConfiguratieArray:%ArrayOfDataTypes
+1
+
+
+
KenmerkenIterator:TECH.Iterator,KenmerkName:%String
1
@@ -191,6 +200,7 @@
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(##class(DOM.PM.enu.Familie).Meubel(), "Data.Kenmerken.Familie")
Do TestAXConfiguratieArray.SetAt(4, "Data.Kenmerken.Frontbreedte")
Do TestAXConfiguratieArray.SetAt(5, "Data.Kenmerken.Frontbreedtelinks")
Do TestAXConfiguratieArray.SetAt(6, "Data.Kenmerken.Frontbreedterechts")