Index: vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestLBXKenmerkenSpoelbak.cls.xml
===================================================================
diff -u -r29059 -r36818
--- vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestLBXKenmerkenSpoelbak.cls.xml	(.../TestLBXKenmerkenSpoelbak.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestLBXKenmerkenSpoelbak.cls.xml	(.../TestLBXKenmerkenSpoelbak.cls.xml)	(revision 36818)
@@ -10,13 +10,13 @@
 
 <Method name="TestVerwerkLBXSpoelbakKenmerken">
 <Implementation><![CDATA[
-	Do ..InitLBXSpoelbakKenmerken()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ..InitLBXSpoelbakKenmerken()
 
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	
 	Do $$$AssertEquals(LBXKenmerken.Klasse,##class(DOM.PM.enu.LBXKlasse).Spoelbak())
 	Do $$$AssertEquals(LBXKenmerken.InterneBreedte, ..#CorpusBreedte)
-	Do $$$AssertEquals(LBXKenmerken.RugWandMateriaal, ..IngegevenKenmerkenDto.RugWandMateriaal)
+	Do $$$AssertEquals(LBXKenmerken.RugWandMateriaal, IngegevenKenmerkenDto.RugWandMateriaal)
 	
 	If $$$AssertTrue($IsObject(LBXKenmerken.SpoelbakKenmerken)) {
 		Do $$$AssertEquals(LBXKenmerken.SpoelbakKenmerken.UitsparingPositie1,158)
@@ -38,15 +38,16 @@
 <Method name="InitLBXSpoelbakKenmerken">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..InitLBXKenmerken()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ..InitLBXKenmerken()
 	
-	Set ..IngegevenKenmerkenDto.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
-	Set ..IngegevenKenmerkenDto.IsBinnenlade = 0
+	Set IngegevenKenmerkenDto.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
+	Set IngegevenKenmerkenDto.IsBinnenlade = 0
 
-	Set ..IngegevenKenmerkenDto.CorpusWandDikte = 0
-	Set ..IngegevenKenmerkenDto.IsBinnenbreedte = 1
-	Set ..IngegevenKenmerkenDto.HeeftOpvullijstLinks = 0
-	Set ..IngegevenKenmerkenDto.HeeftOpvullijstRechts = 0
+	Set IngegevenKenmerkenDto.CorpusWandDikte = 0
+	Set IngegevenKenmerkenDto.IsBinnenbreedte = 1
+	Set IngegevenKenmerkenDto.HeeftOpvullijstLinks = 0
+	Set IngegevenKenmerkenDto.HeeftOpvullijstRechts = 0
+	quit IngegevenKenmerkenDto
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestTAORKenmerken.cls.xml
===================================================================
diff -u -r29059 -r36818
--- vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestTAORKenmerken.cls.xml	(.../TestTAORKenmerken.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestTAORKenmerken.cls.xml	(.../TestTAORKenmerken.cls.xml)	(revision 36818)
@@ -5,29 +5,30 @@
 
 <Method name="TestAlgemeen">
 <Implementation><![CDATA[
-	do ..InitTAORKenmerken()
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	Do $$$AssertEquals(TAORKenmerken.InterneBreedte, 600)
-	Do $$$AssertEquals(TAORKenmerken.Draagkracht,..IngegevenKenmerkenDto.Draagkracht)
-	Do $$$AssertEquals(TAORKenmerken.FrontBevestiging,..IngegevenKenmerkenDto.FrontBevestiging)
-	Do $$$AssertEquals(TAORKenmerken.GUIKenmerken.IsBinnenbreedte,..IngegevenKenmerkenDto.IsBinnenbreedte)
-	Do $$$AssertEquals(TAORKenmerken.GUIKenmerken.WandDikte,..IngegevenKenmerkenDto.CorpusWandDikte)
-	Do $$$AssertEquals(TAORKenmerken.HeeftOpvullijstLinks,..IngegevenKenmerkenDto.HeeftOpvullijstLinks)
-	Do $$$AssertEquals(TAORKenmerken.HeeftOpvullijstRechts,..IngegevenKenmerkenDto.HeeftOpvullijstRechts)
-	Do $$$AssertEquals(TAORKenmerken.HeeftZijstabilisering,..IngegevenKenmerkenDto.HeeftZijstabilisering)
-	Do $$$AssertEquals(TAORKenmerken.IsBinnenlade,..IngegevenKenmerkenDto.IsBinnenlade)
-	Do $$$AssertEquals(TAORKenmerken.LadeDiepte,..IngegevenKenmerkenDto.LadeDiepte)
-	Do $$$AssertEquals(TAORKenmerken.LadeHoogte,..IngegevenKenmerkenDto.LadeHoogte)
-	Do $$$AssertEquals(TAORKenmerken.LadeKleur,..IngegevenKenmerkenDto.LadeKleur)
-	Do $$$AssertEquals(TAORKenmerken.VerpakkingType,..IngegevenKenmerkenDto.VerpakkingType)
+	Do $$$AssertEquals(TAORKenmerken.Draagkracht,IngegevenKenmerkenDto.Draagkracht)
+	Do $$$AssertEquals(TAORKenmerken.FrontBevestiging,IngegevenKenmerkenDto.FrontBevestiging)
+	Do $$$AssertEquals(TAORKenmerken.GUIKenmerken.IsBinnenbreedte,IngegevenKenmerkenDto.IsBinnenbreedte)
+	Do $$$AssertEquals(TAORKenmerken.GUIKenmerken.WandDikte,IngegevenKenmerkenDto.CorpusWandDikte)
+	Do $$$AssertEquals(TAORKenmerken.HeeftOpvullijstLinks,IngegevenKenmerkenDto.HeeftOpvullijstLinks)
+	Do $$$AssertEquals(TAORKenmerken.HeeftOpvullijstRechts,IngegevenKenmerkenDto.HeeftOpvullijstRechts)
+	Do $$$AssertEquals(TAORKenmerken.HeeftZijstabilisering,IngegevenKenmerkenDto.HeeftZijstabilisering)
+	Do $$$AssertEquals(TAORKenmerken.IsBinnenlade,IngegevenKenmerkenDto.IsBinnenlade)
+	Do $$$AssertEquals(TAORKenmerken.KantenbandKleur,IngegevenKenmerkenDto.KantenbandKleur)
+	Do $$$AssertEquals(TAORKenmerken.LadeDiepte,IngegevenKenmerkenDto.LadeDiepte)
+	Do $$$AssertEquals(TAORKenmerken.LadeHoogte,IngegevenKenmerkenDto.LadeHoogte)
+	Do $$$AssertEquals(TAORKenmerken.LadeKleur,IngegevenKenmerkenDto.LadeKleur)
+	Do $$$AssertEquals(TAORKenmerken.VerpakkingType,IngegevenKenmerkenDto.VerpakkingType)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Met één opvullijst">
 <Implementation><![CDATA[
-	do ..InitTAORKenmerken()
-	set ..IngegevenKenmerkenDto.HeeftOpvullijstLinks = $$$true
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	set IngegevenKenmerkenDto.HeeftOpvullijstLinks = $$$true
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	
 	Do $$$AssertEquals(TAORKenmerken.HeeftOpvullijstLinks,$$$true)
 	Do $$$AssertEquals(TAORKenmerken.HeeftOpvullijstRechts,$$$false)
@@ -38,10 +39,10 @@
 
 <Method name="Test: Met twee opvullijst">
 <Implementation><![CDATA[
-	do ..InitTAORKenmerken()
-	set ..IngegevenKenmerkenDto.HeeftOpvullijstLinks = $$$true
-	set ..IngegevenKenmerkenDto.HeeftOpvullijstRechts = $$$true
-	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	set IngegevenKenmerkenDto.HeeftOpvullijstLinks = $$$true
+	set IngegevenKenmerkenDto.HeeftOpvullijstRechts = $$$true
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	
 	Do $$$AssertEquals(TAORKenmerken.HeeftOpvullijstLinks,$$$true)
 	Do $$$AssertEquals(TAORKenmerken.HeeftOpvullijstRechts,$$$true)
Index: vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/Base.cls.xml
===================================================================
diff -u -r31022 -r36818
--- vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/Base.cls.xml	(.../Base.cls.xml)	(revision 31022)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/Base.cls.xml	(.../Base.cls.xml)	(revision 36818)
@@ -19,11 +19,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="IngegevenKenmerkenDto">
-<Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	do ##super()
@@ -33,42 +28,38 @@
 
 <Method name="ConverteerNaarIngegevenKenmerkenObject">
 <Final>1</Final>
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[	Quit ..Converter.NaarObject(..IngegevenKenmerkenDto)
+<Implementation><![CDATA[	Quit ..Converter.NaarObject(IngegevenKenmerken)
 ]]></Implementation>
 </Method>
 
 <Method name="InitLBXKenmerken">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerkenDto = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
+	Set IngegevenKenmerkenDto = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
 	
-	Set ..IngegevenKenmerkenDto.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()	
-	Set ..IngegevenKenmerkenDto.CorpusBreedte = ..#CorpusBreedte
-	Set ..IngegevenKenmerkenDto.CorpusWandDikte = ..#CorpusWandDikte
-	Set ..IngegevenKenmerkenDto.IsBinnenbreedte = 0
-	Set ..IngegevenKenmerkenDto.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
-	Set ..IngegevenKenmerkenDto.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
-	Set ..IngegevenKenmerkenDto.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
-	Set ..IngegevenKenmerkenDto.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte270()
-	Set ..IngegevenKenmerkenDto.IsBinnenlade = 1
-	Set ..IngegevenKenmerkenDto.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
-	Set ..IngegevenKenmerkenDto.HeeftOpvullijstLinks = 1
-	Set ..IngegevenKenmerkenDto.HeeftOpvullijstRechts = 1
-	Set ..IngegevenKenmerkenDto.HeeftZijstabilisering = 1
-	Set ..IngegevenKenmerkenDto.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Schroef()
-	Set ..IngegevenKenmerkenDto.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()
-	Set ..IngegevenKenmerkenDto.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
-	Set ..IngegevenKenmerkenDto.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
+	Set IngegevenKenmerkenDto.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()	
+	Set IngegevenKenmerkenDto.CorpusBreedte = ..#CorpusBreedte
+	Set IngegevenKenmerkenDto.CorpusWandDikte = ..#CorpusWandDikte
+	Set IngegevenKenmerkenDto.IsBinnenbreedte = 0
+	Set IngegevenKenmerkenDto.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
+	Set IngegevenKenmerkenDto.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
+	Set IngegevenKenmerkenDto.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
+	Set IngegevenKenmerkenDto.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte270()
+	Set IngegevenKenmerkenDto.IsBinnenlade = 1
+	Set IngegevenKenmerkenDto.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	Set IngegevenKenmerkenDto.HeeftOpvullijstLinks = 1
+	Set IngegevenKenmerkenDto.HeeftOpvullijstRechts = 1
+	Set IngegevenKenmerkenDto.HeeftZijstabilisering = 1
+	Set IngegevenKenmerkenDto.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Schroef()
+	Set IngegevenKenmerkenDto.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()
+	Set IngegevenKenmerkenDto.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
+	Set IngegevenKenmerkenDto.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
+	quit IngegevenKenmerkenDto
 ]]></Implementation>
 </Method>
-
-<Method name="InitTAORKenmerken">
-<Private>1</Private>
-<Implementation><![CDATA[	set ..IngegevenKenmerkenDto = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestLBXKenmerkenGekoppeld.cls.xml
===================================================================
diff -u -r29059 -r36818
--- vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestLBXKenmerkenGekoppeld.cls.xml	(.../TestLBXKenmerkenGekoppeld.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestLBXKenmerkenGekoppeld.cls.xml	(.../TestLBXKenmerkenGekoppeld.cls.xml)	(revision 36818)
@@ -5,10 +5,10 @@
 
 <Method name="TestLBXKenmerken">
 <Implementation><![CDATA[
-	Do ..InitLBXKenmerken()
-	Do ..VoegToeMat()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ..InitLBXKenmerken()
+	Do ..VoegToeMat(.IngegevenKenmerkenDto)
 	
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	
 	Do $$$AssertEquals(LBXKenmerken.GeefFamilie(),"Lade")
 	Do $$$AssertEquals(LBXKenmerken.GeefVariant(),"LBX_Pure")
@@ -28,11 +28,11 @@
 
 <Method name="TestLBXSpoelbakKenmerken">
 <Implementation><![CDATA[
-	Do ..InitLBXKenmerken()
-	Do ..WijzigDtoNaarSpoelbaklade()
-	Do ..VoegToeMat()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ..InitLBXKenmerken()
+	Do ..WijzigDtoNaarSpoelbaklade(.IngegevenKenmerkenDto)
+	Do ..VoegToeMat(.IngegevenKenmerkenDto)
 
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	
 	If $$$AssertEquals(LBXKenmerken.GekoppeldeIngegevenKenmerken.Count(),2)
 	{
@@ -54,18 +54,20 @@
 </Method>
 
 <Method name="WijzigDtoNaarSpoelbaklade">
+<FormalSpec><![CDATA[&IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken]]></FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..IngegevenKenmerkenDto.Klasse=##class(DOM.PM.enu.LBXKlasse).Spoelbak()
+<Implementation><![CDATA[	Set IngegevenKenmerkenDto.Klasse=##class(DOM.PM.enu.LBXKlasse).Spoelbak()
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeMat">
+<FormalSpec><![CDATA[&IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set GekoppeldIngegevenKenmerk = ##class(APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk).%New()
 	Set GekoppeldIngegevenKenmerk.IngegevenKenmerken = ##class(vhUnitTest.APPS.PM.Maatwerk.MAT.Helper).GeefKenmerkenDto()
 	Set GekoppeldIngegevenKenmerk.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat()
-	Do ..IngegevenKenmerkenDto.GekoppeldeIngegevenKenmerken.Insert(GekoppeldIngegevenKenmerk)
+	Do IngegevenKenmerkenDto.GekoppeldeIngegevenKenmerken.Insert(GekoppeldIngegevenKenmerk)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestLBXKenmerken.cls.xml
===================================================================
diff -u -r32475 -r36818
--- vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestLBXKenmerken.cls.xml	(.../TestLBXKenmerken.cls.xml)	(revision 32475)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestLBXKenmerken.cls.xml	(.../TestLBXKenmerken.cls.xml)	(revision 36818)
@@ -5,61 +5,61 @@
 
 <Method name="TestAlgemeen">
 <Implementation><![CDATA[
-	do ..InitLBXKenmerken()
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ..InitLBXKenmerken()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 		
-	Do $$$AssertEquals(LBXKenmerken.Klasse,..IngegevenKenmerkenDto.Klasse)
+	Do $$$AssertEquals(LBXKenmerken.Klasse,IngegevenKenmerkenDto.Klasse)
 	Do $$$AssertEquals(LBXKenmerken.InterneBreedte, ..#CorpusBreedte - (2 * ..#CorpusWandDikte) - (2 * 25))
-	Do $$$AssertEquals(LBXKenmerken.BodemKleur,..IngegevenKenmerkenDto.BodemKleur)
-	Do $$$AssertEquals(LBXKenmerken.Draagkracht,..IngegevenKenmerkenDto.Draagkracht)
-	Do $$$AssertEquals(LBXKenmerken.FrontBevestiging,..IngegevenKenmerkenDto.FrontBevestiging)
-	Do $$$AssertEquals(LBXKenmerken.GeleiderTechnologie,..IngegevenKenmerkenDto.GeleiderTechnologie)
-	Do $$$AssertEquals(LBXKenmerken.GUIKenmerken.IsBinnenbreedte,..IngegevenKenmerkenDto.IsBinnenbreedte)
-	Do $$$AssertEquals(LBXKenmerken.GUIKenmerken.WandDikte,..IngegevenKenmerkenDto.CorpusWandDikte)
-	Do $$$AssertEquals(LBXKenmerken.HeeftOpvullijstLinks,..IngegevenKenmerkenDto.HeeftOpvullijstLinks)
-	Do $$$AssertEquals(LBXKenmerken.HeeftOpvullijstRechts,..IngegevenKenmerkenDto.HeeftOpvullijstRechts)
-	Do $$$AssertEquals(LBXKenmerken.HeeftZijstabilisering,..IngegevenKenmerkenDto.HeeftZijstabilisering)
-	Do $$$AssertEquals(LBXKenmerken.IsBinnenlade,..IngegevenKenmerkenDto.IsBinnenlade)
-	Do $$$AssertEquals(LBXKenmerken.LadeDiepte,..IngegevenKenmerkenDto.LadeDiepte)
-	Do $$$AssertEquals(LBXKenmerken.LadeHoogte,..IngegevenKenmerkenDto.LadeHoogte)
-	Do $$$AssertEquals(LBXKenmerken.LadeKleur,..IngegevenKenmerkenDto.LadeKleur)
-	Do $$$AssertEquals(LBXKenmerken.RugWandMateriaal,..IngegevenKenmerkenDto.RugWandMateriaal)
-	Do $$$AssertEquals(LBXKenmerken.VerpakkingType,..IngegevenKenmerkenDto.VerpakkingType)
+	Do $$$AssertEquals(LBXKenmerken.BodemKleur,IngegevenKenmerkenDto.BodemKleur)
+	Do $$$AssertEquals(LBXKenmerken.Draagkracht,IngegevenKenmerkenDto.Draagkracht)
+	Do $$$AssertEquals(LBXKenmerken.FrontBevestiging,IngegevenKenmerkenDto.FrontBevestiging)
+	Do $$$AssertEquals(LBXKenmerken.GeleiderTechnologie,IngegevenKenmerkenDto.GeleiderTechnologie)
+	Do $$$AssertEquals(LBXKenmerken.GUIKenmerken.IsBinnenbreedte,IngegevenKenmerkenDto.IsBinnenbreedte)
+	Do $$$AssertEquals(LBXKenmerken.GUIKenmerken.WandDikte,IngegevenKenmerkenDto.CorpusWandDikte)
+	Do $$$AssertEquals(LBXKenmerken.HeeftOpvullijstLinks,IngegevenKenmerkenDto.HeeftOpvullijstLinks)
+	Do $$$AssertEquals(LBXKenmerken.HeeftOpvullijstRechts,IngegevenKenmerkenDto.HeeftOpvullijstRechts)
+	Do $$$AssertEquals(LBXKenmerken.HeeftZijstabilisering,IngegevenKenmerkenDto.HeeftZijstabilisering)
+	Do $$$AssertEquals(LBXKenmerken.IsBinnenlade,IngegevenKenmerkenDto.IsBinnenlade)
+	Do $$$AssertEquals(LBXKenmerken.LadeDiepte,IngegevenKenmerkenDto.LadeDiepte)
+	Do $$$AssertEquals(LBXKenmerken.LadeHoogte,IngegevenKenmerkenDto.LadeHoogte)
+	Do $$$AssertEquals(LBXKenmerken.LadeKleur,IngegevenKenmerkenDto.LadeKleur)
+	Do $$$AssertEquals(LBXKenmerken.RugWandMateriaal,IngegevenKenmerkenDto.RugWandMateriaal)
+	Do $$$AssertEquals(LBXKenmerken.VerpakkingType,IngegevenKenmerkenDto.VerpakkingType)
 ]]></Implementation>
 </Method>
 
 <Method name="TestBinnenBreedte">
 <Implementation><![CDATA[
-	do ..InitLBXKenmerken()
-	Set ..IngegevenKenmerkenDto.IsBinnenbreedte = 1
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ..InitLBXKenmerken()
+	Set IngegevenKenmerkenDto.IsBinnenbreedte = 1
 	
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	
 	Do $$$AssertEquals( LBXKenmerken.InterneBreedte ,..#CorpusBreedte - (2 * 25) )
 ]]></Implementation>
 </Method>
 
 <Method name="TestMBinnenladeMetaal">
 <Implementation><![CDATA[
-	do ..InitLBXKenmerken()
-	Set ..IngegevenKenmerkenDto.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
-	Set ..IngegevenKenmerkenDto.IsBinnenlade = 1
-	Set ..IngegevenKenmerkenDto.VoorWandTypeVanMBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ..InitLBXKenmerken()
+	Set IngegevenKenmerkenDto.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	Set IngegevenKenmerkenDto.IsBinnenlade = 1
+	Set IngegevenKenmerkenDto.VoorWandTypeVanMBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()
 	
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	
 	Do $$$AssertEquals( LBXKenmerken.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Voorstuk() )
 ]]></Implementation>
 </Method>
 
 <Method name="TestMBinnenladeGlas">
 <Implementation><![CDATA[
-	do ..InitLBXKenmerken()
-	Set ..IngegevenKenmerkenDto.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
-	Set ..IngegevenKenmerkenDto.IsBinnenlade = 1
-	Set ..IngegevenKenmerkenDto.VoorWandTypeVanMBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ..InitLBXKenmerken()
+	Set IngegevenKenmerkenDto.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	Set IngegevenKenmerkenDto.IsBinnenlade = 1
+	Set IngegevenKenmerkenDto.VoorWandTypeVanMBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas()
 	
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	
 	Do $$$AssertEquals( LBXKenmerken.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Vulling() )
 	Do $$$AssertEquals( LBXKenmerken.VoorWandVerhogingMateriaal, ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant() )
@@ -68,25 +68,25 @@
 
 <Method name="TestCBinnenladeReling">
 <Implementation><![CDATA[
-	do ..InitLBXKenmerken()
-	Set ..IngegevenKenmerkenDto.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
-	Set ..IngegevenKenmerkenDto.IsBinnenlade = 1
-	Set ..IngegevenKenmerkenDto.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ..InitLBXKenmerken()
+	Set IngegevenKenmerkenDto.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set IngegevenKenmerkenDto.IsBinnenlade = 1
+	Set IngegevenKenmerkenDto.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling()
 	
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	
 	Do $$$AssertEquals( LBXKenmerken.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Reling() )
 ]]></Implementation>
 </Method>
 
 <Method name="TestCBinnenladeGlasHoog">
 <Implementation><![CDATA[
-	do ..InitLBXKenmerken()
-	Set ..IngegevenKenmerkenDto.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
-	Set ..IngegevenKenmerkenDto.IsBinnenlade = 1
-	Set ..IngegevenKenmerkenDto.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ..InitLBXKenmerken()
+	Set IngegevenKenmerkenDto.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set IngegevenKenmerkenDto.IsBinnenlade = 1
+	Set IngegevenKenmerkenDto.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog()
 	
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	
 	Do $$$AssertEquals( LBXKenmerken.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Vulling() )
 	Do $$$AssertEquals( LBXKenmerken.VoorWandVerhogingMateriaal, ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant() )
@@ -96,12 +96,12 @@
 
 <Method name="TestCBinnenladeGlasLaag">
 <Implementation><![CDATA[
-	do ..InitLBXKenmerken()
-	Set ..IngegevenKenmerkenDto.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
-	Set ..IngegevenKenmerkenDto.IsBinnenlade = 1
-	Set ..IngegevenKenmerkenDto.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag()
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ..InitLBXKenmerken()
+	Set IngegevenKenmerkenDto.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set IngegevenKenmerkenDto.IsBinnenlade = 1
+	Set IngegevenKenmerkenDto.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag()
 	
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	
 	Do $$$AssertEquals( LBXKenmerken.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Vulling() )
 	Do $$$AssertEquals( LBXKenmerken.VoorWandVerhogingMateriaal, ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant() )
@@ -111,10 +111,10 @@
 
 <Method name="TestCFreeLade">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerkenDto = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
-	Set ..IngegevenKenmerkenDto.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()	
+	#dim IngegevenKenmerkenDto As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
+	Set IngegevenKenmerkenDto.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()	
 	
-	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject()
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..ConverteerNaarIngegevenKenmerkenObject(IngegevenKenmerkenDto)
 	
 	Do $$$AssertEquals(LBXKenmerken.ZijWandType, ##class(DOM.PM.enu.LBXZijWandType).Free())
 	Do $$$AssertEquals(LBXKenmerken.ZijWandVerhogingMateriaal, ##class(DOM.PM.enu.LBXZijWandVerhogingMateriaal).GlasDiamant())