Index: vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml
===================================================================
diff -u -r41148 -r41190
--- vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 41148)
+++ vhUnitTest/APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder/Test.cls.xml	(.../Test.cls.xml)	(revision 41190)
@@ -53,13 +53,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PrijsInfo">
+<Type>APPS.VKP.dto.PrijsInfo</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 
 	Set ..CurrentDate = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
 
+	Set ..PrijsInfo = ##class(APPS.VKP.dto.PrijsInfo).%New()
+	Set ..PrijsInfo.PrijsInEuro = 5.60
+	
 	Set ..VanHoeckeKlant = ##class(vhTest.Utils.DOM.VKP.VanHoeckeKlant).StandaardKlant()
 	Set ..Vhisie4Winkelkar = ##class(vhTest.Utils.WS.Vhisie4.Winkelkar.dto.Winkelkar).BLUMOPCWinkelkar()
 	Set ..Response = ##class(WS.Vhisie4.WinkelkarExport.SendResponse).%New()
@@ -84,8 +92,8 @@
 	Do ..DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog").DanReturn("64387,35360")
 	Do ..DateTimeAPIMock.VerwachtMethodCall("CurrentDate").DanReturn("64387")
 	Do ..ProductBepaler.VerwachtMethodCall("GeefProductNummer","identnumber","K||1234").DanReturn("productnumber")
-	Do ..KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", "productnumber", 10, ..CurrentDate).DanReturn(5.60)
-	Do ..VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", ..VanHoeckeKlant).DanReturn(..KlantPrijsBepalerMock)
+	Do ..KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", "productnumber", 10, ..CurrentDate).DanReturn(..PrijsInfo)
+	Do ..VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", ..VanHoeckeKlant.GeefID()).DanReturn(..KlantPrijsBepalerMock)
 	
 	#dim IntractoID As %String = ..Converteerder.Converteer(..GeefcumulatedWinkelkar(), ..VanHoeckeKlant)
 	
@@ -109,8 +117,8 @@
 	Do ..DateTimeAPIMock.VerwachtMethodCall("CurrentHorolog").DanReturn("64387,35360")
 	Do ..DateTimeAPIMock.VerwachtMethodCall("CurrentDate").DanReturn("64387")
 	Do ..ProductBepaler.VerwachtMethodCall("GeefProductNummer","identnumber","K||1234").DanReturn("productnumber")
-	Do ..KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", "productnumber", 10, ..CurrentDate).DanReturn(5.60)
-	Do ..VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", ..VanHoeckeKlant).DanReturn(..KlantPrijsBepalerMock)
+	Do ..KlantPrijsBepalerMock.VerwachtMethodCall("GeefPrijsInformatie", "productnumber", 10, ..CurrentDate).DanReturn(..PrijsInfo)
+	Do ..VerkoopPrijsAPIMock.VerwachtMethodCall("GeefKlantPrijsBepaler", ..VanHoeckeKlant.GeefID()).DanReturn(..KlantPrijsBepalerMock)
 
 	#dim IntractoID As %String = ..Converteerder.Converteer(Winkelkar, ..VanHoeckeKlant)
 	
@@ -153,7 +161,7 @@
 	Do ..DateTimeAPIMock.IndienMethodCall("CurrentHorolog").DanReturn("64387,35360")
 	Do ..DateTimeAPIMock.IndienMethodCall("CurrentDate").DanReturn("64387")
 	Do ..ProductBepaler.IndienMethodCall("GeefProductNummer", $$$ElkeWaarde, $$$ElkeWaarde).DanReturn("productnumber")
-	Do ..KlantPrijsBepalerMock.IndienMethodCall("GeefPrijsInformatie", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(5.60)
+	Do ..KlantPrijsBepalerMock.IndienMethodCall("GeefPrijsInformatie", $$$ElkeWaarde, $$$ElkeWaarde, $$$ElkeWaarde).DanReturn(..PrijsInfo)
 	Do ..VerkoopPrijsAPIMock.IndienMethodCall("GeefKlantPrijsBepaler", $$$ElkeWaarde).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!")
Index: APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml
===================================================================
diff -u -r41148 -r41190
--- APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41148)
+++ APPS/Blum/impl/OnlineProductConfigurator/OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml	(.../OPCWinkelkarNaarVhisie4WinkelkarConverteerder.cls.xml)	(revision 41190)
@@ -82,7 +82,7 @@
 	Set ..Meldingen = ##class(TECH.ExceptionList).%New()
 	Set ..Klant = Klant
 	Set ..Winkelkar = Winkelkar
-	Set ..KlantPrijsBepaler = ..VerkoopPrijsAPI.GeefKlantPrijsBepaler(Klant)
+	Set ..KlantPrijsBepaler = ..VerkoopPrijsAPI.GeefKlantPrijsBepaler(Klant.GeefID())
 	
 	Do ..MaakVhisie4Winkelkar()
 	
@@ -210,7 +210,7 @@
 		Set Vhisie4ProductLijn = ##class(WS.Vhisie4.Winkelkar.dto.ProductLijn).%New()
 		Set Vhisie4ProductLijn.Aantal = Aantal
 		Set Vhisie4ProductLijn.ProductId = ..ProductBepaler.GeefProductNummer(IdentNr, ..Klant.GeefID())
-		Set Vhisie4ProductLijn.EenheidPrijs = ..KlantPrijsBepaler.GeefPrijsInformatie(Vhisie4ProductLijn.ProductId, Aantal)
+		Set Vhisie4ProductLijn.EenheidPrijs = ..KlantPrijsBepaler.GeefPrijsInformatie(Vhisie4ProductLijn.ProductId, Aantal).PrijsInEuro
 		Set Vhisie4ProductLijn.TotaalPrijs = (Vhisie4ProductLijn.EenheidPrijs * Aantal)
 		Do ..Vhisie4Winkelkar.Lijnen.Insert(Vhisie4ProductLijn)
 	} catch {