Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/Kisch.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/Kisch.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler/Kisch.cls.xml	(revision 52220)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler.Kisch">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="GeefPersonalityId">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.common.KischPersonality).Instance().GeefID()
+]]></Implementation>
+</Method>
+
+<Method name="Test: TbxKenmerken">
+<Implementation><![CDATA[	Do ..AssertPrijzen(##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).StandaardLade(), 33.53, 55.89)
+]]></Implementation>
+</Method>
+
+<Method name="AssertPrijzen">
+<FormalSpec>TbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken,VerwachteAankoopPrijs:%Numeric,VerwachteVerkoopPrijs:%Numeric</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%New("UnitTest")
+	Set Winkelkar.PersonalityID = ..GeefPersonalityId()
+	
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
+	Do MaatwerkLijn.ZetIngegevenKenmerken(TbxKenmerken)
+	
+	#dim PrijsBerekeningPrijsBepaler As APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijsBepaler).%New()
+	#dim PrijsBerekeningPrijzen As APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijzen = PrijsBerekeningPrijsBepaler.BerekenPrijzen(Winkelkar, MaatwerkLijn)
+
+	Do $$$AssertEquals(PrijsBerekeningPrijzen.AankoopPrijs, VerwachteAankoopPrijs)
+	Do $$$AssertEquals(PrijsBerekeningPrijzen.VerkoopPrijs, VerwachteVerkoopPrijs)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml
===================================================================
diff -u -r52098 -r52220
--- APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 52098)
+++ APPS/EC/Winkelkar/WinkelkarService/impl/PrijsBerekeningPrijsBepaler.cls.xml	(.../PrijsBerekeningPrijsBepaler.cls.xml)	(revision 52220)
@@ -76,11 +76,11 @@
 <Implementation><![CDATA[
 	Set ..Winkelkar = Winkelkar
 	Set ..MaatwerkLijn = MaatwerkLijn
-
+	
 	Do Winkelkar.GeefPersonality().Accept($this)
 	
 	Do ..ValideerActieKortingen()
-
+	
 	Quit ##class(APPS.EC.Winkelkar.WinkelkarService.impl.PrijsBerekeningPrijzen).%New(..AankoopPrijs,..VerkoopPrijs,..LijstPrijs)
 ]]></Implementation>
 </Method>
@@ -211,19 +211,13 @@
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
-	#dim VanHoeckePersonalityID As DOM.common.enu.Personality = ##class(DOM.common.enu.Personality).VanHoecke()
-	#dim LijstPrijsKlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.VKP.enu.Klant).LijstPrijsKlant()	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaatwerkLijn.GeefIngegevenKenmerken()
 	#dim Aantal As %Integer = ..GeefAantal()
-	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken,Aantal,VanHoeckePersonalityID,LijstPrijsKlantID)
+	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo = ..VerkoopPrijsBepaler.BepaalVerkoopPrijs(IngegevenKenmerken, Aantal,  ##class(DOM.common.enu.Personality).VanHoecke(), ##class(DOM.VKP.enu.Klant).LijstPrijsKlant())
+	#dim BerekeningsSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal, KlantId, Personality)	
+	#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo = ..VerwerkKorting(VerkoopPrijsInfo, IngegevenKenmerken, BerekeningsSpecificatie)
 	
-	If 1 {	
-		Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(Aantal,KlantId,Personality)	
-		#dim VerkoopPrijsInfoInclKorting As DOM.VKP.info.VerkoopPrijsInfo = ..VerwerkKorting(VerkoopPrijsInfo,IngegevenKenmerken,BerekeningsSpecificatie)
-		quit VerkoopPrijsInfoInclKorting.GeefLijstPrijs()
-	} Else {
-		;Quit VerkoopPrijsInfo.GeefLijstPrijs()
-	}
+	Quit VerkoopPrijsInfoInclKorting.GeefVerkoopPrijs()
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/impl/VerkoopPrijsBepaler.cls.xml
===================================================================
diff -u -r42099 -r52220
--- DOM/PM/impl/VerkoopPrijsBepaler.cls.xml	(.../VerkoopPrijsBepaler.cls.xml)	(revision 42099)
+++ DOM/PM/impl/VerkoopPrijsBepaler.cls.xml	(.../VerkoopPrijsBepaler.cls.xml)	(revision 52220)
@@ -48,16 +48,18 @@
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:%String,PersonalityID:%String,KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <ReturnType>DOM.VKP.info.VerkoopPrijsInfo</ReturnType>
 <Implementation><![CDATA[
-	#dim VerkoopPrijs As DOM.VKP.info.VerkoopPrijsInfo
+	#dim VerkoopPrijsInfo As DOM.VKP.info.VerkoopPrijsInfo
 	#dim KlantIDVoorPrijsBerekening As %String = ..GeefKlantIDVoorPrijsBerekening(PersonalityID,KlantID)
 	If $$$Not(..IngegevenKenmerkenTypeAPI.IsTandemboxLade(IngegevenKenmerken)) {
 		#dim KostItemsBoom As DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem = ..MaatwerkCalcAPI.GeefKostItemsBoom(IngegevenKenmerken,Aantal,KlantIDVoorPrijsBerekening,##class(DOM.common.VanHoeckePersonality).Instance())
-		Set VerkoopPrijs = ..KostNaarVerkoopPrijs(KostItemsBoom.GeefKost(), IngegevenKenmerken,Aantal,KlantIDVoorPrijsBerekening)
+		Set VerkoopPrijsInfo = ..KostNaarVerkoopPrijs(KostItemsBoom.GeefKost(), IngegevenKenmerken,Aantal,KlantIDVoorPrijsBerekening)
 	} Else {
-		Set VerkoopPrijs = ##class(DOM.VKP.info.VerkoopPrijsInfo).%New(,..TbxHelper.BepaalVerkoopPrijs(IngegevenKenmerken.LegacyKenmerken, Aantal, KlantIDVoorPrijsBerekening))
+		#dim VerkoopPrijs As %String = ..TbxHelper.BepaalVerkoopPrijs(IngegevenKenmerken.LegacyKenmerken, Aantal, KlantIDVoorPrijsBerekening)
+		
+		Set VerkoopPrijsInfo = ##class(DOM.VKP.info.VerkoopPrijsInfo).%New(, VerkoopPrijs)
 	}
 	
-	Quit VerkoopPrijs
+	Quit VerkoopPrijsInfo
 ]]></Implementation>
 </Method>