Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarWinkelkarLijnInfo/Test.cls.xml
===================================================================
diff -u -r68600 -r68666
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarWinkelkarLijnInfo/Test.cls.xml (.../Test.cls.xml) (revision 68600)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarWinkelkarLijnInfo/Test.cls.xml (.../Test.cls.xml) (revision 68666)
@@ -17,19 +17,44 @@
+
+
+
+
+
+
+KlantId:%String="DummyKlantId",PersonalityId:%String="DummyPersonalityId",RequestId:%String="DummyRequestId",SessieId:%String="DummySessieId"
+1
+WS.Vhisie4.RequestHeader
+
+
Index: vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68437 -r68666
--- vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68437)
+++ vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68666)
@@ -9,7 +9,7 @@
right
-BlumNaarAXKenmerkenConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter="",BlumKenmerkenNaarWinkelkarLijnInfoConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter=""
+BlumNaarAXKenmerkenConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter="",BlumKenmerkenNaarWinkelkarLijnInfoConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter="",Logger:vhLib.Logger=""
%Status
Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml
===================================================================
diff -u -r68591 -r68666
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 68591)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 68666)
@@ -3,11 +3,6 @@
vhUnitTest.TestCase
-
-WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter
-1
-
-
vhTest.Mock.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter
1
@@ -18,7 +13,6 @@
@@ -27,7 +21,8 @@
@@ -80,25 +75,37 @@
@@ -120,8 +127,8 @@
Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers).DanReturn(DummyVertaaldKenmerk)
Do BlumNaarAxKenmerkenConverterMock.IndienMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", $$$ElkeWaarde).DanReturn(DummyLeegKenmerk)
- Set ..OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New(BlumNaarAxKenmerkenConverterMock)
- #dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
+ 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.GetAt(AxBomKenmerkenNaam),AxBomKenmerkenValue)
@@ -139,8 +146,8 @@
Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers).DanReturn(DummyLeegKenmerk)
Do ..BlumNaarAxKenmerkenConverterMock.IndienMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", $$$ElkeWaarde).DanReturn(DummyLeegKenmerk)
- Set ..OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New(..BlumNaarAxKenmerkenConverterMock)
- #dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
+ 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.GetAt("Data.Kenmerken.Familie"), "Meubel")
@@ -169,8 +176,8 @@
Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", BlumKenmerkVariant).DanReturn(DummyVertaaldKenmerkVariant).ExactAantalKeer(1)
Do BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", BlumKenmerkRandom).DanReturn(DummyVertaalKenmerkdRandom).ExactAantalKeer(1)
- Set ..OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New(BlumNaarAxKenmerkenConverterMock)
- #dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
+ 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 BlumNaarAxKenmerkenConverterMock.Verifieer()
@@ -184,7 +191,8 @@
#dim BlumKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Amount", "3")
Do OPCKenmerkenRequest.BlumKenmerken.Insert(BlumKenmerk)
- #dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = ..OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
+ Set OPCKenmerkenConverter = ##class(WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter).%New()
+ #dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest)
Do $$$AssertEquals(Resultaat.AxKenmerken.GetAt("Data.Lijn.Aantal"), "3")
]]>
@@ -248,6 +256,22 @@
Quit Kenmerk
]]>
+
+
+KlantId:%String="DummyKlantId",PersonalityId:%String="DummyPersonalityId",RequestId:%String="DummyRequestId",SessieId:%String="DummySessieId"
+1
+WS.Vhisie4.RequestHeader
+
+
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68664 -r68666
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68664)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68666)
@@ -13,20 +13,27 @@
1
+
+vhLib.Logger
+1
+
+
TECH.String
list
+1
-BlumNaarAXKenmerkenConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter="",BlumKenmerkenNaarWinkelkarLijnInfoConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter=""
+BlumNaarAXKenmerkenConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter="",BlumKenmerkenNaarWinkelkarLijnInfoConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter="",Logger:vhLib.Logger=""
1
1
%Status
1
@@ -49,8 +56,7 @@
Do ..ConverteerIdentnummers(OPCKenmerkenRequest.BlumIdentnummers, AXConfiguratieArray)
Do ..ConverteerBlumKenmerken(OPCKenmerkenRequest.BlumKenmerken, AXConfiguratieArray)
} Else {
- #dim OPCKenmerkenRequestHeader As WS.Vhisie4.RequestHeader = OPCKenmerkenRequest.Header
- //...
+ Do ..LogOnbekendeVariant(Variant, OPCKenmerkenRequest.Header)
}
Set NaarAXGeconverteerdeKenmerkenResponse = ##class(WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse).%New()
@@ -77,7 +83,7 @@
} ElseIf (Variant = ##class(DOM.PM.enu.Variant).Revego()) {
Do ..ConverteerBlumKenmerkenNaarWinkelkarKenmerken(OPCGeefWinkelkarLijnInfoRequest.BlumKenmerken, VertaaldeWinkelkarInfo)
} Else {
- // ...
+ Do ..LogOnbekendeVariant(Variant, OPCGeefWinkelkarLijnInfoRequest.Header)
}
Set GeefWinkelkarLijnInfoResponse = ##class(WS.Vhisie4.OPC.GeefWinkelkarLijnInfoResponse).%New()
@@ -142,13 +148,35 @@
]]>
+
+Variant:%String,OPCRequestHeader:WS.Vhisie4.RequestHeader
+1
+
+
+
KenmerkenIterator:TECH.Iterator,AXConfiguratieArray:%ArrayOfDataTypes
1
+
+AXConfiguratieArray:%ArrayOfDataTypes
+1
+
+
+
VertaaldeWinkelkarInfo:%ListOfObjects,Taal:DOM.enu.Taal,Index:%Integer
1
@@ -169,13 +197,6 @@
]]>
-
-AXConfiguratieArray:%ArrayOfDataTypes
-1
-
-
-
KenmerkenIterator:TECH.Iterator,KenmerkName:%String
1