Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml
===================================================================
diff -u -r39474 -r74540
--- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 39474)
+++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 74540)
@@ -3,101 +3,184 @@
 <Class name="vhUnitTest.DOM.PM.impl.VerkoopPrijsBepaler.BepaalVerkoopPrijs.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="SkipTestCase">
+<Description>
+Indien true wordt de gehele testcase niet uitgevoerd</Description>
+<Type>%Boolean</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="Type">
+<Type>%String</Type>
+<Default>IntegratieTest</Default>
+</Parameter>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestCase)
+	set ..Klant = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeOnderneming()
+	do ..Klant.ZetPrijsCodexStandaard(##class(DOM.VKP.enu.PrijsCodex).Lijstprijs())
+	do ..Klant.Save()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().VerwijderKlant(..Klant.GeefID())
+	do ##super(aTestCase)
+]]></Implementation>
+</Method>
+
 <Method name="Test prijs TBX StandaardLade">
 <Implementation><![CDATA[
 	#dim Aantal As %Integer = 1
-	#dim KlantID As %String = "K||1000"
+	#dim KlantID As %String = ..Klant.GeefID()
 	
 	Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
 	Set TbxKenmerken.LadeVariant = "TBX"
-	#dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade()
+	#dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLade()
 	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,51.47)
+	Do $$$AssertEquals(VerkoopPrijs,72.84)
 ]]></Implementation>
 </Method>
 
 <Method name="Test prijs TBX DMZLade">
 <Implementation><![CDATA[
 	#dim Aantal As %Integer = 1
-	#dim KlantID As %String = "K||1000"
+	#dim KlantID As %String = ..Klant.GeefID()
 	
 	Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
 	Set TbxKenmerken.LadeVariant = "TBX"
-	#dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).DMZLade()
+	#dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).DMZLade()
 	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,76.56)
+	Do $$$AssertEquals(VerkoopPrijs,"108.03")
 ]]></Implementation>
 </Method>
 
+<Method name="Test prijs TBX Spoelbaklade">
+<Implementation><![CDATA[
+	#dim Aantal As %Integer = 1
+	#dim KlantID As %String = ..Klant.GeefID()
+	
+	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).SpoelbakLade()
+	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,133.56)
+]]></Implementation>
+</Method>
+
+<Method name="Test prijs TBX SifonLadeMet1Uitsparing">
+<Implementation><![CDATA[
+	#dim Aantal As %Integer = 1
+	#dim KlantID As %String = ..Klant.GeefID()
+	
+	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,"102.25")
+]]></Implementation>
+</Method>
+
+<Method name="Test prijs TBX SifonLadeMet2Uitsparingen">
+<Implementation><![CDATA[
+	#dim Aantal As %Integer = 1
+	#dim KlantID As %String = ..Klant.GeefID()
+	
+	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,"141.60")
+]]></Implementation>
+</Method>
+
 <Method name="Test prijs TBX LadeMetVeelExtras">
 <Implementation><![CDATA[
 	#dim Aantal As %Integer = 1
-	#dim KlantID As %String = "K||1000"
+	#dim KlantID As %String = ..Klant.GeefID()
 	
 	Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
 	Set TbxKenmerken.LadeVariant = "TBX"
-	#dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).LadeMetVeelExtras()
+	#dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).LadeMetVeelExtras()
 	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,135.54)
+	Do $$$AssertEquals(VerkoopPrijs,176.66)
 ]]></Implementation>
 </Method>
 
 <Method name="Test prijs TBX StandaardLadeMetNietMeeleveren">
 <Implementation><![CDATA[
 	#dim Aantal As %Integer = 1
-	#dim KlantID As %String = "K||1000"
+	#dim KlantID As %String = ..Klant.GeefID()
 	
 	Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
 	Set TbxKenmerken.LadeVariant = "TBX"
-	#dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLadeMetNietMeeleveren()
+	#dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLadeMetNietMeeleveren()
 	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,35.76)
+	Do $$$AssertEquals(VerkoopPrijs,52.41)
 ]]></Implementation>
 </Method>
 
 <Method name="Test prijs TBX LadeMetVerlaagdeRug">
 <Implementation><![CDATA[
 	#dim Aantal As %Integer = 1
-	#dim KlantID As %String = "K||1000"
+	#dim KlantID As %String = ..Klant.GeefID()
 	
 	Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
 	Set TbxKenmerken.LadeVariant = "TBX"
-	#dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).LadeMetVerlaagdeRug()
+	#dim LegacyKenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).LadeMetVerlaagdeRug()
 	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,"58.60")
+	Do $$$AssertEquals(VerkoopPrijs,"83.11")
 ]]></Implementation>
 </Method>
 
 <Method name="Test onbestaande lade -&gt; error verwacht">
 <Implementation><![CDATA[
 	#dim Aantal As %Integer = 1
-	#dim KlantID As %String = "K||1000"
+	#dim KlantID As %String = ..Klant.GeefID()
 	
-	Set TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
-	Set TbxKenmerken.LadeVariant = "TBX"
-	#dim LegacyKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade()
-	Set LegacyKenmerken.ItemKB = "OnbestaandeKleur"
-	Set TbxKenmerken.LegacyKenmerken = LegacyKenmerken
+	#dim TbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).StandaardLade()
+	Set TbxKenmerken.LegacyKenmerken.ItemKB = "OnbestaandeKleur"
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Prijs kon niet berekend worden")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))