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