Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml
===================================================================
diff -u -r41004 -r41012
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 41004)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 41012)
@@ -5,6 +5,9 @@
 
 <Method name="Test: converteert en verzendt de cumulated winkelkar met productlijn naar vhisie4 en geeft IntractoId weer">
 <Implementation><![CDATA[
+	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
+	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefcumulatedWinkelkar()
+	
 	Set Response = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
 	Set Response.Winkelkar.Status = "Geslaagd"
 	
@@ -14,18 +17,31 @@
 	Set DateTimeAPIMock	= ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
 	Do DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog").DanReturn("64387,35360")
 
-	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderMock, DateTimeAPIMock)
-	#dim IntractoID As %String = Converteerder.Converteer(..GeefcumulatedWinkelkar() ,..GeefVanHoeckeKlant())
+	Set KlantPrijsBepalerMock = ##class(vhTest.Mock.APPS.VKP.KlantPrijsBepaler).%New()
+	#dim IdentNumber As APPS.Blum.OnlineProductConfigurator.dto.IdentNumber = Winkelkar.shoppingCart.directories.GetAt(1).subDirectories.GetAt(1).identnumbers.GetAt(1)
+	#dim CurrentDate As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	Do KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", IdentNumber.identnumber, IdentNumber.amount, CurrentDate).DanReturn(50)
 	
+	Set VerkoopPrijsAPIMock = ##class(vhTest.Mock.APPS.VKP.VerkoopPrijsAPI).%New()
+	Do VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", VanHoeckeKlant).DanReturn(KlantPrijsBepalerMock)
+	
+	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderMock, DateTimeAPIMock, VerkoopPrijsAPIMock)
+	#dim IntractoID As %String = Converteerder.Converteer(..GeefcumulatedWinkelkar(), VanHoeckeKlant)
+	
 	Do $$$AssertEquals(IntractoID, Response.Winkelkar.IntractoId)
 	
 	Do SenderMock.Verifieer()
 	Do DateTimeAPIMock.Verifieer()
+	Do VerkoopPrijsAPIMock.Verifieer()
+	Do KlantPrijsBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: converteert en verzendt de bpe winkelkar met productlijn naar vhisie4 en geeft IntractoId weer">
 <Implementation><![CDATA[
+	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
+	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefbpeWinkelkar()
+
 	Set Response = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
 	Set Response.Winkelkar.Status = "Geslaagd"
 	
@@ -35,13 +51,23 @@
 	Set DateTimeAPIMock	= ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
 	Do DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog").DanReturn("64387,35360")
 
-	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderMock, DateTimeAPIMock)
-	#dim IntractoID As %String = Converteerder.Converteer(..GeefbpeWinkelkar() ,..GeefVanHoeckeKlant())
+	Set KlantPrijsBepalerMock = ##class(vhTest.Mock.APPS.VKP.KlantPrijsBepaler).%New()
+	#dim FunctionalUnit As APPS.Blum.OnlineProductConfigurator.dto.FunctionalUnit = Winkelkar.shoppingCart.directories.GetAt(1).functionalUnits.GetAt(1) 
+	#dim CurrentDate As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	Do KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", FunctionalUnit.identnumbers.GetAt(1).identnumber, FunctionalUnit.identnumbers.GetAt(1).amount * FunctionalUnit.amount, CurrentDate).DanReturn(50)
 	
+	Set VerkoopPrijsAPIMock = ##class(vhTest.Mock.APPS.VKP.VerkoopPrijsAPI).%New()
+	Do VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", VanHoeckeKlant).DanReturn(KlantPrijsBepalerMock)
+
+	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderMock, DateTimeAPIMock, VerkoopPrijsAPIMock)
+	#dim IntractoID As %String = Converteerder.Converteer(Winkelkar, VanHoeckeKlant)
+	
 	Do $$$AssertEquals(IntractoID, Response.Winkelkar.IntractoId)
 	
 	Do SenderMock.Verifieer()
 	Do DateTimeAPIMock.Verifieer()
