Index: vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68423 -r68436
--- vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68423)
+++ vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68436)
@@ -9,7 +9,7 @@
right
-BlumNaarAXKenmerkenConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter=""
+BlumNaarAXKenmerkenConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter="",BlumKenmerkenNaarWinkelkarLijnInfoConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkenNaarWinkelkarLijnInfoConverter=""
%Status
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68423 -r68436
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68423)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68436)
@@ -8,19 +8,25 @@
1
+
+WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter
+1
+
+
TECH.String
list
-BlumNaarAXKenmerkenConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter=""
+BlumNaarAXKenmerkenConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter="",BlumKenmerkenNaarWinkelkarLijnInfoConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter=""
1
1
%Status
1
@@ -71,7 +77,7 @@
} ElseIf (Variant = ##class(DOM.PM.enu.Variant).Revego()) {
Do ..ConverteerBlumKenmerkenNaarWinkelkarKenmerken(OPCGeefWinkelkarLijnInfoRequest.BlumKenmerken, VertaaldeWinkelkarInfo)
} Else {
-
+ // ...
}
Set GeefWinkelkarLijnInfoResponse = ##class(WS.Vhisie4.OPC.GeefWinkelkarLijnInfoResponse).%New()
@@ -102,7 +108,7 @@
While (KenmerkenIterator.HasNext()) {
Set BlumKenmerk = KenmerkenIterator.Next()
-
+
If ($$$Not(##class(TECH.StringUtils).ToLower(BlumKenmerk.Name) = "amount")) {
#dim GeconverteerdKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..BlumNaarAXKenmerkenConverter.ConverteerBlumKenmerkNaarAXKenmerk(BlumKenmerk)
@@ -122,21 +128,23 @@
#dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BlumKenmerken)
#dim TaalIterator as TECH.Iterator = ##class(DOM.enu.TaalCodeISO639x1).ValueListIterator()
#dim Index As %Integer = 0
+ #dim BlumKenmerk As WS.Vhisie4.OPC.dto.Kenmerk
While (TaalIterator.HasNext()) {
- #dim Taal As DOM.enu.Taal = TaalIterator.Next()
+ #dim Taal As DOM.enu.TaalCodeISO639x1 = TaalIterator.Next()
Set Index = Index + 1
+ Do ..VoegToeTaalKenmerk(VertaaldeWinkelkarInfo, Taal, Index)
- Set WinkelkarKenmerk1 = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
- Set WinkelkarKenmerk1.Name = "Data.Lijn.WinkelkarInfo["_Index_"].Taalcode"
- Set WinkelkarKenmerk1.Value = Taal
-
- Set WinkelkarKenmerk2 = ##class(WS.Vhisie4.OPC.dto.Kenmerk).%New()
- Set WinkelkarKenmerk2.Name = "Data.Lijn.WinkelkarInfo["_Index_"].Corpusbreedte"
- Set WinkelkarKenmerk2.Value = "900 mm"
+ Do KenmerkenIterator.Reset()
+ While (KenmerkenIterator.HasNext()) {
+ Set BlumKenmerk = KenmerkenIterator.Next()
- Do VertaaldeWinkelkarInfo.Insert(WinkelkarKenmerk1)
- Do VertaaldeWinkelkarInfo.Insert(WinkelkarKenmerk2)
+ #dim GeconverteerdKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..BlumNaarAXKenmerkenConverter.ConverteerBlumKenmerkNaarAXKenmerk(BlumKenmerk)
+ Set GeconverteerdKenmerk = ..BlumKenmerkNaarWinkelkarLijnInfoConverter.ConverteerBlumKenmerkNaarWinkelkarLijnInfo(GeconverteerdKenmerk, Taal, Index)
+ If ($$$HasLength(GeconverteerdKenmerk.Value) && $$$HasLength(GeconverteerdKenmerk.Name)) {
+ Do VertaaldeWinkelkarInfo.Insert(GeconverteerdKenmerk)
+ }
+ }
}
]]>
@@ -150,6 +158,18 @@
]]>
+
+VertaaldeWinkelkarInfo:%ListOfObjects,Taal:DOM.enu.TaalCodeISO639x1,Index:%Integer
+1
+
+
+
KenmerkenIterator:TECH.Iterator,AXConfiguratieArray:%ArrayOfDataTypes
1
Index: vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68423 -r68436
--- vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68423)
+++ vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68436)
@@ -6,20 +6,6 @@
Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
1
WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter
-
-
-OPCKenmerkenRequest:WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenRequest
-WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse
-
-
-
-
-OPCGeefWinkelkarLijnInfoRequest:WS.Vhisie4.OPC.GeefWinkelkarLijnInfoRequest
-WS.Vhisie4.OPC.GeefWinkelkarLijnInfoResponse
-
-