Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml
===================================================================
diff -u -r68293 -r68308
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml (.../Test.cls.xml) (revision 68293)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/Test.cls.xml (.../Test.cls.xml) (revision 68308)
@@ -29,7 +29,7 @@
#dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest(VoegToeTestRequestKenmerk)
#dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
- Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 30)
+ Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 31)
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")
@@ -60,6 +60,7 @@
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")
+ Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Lijn.Aantal"),"1")
]]>
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68293 -r68308
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68293)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68308)
@@ -34,7 +34,6 @@
#dim AXConfiguratieArray As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%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")
#dim Variant As %String = ..GeefVariant(KenmerkenIterator)
@@ -130,6 +129,8 @@
%ArrayOfDataTypes