+	Do VerkoopPrijsAPIMock.Verifieer()
+	Do KlantPrijsBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -69,6 +95,9 @@
 
 <Method name="Test: gefaalde verzending geeft exceptie">
 <Implementation><![CDATA[
+	#dim VanHoeckeKlant As DOM.VKP.VanHoeckeKlant = ..GeefVanHoeckeKlant()
+	#dim Winkelkar As APPS.Blum.OnlineProductConfigurator.dto.Winkelkar = ..GeefbpeWinkelkar()
+	
 	Set Response = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
 	Set Response.Winkelkar.Status = "NIETGeslaagd"
 	
@@ -78,11 +107,19 @@
 	Set DateTimeAPIMock	= ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
 	Do DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog").DanReturn("64387,35360")
 
+	Set KlantPrijsBepalerMock = ##class(vhTest.Mock.APPS.VKP.KlantPrijsBepaler).%New()
+	#dim FunctionalUnit As APPS.Blum.OnlineProductConfigurator.dto.FunctionalUnit = Winkelkar.shoppingCart.directories.GetAt(1).functionalUnits.GetAt(1) 
+	#dim CurrentDate As %Date = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
+	Do KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", FunctionalUnit.identnumbers.GetAt(1).identnumber, FunctionalUnit.identnumbers.GetAt(1).amount * FunctionalUnit.amount, CurrentDate).DanReturn(50)
+	
+	Set VerkoopPrijsAPIMock = ##class(vhTest.Mock.APPS.VKP.VerkoopPrijsAPI).%New()
+	Do VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", VanHoeckeKlant).DanReturn(KlantPrijsBepalerMock)
+
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Blum OPC - Er is een fout opgetreden bij het bewaren van de winkelkar voor gebruiker dummy@dum.my!")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
 	
-	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderMock, DateTimeAPIMock)
-	#dim IntractoID As %String = Converteerder.Converteer(..GeefbpeWinkelkar() ,..GeefVanHoeckeKlant())
+	Set Converteerder = ##class(APPS.Blum.impl.OnlineProductConfigurator.OPCWinkelkarNaarVhisie4WinkelkarConverteerder).%New(SenderMock, DateTimeAPIMock, VerkoopPrijsAPIMock)
+	#dim IntractoID As %String = Converteerder.Converteer(Winkelkar, VanHoeckeKlant)
 ]]></Implementation>
 </Method>
 
@@ -160,7 +197,8 @@
 	Set ProductLijn = ##class(WS.Vhisie4.Winkelkar.dto.ProductLijn).%New()
 	Set ProductLijn.Aantal = 10
 	Set ProductLijn.ProductId = "identnumber"
-	
+	Set ProductLijn.EenheidPrijs = 5
+	Set ProductLijn.TotaalPrijs = 50
 	Do Vhisie4Winkelkar.Lijnen.Insert(ProductLijn)
 	
 	Quit Vhisie4Winkelkar
Index: APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u -r40997 -r41012
--- APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 40997)
+++ APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41012)
@@ -13,25 +13,36 @@
 <Private>1</Private>
 </Property>
 
-<Property name="GroepID">
-<Type>%Integer</Type>
+<Property name="Vhisie4Winkelkar">
+<Type>WS.Vhisie4.Winkelkar.dto.Winkelkar</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="Vhisie4Winkelkar">
-<Type>WS.Vhisie4.Winkelkar.dto.Winkelkar</Type>
+<Property name="VerkoopPrijsAPI">
+<Type>APPS.VKP.VerkoopPrijsAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="KlantPrijsBepaler">
+<Type>APPS.VKP.KlantPrijsBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GroepID">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>WinkelkarSender:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender,DateTimeAPI:TECH.DateTime.DateTimeAPI</FormalSpec>
+<FormalSpec>WinkelkarSender:WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender,DateTimeAPI:TECH.DateTime.DateTimeAPI,VerkoopPrijsAPI:APPS.VKP.VerkoopPrijsAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..WinkelkarSender = $$$Inject(WinkelkarSender, ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarExport.Sender).%New())
 	Set ..DateTimeAPI = $$$Inject(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())
+	Set ..VerkoopPrijsAPI = $$$Inject(VerkoopPrijsAPI, ##class(APPS.VKP.impl.VerkoopPrijsAPI).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -41,6 +52,8 @@
 <FormalSpec>Winkelkar:APPS.Blum.OnlineProductConfigurator.dto.Winkelkar,Klant:DOM.VKP.VanHoeckeKlant</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Set ..KlantPrijsBepaler = ..VerkoopPrijsAPI.GeefKlantPrijsBepaler(Klant)
+	
 	Set ..Vhisie4Winkelkar = ##class(WS.Vhisie4.Winkelkar.dto.Winkelkar).%New()
 	Set ..Vhisie4Winkelkar.Id = $REPLACE(..DateTimeAPI.CurrentHorolog(),",","")
 	Set ..Vhisie4Winkelkar.KlantId = Klant.GeefID()
@@ -131,6 +144,8 @@
 	Set Vhisie4ProductLijn = ##class(WS.Vhisie4.Winkelkar.dto.ProductLijn).%New()
 	Set Vhisie4ProductLijn.Aantal = Aantal
 	Set Vhisie4ProductLijn.ProductId = IdentNr
+	Set Vhisie4ProductLijn.TotaalPrijs = ..KlantPrijsBepaler.GeefPrijsInformatie(IdentNr, Aantal)
+	Set Vhisie4ProductLijn.EenheidPrijs = (Vhisie4ProductLijn.TotaalPrijs / Aantal)
 	Do ..Vhisie4Winkelkar.Lijnen.Insert(Vhisie4ProductLijn)
 ]]></Implementation>
 </Method>