Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml
===================================================================
diff -u -r38748 -r38762
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml	(.../MaakWinkelkar.cls.xml)	(revision 38748)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml	(.../MaakWinkelkar.cls.xml)	(revision 38762)
@@ -3,10 +3,44 @@
 <Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="VerkoopService">
+<Type>APPS.EC.Verkoop.impl.Externe.VerkoopService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI</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())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="MaakWinkelkar">
 <FormalSpec>MaakWinkelkarRequest:WS.Vhisie4.Winkelkar.MaakWinkelkarRequest</FormalSpec>
-<Implementation><![CDATA[]]></Implementation>
+<Implementation><![CDATA[	Do ..VerkoopService.MaakWinkelKar(..GeefKlantPartijID(MaakWinkelkarRequest.KlantId), ##class(DOM.common.enu.Personality).VanHoecke())
+]]></Implementation>
 </Method>
+
+<Method name="GeefKlantPartijID">
+<FormalSpec>KlantID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.VanHoeckeKlantID</ReturnType>
+<Implementation><![CDATA[
+	Quit:..LegacyPartijAPI.IsKlantPartijID(KlantID) KlantID	
+	Quit ..LegacyPartijAPI.GeefKlantPartijID(KlantID)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Utils/WS/Vhisie4/Winkelkar/MaakWinkelkarRequest.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WS/Vhisie4/Winkelkar/MaakWinkelkarRequest.cls.xml	(revision 0)
+++ vhTest/Utils/WS/Vhisie4/Winkelkar/MaakWinkelkarRequest.cls.xml	(revision 38762)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="MaakWinkelkarRequest">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.Vhisie4.Winkelkar.MaakWinkelkarRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim MaakWinkelkarRequest As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).%New()
+	Quit MaakWinkelkarRequest
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar/Test.cls.xml	(revision 38762)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<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"
+	
+	#dim VerkoopServiceMock As vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
+	Do VerkoopServiceMock.VerwachtMethodCall("MaakWinkelKar",KlantID,##class(DOM.common.enu.Personality).VanHoecke()).DanDoeNiks()
+
+	#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 MaakWinkelkarRequest As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
+	Set MaakWinkelkarRequest.KlantId = KlantID
+	
+	Do MaakWinkelkar.MaakWinkelkar(MaakWinkelkarRequest)
+	
+	Do VerkoopServiceMock.Verifieer()
+	Do LegacyPartijAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<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("MaakWinkelKar","K||1000",##class(DOM.common.enu.Personality).VanHoecke()).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")
+
+	#dim MaakWinkelkar As WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, LegacyPartijAPIMock)
+	
+	#dim MaakWinkelkarRequest As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
+	Set MaakWinkelkarRequest.KlantId = KlantID
+	
+	Do MaakWinkelkar.MaakWinkelkar(MaakWinkelkarRequest)
+	
+	Do VerkoopServiceMock.Verifieer()
+	Do LegacyPartijAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Maakwinkelkar zonder vanhoecke personality maakt winkelkar met personality vanhoecke">
+<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("MaakWinkelKar","K||1000",##class(DOM.common.enu.Personality).VanHoecke()).DanDoeNiks()
+
+	#dim LegacyPartijAPIMock As vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijAPIMock.IndienMethodCall("IsKlantPartijID",KlantID).DanReturn($$$True)
+
+	#dim MaakWinkelkar As WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, LegacyPartijAPIMock)
+	
+	#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()
+	
+	Do MaakWinkelkar.MaakWinkelkar(MaakWinkelkarRequest)
+	
+	Do VerkoopServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>