Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml =================================================================== diff -u -r72096 -r72964 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml (.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml) (revision 72096) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml (.../BlumKenmerkNaarWinkelkarLijnInfoConverter.cls.xml) (revision 72964) @@ -44,12 +44,14 @@ Set VertaaldeWinkelkarKenmerk = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New() #dim BlumKenmerkCopy As WS.Vhisie4.OPC.dto.Kenmerk = BlumKenmerk.%ConstructClone() - If ($$$HasLength(BlumKenmerk.Name) && $$$HasLength(BlumKenmerk.Value)) { + If ($$$HasLength(BlumKenmerk.Name) && $$$HasLength(BlumKenmerk.Value)) ||($$$HasLength(BlumKenmerk.Key) && $$$HasLength(BlumKenmerk.ValueKey)) { Set BlumKenmerkCopy.Name = ##class(TECH.StringUtils).ToLower(BlumKenmerkCopy.Name) Set BlumKenmerkCopy.Value = ##class(TECH.StringUtils).ToLower(BlumKenmerkCopy.Value) + Set BlumKenmerkCopy.Key = ##class(TECH.StringUtils).ToLower(BlumKenmerkCopy.Key) + Set BlumKenmerkCopy.ValueKey = ##class(TECH.StringUtils).ToLower(BlumKenmerkCopy.ValueKey) - Set VertaaldeWinkelkarKenmerk.Name = ..VertaalKenmerkNameNaarWinkelkarLijnInfo(BlumKenmerkCopy.Name, Index) - Set VertaaldeWinkelkarKenmerk.Value = ..VertaalKenmerkValueNaarWinkelkarLijnInfo(BlumKenmerkCopy.Value, BlumKenmerk.Name) + Set VertaaldeWinkelkarKenmerk.Name = ..VertaalKenmerkKeyNaarWinkelkarLijnInfo(BlumKenmerkCopy.Key, BlumKenmerkCopy.Name, Index) + Set VertaaldeWinkelkarKenmerk.Value = ..VertaalKenmerkValueKeyNaarWinkelkarLijnInfo(BlumKenmerkCopy.ValueKey, BlumKenmerkCopy.Value, BlumKenmerk.Name) } Quit VertaaldeWinkelkarKenmerk @@ -73,28 +75,27 @@ WS.Vhisie4.OPC.dto.Kenmerk WS.Vhisie4.OPC.dto.Kenmerk - -KenmerkNameBlum:%String,Index:%String + +KenmerkKeyBlum:%String,KenmerkNameBlum:%String,Index:%String 1 %String - -KenmerkValueBlum:%String,KenmerkNameBlum:%String + +KenmerkValueKeyBlum:%String,KenmerkValueBlum:%String,KenmerkNameBlum:%String 1 %String KenmerkenIterator:TECH.Iterator,KenmerkName:%String 1 -WS.Vhisie4.OCC.dto.Kenmerk +WS.Vhisie4.OPC.dto.Kenmerk @@ -59,7 +59,7 @@ #dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarWinkelkarLijnInfo(OPCKenmerkenRequest) Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 1) - Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1),"Het kenmerk 'Programme' bevat een ongeldige waarde '"_DummyVariant_"'. Enkel 'REVEGO' wordt ondersteund.") + Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1),"Het kenmerk 'prerevego_programm' bevat een ongeldige waarde '"_DummyVariant_"'. Enkel 'REVEGO' wordt ondersteund.") Do LoggerMock.Verifieer() ]]> @@ -134,8 +134,8 @@ 1 Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml =================================================================== diff -u -r72940 -r72964 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 72940) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 72964) @@ -160,148 +160,151 @@ - -KenmerkNameBlum:%String + +KenmerkKeyBlum:%String,KenmerkNameBlum:%String 1 - -KenmerkValueBlum:%String,KenmerkNameBlum:%String + +KenmerkValueKeyBlum:%String,KenmerkKeyBlum:%String,KenmerkValueBlum:%String="",KenmerkNameBlum:%String="" 1 %String @@ -340,7 +343,7 @@ KenmerkNameBlum:%String 1 %Boolean - Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumKenmerkNaarAXKenmerk/Test.cls.xml =================================================================== diff -u -r72940 -r72964 --- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumKenmerkNaarAXKenmerk/Test.cls.xml (.../Test.cls.xml) (revision 72940) +++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter/ConverteerBlumKenmerkNaarAXKenmerk/Test.cls.xml (.../Test.cls.xml) (revision 72964) @@ -33,193 +33,188 @@ - @@ -228,9 +223,15 @@ 1 1 @@ -129,8 +129,8 @@ WS.Vhisie4.OPC.dto.Kenmerk Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/ConverteerBlumKenmerkNaarWinkelkarLijnInfo/Test.cls.xml =================================================================== diff -u -r72096 -r72964 --- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/ConverteerBlumKenmerkNaarWinkelkarLijnInfo/Test.cls.xml (.../Test.cls.xml) (revision 72096) +++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumKenmerkNaarWinkelkarLijnInfoConverter/ConverteerBlumKenmerkNaarWinkelkarLijnInfo/Test.cls.xml (.../Test.cls.xml) (revision 72964) @@ -38,21 +38,21 @@ @@ -61,8 +61,13 @@ 1 TECH.String + + + +TECH.String 1 TECH.String + + + +TECH.String 1 @@ -29,6 +37,12 @@ Value + +Key + + +ValueKey + Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml =================================================================== diff -u -r72763 -r72964 --- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 72763) +++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/ConverteerBlumKenmerkenNaarAXKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 72964) @@ -14,8 +14,8 @@ 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") + #dim BlumKenmerkVariant As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("Data.Kenmerken.Familie", "Meubel") + #dim BlumKenmerkVerpakkingType As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("Data.Kenmerken.Verpakkingtype", "Pallet") Set ..BlumNaarAxKenmerkenConverterMock = ##class(vhTest.Mock.WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter).%New() Do ..BlumNaarAxKenmerkenConverterMock.IndienMethodCall("ConverteerBlumKenmerkNaarAXKenmerk", $$$ElkeWaarde).DanReturn(DummyLeegKenmerk) @@ -94,7 +94,7 @@ #dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest) Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 1) - Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1),"Het kenmerk 'Programme' is niet meegegeven en is bij de vertaling van de decision list nodig om te bepalen over welke 'Variant' het gaat.") + Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1),"Het kenmerk 'prerevego_programm' is niet meegegeven en is bij de vertaling van de decision list nodig om te bepalen over welke 'Variant' het gaat.") Do LoggerMock.Verifieer() ]]> @@ -113,7 +113,7 @@ #dim Resultaat As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse = OPCKenmerkenConverter.ConverteerBlumKenmerkenNaarAXKenmerken(OPCKenmerkenRequest) Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.Count(), 1) - Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1),"Het kenmerk 'Programme' bevat een ongeldige waarde '"_DummyVariant_"'. Enkel 'REVEGO' wordt ondersteund.") + Do $$$AssertEquals(Resultaat.MeldingenAanGebruiker.GetAt(1),"Het kenmerk 'prerevego_programm' bevat een ongeldige waarde '"_DummyVariant_"'. Enkel 'REVEGO' wordt ondersteund.") Do LoggerMock.Verifieer() ]]> @@ -131,12 +131,12 @@ #dim AxBomKenmerkenValue2 As %String = DummyId1 _ ";" _ DummyAantal1 Set AfbeeldingcodeBepalerMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.RVG.AfbeeldingCodeBepaler).%New() #dim DummyLegeLijstGeconverteerdeInkortingen As List of WS.Vhisie4.OPC.dto.Kenmerk = ##class(%ListOfObjects).%New() - #dim BlumKenmerkProductieWijze As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Productiewijze", "LC") - #dim KenmerkAfbeeldingCode As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Berekendewaarden.Afbeeldingcode", "UnoLinks") + #dim BlumKenmerkProductieWijze As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("Data.Kenmerken.Productiewijze", "LC") + #dim KenmerkAfbeeldingCode As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("Data.Berekendewaarden.Afbeeldingcode", "UnoLinks") #dim AfbeeldingCode As %String = "DummyAfbeelding" - #dim BlumKenmerkApplication As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Application", "revego uno, left") - #dim DummyVertaaldKenmerkToepassing As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Toepassing", "UnoLinks") + #dim BlumKenmerkApplication As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("anwendung", "801_links") + #dim DummyVertaaldKenmerkToepassing As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("Data.Kenmerken.Toepassing", "UnoLinks") #dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest() #dim Identnummer1 As WS.Vhisie4.OPC.dto.Identnummer = ..GeefBlumIdentnummer(DummyId1, DummyAantal1) @@ -145,8 +145,8 @@ Do OPCKenmerkenRequest.BlumIdentnummers.Insert(Identnummer2) #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)) + Do DummyVertaaldKenmerk.Insert(..GeefBlumKenmerkInNameEnValue(AxBomKenmerkenNaam1, AxBomKenmerkenValue1)) + Do DummyVertaaldKenmerk.Insert(..GeefBlumKenmerkInNameEnValue(AxBomKenmerkenNaam2, AxBomKenmerkenValue2)) Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers, "").DanReturn(DummyVertaaldKenmerk) Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumInkortingenAxKenmerk", OPCKenmerkenRequest.BlumInkortAfmetingen).DanReturn(DummyLegeLijstGeconverteerdeInkortingen) @@ -174,7 +174,7 @@ #dim OPCKenmerkenRequest As WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest = ..GeefRequest() Set AfbeeldingcodeBepalerMock = ##class(vhTest.Mock.APPS.PM.Maatwerk.impl.RVG.AfbeeldingCodeBepaler).%New() #dim DummyLegeLijstGeconverteerdeIdentNummers, DummyLegeLijstGeconverteerdeInkortingen As List of WS.Vhisie4.OPC.dto.Kenmerk = ##class(%ListOfObjects).%New() - #dim BlumKenmerkProductieWijze As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Productiewijze", "LC") + #dim BlumKenmerkProductieWijze As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("Data.Kenmerken.Productiewijze", "LC") #dim AfbeeldingCode As %String = "DummyAfbeelding" Do ..BlumNaarAxKenmerkenConverterMock.VerwachtMethodCall("ConverteerBlumIdentnummersNaarAxKenmerk", OPCKenmerkenRequest.BlumIdentnummers, "").DanReturn(DummyLegeLijstGeconverteerdeIdentNummers) @@ -201,21 +201,21 @@ #dim AxKenmerkenValue As %String = "DummyVertaaldKenmerk" Set OPCKenmerkenRequest = ##class(WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest).%New() - #dim BlumKenmerkVariant As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Programme", "REVEGO") + #dim BlumKenmerkVariant As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("prerevego_programm", "REVEGO") #dim BlumKenmerkRandom As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("DummyKenmerkName", "DummyKenmerkValue") - #dim BlumKenmerkApplication As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Application", "revego uno, left") + #dim BlumKenmerkApplication As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("anwendung", "801_links") Do OPCKenmerkenRequest.BlumKenmerken.Insert(BlumKenmerkApplication) Do OPCKenmerkenRequest.BlumKenmerken.Insert(BlumKenmerkVariant) Do OPCKenmerkenRequest.BlumKenmerken.Insert(BlumKenmerkRandom) #dim DummyLegeLijstGeconverteerdeInkortingen As List of WS.Vhisie4.OPC.dto.Kenmerk = ##class(%ListOfObjects).%New() - #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 BlumKenmerkProductieWijze As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.ProductieWijze", "LC") - #dim KenmerkAfbeeldingCode As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Berekendewaarden.Afbeeldingcode", "UnoLinks") - #dim DummyVertaaldKenmerkToepassing As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Toepassing", "UnoLinks") - #dim DummyVertaalKenmerkdRandom As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerk("Data.Kenmerken.Random", "Random") + #dim DummyVertaaldKenmerkVariant As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("Data.Kenmerken.Variant", "RVG") + #dim BlumKenmerkFamilie As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("Data.Kenmerken.Familie", "Meubel") + #dim BlumKenmerkVerpakkingType As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("Data.Kenmerken.Verpakkingtype", "Pallet") + #dim BlumKenmerkProductieWijze As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("Data.Kenmerken.ProductieWijze", "LC") + #dim KenmerkAfbeeldingCode As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("Data.Berekendewaarden.Afbeeldingcode", "UnoLinks") + #dim DummyVertaaldKenmerkToepassing As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("Data.Kenmerken.Toepassing", "UnoLinks") + #dim DummyVertaalKenmerkdRandom As WS.Vhisie4.OPC.dto.Kenmerk = ..GeefBlumKenmerkInNameEnValue("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() @@ -241,9 +241,9 @@ 1 @@ -320,8 +320,8 @@ 1 @@ -345,6 +345,19 @@ WS.Vhisie4.OPC.dto.Kenmerk + + + +BlumKenmerkName:%String="",BlumKenmerkValue:%String="" +1 +WS.Vhisie4.OPC.dto.Kenmerk + -ValueKenmerkProgramme:%String="REVEGO",ValueKenmerkProductiewijze:%String="assembled" +ValueKenmerkProgramme:%String="REVEGO",ValueKenmerkProductiewijze:%String="servicelevel_1" 1 WS.Vhisie4.OPC.GeefWinkelkarLijnInfoRequest 1 @@ -293,8 +293,8 @@ 1 @@ -305,8 +305,8 @@ WS.Vhisie4.OPC.dto.Kenmerk Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml =================================================================== diff -u -r72747 -r72964 --- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 72747) +++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 72964) @@ -55,11 +55,11 @@ #dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCKenmerkenRequest.BlumKenmerken) #dim IsTestRequest As %Boolean = ..BevatKenmerkenIteratorKenmerk(KenmerkenIterator, "test") #dim Variant As %String = ..GeefVariant(KenmerkenIterator) - + If IsTestRequest { Set AXConfiguratieArray = ..GeefTestAXConfiguratieArray() } ElseIf (Variant = ##class(DOM.PM.enu.Variant).Revego()) { - Do ..ConverteerBlumKenmerken(OPCKenmerkenRequest.BlumKenmerken, AXConfiguratieArray) + Do ..ConverteerBlumKenmerken(OPCKenmerkenRequest.BlumKenmerken, AXConfiguratieArray) //Conversie kenmerken als 1e conversie laten staan omdat volgende method hiervan iets gebruikt Do ..ConverteerIdentnummers(OPCKenmerkenRequest.BlumIdentnummers, AXConfiguratieArray) Do ..ConverteerInkortingen(OPCKenmerkenRequest.BlumInkortAfmetingen, AXConfiguratieArray) } Else { @@ -69,7 +69,7 @@ Set NaarAXGeconverteerdeKenmerkenResponse = ##class(WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse).%New() Set NaarAXGeconverteerdeKenmerkenResponse.AxKenmerken = AXConfiguratieArray Set NaarAXGeconverteerdeKenmerkenResponse.MeldingenAanGebruiker = ..MeldingenAanGebruiker - + Quit NaarAXGeconverteerdeKenmerkenResponse ]]> @@ -84,15 +84,15 @@ #dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OPCGeefWinkelkarLijnInfoRequest.BlumKenmerken) #dim IsTestRequest As %Boolean = ..BevatKenmerkenIteratorKenmerk(KenmerkenIterator, "test") #dim Variant As %String = ..GeefVariant(KenmerkenIterator) - + If (IsTestRequest) { Set VertaaldeWinkelkarInfo = ..GeefTestVertaaldeWinkelkarInfo() } 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() Set GeefWinkelkarLijnInfoResponse.WinkelkarInfoLijnen = VertaaldeWinkelkarInfo Set GeefWinkelkarLijnInfoResponse.MeldingenAanGebruiker = ..MeldingenAanGebruiker @@ -169,7 +169,7 @@ While (KenmerkenIterator.HasNext()) { Set BlumKenmerk = KenmerkenIterator.Next() - #dim GeconverteerdKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..BlumKenmerkNaarWinkelkarLijnInfoConverter.ConverteerBlumKenmerkNaarWinkelkarLijnInfo(BlumKenmerk, Index) + #dim GeconverteerdKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..BlumKenmerkNaarWinkelkarLijnInfoConverter.ConverteerBlumKenmerkNaarWinkelkarLijnInfo(BlumKenmerk, Index) Do ..VoegToeKenmerkAanWinkelkarInfo(VertaaldeWinkelkarInfo, GeconverteerdKenmerk) } } @@ -294,7 +294,7 @@ Do KenmerkenIterator.Reset() While (KenmerkenIterator.HasNext() && $$$Not(IsKenmerkNameGevonden)) { Set Kenmerk = KenmerkenIterator.Next() - If (##class(TECH.StringUtils).ToLower(Kenmerk.Name) = KenmerkName) { + If (##class(TECH.StringUtils).ToLower(Kenmerk.Key) = KenmerkName) { Set BevatKenmerkenIteratorKenmerk = $$$True Set IsKenmerkNameGevonden = $$$True } @@ -312,28 +312,28 @@