Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BasisTest.cls.xml
===================================================================
diff -u -r40898 -r46875
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BasisTest.cls.xml	(.../BasisTest.cls.xml)	(revision 40898)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/BasisTest.cls.xml	(.../BasisTest.cls.xml)	(revision 46875)
@@ -39,9 +39,15 @@
 	
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..GeefKlantID()
 	#dim PersonalityID As DOM.common.enu.Personality = ..GeefPersonality().GeefID()
+	
+	#dim PersonalityIDVanLeverancier As DOM.common.enu.Personality = ..GeefPersonality().GeefLeverancierData().PersonalityId
+	#dim EigenKlantIdBijLeverancier As DOM.common.enu.Personality = ..GeefPersonality().GeefLeverancierData().EigenKlantId
+	
 	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ##class(vhTest.Dummy.DOM.VKP.info.VerkoopPrijsInfo).Create(..EenheidPrijs, $$$DummyInteger, $$$DummyInteger, PersonalityID, KlantID)
+	#dim VerkoopPrijsInfoLeverancier As DOM.VKP.info.VerkoopPrijsInfo = ##class(vhTest.Dummy.DOM.VKP.info.VerkoopPrijsInfo).Create(..EenheidPrijs*10, $$$DummyInteger, $$$DummyInteger, PersonalityIDVanLeverancier, EigenKlantIdBijLeverancier)
 	
 	Do VerkoopPrijsBepalerStub.IndienMethodCall("BepaalVerkoopPrijs", IngegevenKenmerken, "", PersonalityID, KlantID).DanReturn(VerkoopPrijsInfo)
+	Do VerkoopPrijsBepalerStub.IndienMethodCall("BepaalVerkoopPrijs", IngegevenKenmerken, "", PersonalityIDVanLeverancier, EigenKlantIdBijLeverancier).DanReturn(VerkoopPrijsInfoLeverancier)
 	
 	#dim PrijsBepaler As APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler).%New(VerkoopPrijsBepalerStub, PrijsBepalerFactoryFake, ..KortingBepaler)