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