Index: vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml =================================================================== diff -u -r68956 -r69049 --- vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 68956) +++ vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 69049) @@ -22,9 +22,10 @@ ]]> - + +KenmerkNaam:%String,KenmerkValue:%String WS.Vhisie4.OPC.dto.Kenmerk - Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml =================================================================== diff -u -r68956 -r69049 --- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 68956) +++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 69049) @@ -14,8 +14,13 @@ Do ##super(aTestName) #dim DummyLeegKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk() + #dim BlumKenmerkVariant As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Familie", "Meubel") + #dim BlumKenmerkVerpakkingType As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Verpakkingtype", "Pallet") + Set ..BlumNaarAxKenmerkenConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter).%New() Do ..BlumNaarAxKenmerkenConverterMock.IndienMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", $$$ElkeWaarde).DanReturn(DummyLeegKenmerk) + Do ..BlumNaarAxKenmerkenConverterMock.IndienMethodCall("GeefKenmerk", "Familie", "Meubel").DanReturn(BlumKenmerkVariant) + Do ..BlumNaarAxKenmerkenConverterMock.IndienMethodCall("GeefKenmerk", "Verpakkingtype", "Pallet").DanReturn(BlumKenmerkVerpakkingType) ]]> @@ -131,20 +136,18 @@ #dim DummyVertaaldKenmerk As List of WS.Vhisie4.OPC.dto.Kenmerk = ##class(%ListOfObjects).%New() Do DummyVertaaldKenmerk.Insert(..GeefBlumKenmerk(AxBomKenmerkenNaam1, AxBomKenmerkenValue1)) Do DummyVertaaldKenmerk.Insert(..GeefBlumKenmerk(AxBomKenmerkenNaam2, AxBomKenmerkenValue2)) - - #dim BlumKenmerkVariant As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Familie", "Meubel") - #dim DummyLeegKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk() - + + #dim DummyLeegKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk() Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers).DanReturn(DummyVertaaldKenmerk) - Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("GeefFamilieKenmerk").DanReturn(BlumKenmerkVariant) 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(), 3) + Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 4) Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt(AxBomKenmerkenNaam1),AxBomKenmerkenValue1) Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt(AxBomKenmerkenNaam2),AxBomKenmerkenValue2) Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Familie"), "Meubel") + Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Kenmerken.Verpakkingtype"), "Pallet") Do ..BlumNaarAxKenmerkenConverterMock.Verifieer() ]]> @@ -154,17 +157,15 @@ @@ -183,19 +184,21 @@ #dim DummyVertaaldKenmerkVariant As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Variant", "RVG") #dim BlumKenmerkFamilie As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Familie", "Meubel") + #dim BlumKenmerkVerpakkingType As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Verpakkingtype", "Pallet") #dim DummyVertaalKenmerkdRandom As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Random", "Random") #dim DummyLegeLijstGeconverteerdeIdentNummers As List of WS.Vhisie4.OPC.dto.Kenmerk = ##class(%ListOfObjects).%New() Set BlumNaarAxKenmerkenConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter).%New() Do BlumNaarAxKenmerkenConverterMock.IndienMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", $$$ElkeWaarde).DanReturn(DummyLegeLijstGeconverteerdeIdentNummers) Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", BlumKenmerkVariant).DanReturn(DummyVertaaldKenmerkVariant).ExactAantalKeer(1) Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", BlumKenmerkRandom).DanReturn(DummyVertaalKenmerkdRandom).ExactAantalKeer(1) - Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("GeefFamilieKenmerk").DanReturn(BlumKenmerkVariant) + Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("GeefKenmerk", "Familie", "Meubel").DanReturn(BlumKenmerkFamilie) + Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("GeefKenmerk", "Verpakkingtype", "Pallet").DanReturn(BlumKenmerkVerpakkingType) 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(), 3) + Do $$$AssertEquals(Resultaat.AxKenmerken.Count(), 4) Do BlumNaarAxKenmerkenConverterMock.Verifieer() ]]> Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml =================================================================== diff -u -r68956 -r69049 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68956) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 69049) @@ -168,8 +168,11 @@ KenmerkenIterator:TECH.Iterator,AXConfiguratieArray:%ArrayOfDataTypes 1 Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml =================================================================== diff -u -r68957 -r69049 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 68957) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 69049) @@ -61,10 +61,11 @@ ]]> - + +KenmerkNaam:%String,KenmerkValue:%String WS.Vhisie4.OPC.dto.Kenmerk Index: vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml =================================================================== diff -u -r68956 -r69049 --- vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 68956) +++ vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 69049) @@ -21,7 +21,8 @@ ]]> - + +KenmerkNaam:%String,KenmerkValue:%String WS.Vhisie4.OPC.dto.Kenmerk