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