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