Index: vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerkenLegacy.cls.xml
===================================================================
diff -u -r51800 -r54512
--- vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerkenLegacy.cls.xml	(.../TBXKenmerkenLegacy.cls.xml)	(revision 51800)
+++ vhTest/Utils/APPS/PM/Maatwerk/dto/TBXKenmerkenLegacy.cls.xml	(.../TBXKenmerkenLegacy.cls.xml)	(revision 54512)
@@ -49,46 +49,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BinnenLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy</ReturnType>
+<Implementation><![CDATA[
+	#dim Kenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ..StandaardLade()	
+	
+	Set Kenmerken.ItemLT = "M/Z"
+	Set Kenmerken.ItemFB = "Z"
+	Set Kenmerken.ItemBGRP = "Z"
+	
+	Quit Kenmerken
+]]></Implementation>
+</Method>
+
 <Method name="DMZLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy</ReturnType>
 <Implementation><![CDATA[
-	Set Kenmerken = ##class(APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).%New()
+	#dim Kenmerken As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ..BinnenLade()	
 	
-	Set Kenmerken.ItemASM = ""
+	Set Kenmerken.ItemLT = "DM/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 = "WA"
-	Set Kenmerken.ItemDSOms = ""
-	Set Kenmerken.ItemDWV = ""
-	Set Kenmerken.ItemFB = "Z"
-	Set Kenmerken.ItemFS = "A"
-	Set Kenmerken.ItemKB = "WI"
-	Set Kenmerken.ItemKBOms = ""
-	Set Kenmerken.ItemKL = "SW"
-	Set Kenmerken.ItemKLOms = ""
-	Set Kenmerken.ItemKLROPVL = ""
-	Set Kenmerken.ItemKV = ""
-	Set Kenmerken.ItemKVOms = ""
-	Set Kenmerken.ItemKX = ""
-	Set Kenmerken.ItemKXOms = ""
-	Set Kenmerken.ItemLD = 500
-	Set Kenmerken.ItemLT = "DM/Z"
-	Set Kenmerken.ItemOLP = ""
-	Set Kenmerken.ItemOPVL = ""
-	Set Kenmerken.ItemRK = "SW"
-	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>