Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn/Test.cls.xml =================================================================== diff -u -r47513 -r48465 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn/Test.cls.xml (.../Test.cls.xml) (revision 47513) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn/Test.cls.xml (.../Test.cls.xml) (revision 48465) @@ -7,24 +7,28 @@ @@ -74,7 +79,9 @@ 1 WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnRequest + +1 +WS.Vhisie4.RequestHeader + + + 1 +APPS.EC.Winkelkar.dto.MaatwerkLijn 1 +APPS.EC.Winkelkar.dto.MaatwerkLijn + + +KlantId:TECH.String +TECH.String + + Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening.cls.xml =================================================================== diff -u -r46643 -r48465 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening.cls.xml (.../StartVerpakkingBerekening.cls.xml) (revision 46643) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening.cls.xml (.../StartVerpakkingBerekening.cls.xml) (revision 48465) @@ -24,16 +24,16 @@ -WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler,TransportService:APPS.EC.Transport.Service,WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper +WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler="",TransportService:APPS.EC.Transport.Service="",WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper="" 1 1 %Status 1 @@ -45,10 +45,11 @@ Lock +^Vhisie4.Winkelkar(StartVerpakkingBerekeningRequest.WinkelkarId):0 Else Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar '" _StartVerpakkingBerekeningRequest.WinkelkarId _"' is gelocked door een andere webservice call. Probeer later opnieuw.")) Try { - + Set StartVerpakkingBerekeningRequest.Header.KlantId = ..WinkelkarServiceHelper.GeefVanHoeckeKlantId(StartVerpakkingBerekeningRequest.Header.KlantId) + #dim KlantPartijID As %String = ..WinkelkarServiceHelper.GeefKlantPartijID(StartVerpakkingBerekeningRequest.Header.KlantId, StartVerpakkingBerekeningRequest.Header.PersonalityId) - If ..CheckoutTypeBepaler.Bepaal(StartVerpakkingBerekeningRequest.Header.PersonalityId, KlantPartijID) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() - { + + If ..CheckoutTypeBepaler.Bepaal(StartVerpakkingBerekeningRequest.Header.PersonalityId, KlantPartijID) = ##class(APPS.EC.Unishop.enu.CheckoutType).MetTransportKeuze() { #dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaID(StartVerpakkingBerekeningRequest.WinkelkarId) Do ..TransportService.BerekenPalletGegevens(OfferteID) } Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml =================================================================== diff -u -r45514 -r48465 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml (.../BewaarProductLijn.cls.xml) (revision 45514) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml (.../BewaarProductLijn.cls.xml) (revision 48465) @@ -23,8 +23,13 @@ 1 + +WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper +1 + + -WinkelkarService:APPS.EC.Winkelkar.impl.WinkelkarService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,WinkelkarLijnRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository,ProductApi:DOM.PM.ProductAPI +WinkelkarService:APPS.EC.Winkelkar.impl.WinkelkarService="",WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",WinkelkarLijnRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository="",ProductApi:DOM.PM.ProductAPI="",WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper="" 1 1 %Status @@ -33,7 +38,9 @@ Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()) Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()) Set ..WinkelkarLijnRepository = $$$Inject(WinkelkarLijnRepository, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository).%New()) - Set ..ProductApi = $$$Inject(ProductApi,##class(DOM.DomeinContext).Instance().GeefProductAPI()) + Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.DomeinContext).Instance().GeefProductAPI()) + Set ..WinkelkarServiceHelper = $$$Inject(WinkelkarServiceHelper, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New()) + Quit $$$OK ]]> @@ -44,6 +51,8 @@ Lock +^Vhisie4.Winkelkar(BewaarProductLijnRequest.WinkelkarId, BewaarProductLijnRequest.LijnId):0 Else Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar '" _BewaarProductLijnRequest.WinkelkarId _"' is gelocked door een andere webservice call. Probeer later opnieuw.")) Try { + Set BewaarProductLijnRequest.Header.KlantId = ..WinkelkarServiceHelper.GeefVanHoeckeKlantId(BewaarProductLijnRequest.Header.KlantId) + Do ..ValideerInput(BewaarProductLijnRequest) #dim WinkelkarID As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BewaarProductLijnRequest.WinkelkarId) Index: vhTest/Utils/WS/Vhisie4/Winkelkar/StartVerpakkingBerekeningRequest.cls.xml =================================================================== diff -u -r42013 -r48465 --- vhTest/Utils/WS/Vhisie4/Winkelkar/StartVerpakkingBerekeningRequest.cls.xml (.../StartVerpakkingBerekeningRequest.cls.xml) (revision 42013) +++ vhTest/Utils/WS/Vhisie4/Winkelkar/StartVerpakkingBerekeningRequest.cls.xml (.../StartVerpakkingBerekeningRequest.cls.xml) (revision 48465) @@ -7,9 +7,11 @@ 1 WS.Vhisie4.Winkelkar.StartVerpakkingBerekeningRequest Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml =================================================================== diff -u -r47684 -r48465 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml (.../BewaarMaatwerkLijn.cls.xml) (revision 47684) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml (.../BewaarMaatwerkLijn.cls.xml) (revision 48465) @@ -23,8 +23,13 @@ 1 + +WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper +1 + + -WinkelkarService:APPS.EC.Winkelkar.impl.ExterneWinkelkarService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,EconConfiguratieConverter:WSimpl.Vhisie4.Winkelkar.EconConfiguratieConverter,WinkelkarLijnRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository +WinkelkarService:APPS.EC.Winkelkar.impl.ExterneWinkelkarService="",WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",EconConfiguratieConverter:WSimpl.Vhisie4.Winkelkar.EconConfiguratieConverter="",WinkelkarLijnRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository="",WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper="" 1 1 %Status @@ -34,6 +39,7 @@ Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()) Set ..EconConfiguratieConverter = $$$Inject(EconConfiguratieConverter, ##class(WSimpl.Vhisie4.Winkelkar.EconConfiguratieConverter).%New()) Set ..WinkelkarLijnRepository = $$$Inject(WinkelkarLijnRepository, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository).%New()) + Set ..WinkelkarServiceHelper = $$$Inject(WinkelkarServiceHelper, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New()) Quit $$$OK ]]> @@ -48,6 +54,8 @@ Try { Do ..ValideerInput(BewaarMaatwerkLijnRequest) + Set BewaarMaatwerkLijnRequest.Header.KlantId = ..WinkelkarServiceHelper.GeefVanHoeckeKlantId(BewaarMaatwerkLijnRequest.Header.KlantId) + #dim WinkelkarId As %String = ..WinkelkarRepository.GeefWinkelkarIDViaID(BewaarMaatwerkLijnRequest.WinkelkarID) #dim Offerte As APPS.VKP.impl.Offerte = ..WinkelkarRepository.GeefOfferteViaID(BewaarMaatwerkLijnRequest.WinkelkarID) Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml =================================================================== diff -u -r47560 -r48465 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 47560) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BestelWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 48465) @@ -43,21 +43,24 @@ + + +KlantId:TECH.String +TECH.String + + Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/Test.cls.xml =================================================================== diff -u -r45476 -r48465 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/Test.cls.xml (.../Test.cls.xml) (revision 45476) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk/Test.cls.xml (.../Test.cls.xml) (revision 48465) @@ -5,28 +5,40 @@ vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository +1 vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService +1 WSimpl.Vhisie4.Winkelkar.WinkelkarService.HerberekenMaatwerk +1 vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.Synchroniseer +1 + +vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper +1 + + aTestName:%String @@ -39,6 +51,8 @@ Do ..VerkoopServiceMock.VerwachtMethodCall("GeefOfferteEnHerbereken", "DummyOfferteId").DanReturn(Offerte) Do ..VerkoopServiceMock.VerwachtMethodCall("GeefOfferteZonderHerberekening", "DummyOfferteId").DanReturn(Offerte) Do ..SynchroniseerMock.VerwachtMethodCall("Synchroniseer", HerberekenMaatwerkRequest.Winkelkar, "M").ExactAantalKeer(1).DanDoeNiks() + Do ..WinkelkarServiceHelperMock.VerwachtMethodCall("GeefVanHoeckeKlantId", HerberekenMaatwerkRequest.Header.KlantId).DanReturn("DummyKlantId") + Do ..WinkelkarServiceHelperMock.VerwachtMethodCall("GeefVanHoeckeKlantId", HerberekenMaatwerkRequest.Winkelkar.KlantId).DanReturn("DummyKlantId") #dim HerberekenMaatwerkResponse As WS.Vhisie4.Winkelkar.HerberekenMaatwerkResponse Set HerberekenMaatwerkResponse = ..HerberekenMaatwerk.HerberekenMaatwerk(HerberekenMaatwerkRequest) @@ -50,6 +64,7 @@ Do ..WinkelkarRepositoryMock.Verifieer() Do ..VerkoopServiceMock.Verifieer() Do ..SynchroniseerMock.Verifieer() + Do ..WinkelkarServiceHelperMock.Verifieer() ]]> @@ -62,6 +77,8 @@ Do ..VerkoopServiceMock.VerwachtMethodCall("GeefOfferteEnHerbereken", "DummyOfferteId").DanReturn(Offerte) Do ..VerkoopServiceMock.VerwachtMethodCall("GeefOfferteZonderHerberekening", "DummyOfferteId").DanReturn(Offerte) Do ..SynchroniseerMock.VerwachtMethodCall("Synchroniseer", HerberekenMaatwerkRequest.Winkelkar, "M").ExactAantalKeer(1).DanDoeNiks() + Do ..WinkelkarServiceHelperMock.VerwachtMethodCall("GeefVanHoeckeKlantId", HerberekenMaatwerkRequest.Header.KlantId).DanReturn("DummyKlantId") + Do ..WinkelkarServiceHelperMock.VerwachtMethodCall("GeefVanHoeckeKlantId", HerberekenMaatwerkRequest.Winkelkar.KlantId).DanReturn("DummyKlantId") #dim HerberekenMaatwerkResponse As WS.Vhisie4.Winkelkar.HerberekenMaatwerkResponse Set HerberekenMaatwerkResponse = ..HerberekenMaatwerk.HerberekenMaatwerk(HerberekenMaatwerkRequest) @@ -80,6 +97,7 @@ Do ..WinkelkarRepositoryMock.Verifieer() Do ..VerkoopServiceMock.Verifieer() Do ..SynchroniseerMock.Verifieer() + Do ..WinkelkarServiceHelperMock.Verifieer() ]]> @@ -98,22 +116,62 @@ 1 WS.Vhisie4.Winkelkar.HerberekenMaatwerkRequest + +1 +WS.Vhisie4.RequestHeader + + + + +AantalLijnen:%Integer +1 +WS.Vhisie4.Winkelkar.dto.Winkelkar + + + + +LijnId:%Integer +1 +WS.Vhisie4.Winkelkar.dto.MaatwerkLijn + + + EenheidPrijs:%Decimal=12.5,AantalLijnen:%Integer=1 1 Index: vhTest/Utils/WS/Vhisie4/Winkelkar/BereidVoorBestellingRequest.cls.xml =================================================================== diff -u -r41534 -r48465 --- vhTest/Utils/WS/Vhisie4/Winkelkar/BereidVoorBestellingRequest.cls.xml (.../BereidVoorBestellingRequest.cls.xml) (revision 41534) +++ vhTest/Utils/WS/Vhisie4/Winkelkar/BereidVoorBestellingRequest.cls.xml (.../BereidVoorBestellingRequest.cls.xml) (revision 48465) @@ -7,12 +7,15 @@ 1 WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn/Test.cls.xml =================================================================== diff -u -r40819 -r48465 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn/Test.cls.xml (.../Test.cls.xml) (revision 40819) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn/Test.cls.xml (.../Test.cls.xml) (revision 48465) @@ -30,24 +30,30 @@ @@ -89,6 +95,7 @@ WS.Vhisie4.Winkelkar.BewaarProductLijnRequest 1 WS.Vhisie4.RequestHeader Index: vhDeploy/Deploy20171219xKlantIdAx2A.cls.xml =================================================================== diff -u --- vhDeploy/Deploy20171219xKlantIdAx2A.cls.xml (revision 0) +++ vhDeploy/Deploy20171219xKlantIdAx2A.cls.xml (revision 48465) @@ -0,0 +1,24 @@ + + + +vhDeploy.Deploy + + +%String +Configitem 2A voor bepaling KlantId's + + + +1 + + + + + + Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml =================================================================== diff -u -r46643 -r48465 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml (.../BereidVoorBestelling.cls.xml) (revision 46643) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml (.../BereidVoorBestelling.cls.xml) (revision 48465) @@ -60,11 +60,14 @@ #dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse).%New() Try { + Set BereidVoorBestellingRequest.Header.KlantId = ..WinkelkarServiceHelper.GeefVanHoeckeKlantId(BereidVoorBestellingRequest.Header.KlantId) + Set BereidVoorBestellingRequest.Winkelkar.KlantId = ..WinkelkarServiceHelper.GeefVanHoeckeKlantId(BereidVoorBestellingRequest.Winkelkar.KlantId) + #dim OfferteID As %String = ..WinkelkarRepository.GeefOfferteIDViaID(BereidVoorBestellingRequest.Winkelkar.Id) Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BereidVoorBestellingRequest)) - #dim KlantPartijID As %String = ..WinkelkarServiceHelper.GeefKlantPartijID(BereidVoorBestellingRequest.Header.KlantId,BereidVoorBestellingRequest.Header.PersonalityId) + #dim KlantPartijID As %String = ..WinkelkarServiceHelper.GeefKlantPartijID(BereidVoorBestellingRequest.Header.KlantId, BereidVoorBestellingRequest.Header.PersonalityId) #dim CheckoutType As APPS.EC.Unishop.enu.CheckoutType = ..CheckoutTypeBepaler.Bepaal(BereidVoorBestellingRequest.Header.PersonalityId, KlantPartijID) If (CheckoutType = ##class(APPS.EC.Unishop.enu.CheckoutType).Standaard()) { Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk.cls.xml =================================================================== diff -u -r45514 -r48465 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk.cls.xml (.../HerberekenMaatwerk.cls.xml) (revision 45514) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/HerberekenMaatwerk.cls.xml (.../HerberekenMaatwerk.cls.xml) (revision 48465) @@ -38,13 +38,18 @@ 1 + +WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper +1 + + %String 1 -WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,ExterneVerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,Synchroniseer:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Synchroniseer +WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",ExterneVerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService="",Synchroniseer:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Synchroniseer="",WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper="" 1 1 %Status @@ -53,6 +58,7 @@ Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()) Set ..ExterneVerkoopService = $$$Inject(ExterneVerkoopService, ##class(APPS.EC.Verkoop.impl.Externe.VerkoopService).%New()) Set ..Synchroniseer = $$$Inject(Synchroniseer, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Synchroniseer).%New()) + Set ..WinkelkarServiceHelper = $$$Inject(WinkelkarServiceHelper ,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New()) Set ..WinkelkarConverter = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarConverter).%New() Set ..WinkelkarUtils = ##class(APPS.EC.Winkelkar.impl.WinkelkarUtils).%New() @@ -72,6 +78,9 @@ #dim Response As WS.Vhisie4.Winkelkar.HerberekenMaatwerkResponse = "" Try { + Set HerberekenMaatwerkRequest.Header.KlantId = ..WinkelkarServiceHelper.GeefVanHoeckeKlantId(HerberekenMaatwerkRequest.Header.KlantId) + Set HerberekenMaatwerkRequest.Winkelkar.KlantId = ..WinkelkarServiceHelper.GeefVanHoeckeKlantId(HerberekenMaatwerkRequest.Winkelkar.KlantId) + Set ..InterneOfferteId = ..WinkelkarRepository.GeefOfferteIDViaID(HerberekenMaatwerkRequest.Winkelkar.Id) Do ..Synchroniseer.Synchroniseer(HerberekenMaatwerkRequest.Winkelkar, ..#MaatwerkType) Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml =================================================================== diff -u -r45514 -r48465 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml (.../MaakWinkelkar.cls.xml) (revision 45514) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml (.../MaakWinkelkar.cls.xml) (revision 48465) @@ -26,8 +26,8 @@ 1 @@ -39,6 +39,8 @@ Lock +^Vhisie4.Winkelkar(MaakWinkelkarRequest.WinkelkarId):0 Else Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.LockedException).%New("Winkelkar '" _MaakWinkelkarRequest.WinkelkarId _"' is gelocked door een andere webservice call. Probeer later opnieuw.")) Try { + Set MaakWinkelkarRequest.Header.KlantId = ..WinkelkarServiceHelper.GeefVanHoeckeKlantId(MaakWinkelkarRequest.Header.KlantId) + do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(..WinkelkarServiceHelper.GeefKlantPartijID(MaakWinkelkarRequest.Header.KlantId, MaakWinkelkarRequest.Header.PersonalityId)) do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(MaakWinkelkarRequest.Header.PersonalityId) Do:(..WinkelkarRepository.BestaatViaID(MaakWinkelkarRequest.WinkelkarId)) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Winkelkar met id '"_MaakWinkelkarRequest.WinkelkarId _"' bestaat reeds.")) Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Helper/GeefVanHoeckeKlantId/Test.cls.xml =================================================================== diff -u --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Helper/GeefVanHoeckeKlantId/Test.cls.xml (revision 0) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Helper/GeefVanHoeckeKlantId/Test.cls.xml (revision 48465) @@ -0,0 +1,41 @@ + + + +vhUnitTest.TestCase + + +%Boolean +1 + + + + + + + + + + + + + + + + + Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening/Test.cls.xml =================================================================== diff -u -r46643 -r48465 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening/Test.cls.xml (.../Test.cls.xml) (revision 46643) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/StartVerpakkingBerekening/Test.cls.xml (.../Test.cls.xml) (revision 48465) @@ -5,21 +5,24 @@ + +TECH.String + + + %Library.CacheSerialState BewaarProductLijnRequestState @@ -100,6 +105,9 @@ PakketReferentie + +IdentNummer + Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar/Test.cls.xml =================================================================== diff -u -r44778 -r48465 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 44778) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar/Test.cls.xml (.../Test.cls.xml) (revision 48465) @@ -5,23 +5,24 @@ + + +KlantId:TECH.String +TECH.String + +