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