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