Index: DOM/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r54168 -r62113
--- DOM/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 54168)
+++ DOM/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 62113)
@@ -122,13 +122,14 @@
 </Method>
 
 <Method name="VoegToeProduct">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal="",KlantOrderlijnNr:%String=""</FormalSpec>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal="",KlantOrderlijnNr:%String="",HandelAankoopprijs:%Decimal=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Do ..ProductLijnBuilder.Init(Winkelkar)
 	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ..ProductLijnBuilder.MaakLijn(GroepNaam, ProductID, Aantal, PakketReferentie, ProjectReferentie, ExterneId, KlantOrderlijnNr)
 	Do ProductLijn.ZetEindklantEenheidPrijsNettoExclBTW(EenheidPrijs)
 	Do ProductLijn.ZetEindklantTotaalPrijs(TotaalPrijs)
+	Do ProductLijn.ZetHandelAankoopprijs(HandelAankoopprijs)
 	Do ..WinkelkarLijnRepository.Bewaar(ProductLijn)
 	
 	Quit ProductLijn.GeefID()
Index: vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r54170 -r62113
--- vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 54170)
+++ vhTest/Mock/APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 62113)
@@ -160,9 +160,9 @@
 </Method>
 
 <Method name="VoegToeProduct">
-<FormalSpec>WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal="",KlantOrderlijnNr:%String=""</FormalSpec>
+<FormalSpec>WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal="",KlantOrderlijnNr:%String="",HandelAankoopprijs:%Decimal=""</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("VoegToeProduct",WinkelkarID,GroepNaam,ProductID,Aantal,PakketReferentie,ProjectReferentie,ExterneId,EenheidPrijs,TotaalPrijs,KlantOrderlijnNr)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VoegToeProduct",WinkelkarID,GroepNaam,ProductID,Aantal,PakketReferentie,ProjectReferentie,ExterneId,EenheidPrijs,TotaalPrijs,KlantOrderlijnNr,HandelAankoopprijs)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn/Test.cls.xml
===================================================================
diff -u -r51025 -r62113
--- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 51025)
+++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 62113)
@@ -8,6 +8,10 @@
 	set ProductApiStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	do ProductApiStub.IndienMethodCall("BestaatProduct","ProductId").DanReturn($$$true)
 		
+		
+	Set SalesPriceServiceMock = ##class(vhTest.Mock.AXimpl.Admin.VKP.SalesPriceService).%New()
+	Do SalesPriceServiceMock.VerwachtMethodCall("GeefPrijs",4682,"ProductId",1.95,1).DanReturn(..MaakOutputMet1Product())
+		
 	Set WinkelkarRepositoryStub = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryStub.IndienMethodCall("GeefWinkelkarIDViaID", $$$ElkeWaarde).DanReturn("DummyID")
 
@@ -17,21 +21,25 @@
 	
 	Set WinkelkarServiceMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
 	Do WinkelkarServiceMock.VerwachtMethodCall("VerwijderLijn","DummyID", "DummyLijnID").DanDoeNiks()
-	Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeProduct", "DummyID", "EenGroep", "ProductId", 5, "PakketReferentie", "ProjectReferentie", "ExterneId","1.95","9.75").DanDoeNiks()
+	Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeProduct", "DummyID", "EenGroep", "ProductId", 5, "PakketReferentie", "ProjectReferentie", "ExterneId","1.95","9.75","",23).DanDoeNiks()
 	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn).%New(WinkelkarServiceMock, WinkelkarRepositoryStub, WinkelkarLijnRepositoryMock, ProductApiStub)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn).%New(WinkelkarServiceMock, WinkelkarRepositoryStub, WinkelkarLijnRepositoryMock, ProductApiStub,,SalesPriceServiceMock)
 	
 	Do Service.BewaarProductLijn(..GeefBewaarProductLijnRequest())
 
 	Do WinkelkarLijnRepositoryMock.Verifieer()
 	Do WinkelkarServiceMock.Verifieer()
