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 @@