Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Helper/GeefKlantPartijID/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Helper/GeefKlantPartijID/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/Helper/GeefKlantPartijID/Test.cls.xml	(revision 44770)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper.GeefKlantPartijID.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Geen Personality, wel KlantPartijID -&gt; LegacyPartijApi gebruiken">
+<Implementation><![CDATA[
+	#dim KlantId = "K||1234"
+	
+	Set LegacyPartijApiMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijApiMock.VerwachtMethodCall("IsKlantPartijID",KlantId).DanReturn($$$True)
+	
+	Set Helper = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New(LegacyPartijApiMock)
+	
+	#dim AntwoordKlantId = Helper.GeefKlantPartijID(KlantId, "")
+	
+	Do $$$AssertEquals(AntwoordKlantId,KlantId)
+	
+	Do LegacyPartijApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen Personality, geen KlantPartijID -&gt; LegacyPartijApi gebruiken">
+<Implementation><![CDATA[
+	#dim KlantId = "K||1234"
+	
+	Set LegacyPartijApiMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijApiMock.IndienMethodCall("IsKlantPartijID",KlantId).DanReturn($$$False)
+	Do LegacyPartijApiMock.VerwachtMethodCall("GeefKlantPartijID",KlantId).ExactAantalKeer(1)
+	
+	Set Helper = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New(LegacyPartijApiMock)
+	
+	#dim AntwoordKlantId = Helper.GeefKlantPartijID(KlantId, "")
+	
+	Do LegacyPartijApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Personality VanHoecke, wel KlantPartijID -&gt; LegacyPartijApi gebruiken">
+<Implementation><![CDATA[
+	#dim KlantId = "K||1234"
+	
+	Set LegacyPartijApiMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijApiMock.VerwachtMethodCall("IsKlantPartijID",KlantId).DanReturn($$$True)
+	
+	Set Helper = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New(LegacyPartijApiMock)
+	
+	#dim AntwoordKlantId = Helper.GeefKlantPartijID(KlantId, ##class(DOM.common.enu.Personality).VanHoecke())
+	
+	Do $$$AssertEquals(AntwoordKlantId,KlantId)
+	
+	Do LegacyPartijApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Personality VanHoecke, geen KlantPartijID -&gt; LegacyPartijApi gebruiken">
+<Implementation><![CDATA[
+	#dim KlantId = "K||1234"
+	
+	Set LegacyPartijApiMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijApiMock.IndienMethodCall("IsKlantPartijID",KlantId).DanReturn($$$False)
+	Do LegacyPartijApiMock.VerwachtMethodCall("GeefKlantPartijID",KlantId).ExactAantalKeer(1)
+	
+	Set Helper = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New(LegacyPartijApiMock)
+	
+	#dim AntwoordKlantId = Helper.GeefKlantPartijID(KlantId, ##class(DOM.common.enu.Personality).VanHoecke())
+	
+	Do LegacyPartijApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: andere Personality -&gt; SettingsManager oproepen">
+<Implementation><![CDATA[
+	#dim KlantId = "K||1234"
+	#dim PersonalityId = ##class(DOM.common.enu.Personality).Daro()
+	
+	Set HandelPersonality = ##class(vhTest.Mock.DOM.common.impl.HandelPersonality).%New(KlantId, PersonalityId)
+	Set HandelPersonalityRepoMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do HandelPersonalityRepoMock.VerwachtMethodCall("GeefViaID", PersonalityId).DanReturn(HandelPersonality)
+	
+	Set SettingsManagerMock = ##class(vhTest.Mock.WSimpl.Vhisie4.SettingsManager).%New()
+	Do SettingsManagerMock.VerwachtMethodCall("GeefVhisie4Prefix",HandelPersonality)
+	
+	Set Helper = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New(,HandelPersonalityRepoMock,SettingsManagerMock)
+	
+	#dim AntwoordKlantId = Helper.GeefKlantPartijID(KlantId, ##class(DOM.common.enu.Personality).Daro())
+	
+	Do SettingsManagerMock.Verifieer()
+	Do HandelPersonalityRepoMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/Helper.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/Helper.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/Helper.cls.xml	(revision 44770)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="LegacyPartijAPI">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HandelPersonalityRepository">
+<Type>DOM.common.impl.HandelPersonalityRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SettingsManager">
+<Type>WSimpl.Vhisie4.SettingsManager</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,HandelPersonalityRepository:DOM.common.impl.HandelPersonalityRepository,SettingsManager:WSimpl.Vhisie4.SettingsManager</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI, ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
+	Set ..HandelPersonalityRepository = $$$Inject(HandelPersonalityRepository, ##class(DOM.common.impl.HandelPersonalityRepository).%New())
+	Set ..SettingsManager = $$$Inject(SettingsManager, ##class(WSimpl.Vhisie4.SettingsManager).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantPartijID">
+<FormalSpec>KlantId:%String,PersonalityId:%String</FormalSpec>
+<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>
+
+
+</Export>