+	Do SalesPriceServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: BewaarProductLijn voegt product toe op de winkelkarservice met de juiste parameters">
 <Implementation><![CDATA[
 	#dim BewaarProductLijnRequest As WS.Vhisie4.Winkelkar.BewaarProductLijnRequest = ..GeefBewaarProductLijnRequest()
 	
+	Set SalesPriceServiceMock = ##class(vhTest.Mock.AXimpl.Admin.VKP.SalesPriceService).%New()
+	Do SalesPriceServiceMock.VerwachtMethodCall("GeefPrijs",4682,"ProductId",1.95,1).DanReturn(..MaakOutputMet1Product())
+	
 	#dim ProductApiStub As vhTest.Mock.DOM.PM.ProductAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	do ProductApiStub.IndienMethodCall("BestaatProduct", "ProductId").DanReturn($$$true)
 
@@ -42,32 +50,37 @@
 	Do WinkelkarLijnRepositoryMock.VerwachtMethodCall("BestaatViaID", "ExterneId").DanReturn($$$False)
 
 	#dim WinkelkarServiceMock As vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
-	Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeProduct", "DummyID", "EenGroep", "ProductId", 5, "PakketReferentie", "ProjectReferentie", "ExterneId", "1.95", "9.75").DanDoeNiks()
+	Do WinkelkarServiceMock.VerwachtMethodCall("VoegToeProduct", "DummyID", "EenGroep", "ProductId", 5, "PakketReferentie", "ProjectReferentie", "ExterneId", "1.95", "9.75","",23).DanDoeNiks()
 	
-	#dim Service As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn).%New(WinkelkarServiceMock, WinkelkarRepositoryStub, WinkelkarLijnRepositoryMock, ProductApiStub)
+	#dim Service As WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn).%New(WinkelkarServiceMock, WinkelkarRepositoryStub, WinkelkarLijnRepositoryMock, ProductApiStub,,SalesPriceServiceMock)
 	
 	Do Service.BewaarProductLijn(BewaarProductLijnRequest)
 
 	Do WinkelkarLijnRepositoryMock.Verifieer()
 	Do WinkelkarServiceMock.Verifieer()
+	Do SalesPriceServiceMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: BewaarProductLijn haalt de interne id op adhv ExterneId">
 <Implementation><![CDATA[
 	set ProductApiStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	do ProductApiStub.IndienMethodCall("BestaatProduct","ProductId").DanReturn($$$true)
+	
+	Set SalesPriceServiceMock = ##class(vhTest.Mock.AXimpl.Admin.VKP.SalesPriceService).%New()
+	Do SalesPriceServiceMock.VerwachtMethodCall("GeefPrijs",4682,"ProductId",1.95,1).DanReturn(..MaakOutputMet1Product())
 
 	#dim WinkelkarRepositoryMock As vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository = ##class(vhTest.Mock.WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New()
 	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefWinkelkarIDViaID", "WinkelkarId").DanReturn("DummyID")
 	
 	Set WinkelkarServiceStub = ##class(vhTest.Mock.APPS.EC.Winkelkar.WinkelkarService).%New()
-	Do WinkelkarServiceStub.IndienMethodCall("VoegToeProduct", "DummyID", "EenGroep", "ProductId", 5 , "PakketReferentie" , "ProjectReferentie","ExterneId","1.95","9.75").DanDoeNiks()
+	Do WinkelkarServiceStub.IndienMethodCall("VoegToeProduct", "DummyID", "EenGroep", "ProductId", 5 , "PakketReferentie" , "ProjectReferentie","ExterneId","1.95","9.75","",23).DanDoeNiks()
 	
-	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn).%New(WinkelkarServiceStub, WinkelkarRepositoryMock,,ProductApiStub)
+	Set Service = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarProductLijn).%New(WinkelkarServiceStub, WinkelkarRepositoryMock,,ProductApiStub,,SalesPriceServiceMock)
 	
 	Do Service.BewaarProductLijn(..GeefBewaarProductLijnRequest())
-
+	
+	Do SalesPriceServiceMock.Verifieer()
 	Do WinkelkarRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -104,6 +117,20 @@
 	Quit BewaarProductLijnRequest
 ]]></Implementation>
 </Method>
