Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml
===================================================================
diff -u -r44304 -r44846
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 44304)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 44846)
@@ -10,9 +10,6 @@
 
 	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryStub.IndienMethodCall("GeefOfferteIDViaID", $$$ElkeWaarde).DanReturn("InterneId")
-
-	Set LegacyPartijAPIStub = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIStub.IndienMethodCall("IsKlantPartijID", $$$ElkeWaarde).DanReturn($$$True)
 	
 	Set VerzendingServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
 	Do VerzendingServiceMock.IndienMethodCall("GeefMogelijkeLeverDatums", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..GeefEenMogelijkeLeverdatum())
@@ -21,7 +18,7 @@
 	Set VerkoopServiceStub = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do VerkoopServiceStub.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, WinkelkarRepositoryStub, , ,LegacyPartijAPIStub, VerzendingServiceMock)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, WinkelkarRepositoryStub, , , VerzendingServiceMock)
 	
 	#Dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
 	Set Response = Service.BereidVoorBestelling(BereidVoorBestellingRequest)
@@ -41,9 +38,6 @@
 
 	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryStub.IndienMethodCall("GeefOfferteIDViaID", $$$ElkeWaarde).DanReturn("InterneId")
-
-	Set LegacyPartijAPIStub = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIStub.IndienMethodCall("IsKlantPartijID", $$$ElkeWaarde).DanReturn($$$True)
 	
 	Set VerzendingServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
 	Do VerzendingServiceMock.IndienMethodCall("GeefMogelijkeLeverDatums", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..GeefTweeMogelijkeLeverdatums())
@@ -52,7 +46,7 @@
 	Set VerkoopServiceStub = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do VerkoopServiceStub.IndienMethodCall("ZetOfferteHoofding", $$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks()
 	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, WinkelkarRepositoryStub, , ,LegacyPartijAPIStub, VerzendingServiceMock)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceStub, WinkelkarRepositoryStub, , , VerzendingServiceMock)
 	
 	#Dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
 	Set Response = Service.BereidVoorBestelling(BereidVoorBestellingRequest)
@@ -70,22 +64,22 @@
 	#dim BereidVoorBestellingRequest As WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest = ""
 	Set BereidVoorBestellingRequest = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest()
 	
-	Set LegacyPartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIMock.VerwachtMethodCall("IsKlantPartijID", "K||1000").DanReturn($$$True)
-	
 	Set VerzendingServiceMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
 	Do VerzendingServiceMock.VerwachtMethodCall("GeefMogelijkeLeverDatums", BereidVoorBestellingRequest, "K||1000").DanReturn(..GeefTweeMogelijkeLeverdatums())
 	Do VerzendingServiceMock.VerwachtMethodCall("GeefIsAsapMogelijk",BereidVoorBestellingRequest, "K||1000").DanDoeNiks()
 
 	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefOfferteIDViaID", 1).DanReturn("InterneId")
+	
+	Set WinkelkarServiceHelperMock = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New()
+	Do WinkelkarServiceHelperMock.VerwachtMethodCall("GeefKlantPartijID","K||1000","").DanReturn("K||1000")
 		
 	#Dim Hoofding as APPS.EC.dto.Hoofding = ..GeefHoofding()
 	
 	Set VerkoopServiceMock = ##class(vhTest.Mock.APPS.EC.Verkoop.ExterneVerkoopService).%New()
 	Do VerkoopServiceMock.VerwachtMethodCall("ZetOfferteHoofding","InterneId", ..Matches.DataTransferObject(Hoofding) ).DanDoeNiks()
 	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryMock, , ,LegacyPartijAPIMock, VerzendingServiceMock)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceMock, WinkelkarRepositoryMock, , , VerzendingServiceMock, WinkelkarServiceHelperMock)
 	
 	#Dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
 	Set Response = Service.BereidVoorBestelling(BereidVoorBestellingRequest)
@@ -98,8 +92,8 @@
 
 	Do VerkoopServiceMock.Verifieer()
 	Do WinkelkarRepositoryMock.Verifieer()
-	Do LegacyPartijAPIMock.Verifieer()
 	Do VerzendingServiceMock.Verifieer()
+	Do WinkelkarServiceHelperMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -153,9 +147,6 @@
 
 <Method name="Test: BereidVoorBestelling geeft geen verzendingmogelijkheden voor klant zonder transportkeuze">
 <Implementation><![CDATA[
-	Set LegacyPartijAPIStub = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
-	Do LegacyPartijAPIStub.IndienMethodCall("IsKlantPartijID", $$$ElkeWaarde).DanReturn($$$True)
-	
 	Set VerzendingServiceStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New()
 	Do VerzendingServiceStub.IndienMethodCall("GeefMogelijkeLeverDatums", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(##class(%ListOfDataTypes).%New())
 	Do VerzendingServiceStub.IndienMethodCall("GeefIsAsapMogelijk",$$$ElkeWaarde, $$$ElkeWaarde).DanDoeNiks() 
@@ -172,7 +163,7 @@
 	Set TransportServiceMock = ##class(vhTest.Mock.APPS.EC.Transport.Service).%New()
 	Do TransportServiceMock.VerwachtMethodCall("GeefMogelijkeZendingen",$$$ElkeWaarde,$$$ElkeWaarde, $$$ElkeWaarde).Nooit()
 	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceDummy, WinkelkarRepositoryStub, CheckoutTypeBepalerMock, TransportServiceMock, LegacyPartijAPIStub, VerzendingServiceStub)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling).%New(VerkoopServiceDummy, WinkelkarRepositoryStub, CheckoutTypeBepalerMock, TransportServiceMock, VerzendingServiceStub)
 	
 	#Dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse
 	Set Response = Service.BereidVoorBestelling(##class(vhTest.Utils.WS.Vhisie4.Winkelkar.BereidVoorBestellingRequest).StandaardRequest())
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml
===================================================================
diff -u -r44304 -r44846
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44304)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BereidVoorBestelling.cls.xml	(.../BereidVoorBestelling.cls.xml)	(revision 44846)
@@ -23,18 +23,18 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LegacyPartijAPI">
-<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Property name="VerzendingService">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="VerzendingService">
-<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService</Type>
+<Property name="WinkelkarServiceHelper">
+<Type>WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler,TransportService:APPS.EC.Transport.Service,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerzendingService:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService</FormalSpec>
+<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService,WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository,CheckoutTypeBepaler:APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler,TransportService:APPS.EC.Transport.Service,VerzendingService:WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService,WinkelkarServiceHelper:WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -44,8 +44,8 @@
 	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New())
 	Set ..CheckoutTypeBepaler = $$$Inject(CheckoutTypeBepaler, ##class(APPS.EC.impl.ConfiguratorService.CheckoutTypeBepaler).%New())
 	Set ..TransportService = $$$Inject(TransportService, ##class(APPS.EC.Transport.Service).%New())
-	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI())
 	Set ..VerzendingService = $$$Inject(VerzendingService, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BereidVoorBestelling.VerzendingService).%New())
+	Set ..WinkelkarServiceHelper = $$$Inject(WinkelkarServiceHelper,##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.Helper).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -60,7 +60,7 @@
 	Do ..VerkoopService.ZetOfferteHoofding(OfferteID, ..MaakHoofding(BereidVoorBestellingRequest))
 
 	#dim Response As WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse = ##class(WS.Vhisie4.Winkelkar.BereidVoorBestellingResponse).%New()
-	#dim KlantPartijID As %String = ..GeefKlantPartijID(BereidVoorBestellingRequest.Header.KlantId)
+	#dim KlantPartijID As %String = ..WinkelkarServiceHelper.GeefKlantPartijID(BereidVoorBestellingRequest.Header.KlantId)
 	#dim CheckoutType As APPS.EC.Unishop.enu.CheckoutType = ..CheckoutTypeBepaler.Bepaal(BereidVoorBestellingRequest.Header.PersonalityId, KlantPartijID)
 	
 	If (CheckoutType = ##class(APPS.EC.Unishop.enu.CheckoutType).Standaard()) {
@@ -110,16 +110,6 @@
 ]]></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>
-
 <Method name="ConverteerMogelijkeZendingen">
 <FormalSpec>VerzendingMogelijkheden:APPS.EC.Transport.dto.VerzendingMogelijkheden</FormalSpec>
 <Private>1</Private>