Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerkenLegacy.cls.xml
===================================================================
diff -u -r38916 -r38964
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerkenLegacy.cls.xml	(.../TBXKenmerkenLegacy.cls.xml)	(revision 38916)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerkenLegacy.cls.xml	(.../TBXKenmerkenLegacy.cls.xml)	(revision 38964)
@@ -17,14 +17,14 @@
 	Set Kenmerken.ItemDC = "A"
 	Set Kenmerken.ItemDCOms = ""
 	Set Kenmerken.ItemDK = 30
-	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDS = "WA"
 	Set Kenmerken.ItemDSOms = ""
 	Set Kenmerken.ItemDWV = ""
 	Set Kenmerken.ItemFB = "I"
 	Set Kenmerken.ItemFS = "A"
-	Set Kenmerken.ItemKB = "BZ"
+	Set Kenmerken.ItemKB = "WI"
 	Set Kenmerken.ItemKBOms = ""
-	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKL = "SW"
 	Set Kenmerken.ItemKLOms = ""
 	Set Kenmerken.ItemKLROPVL = ""
 	Set Kenmerken.ItemKV = ""
@@ -35,7 +35,7 @@
 	Set Kenmerken.ItemLT = "M"
 	Set Kenmerken.ItemOLP = ""
 	Set Kenmerken.ItemOPVL = ""
-	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRK = "SW"
 	Set Kenmerken.ItemRKOms = ""
 	Set Kenmerken.ItemRSTL = ""
 	Set Kenmerken.ItemSB = 0
@@ -55,21 +55,21 @@
 	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).%New()
 	
 	Set Kenmerken.ItemASM = ""
-	Set Kenmerken.ItemBGRP = "Z"
+	Set Kenmerken.ItemBGRP = "R"
 	Set Kenmerken.ItemBM = "I"
 	Set Kenmerken.ItemBX = "ER"
 	Set Kenmerken.ItemCB = 600
 	Set Kenmerken.ItemDC = "A"
 	Set Kenmerken.ItemDCOms = ""
 	Set Kenmerken.ItemDK = 30
-	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDS = "WA"
 	Set Kenmerken.ItemDSOms = ""
 	Set Kenmerken.ItemDWV = ""
 	Set Kenmerken.ItemFB = "Z"
 	Set Kenmerken.ItemFS = "A"
-	Set Kenmerken.ItemKB = "BZ"
+	Set Kenmerken.ItemKB = "WI"
 	Set Kenmerken.ItemKBOms = ""
-	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKL = "SW"
 	Set Kenmerken.ItemKLOms = ""
 	Set Kenmerken.ItemKLROPVL = ""
 	Set Kenmerken.ItemKV = ""
@@ -80,9 +80,9 @@
 	Set Kenmerken.ItemLT = "DM/Z"
 	Set Kenmerken.ItemOLP = ""
 	Set Kenmerken.ItemOPVL = ""
-	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRK = "SW"
 	Set Kenmerken.ItemRKOms = ""
-	Set Kenmerken.ItemRSTL = "D"
+	Set Kenmerken.ItemRSTL = ""
 	Set Kenmerken.ItemSB = 0
 	Set Kenmerken.ItemSPZK = ""
 	Set Kenmerken.ItemSTDL = ""
@@ -107,14 +107,14 @@
 	Set Kenmerken.ItemDC = "A"
 	Set Kenmerken.ItemDCOms = ""
 	Set Kenmerken.ItemDK = 30
-	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDS = "WA"
 	Set Kenmerken.ItemDSOms = ""
 	Set Kenmerken.ItemDWV = ""
 	Set Kenmerken.ItemFB = "I"
 	Set Kenmerken.ItemFS = "A"
-	Set Kenmerken.ItemKB = "BZ"
+	Set Kenmerken.ItemKB = "WI"
 	Set Kenmerken.ItemKBOms = ""
-	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKL = "SW"
 	Set Kenmerken.ItemKLOms = ""
 	Set Kenmerken.ItemKLROPVL = ""
 	Set Kenmerken.ItemKV = ""
@@ -125,7 +125,7 @@
 	Set Kenmerken.ItemLT = "MS2"
 	Set Kenmerken.ItemOLP = ""
 	Set Kenmerken.ItemOPVL = ""
-	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRK = "SW"
 	Set Kenmerken.ItemRKOms = ""
 	Set Kenmerken.ItemRSTL = ""
 	Set Kenmerken.ItemSB = 0
@@ -152,14 +152,14 @@
 	Set Kenmerken.ItemDC = "A"
 	Set Kenmerken.ItemDCOms = ""
 	Set Kenmerken.ItemDK = 30
-	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDS = "WA"
 	Set Kenmerken.ItemDSOms = ""
 	Set Kenmerken.ItemDWV = ""
 	Set Kenmerken.ItemFB = "I"
 	Set Kenmerken.ItemFS = "A"
-	Set Kenmerken.ItemKB = "BZ"
+	Set Kenmerken.ItemKB = "WI"
 	Set Kenmerken.ItemKBOms = ""
-	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKL = "SW"
 	Set Kenmerken.ItemKLOms = ""
 	Set Kenmerken.ItemKLROPVL = ""
 	Set Kenmerken.ItemKV = ""
@@ -170,7 +170,7 @@
 	Set Kenmerken.ItemLT = "MY2"
 	Set Kenmerken.ItemOLP = ""
 	Set Kenmerken.ItemOPVL = ""
-	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRK = "SW"
 	Set Kenmerken.ItemRKOms = ""
 	Set Kenmerken.ItemRSTL = ""
 	Set Kenmerken.ItemSB = 0