+
+<Method name="MaakOutputMet1Product">
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC</ReturnType>
+<Implementation><![CDATA[
+	#dim Output As AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = ##class(AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC).%New()
+	Set OutputLine = ##class(AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceLineOutputDC).%New()
+	Set OutputLine.PriceUnit = 1
+	Set OutputLine.Price = 23.0
+	Do Output.Lines.Insert(OutputLine)
+	
+	Quit Output
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/DOM/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r54170 -r62113
--- vhTest/Mock/DOM/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 54170)
+++ vhTest/Mock/DOM/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 62113)
@@ -75,9 +75,9 @@
 </Method>
 
 <Method name="VoegToeProduct">
-<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal="",KlantOrderlijnNr:%String=""</FormalSpec>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal="",KlantOrderlijnNr:%String="",HandelAankoopprijs:%Decimal=""</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("VoegToeProduct",Winkelkar,GroepNaam,ProductID,Aantal,PakketReferentie,ProjectReferentie,ExterneId,EenheidPrijs,TotaalPrijs,KlantOrderlijnNr)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VoegToeProduct",Winkelkar,GroepNaam,ProductID,Aantal,PakketReferentie,ProjectReferentie,ExterneId,EenheidPrijs,TotaalPrijs,KlantOrderlijnNr, HandelAankoopprijs)
 ]]></Implementation>
 </Method>
 
Index: APPS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r54170 -r62113
--- APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 54170)
+++ APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 62113)
@@ -63,7 +63,7 @@
 
 <Method name="VoegToeProduct">
 <Abstract>1</Abstract>
-<FormalSpec>WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal="",KlantOrderlijnNr:%String=""</FormalSpec>
+<FormalSpec>WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal="",KlantOrderlijnNr:%String="",HandelAankoopprijs:%Decimal=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 </Method>
 
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r55743 -r62113
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 55743)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 62113)
@@ -200,12 +200,12 @@
 </Method>
 
 <Method name="VoegToeProduct">
-<FormalSpec>WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal="",KlantOrderlijnNr:%String=""</FormalSpec>
+<FormalSpec>WinkelkarID:%String,GroepNaam:%String,ProductID:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String="",ExterneId:%String="",EenheidPrijs:%Decimal="",TotaalPrijs:%Decimal="",KlantOrderlijnNr:%String="",HandelAankoopprijs:%Decimal=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
 	
