Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml
===================================================================
diff -u -r41160 -r45144
--- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 41160)
+++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 45144)
@@ -3,10 +3,33 @@
 <Class name="vhUnitTest.DOM.PM.impl.VerkoopPrijsBepaler.BepaalVerkoopPrijs.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<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"
@@ -23,7 +46,7 @@
 <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"
@@ -40,7 +63,7 @@
 <Method name="Test prijs TBX Spoelbaklade">
 <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"
@@ -57,7 +80,7 @@
 <Method name="Test prijs TBX SifonLadeMet1Uitsparing">
 <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"
@@ -74,7 +97,7 @@
 <Method name="Test prijs TBX SifonLadeMet2Uitsparingen">
 <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"
@@ -91,7 +114,7 @@
 <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"
@@ -108,7 +131,7 @@
 <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"
@@ -125,7 +148,7 @@
 <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"
@@ -142,7 +165,7 @@
 <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()
 	
 	#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"