@@ -197,14 +197,14 @@
 	Set Kenmerken.ItemDC = "A"
 	Set Kenmerken.ItemDCOms = ""
 	Set Kenmerken.ItemDK = 30
-	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDS = "WA"
 	Set Kenmerken.ItemDSOms = ""
 	Set Kenmerken.ItemDWV = ""
 	Set Kenmerken.ItemFB = "I"
 	Set Kenmerken.ItemFS = "A"
-	Set Kenmerken.ItemKB = "BZ"
+	Set Kenmerken.ItemKB = "WI"
 	Set Kenmerken.ItemKBOms = ""
-	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKL = "SW"
 	Set Kenmerken.ItemKLOms = ""
 	Set Kenmerken.ItemKLROPVL = ""
 	Set Kenmerken.ItemKV = ""
@@ -215,7 +215,7 @@
 	Set Kenmerken.ItemLT = "MY2"
 	Set Kenmerken.ItemOLP = ""
 	Set Kenmerken.ItemOPVL = ""
-	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRK = "SW"
 	Set Kenmerken.ItemRKOms = ""
 	Set Kenmerken.ItemRSTL = ""
 	Set Kenmerken.ItemSB = 0
@@ -242,28 +242,28 @@
 	Set Kenmerken.ItemDC = "A"
 	Set Kenmerken.ItemDCOms = ""
 	Set Kenmerken.ItemDK = 30
-	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDS = "WA"
 	Set Kenmerken.ItemDSOms = ""
 	Set Kenmerken.ItemDWV = 3
 	Set Kenmerken.ItemFB = "I"
 	Set Kenmerken.ItemFS = "A"
-	Set Kenmerken.ItemKB = "DG"
+	Set Kenmerken.ItemKB = "WI"
 	Set Kenmerken.ItemKBOms = ""
-	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKL = "SW"
 	Set Kenmerken.ItemKLOms = ""
 	Set Kenmerken.ItemKLROPVL = ""
-	Set Kenmerken.ItemKV = "ALU.BZ"
+	Set Kenmerken.ItemKV = "ALU.SW"
 	Set Kenmerken.ItemKVOms = ""
 	Set Kenmerken.ItemKX = ""
 	Set Kenmerken.ItemKXOms = ""
 	Set Kenmerken.ItemLD = 400
 	Set Kenmerken.ItemLT = "CM"
 	Set Kenmerken.ItemOLP = ""
 	Set Kenmerken.ItemOPVL = ""
-	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRK = "SW"
 	Set Kenmerken.ItemRKOms = ""
-	Set Kenmerken.ItemRSTL = "C"
-	Set Kenmerken.ItemSB = 1
+	Set Kenmerken.ItemRSTL = ""
+	Set Kenmerken.ItemSB = 0
 	Set Kenmerken.ItemSPZK = ""
 	Set Kenmerken.ItemSTDL = ""
 	Set Kenmerken.ItemVPK = "S"
@@ -287,14 +287,14 @@
 	Set Kenmerken.ItemDC = "A"
 	Set Kenmerken.ItemDCOms = ""
 	Set Kenmerken.ItemDK = 30
-	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDS = "WA"
 	Set Kenmerken.ItemDSOms = ""
 	Set Kenmerken.ItemDWV = ""
 	Set Kenmerken.ItemFB = "I"
 	Set Kenmerken.ItemFS = "A"
-	Set Kenmerken.ItemKB = "BZ"
+	Set Kenmerken.ItemKB = "WI"
 	Set Kenmerken.ItemKBOms = ""
-	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKL = "SW"
 	Set Kenmerken.ItemKLOms = ""
 	Set Kenmerken.ItemKLROPVL = ""
 	Set Kenmerken.ItemKV = ""
@@ -305,7 +305,7 @@
 	Set Kenmerken.ItemLT = "M"
 	Set Kenmerken.ItemOLP = ""
 	Set Kenmerken.ItemOPVL = ""
-	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRK = "SW"
 	Set Kenmerken.ItemRKOms = ""
 	Set Kenmerken.ItemRSTL = ""
 	Set Kenmerken.ItemSB = 0
Index: vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml
===================================================================
diff -u -r38922 -r38964
--- vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 38922)
+++ vhUnitTest/DOM/PM/impl/VerkoopPrijsBepaler/BepaalVerkoopPrijs/Test.cls.xml	(.../Test.cls.xml)	(revision 38964)
@@ -19,6 +19,40 @@
 	Do $$$AssertEquals(VerkoopPrijs,51.47)
 ]]></Implementation>
 </Method>
+
+<Method name="Test prijs TBX DMZLade">
+<Implementation><![CDATA[
+	#dim Aantal As %Integer = 1
+	#dim KlantID As %String = "K||1000"
+	
+	#dim TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TbxKenmerken.LadeVariant = "TBX"
+	#dim LegacyKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.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)
+	
+	Do $$$AssertEquals(VerkoopPrijs,76.56)
+]]></Implementation>
+</Method>
+
+<Method name="Test prijs TBX LadeMetVeelExtras">
+<Implementation><![CDATA[
+	#dim Aantal As %Integer = 1
+	#dim KlantID As %String = "K||1000"
+	
+	#dim TbxKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+	Set TbxKenmerken.LadeVariant = "TBX"
+	#dim LegacyKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.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)
+	
+	Do $$$AssertEquals(VerkoopPrijs,133.29)
+]]></Implementation>
+</Method>
 </Class>