-	#dim ProductLijnID As %String = ..WinkelkarService.VoegToeProduct(Winkelkar, GroepNaam, ProductID, Aantal, PakketReferentie, ProjectReferentie, ExterneId, EenheidPrijs, TotaalPrijs, KlantOrderlijnNr)
+	#dim ProductLijnID As %String = ..WinkelkarService.VoegToeProduct(Winkelkar, GroepNaam, ProductID, Aantal, PakketReferentie, ProjectReferentie, ExterneId, EenheidPrijs, TotaalPrijs, KlantOrderlijnNr, HandelAankoopprijs)
 	
 	Do ..WinkelkarService.BewaarWinkelkar(Winkelkar)
 	
Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml
===================================================================
diff -u -r48497 -r62113
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml	(.../BewaarProductLijn.cls.xml)	(revision 48497)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarProductLijn.cls.xml	(.../BewaarProductLijn.cls.xml)	(revision 62113)
@@ -23,8 +23,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SalesPriceService">
+<Type>AXimpl.Admin.VKP.SalesPriceService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PersonalityRepository">
+<Type>DOM.common.impl.PersonalityRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>WinkelkarService:APPS.EC.Winkelkar.impl.WinkelkarService="",WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",WinkelkarLijnRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository="",ProductApi:DOM.PM.ProductAPI=""</FormalSpec>
+<FormalSpec>WinkelkarService:APPS.EC.Winkelkar.impl.WinkelkarService="",WinkelkarRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarRepository="",WinkelkarLijnRepository:WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository="",ProductApi:DOM.PM.ProductAPI="",PersonalityRepository:DOM.common.impl.PersonalityRepository="",SalesPriceService:AXimpl.Admin.VKP.SalesPriceService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -34,7 +44,8 @@
 	Set ..WinkelkarRepository = $$$Inject(WinkelkarRepository, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarRepository).%New())
 	Set ..WinkelkarLijnRepository = $$$Inject(WinkelkarLijnRepository, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarLijnRepository).%New())
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.DomeinContext).Instance().GeefProductAPI())
-	
+	Set ..PersonalityRepository = $$$Inject(PersonalityRepository, ##class(DOM.common.impl.PersonalityRepository).%New())
+	Set ..SalesPriceService = $$$Inject(SalesPriceService, ##class(AXimpl.Admin.VKP.SalesPriceService).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -54,7 +65,9 @@
 			Do ..WinkelkarService.VerwijderLijn(WinkelkarID, LijnID)
 		}
 		
-		Do ..WinkelkarService.VoegToeProduct(WinkelkarID, "EenGroep", BewaarProductLijnRequest.ProductId, BewaarProductLijnRequest.Aantal, BewaarProductLijnRequest.PakketReferentie, BewaarProductLijnRequest.ProjectReferentie, BewaarProductLijnRequest.LijnId, BewaarProductLijnRequest.EenheidPrijs,BewaarProductLijnRequest.TotaalPrijs)
+		#dim HandelAankoopprijs As %Decimal = ..HaalHandelAankoopprijs(BewaarProductLijnRequest) 
+		Do ..WinkelkarService.VoegToeProduct(WinkelkarID, "EenGroep", BewaarProductLijnRequest.ProductId, BewaarProductLijnRequest.Aantal, BewaarProductLijnRequest.PakketReferentie, BewaarProductLijnRequest.ProjectReferentie, BewaarProductLijnRequest.LijnId, BewaarProductLijnRequest.EenheidPrijs,BewaarProductLijnRequest.TotaalPrijs,, HandelAankoopprijs)
+		Do ##class(Tools.Wlip).%New(252).String("gelukt")
 	} Catch {
 		Lock -^Vhisie4.Winkelkar(BewaarProductLijnRequest.WinkelkarId,BewaarProductLijnRequest.LijnId)
 		Do ##class(TECH.ExceptionHandler).Rethrow()
@@ -64,6 +77,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HaalHandelAankoopprijs">
+<FormalSpec>BewaarProductLijnRequest:WS.Vhisie4.Winkelkar.BewaarProductLijnRequest</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim Personality As DOM.common.impl.Personality = ..PersonalityRepository.GeefViaID(BewaarProductLijnRequest.Header.PersonalityId)
+	#dim KlantNummerPersonality As TECH.Integer = Personality.Klant.Nummer
+	#dim Output As  AXif.Dynamics.SalesPriceIn.MessageParts.ADUSalesPriceHeaderOutputDC = ..SalesPriceService.GeefPrijs(KlantNummerPersonality, BewaarProductLijnRequest.ProductId, BewaarProductLijnRequest.EenheidPrijs)
+	
+	Quit Output.Lines.GetAt(1).Price
+]]></Implementation>
+</Method>
+
 <Method name="ValideerInput">
 <FormalSpec>BewaarProductLijnRequest:WS.Vhisie4.Winkelkar.BewaarProductLijnRequest</FormalSpec>
 <Private>1</Private>