Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r38669 -r38916
--- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 38669)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 38916)
@@ -219,6 +219,10 @@
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.TBXGUIKenmerken</Type>
 </Property>
 
+<Property name="LegacyKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy</Type>
+</Property>
+
 <Method name="GeefVersieNr">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit 0
@@ -779,6 +783,9 @@
 <Value name="52">
 <Value>InterneBreedte</Value>
 </Value>
+<Value name="53">
+<Value>LegacyKenmerken</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerkenLegacy.cls.xml
===================================================================
diff -u
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerkenLegacy.cls.xml	(revision 0)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerkenLegacy.cls.xml	(revision 38916)
@@ -0,0 +1,323 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="StandaardLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy</ReturnType>
+<Implementation><![CDATA[
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).%New()
+	
+	Set Kenmerken.ItemASM = ""
+	Set Kenmerken.ItemBGRP = "X"
+	Set Kenmerken.ItemBM = "I"
+	Set Kenmerken.ItemBX = "ZR"
+	Set Kenmerken.ItemCB = 600
+	Set Kenmerken.ItemDC = "A"
+	Set Kenmerken.ItemDCOms = ""
+	Set Kenmerken.ItemDK = 30
+	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDSOms = ""
+	Set Kenmerken.ItemDWV = ""
+	Set Kenmerken.ItemFB = "I"
+	Set Kenmerken.ItemFS = "A"
+	Set Kenmerken.ItemKB = "BZ"
+	Set Kenmerken.ItemKBOms = ""
+	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKLOms = ""
+	Set Kenmerken.ItemKLROPVL = ""
+	Set Kenmerken.ItemKV = ""
+	Set Kenmerken.ItemKVOms = ""
+	Set Kenmerken.ItemKX = ""
+	Set Kenmerken.ItemKXOms = ""
+	Set Kenmerken.ItemLD = 400
+	Set Kenmerken.ItemLT = "M"
+	Set Kenmerken.ItemOLP = ""
+	Set Kenmerken.ItemOPVL = ""
+	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRKOms = ""
+	Set Kenmerken.ItemRSTL = ""
+	Set Kenmerken.ItemSB = 0
+	Set Kenmerken.ItemSPZK = ""
+	Set Kenmerken.ItemSTDL = ""
+	Set Kenmerken.ItemVPK = "S"
+	Set Kenmerken.ItemWD = "B"
+	
+	Quit Kenmerken
+]]></Implementation>
+</Method>
+
+<Method name="DMZLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy</ReturnType>
+<Implementation><![CDATA[
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).%New()
+	
+	Set Kenmerken.ItemASM = ""
+	Set Kenmerken.ItemBGRP = "Z"
+	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.ItemDSOms = ""
+	Set Kenmerken.ItemDWV = ""
+	Set Kenmerken.ItemFB = "Z"
+	Set Kenmerken.ItemFS = "A"
+	Set Kenmerken.ItemKB = "BZ"
+	Set Kenmerken.ItemKBOms = ""
+	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKLOms = ""
+	Set Kenmerken.ItemKLROPVL = ""
+	Set Kenmerken.ItemKV = ""
+	Set Kenmerken.ItemKVOms = ""
+	Set Kenmerken.ItemKX = ""
+	Set Kenmerken.ItemKXOms = ""
+	Set Kenmerken.ItemLD = 400
+	Set Kenmerken.ItemLT = "DM/Z"
+	Set Kenmerken.ItemOLP = ""
+	Set Kenmerken.ItemOPVL = ""
+	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRKOms = ""
+	Set Kenmerken.ItemRSTL = "D"
+	Set Kenmerken.ItemSB = 0
+	Set Kenmerken.ItemSPZK = ""
+	Set Kenmerken.ItemSTDL = ""
+	Set Kenmerken.ItemVPK = "S"
+	Set Kenmerken.ItemWD = "B"
+	
+	Quit Kenmerken
+]]></Implementation>
+</Method>
+
+<Method name="SpoelbakLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy</ReturnType>
+<Implementation><![CDATA[
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).%New()
+
+	Set Kenmerken.ItemASM = ""
+	Set Kenmerken.ItemBGRP = "X"
+	Set Kenmerken.ItemBM = "I"
+	Set Kenmerken.ItemBX = "ZR"
+	Set Kenmerken.ItemCB = 600
+	Set Kenmerken.ItemDC = "A"
+	Set Kenmerken.ItemDCOms = ""
+	Set Kenmerken.ItemDK = 30
+	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDSOms = ""
+	Set Kenmerken.ItemDWV = ""
+	Set Kenmerken.ItemFB = "I"
+	Set Kenmerken.ItemFS = "A"
+	Set Kenmerken.ItemKB = "BZ"
+	Set Kenmerken.ItemKBOms = ""
+	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKLOms = ""
+	Set Kenmerken.ItemKLROPVL = ""
+	Set Kenmerken.ItemKV = ""
+	Set Kenmerken.ItemKVOms = ""
+	Set Kenmerken.ItemKX = ""
+	Set Kenmerken.ItemKXOms = ""
+	Set Kenmerken.ItemLD = 400
+	Set Kenmerken.ItemLT = "MS2"
+	Set Kenmerken.ItemOLP = ""
+	Set Kenmerken.ItemOPVL = ""
+	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRKOms = ""
+	Set Kenmerken.ItemRSTL = ""
+	Set Kenmerken.ItemSB = 0
+	Set Kenmerken.ItemSPZK = "M.;150;150;300"
+	Set Kenmerken.ItemSTDL = ""
+	Set Kenmerken.ItemVPK = "S"
+	Set Kenmerken.ItemWD = "B"
+	
+	Quit Kenmerken
+]]></Implementation>
+</Method>
+
+<Method name="SifonLadeMet1Uitsparing">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy</ReturnType>
+<Implementation><![CDATA[
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).%New()
+
+	Set Kenmerken.ItemASM = ""
+	Set Kenmerken.ItemBGRP = "X"
+	Set Kenmerken.ItemBM = "I"
+	Set Kenmerken.ItemBX = "ZR"
+	Set Kenmerken.ItemCB = 600
+	Set Kenmerken.ItemDC = "A"
+	Set Kenmerken.ItemDCOms = ""
+	Set Kenmerken.ItemDK = 30
+	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDSOms = ""
+	Set Kenmerken.ItemDWV = ""
+	Set Kenmerken.ItemFB = "I"
+	Set Kenmerken.ItemFS = "A"
+	Set Kenmerken.ItemKB = "BZ"
+	Set Kenmerken.ItemKBOms = ""
+	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKLOms = ""
+	Set Kenmerken.ItemKLROPVL = ""
+	Set Kenmerken.ItemKV = ""
+	Set Kenmerken.ItemKVOms = ""
+	Set Kenmerken.ItemKX = ""
+	Set Kenmerken.ItemKXOms = ""
+	Set Kenmerken.ItemLD = 400
+	Set Kenmerken.ItemLT = "MY2"
+	Set Kenmerken.ItemOLP = ""
+	Set Kenmerken.ItemOPVL = ""
+	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRKOms = ""
+	Set Kenmerken.ItemRSTL = ""
+	Set Kenmerken.ItemSB = 0
+	Set Kenmerken.ItemSPZK = "S;225;225;150"
+	Set Kenmerken.ItemSTDL = ""
+	Set Kenmerken.ItemVPK = "S"
+	Set Kenmerken.ItemWD = "B"
+	
+	Quit Kenmerken
+]]></Implementation>
+</Method>
+
+<Method name="SifonLadeMet2Uitsparingen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy</ReturnType>
+<Implementation><![CDATA[
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).%New()
+
+	Set Kenmerken.ItemASM = ""
+	Set Kenmerken.ItemBGRP = "X"
+	Set Kenmerken.ItemBM = "I"
+	Set Kenmerken.ItemBX = "ZR"
+	Set Kenmerken.ItemCB = 600
+	Set Kenmerken.ItemDC = "A"
+	Set Kenmerken.ItemDCOms = ""
+	Set Kenmerken.ItemDK = 30
+	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDSOms = ""
+	Set Kenmerken.ItemDWV = ""
+	Set Kenmerken.ItemFB = "I"
+	Set Kenmerken.ItemFS = "A"
+	Set Kenmerken.ItemKB = "BZ"
+	Set Kenmerken.ItemKBOms = ""
+	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKLOms = ""
+	Set Kenmerken.ItemKLROPVL = ""
+	Set Kenmerken.ItemKV = ""
+	Set Kenmerken.ItemKVOms = ""
+	Set Kenmerken.ItemKX = ""
+	Set Kenmerken.ItemKXOms = ""
+	Set Kenmerken.ItemLD = 400
+	Set Kenmerken.ItemLT = "MY2"
+	Set Kenmerken.ItemOLP = ""
+	Set Kenmerken.ItemOPVL = ""
+	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRKOms = ""
+	Set Kenmerken.ItemRSTL = ""
+	Set Kenmerken.ItemSB = 0
+	Set Kenmerken.ItemSPZK = "SS;120;120;60;150;150"
+	Set Kenmerken.ItemSTDL = ""
+	Set Kenmerken.ItemVPK = "S"
+	Set Kenmerken.ItemWD = "B"
+	
+	Quit Kenmerken
+]]></Implementation>
+</Method>
+
+<Method name="LadeMetVeelExtras">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy</ReturnType>
+<Implementation><![CDATA[
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).%New()
+
+	Set Kenmerken.ItemASM = "WI.AF"
+	Set Kenmerken.ItemBGRP = "X"
+	Set Kenmerken.ItemBM = "TOB"
+	Set Kenmerken.ItemBX = "INSCHF"
+	Set Kenmerken.ItemCB = 600
+	Set Kenmerken.ItemDC = "A"
+	Set Kenmerken.ItemDCOms = ""
+	Set Kenmerken.ItemDK = 30
+	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDSOms = ""
+	Set Kenmerken.ItemDWV = 3
+	Set Kenmerken.ItemFB = "I"
+	Set Kenmerken.ItemFS = "A"
+	Set Kenmerken.ItemKB = "DG"
+	Set Kenmerken.ItemKBOms = ""
+	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKLOms = ""
+	Set Kenmerken.ItemKLROPVL = ""
+	Set Kenmerken.ItemKV = "ALU.BZ"
+	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.ItemRKOms = ""
+	Set Kenmerken.ItemRSTL = "C"
+	Set Kenmerken.ItemSB = 1
+	Set Kenmerken.ItemSPZK = ""
+	Set Kenmerken.ItemSTDL = ""
+	Set Kenmerken.ItemVPK = "S"
+	Set Kenmerken.ItemWD = 18	
+	
+	Quit Kenmerken
+]]></Implementation>
+</Method>
+
+<Method name="StandaardLadeMetNietMeeleveren">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy</ReturnType>
+<Implementation><![CDATA[
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).%New()
+
+	Set Kenmerken.ItemASM = ""
+	Set Kenmerken.ItemBGRP = "X"
+	Set Kenmerken.ItemBM = "I"
+	Set Kenmerken.ItemBX = "ZR"
+	Set Kenmerken.ItemCB = 600
+	Set Kenmerken.ItemDC = "A"
+	Set Kenmerken.ItemDCOms = ""
+	Set Kenmerken.ItemDK = 30
+	Set Kenmerken.ItemDS = "ZA"
+	Set Kenmerken.ItemDSOms = ""
+	Set Kenmerken.ItemDWV = ""
+	Set Kenmerken.ItemFB = "I"
+	Set Kenmerken.ItemFS = "A"
+	Set Kenmerken.ItemKB = "BZ"
+	Set Kenmerken.ItemKBOms = ""
+	Set Kenmerken.ItemKL = "BZ"
+	Set Kenmerken.ItemKLOms = ""
+	Set Kenmerken.ItemKLROPVL = ""
+	Set Kenmerken.ItemKV = ""
+	Set Kenmerken.ItemKVOms = ""
+	Set Kenmerken.ItemKX = ""
+	Set Kenmerken.ItemKXOms = ""
+	Set Kenmerken.ItemLD = 400
+	Set Kenmerken.ItemLT = "M"
+	Set Kenmerken.ItemOLP = ""
+	Set Kenmerken.ItemOPVL = ""
+	Set Kenmerken.ItemRK = "BZ"
+	Set Kenmerken.ItemRKOms = ""
+	Set Kenmerken.ItemRSTL = ""
+	Set Kenmerken.ItemSB = 0
+	Set Kenmerken.ItemSPZK = ""
+	Set Kenmerken.ItemSTDL = ""
+	Set Kenmerken.ItemVPK = "S"
+	Set Kenmerken.ItemWD = "B"	
+	
+	Quit Kenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r38814 -r38916
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 38814)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 38916)
@@ -27,6 +27,7 @@
 	Set TbxKenmerken.LadeKleur = ##class(DOM.PM.enu.TBXLadeKleur).BZ()
 	Set TbxKenmerken.LadeHoogte = ##class(DOM.PM.enu.TBXLadehoogte).M()
 	Set TbxKenmerken.ZijkantHoogte = ##class(DOM.PM.enu.TBXZijkantHoogte).M()
+	set TbxKenmerken.LegacyKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLade()
 	
 	Quit TbxKenmerken
 ]]></Implementation>