Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml
===================================================================
diff -u -r39521 -r39524
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml	(.../MaakWinkelkar.cls.xml)	(revision 39521)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml	(.../MaakWinkelkar.cls.xml)	(revision 39524)
@@ -13,22 +13,30 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WinkelkarRepository">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI</FormalSpec>
+<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..VerkoopService = $$$Inject(VerkoopService, ##class(APPS.EC.Verkoop.impl.Externe.VerkoopService).%New())
 	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="MaakWinkelkar">
 <FormalSpec>MaakWinkelkarRequest:WS.Vhisie4.Winkelkar.MaakWinkelkarRequest</FormalSpec>
-<Implementation><![CDATA[	Do ..VerkoopService.MaakOfferte(..GeefKlantPartijID(MaakWinkelkarRequest.Header.KlantId), ##class(DOM.common.enu.Personality).VanHoecke(), MaakWinkelkarRequest.WinkelkarId)
+<Implementation><![CDATA[
+	Do:(..WinkelkarRepository.BestaatViaID(MaakWinkelkarRequest.WinkelkarId)) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Winkelkar met id '"_MaakWinkelkarRequest.WinkelkarId _"' bestaat reeds."))
+	Do ..VerkoopService.MaakOfferte(..GeefKlantPartijID(MaakWinkelkarRequest.Header.KlantId), ##class(DOM.common.enu.Personality).VanHoecke(), MaakWinkelkarRequest.WinkelkarId)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar/Test.cls.xml
===================================================================
diff -u -r38829 -r39524
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 38829)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 39524)
@@ -5,20 +5,22 @@
 
 <Method name="Test: Maakwinkelkar met klantid K__1000 maakt winkelkar met klantpartijid K__1000 en personality vanhoecke">
 <Implementation><![CDATA[
-	#dim KlantID As %String = "K||1000"
+	Set VerkoopServiceMock =  ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do VerkoopServiceMock.VerwachtMethodCall("MaakOfferte","K||1000",##class(DOM.common.enu.Personality).VanHoecke(), "WinkelkarId").DanDoeNiks()
+
+	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijAPIMock.VerwachtMethodCall("IsKlantPartijID","K||1000").DanReturn($$$True)
 	
-	#dim VerkoopServiceMock As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	Do VerkoopServiceMock.VerwachtMethodCall("MaakOfferte",KlantID,##class(DOM.common.enu.Personality).VanHoecke(), "").DanDoeNiks()
+	Set WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepository.IndienMethodCall("BestaatViaID",$$$ElkeWaarde).DanReturn($$$false)
 
-	#dim LegacyPartijAPIMock As vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIMock.VerwachtMethodCall("IsKlantPartijID",KlantID).DanReturn($$$True)
-
-	#dim MaakWinkelkar As WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, LegacyPartijAPIMock)
+	#dim MaakWinkelkar As WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, LegacyPartijAPIMock, WinkelkarRepository)
 	
-	#dim MaakWinkelkarRequest As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
-	Set MaakWinkelkarRequest.KlantId = KlantID
+	#dim Request As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
+	set Request.WinkelkarId = "WinkelkarId"
+	set Request.Header.KlantId = "K||1000"
 	
-	Do MaakWinkelkar.MaakWinkelkar(MaakWinkelkarRequest)
+	Do MaakWinkelkar.MaakWinkelkar(Request)
 	
 	Do VerkoopServiceMock.Verifieer()
 	Do LegacyPartijAPIMock.Verifieer()
@@ -27,22 +29,24 @@
 
 <Method name="Test: Maakwinkelkar met klantid 1000 maakt winkelkar met klantpartijid K__1000 en personality vanhoecke">
 <Implementation><![CDATA[
-	#dim KlantID As %String = "1000"
-	
-	#dim VerkoopServiceMock As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	Do VerkoopServiceMock.VerwachtMethodCall("MaakOfferte","K||1000",##class(DOM.common.enu.Personality).VanHoecke(), "").DanDoeNiks()
+	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do VerkoopServiceMock.VerwachtMethodCall("MaakOfferte","K||1000",##class(DOM.common.enu.Personality).VanHoecke(), "WinkelkarId").DanDoeNiks()
 
-	#dim LegacyPartijAPIMock As vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIMock.VerwachtMethodCall("IsKlantPartijID",KlantID).DanReturn($$$False)
-	Do LegacyPartijAPIMock.VerwachtMethodCall("GeefKlantPartijID",KlantID).DanReturn("K||1000")
+	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijAPIMock.VerwachtMethodCall("IsKlantPartijID","1000").DanReturn($$$False)
+	Do LegacyPartijAPIMock.VerwachtMethodCall("GeefKlantPartijID","1000").DanReturn("K||1000")
 
-	#dim MaakWinkelkar As WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, LegacyPartijAPIMock)
+	Set WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepository.IndienMethodCall("BestaatViaID",$$$ElkeWaarde).DanReturn($$$false)
 	
-	#dim MaakWinkelkarRequest As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
-	Set MaakWinkelkarRequest.KlantId = KlantID
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, LegacyPartijAPIMock, WinkelkarRepository)
 	
-	Do MaakWinkelkar.MaakWinkelkar(MaakWinkelkarRequest)
+	#dim Request As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
+	set Request.WinkelkarId = "WinkelkarId"
+	Set Request.Header.KlantId = "1000"
 	
+	Do Service.MaakWinkelkar(Request)
+	
 	Do VerkoopServiceMock.Verifieer()
 	Do LegacyPartijAPIMock.Verifieer()
 ]]></Implementation>
@@ -52,23 +56,47 @@
 <Implementation><![CDATA[
 	#dim KlantID As %String = "K||1000"
 	
-	#dim VerkoopServiceMock As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	Do VerkoopServiceMock.VerwachtMethodCall("MaakOfferte","K||1000",##class(DOM.common.enu.Personality).VanHoecke(),"").DanDoeNiks()
+	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do VerkoopServiceMock.VerwachtMethodCall("MaakOfferte","K||1000",##class(DOM.common.enu.Personality).VanHoecke(), "WinkelkarId").DanDoeNiks()
 
-	#dim LegacyPartijAPIMock As vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIMock.IndienMethodCall("IsKlantPartijID",KlantID).DanReturn($$$True)
+	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijAPIMock.VerwachtMethodCall("IsKlantPartijID",KlantID).DanReturn($$$True)
+	
+	Set WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepository.IndienMethodCall("BestaatViaID",$$$ElkeWaarde).DanReturn($$$false)
 
-	#dim MaakWinkelkar As WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, LegacyPartijAPIMock)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, LegacyPartijAPIMock, WinkelkarRepository)
 	
-	#dim MaakWinkelkarRequest As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
-	Set MaakWinkelkarRequest.KlantId = KlantID
-	Set MaakWinkelkarRequest.PersonalityId = ##class(DOM.common.enu.Personality).Destil()
+	#dim Request As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
+	set Request.WinkelkarId = "WinkelkarId"
+	Set Request.Header.KlantId = KlantID
+	Set Request.Header.PersonalityId = ##class(DOM.common.enu.Personality).Destil()
 	
-	Do MaakWinkelkar.MaakWinkelkar(MaakWinkelkarRequest)
+	Do Service.MaakWinkelkar(Request)
 	
+	Do LegacyPartijAPIMock.Verifieer()
 	Do VerkoopServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Maakwinkelkar met een reeds bestaande winkelkar id genereert een foutmelding">
+<Implementation><![CDATA[
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Winkelkar met id '1' bestaat reeds")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+		
+	Set VerkoopServiceDummy = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Set LegacyPartijAPIDummy = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	
+	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("BestaatViaID",1).DanReturn($$$true)
+	
+	#dim Request As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
+	Set Request.WinkelkarId = "1"
+	
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceDummy, LegacyPartijAPIDummy, WinkelkarRepositoryStub)
+	Do Service.MaakWinkelkar(Request)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Utils/WS/Vhisie4/Winkelkar/MaakWinkelkarRequest.cls.xml
===================================================================
diff -u -r39521 -r39524
--- vhTest/Utils/WS/Vhisie4/Winkelkar/MaakWinkelkarRequest.cls.xml	(.../MaakWinkelkarRequest.cls.xml)	(revision 39521)
+++ vhTest/Utils/WS/Vhisie4/Winkelkar/MaakWinkelkarRequest.cls.xml	(.../MaakWinkelkarRequest.cls.xml)	(revision 39524)
@@ -13,6 +13,7 @@
 	set MaakWinkelkarRequest.Header.GebruikerIp = "127.0.0.1"
 	set MaakWinkelkarRequest.Header.RequestId = "1234"
 	set MaakWinkelkarRequest.Header.SessieId = "4567"
+	set MaakWinkelkarRequest.WinkelkarId = 1
 	Quit MaakWinkelkarRequest
 ]]></Implementation>
 </Method>