Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar/Test.cls.xml
===================================================================
diff -u -r41882 -r44778
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 41882)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar/Test.cls.xml	(.../Test.cls.xml)	(revision 44778)
@@ -3,142 +3,47 @@
 <Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Maakwinkelkar met een &apos;VanHoeckeId&apos; als KlantId maakt een winkelkar met KlantPartijId en personality vanhoecke">
+<Method name="Test: Maakwinkelkar gebruikt WinkelkarService en VerkoopService">
 <Implementation><![CDATA[
 	#dim DummyKlantId As %String = "K||0"
 	
 	Set VerkoopServiceMock =  ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do VerkoopServiceMock.VerwachtMethodCall("MaakOfferte",DummyKlantId,##class(DOM.common.enu.Personality).VanHoecke(), "WinkelkarId").DanDoeNiks()
-
-	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIMock.VerwachtMethodCall("IsKlantPartijID",DummyKlantId).DanReturn($$$True)
 	
-	Set WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
-	Do WinkelkarRepository.IndienMethodCall("BestaatViaID",$$$ElkeWaarde).DanReturn($$$false)
+	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
+	Do WinkelkarRepositoryStub.IndienMethodCall("BestaatViaID",$$$ElkeWaarde).DanReturn($$$False)
 
-	#dim MaakWinkelkar As WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, LegacyPartijAPIMock, WinkelkarRepository)
+	Set WinkelkarServiceHelperMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New()
+	Do WinkelkarServiceHelperMock.VerwachtMethodCall("GeefKlantPartijID",DummyKlantId,##class(DOM.common.enu.Personality).VanHoecke()).DanReturn(DummyKlantId)
+
+	#dim Service As WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, WinkelkarRepositoryStub, WinkelkarServiceHelperMock)
 	
 	#dim Request As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
 	set Request.WinkelkarId = "WinkelkarId"
 	set Request.Header.KlantId = DummyKlantId
 	
-	Do MaakWinkelkar.MaakWinkelkar(Request)
-	
-	Do VerkoopServiceMock.Verifieer()
-	Do LegacyPartijAPIMock.Verifieer()
-]]></Implementation>
-</Method>
-
-<Method name="Test: Maakwinkelkar met nummer als KlantId maakt winkelkar met KlantPartijId en personality vanhoecke">
-<Implementation><![CDATA[
-	#dim DummyKlant As %String = "0"
-	#dim DummyKlantId As %String = "K||0"
-
-	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	Do VerkoopServiceMock.VerwachtMethodCall("MaakOfferte",DummyKlantId,##class(DOM.common.enu.Personality).VanHoecke(), "WinkelkarId").DanDoeNiks()
-
-	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIMock.VerwachtMethodCall("IsKlantPartijID",DummyKlant).DanReturn($$$False)
-	Do LegacyPartijAPIMock.VerwachtMethodCall("GeefKlantPartijID",DummyKlant).DanReturn(DummyKlantId)
-
-	Set WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
-	Do WinkelkarRepository.IndienMethodCall("BestaatViaID",$$$ElkeWaarde).DanReturn($$$false)
-	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, LegacyPartijAPIMock, WinkelkarRepository)
-	
-	#dim Request As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
-	set Request.WinkelkarId = "WinkelkarId"
-	Set Request.Header.KlantId = DummyKlant
-	
 	Do Service.MaakWinkelkar(Request)
 	
 	Do VerkoopServiceMock.Verifieer()
-	Do LegacyPartijAPIMock.Verifieer()
+	Do WinkelkarServiceHelperMock.Verifieer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Maakwinkelkar zonder personality maakt winkelkar met personality vanhoecke">
-<Implementation><![CDATA[
-	#dim DummyKlantId As %String = "K||0"
-	
-	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	Do VerkoopServiceMock.VerwachtMethodCall("MaakOfferte",DummyKlantId,##class(DOM.common.enu.Personality).VanHoecke(), "WinkelkarId").DanDoeNiks()
-
-	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIMock.VerwachtMethodCall("IsKlantPartijID",DummyKlantId).DanReturn($$$True)
-	
-	Set WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
-	Do WinkelkarRepository.IndienMethodCall("BestaatViaID",$$$ElkeWaarde).DanReturn($$$false)
-
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, LegacyPartijAPIMock, WinkelkarRepository)
-	
-	#dim Request As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
-	set Request.WinkelkarId = "WinkelkarId"
-	Set Request.Header.KlantId = DummyKlantId
-	Set Request.Header.PersonalityId = ""
-	
-	Do Service.MaakWinkelkar(Request)
-	
-	Do LegacyPartijAPIMock.Verifieer()
-	Do VerkoopServiceMock.Verifieer()
-]]></Implementation>
-</Method>
-
-<Method name="Test: Maakwinkelkar gebruikt personality indien ingevuld">
-<Implementation><![CDATA[
-	#dim DummyKlantId As %String = "K||0"
-	
-	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
-	Do VerkoopServiceMock.VerwachtMethodCall("MaakOfferte","destil_"_DummyKlantId,##class(DOM.common.enu.Personality).Destil(), "WinkelkarId").DanDoeNiks()
-
-	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIMock.VerwachtMethodCall("IsKlantPartijID",DummyKlantId).ExactAantalKeer(0)
-	
-	Set WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
-	Do WinkelkarRepository.IndienMethodCall("BestaatViaID",$$$ElkeWaarde).DanReturn($$$false)
-	
-	Set HandelPersonalityStub = ##class(vhTest.Mock.DOM.common.impl.HandelPersonality).%New("","")
-	Do HandelPersonalityStub.IndienMethodCall("GeefID").DanReturn("5")
-	Do HandelPersonalityStub.IndienMethodCall("GeefPrefix").DanReturn("destil_")
-	
-	Set HandelPersonalityRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()	
-	Do HandelPersonalityRepositoryMock.VerwachtMethodCall("GeefViaID",##class(DOM.common.enu.Personality).Destil()).DanReturn(HandelPersonalityStub)
-
-	Set SettingsManagerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.SettingsManager).%New()
-	Do SettingsManagerMock.VerwachtMethodCall("GeefVhisie4Prefix",HandelPersonalityStub).ExactAantalKeer(2).DanReturn("destil_")
-
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceMock, LegacyPartijAPIMock, WinkelkarRepository, HandelPersonalityRepositoryMock, SettingsManagerMock)
-	
-	#dim Request As WS.Vhisie4.Winkelkar.MaakWinkelkarRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.MaakWinkelkarRequest).MaakWinkelkarRequest()
-	set Request.WinkelkarId = "WinkelkarId"
-	Set Request.Header.KlantId = DummyKlantId
-	Set Request.Header.PersonalityId = ##class(DOM.common.enu.Personality).Destil()
-	
-	Do Service.MaakWinkelkar(Request)
-	
-	Do LegacyPartijAPIMock.Verifieer()
-	Do VerkoopServiceMock.Verifieer()
-	Do HandelPersonalityRepositoryMock.Verifieer()
-	Do SettingsManagerMock.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)
+	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 Request.Header.PersonalityId = "11"
 	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceDummy, LegacyPartijAPIDummy, WinkelkarRepositoryStub)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakWinkelkar).%New(VerkoopServiceDummy, WinkelkarRepositoryStub)
 	Do Service.MaakWinkelkar(Request)
 ]]></Implementation>
 </Method>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml
===================================================================
diff -u -r41818 -r44778
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml	(.../MaakWinkelkar.cls.xml)	(revision 41818)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakWinkelkar.cls.xml	(.../MaakWinkelkar.cls.xml)	(revision 44778)
@@ -8,66 +8,40 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LegacyPartijAPI">
-<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="WinkelkarRepository">
 <Type>WSimpl.Vhisie4.Winkelkar.WinkelkarRepository</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="HandelPersonalityRepository">
-<Type>DOM.common.impl.HandelPersonalityRepository</Type>
+<Property name="WinkelkarServiceHelper">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="SettingsManager">
-<Type>WSimpl.Vhisie4.SettingsManager</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository,SettingsManager:WSimpl.Vhisie4.SettingsManager</FormalSpec>
+<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper</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())
-	Set ..HandelPersonalityRepository = $$$Inject(HandelPersonalityRepository,##class(DOM.common.impl.HandelPersonalityRepository).%New())
-	Set ..SettingsManager = $$$Inject(SettingsManager, ##class(WSimpl.Vhisie4.SettingsManager).%New())
+	Set ..WinkelkarServiceHelper = $$$Inject(WinkelkarServiceHelper,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="MaakWinkelkar">
 <FormalSpec>MaakWinkelkarRequest:WS.Vhisie4.Winkelkar.MaakWinkelkarRequest</FormalSpec>
 <Implementation><![CDATA[
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(..GeefKlantPartijID(MaakWinkelkarRequest.Header.KlantId, MaakWinkelkarRequest.Header.PersonalityId))
+	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."))
-	Do ..VerkoopService.MaakOfferte(..GeefKlantPartijID(MaakWinkelkarRequest.Header.KlantId, MaakWinkelkarRequest.Header.PersonalityId), $$$If(MaakWinkelkarRequest.Header.PersonalityId="",##class(DOM.common.enu.Personality).VanHoecke(),MaakWinkelkarRequest.Header.PersonalityId), MaakWinkelkarRequest.WinkelkarId)
+	Do ..VerkoopService.MaakOfferte(..WinkelkarServiceHelper.GeefKlantPartijID(MaakWinkelkarRequest.Header.KlantId, MaakWinkelkarRequest.Header.PersonalityId), $$$If(MaakWinkelkarRequest.Header.PersonalityId="",##class(DOM.common.enu.Personality).VanHoecke(),MaakWinkelkarRequest.Header.PersonalityId), MaakWinkelkarRequest.WinkelkarId)
 ]]></Implementation>
 </Method>
-
-<Method name="GeefKlantPartijID">
-<FormalSpec>KlantId:%String,PersonalityId:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.VKP.VanHoeckeKlantID</ReturnType>
-<Implementation><![CDATA[
-	If ((PersonalityId = "") || (PersonalityId = ##class(DOM.common.enu.Personality).VanHoecke())) {
-		Quit:..LegacyPartijAPI.IsKlantPartijID(KlantId) KlantId	
-		Quit ..LegacyPartijAPI.GeefKlantPartijID(KlantId)
-	} Else {
-		#dim HandelPersonality As DOM.common.impl.HandelPersonality = ..HandelPersonalityRepository.GeefViaID(PersonalityId)
-		Quit ..SettingsManager.GeefVhisie4Prefix(HandelPersonality)_KlantId
-	}
-]]></Implementation>
-</Method>
 </Class>