Index: vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68436 -r68437
--- vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68436)
+++ vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68437)
@@ -6,6 +6,20 @@
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
+
+
Index: vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68436 -r68437
--- vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68436)
+++ vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68437)
@@ -9,7 +9,7 @@
right
-BlumNaarAXKenmerkenConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter="",BlumKenmerkenNaarWinkelkarLijnInfoConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkenNaarWinkelkarLijnInfoConverter=""
+BlumNaarAXKenmerkenConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumNaarAXKenmerkenConverter="",BlumKenmerkenNaarWinkelkarLijnInfoConverter:WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.BlumKenmerkNaarWinkelkarLijnInfoConverter=""
%Status
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68436 -r68437
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68436)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68437)
@@ -108,14 +108,12 @@
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)
-
- If ($$$HasLength(GeconverteerdKenmerk.Value) && $$$HasLength(GeconverteerdKenmerk.Name)) {
- Do AXConfiguratieArray.SetAt(GeconverteerdKenmerk.Value, GeconverteerdKenmerk.Name)
- }
+
+ #dim GeconverteerdKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..BlumNaarAXKenmerkenConverter.ConverteerBlumKenmerkNaarAXKenmerk(BlumKenmerk)
+ If ($$$HasLength(GeconverteerdKenmerk.Value) && $$$HasLength(GeconverteerdKenmerk.Name)) {
+ Do AXConfiguratieArray.SetAt(GeconverteerdKenmerk.Value, GeconverteerdKenmerk.Name)
}
+
}
Do ..VoegToeDefaults(KenmerkenIterator, AXConfiguratieArray)
]]>
@@ -152,9 +150,7 @@
KenmerkenIterator:TECH.Iterator,AXConfiguratieArray:%ArrayOfDataTypes
1
-
@@ -170,28 +166,6 @@
]]>
-
-KenmerkenIterator:TECH.Iterator,AXConfiguratieArray:%ArrayOfDataTypes
-1
-
-
-
AXConfiguratieArray:%ArrayOfDataTypes
1
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml
===================================================================
diff -u -r68364 -r68437
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 68364)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/BlumNaarAXKenmerkenConverter.cls.xml (.../BlumNaarAXKenmerkenConverter.cls.xml) (revision 68437)
@@ -95,6 +95,7 @@
Quit:(##class(TECH.StringUtils).StartsWith(KenmerkNameBlum, "internal width within the application")) "Data.Kenmerken.Binnencorpusbreedteindetoepassing"
Quit:(##class(TECH.StringUtils).StartsWith(KenmerkNameBlum, "internal height within the application")) "Data.Kenmerken.Binnencorpushoogteindetoepassing"
Quit:(##class(TECH.StringUtils).StartsWith(KenmerkNameBlum, "internal depth within the application")) "Data.Kenmerken.Binnencorpusdiepteindetoepassing"
+ Quit:(KenmerkNameBlum="amount") "Data.Lijn.Aantal"
Quit ..#OnvertaalbaarKenmerk
]]>