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")