Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml
===================================================================
diff -u -r39613 -r39635
--- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 39613)
+++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 39635)
@@ -37,6 +37,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test prijs TBX SifonLadeMet1Uitsparing">
+<Implementation><![CDATA[
+	#dim Aantal As %Integer = 1
+	#dim KlantID As %String = "K||1000"
+	
+	Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TbxKenmerken.LadeVariant = "TBX"
+	#dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).SifonLadeMet1Uitsparing()
+	Set TbxKenmerken.LegacyKenmerken = LegacyKenmerken
+	
+	Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New()
+	#dim VerkoopPrijs As %Numeric = VerkoopPrijsBepaler.BepaalVerkoopPrijs(TbxKenmerken, Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), KlantID).GeefVerkoopPrijs()
+	
+	Do $$$AssertEquals(VerkoopPrijs,97.25)
+]]></Implementation>
+</Method>
+
+<Method name="Test prijs TBX SifonLadeMet2Uitsparingen">
+<Implementation><![CDATA[
+	#dim Aantal As %Integer = 1
+	#dim KlantID As %String = "K||1000"
+	
+	Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TbxKenmerken.LadeVariant = "TBX"
+	#dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).SifonLadeMet2Uitsparingen()
+	Set TbxKenmerken.LegacyKenmerken = LegacyKenmerken
+	
+	Set VerkoopPrijsBepaler = ##class(DOM.PM.impl.VerkoopPrijsBepaler).%New()
+	#dim VerkoopPrijs As %Numeric = VerkoopPrijsBepaler.BepaalVerkoopPrijs(TbxKenmerken, Aantal, ##class(DOM.common.enu.Personality).VanHoecke(), KlantID).GeefVerkoopPrijs()
+	
+	Do $$$AssertEquals(VerkoopPrijs,"138.00")
+]]></Implementation>
+</Method>
+
 <Method name="Test prijs TBX LadeMetVeelExtras">
 <Implementation><![CDATA[
 	#dim Aantal As %Integer = 1