Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/dto/WinkelkarKenmerk.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/dto/WinkelkarKenmerk.cls.xml (revision 0)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/dto/WinkelkarKenmerk.cls.xml (revision 68412)
@@ -0,0 +1,16 @@
+
+
+
+TECH.DataTransferObject
+
+
+%String
+
+
+
+%String
+
+
+
+
+
Index: WS/Vhisie4/OPC/GeefVertaaldeWinkelkarLijnRequest.cls.xml
===================================================================
diff -u -r68400 -r68412
--- WS/Vhisie4/OPC/GeefVertaaldeWinkelkarLijnRequest.cls.xml (.../GeefVertaaldeWinkelkarLijnRequest.cls.xml) (revision 68400)
+++ WS/Vhisie4/OPC/GeefVertaaldeWinkelkarLijnRequest.cls.xml (.../GeefVertaaldeWinkelkarLijnRequest.cls.xml) (revision 68412)
@@ -14,11 +14,6 @@
1
-
-TECH.String
-1
-
-
WS.Vhisie4.OPC.dto.Kenmerk
list
@@ -29,6 +24,26 @@
WS.Vhisie4.OPC.dto.Identnummer
list
+
+
+%Library.CacheSerialState
+GeefVertaaldeWinkelkarLijnRequestState
+^WS.Vhisie4EBE7.GeefVertaalF57CS
+
+
+Header
+
+
+Omschrijving
+
+
+BlumKenmerken
+
+
+BlumIdentnummers
+
+
+
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/dto/VertaaldeWinkelkarInfo.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/dto/VertaaldeWinkelkarInfo.cls.xml (revision 0)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/dto/VertaaldeWinkelkarInfo.cls.xml (revision 68412)
@@ -0,0 +1,13 @@
+
+
+
+TECH.DataTransferObject
+
+
+WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.dto.WinkelkarKenmerk
+list
+
+
+
+
+
Index: WS/Vhisie4/OPC/OPCService.cls.xml
===================================================================
diff -u -r68403 -r68412
--- WS/Vhisie4/OPC/OPCService.cls.xml (.../OPCService.cls.xml) (revision 68403)
+++ WS/Vhisie4/OPC/OPCService.cls.xml (.../OPCService.cls.xml) (revision 68412)
@@ -52,17 +52,17 @@
]]>
-
-OPCVertaalWinkelkarLijnRequest:WS.Vhisie4.OPC.GeefVertaaldeWinkelkarLijnRequest
-WS.Vhisie4.OPC.GeefVertaaldeWinkelkarLijnResponse
+
+OPCGeefWinkelkarLijnInfoRequest:WS.Vhisie4.OPC.GeefWinkelkarLijnInfoRequest
+WS.Vhisie4.OPC.GeefWinkelkarLijnInfoResponse
1
Index: WS/Vhisie4/OPC/GeefWinkelkarLijnInfoRequest.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/OPC/GeefWinkelkarLijnInfoRequest.cls.xml (revision 0)
+++ WS/Vhisie4/OPC/GeefWinkelkarLijnInfoRequest.cls.xml (revision 68412)
@@ -0,0 +1,49 @@
+
+
+
+serial
+%SerialObject,%XML.Adaptor
+
+
+STRING
+1
+
+
+
+WS.Vhisie4.RequestHeader
+1
+
+
+
+WS.Vhisie4.OPC.dto.Kenmerk
+list
+1
+
+
+
+WS.Vhisie4.OPC.dto.Identnummer
+list
+
+
+
+%Library.CacheSerialState
+GeefWinkelkarLijnInfoRequestState
+^WS.Vhisie4EBE7.GeefWinkelk523DS
+
+listnode
+
+
+Header
+
+
+BlumKenmerken
+
+
+BlumIdentnummers
+
+
+
+
+
+
+
Index: vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68402 -r68412
--- vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68402)
+++ vhTest/Mock/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68412)
@@ -22,12 +22,18 @@
]]>
-
-OPCVertaalWinkelkarLijnRequest:WS.Vhisie4.OPC.GeefVertaaldeWinkelkarLijnRequest
-WS.Vhisie4.OPC.GeefVertaaldeWinkelkarLijnResponse
-
+OPCGeefWinkelkarLijnInfoRequest:WS.Vhisie4.OPC.GeefWinkelkarLijnInfoRequest
+WS.Vhisie4.OPC.GeefWinkelkarLijnInfoResponse
+
+
+
+WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.dto.VertaaldeWinkelkarInfo
+
+
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/dto/WinkelkarKenmerken.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/dto/WinkelkarKenmerken.cls.xml (revision 0)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter/dto/WinkelkarKenmerken.cls.xml (revision 68412)
@@ -0,0 +1,13 @@
+
+
+
+TECH.DataTransferObject
+
+
+WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.dto.WinkelkarKenmerk
+list
+
+
+
+
+
Index: vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/Test.cls.xml
===================================================================
diff -u -r68403 -r68412
--- vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/Test.cls.xml (.../Test.cls.xml) (revision 68403)
+++ vhUnitTest/WSimpl/Vhisie4/OPC/OPCService/Test.cls.xml (.../Test.cls.xml) (revision 68412)
@@ -60,10 +60,10 @@
Set OPCVertaalWinkelkarRequest = ##class(WS.Vhisie4.OPC.GeefVertaaldeWinkelkarLijnRequest).%New()
Set GeefVertaaldeWinkelkarLijnResponse = ##class(WS.Vhisie4.OPC.GeefVertaaldeWinkelkarLijnResponse).%New()
- Do ..OPCKenmerkenConverter.VerwachtMethodCall("ConverteerBlumKenmerkenNaarWinkelkarInfo",OPCVertaalWinkelkarRequest).DanReturn(GeefVertaaldeWinkelkarLijnResponse)
+ Do ..OPCKenmerkenConverter.VerwachtMethodCall("ConverteerBlumKenmerkenNaarWinkelkarLijnInfo",OPCVertaalWinkelkarRequest).DanReturn(GeefVertaaldeWinkelkarLijnResponse)
#dim OPCService As WSimpl.Vhisie4.OPC.OPCService = ##class(WSimpl.Vhisie4.OPC.OPCService).%New(..OPCKenmerkenConverter)
- Do OPCService.GeefVertaaldeWinkelkarLijn(OPCVertaalWinkelkarRequest)
+ Do OPCService.GeefWinkelkarLijnInfo(OPCVertaalWinkelkarRequest)
Do ..OPCKenmerkenConverter.Verifieer()
]]>
@@ -86,10 +86,10 @@
Set OPCVertaalWinkelkarRequest.Header.KlantId = KlantId
Set OPCVertaalWinkelkarRequest.Header.PersonalityId = PersonalityId
- Do ..OPCKenmerkenConverter.IndienMethodCall("ConverteerBlumKenmerkenNaarWinkelkarInfo",OPCVertaalWinkelkarRequest).DanException(Exception)
+ Do ..OPCKenmerkenConverter.IndienMethodCall("ConverteerBlumKenmerkenNaarWinkelkarLijnInfo",OPCVertaalWinkelkarRequest).DanException(Exception)
#dim OPCService As WSimpl.Vhisie4.OPC.OPCService = ##class(WSimpl.Vhisie4.OPC.OPCService).%New(..OPCKenmerkenConverter)
- Do OPCService.GeefVertaaldeWinkelkarLijn(OPCVertaalWinkelkarRequest)
+ Do OPCService.GeefWinkelkarLijnInfo(OPCVertaalWinkelkarRequest)
]]>
Index: WS/Vhisie4/OPC/GeefWinkelkarLijnInfoResponse.cls.xml
===================================================================
diff -u
--- WS/Vhisie4/OPC/GeefWinkelkarLijnInfoResponse.cls.xml (revision 0)
+++ WS/Vhisie4/OPC/GeefWinkelkarLijnInfoResponse.cls.xml (revision 68412)
@@ -0,0 +1,18 @@
+
+
+
+TECH.DataTransferObject
+
+
+TECH.String
+list
+
+
+
+WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.dto.WinkelkarKenmerk
+list
+
+
+
+
+
Index: WSimpl/Vhisie4/OPC/OPCService.cls.xml
===================================================================
diff -u -r68403 -r68412
--- WSimpl/Vhisie4/OPC/OPCService.cls.xml (.../OPCService.cls.xml) (revision 68403)
+++ WSimpl/Vhisie4/OPC/OPCService.cls.xml (.../OPCService.cls.xml) (revision 68412)
@@ -43,25 +43,25 @@
]]>
-
-OPCVertaalWinkelkarLijnRequest:WS.Vhisie4.OPC.GeefVertaaldeWinkelkarLijnRequest
-WS.Vhisie4.OPC.GeefVertaaldeWinkelkarLijnResponse
+
+OPCGeefWinkelkarLijnInfoRequest:WS.Vhisie4.OPC.GeefWinkelkarLijnInfoRequest
+WS.Vhisie4.OPC.GeefWinkelkarLijnInfoResponse
Index: WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68402 -r68412
--- WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68402)
+++ WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68412)
@@ -44,7 +44,7 @@
Do ..ConverteerBlumKenmerken(OPCKenmerkenRequest.BlumKenmerken, AXConfiguratieArray)
} Else {
#dim OPCKenmerkenRequestHeader As WS.Vhisie4.RequestHeader = OPCKenmerkenRequest.Header
-
+ //...
}
Set NaarAXGeconverteerdeKenmerkenResponse = ##class(WS.Vhisie4.OPC.GeefNaarAxGeconverteerdeKenmerkenResponse).%New()
@@ -55,10 +55,30 @@
]]>
-
-OPCVertaalWinkelkarLijnRequest:WS.Vhisie4.OPC.GeefVertaaldeWinkelkarLijnRequest
-WS.Vhisie4.OPC.GeefVertaaldeWinkelkarLijnResponse
-
+OPCGeefWinkelkarLijnInfoRequest:WS.Vhisie4.OPC.GeefWinkelkarLijnInfoRequest
+WS.Vhisie4.OPC.GeefWinkelkarLijnInfoResponse
+
@@ -84,17 +104,43 @@
Set BlumKenmerk = KenmerkenIterator.Next()
If ($$$Not(##class(TECH.StringUtils).ToLower(BlumKenmerk.Name) = "amount")) {
- #dim VertaaldKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..BlumNaarAXKenmerkenConverter.ConverteerBlumKenmerkNaarAXKenmerk(BlumKenmerk)
+ #dim GeconverteerdKenmerk As WS.Vhisie4.OPC.dto.Kenmerk = ..BlumNaarAXKenmerkenConverter.ConverteerBlumKenmerkNaarAXKenmerk(BlumKenmerk)
- If ($$$HasLength(VertaaldKenmerk.Value) && $$$HasLength(VertaaldKenmerk.Name)) {
- Do AXConfiguratieArray.SetAt(VertaaldKenmerk.Value, VertaaldKenmerk.Name)
+ If ($$$HasLength(GeconverteerdKenmerk.Value) && $$$HasLength(GeconverteerdKenmerk.Name)) {
+ Do AXConfiguratieArray.SetAt(GeconverteerdKenmerk.Value, GeconverteerdKenmerk.Name)
}
}
}
Do ..VoegToeDefaults(KenmerkenIterator, AXConfiguratieArray)
]]>
+
+BlumKenmerken:%ListOfObjects,VertaaldeWinkelkarInfo:%ListOfObjects
+1
+
+
+
KenmerkenIterator:TECH.Iterator,AXConfiguratieArray:%ArrayOfDataTypes
1
@@ -236,6 +282,33 @@
Quit TestAXConfiguratieArray
]]>
+
+
+WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.dto.VertaaldeWinkelkarInfo
+
+
Index: vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml
===================================================================
diff -u -r68402 -r68412
--- vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68402)
+++ vhTest/Fake/WSimpl/Vhisie4/OPC/OPCService/OPCKenmerkenConverter.cls.xml (.../OPCKenmerkenConverter.cls.xml) (revision 68412)
@@ -14,12 +14,18 @@
]]>
-
-OPCVertaalWinkelkarLijnRequest:WS.Vhisie4.OPC.GeefVertaaldeWinkelkarLijnRequest
-WS.Vhisie4.OPC.GeefVertaaldeWinkelkarLijnResponse
+
+OPCGeefWinkelkarLijnInfoRequest:WS.Vhisie4.OPC.GeefWinkelkarLijnInfoRequest
+WS.Vhisie4.OPC.GeefWinkelkarLijnInfoResponse
+
+
+WSimpl.Vhisie4.OPC.OPCService.OPCKenmerkenConverter.dto.VertaaldeWinkelkarInfo
+
+