Index: vhTest/Utils/APPS/PM/Maatwerk/dto/LBXKenmerken.cls.xml
===================================================================
diff -u -r31565 -r32475
--- vhTest/Utils/APPS/PM/Maatwerk/dto/LBXKenmerken.cls.xml	(.../LBXKenmerken.cls.xml)	(revision 31565)
+++ vhTest/Utils/APPS/PM/Maatwerk/dto/LBXKenmerken.cls.xml	(.../LBXKenmerken.cls.xml)	(revision 32475)
@@ -3,176 +3,85 @@
 <Class name="vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="GeefLegeLBXKenmerken">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>VersieNummer:%Integer=""</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
-<Implementation><![CDATA[	Quit ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).GeefLegeLBXKenmerken(VersieNummer)
-]]></Implementation>
-</Method>
-
-<Method name="GeefMSpoelbakLade">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.PM.Maatwerk.dto.LBXKenmerken</ReturnType>
-<Implementation><![CDATA[
-	
-	set LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
-	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
-	set LBXKenmerken.BodemKleur = "DG"
-	set LBXKenmerken.CorpusBreedte = "600"
-	set LBXKenmerken.CorpusWandDikte = "18"
-	set LBXKenmerken.Draagkracht = "40"
-	set LBXKenmerken.FrontBevestiging = "E"
-	set LBXKenmerken.GeleiderTechnologie = "B"
-	set LBXKenmerken.HeeftOpvullijstLinks = "0"
-	set LBXKenmerken.HeeftOpvullijstRechts = "0"
-	set LBXKenmerken.HeeftZijstabilisering = "0"
-	set LBXKenmerken.IsBinnenbreedte = "0"
-	set LBXKenmerken.IsBinnenlade = "0"
-	set LBXKenmerken.LadeDiepte = "300"
-	set LBXKenmerken.LadeHoogte = "M"
-	set LBXKenmerken.LadeKleur = "OG-M"
-	set LBXKenmerken.NietIngegeven = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerken.Omschrijving = ""
-	set LBXKenmerken.OpvullijstKleur = ""
-	set LBXKenmerken.RugHoogte = "M"
-	set LBXKenmerken.RugWandMateriaal = "Staal"
-	set LBXKenmerken.VerpakkingType = "V1"
-	set LBXKenmerken.VersieNr = ""
-	set LBXKenmerken.VoorWandTypeVanCBinnenlade = "Reling"
-	set LBXKenmerken.VoorWandTypeVanMBinnenlade = "Metaal"
-	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
-	Set LBXKenmerken.HeeftDwarsverdeling = $$$False
-	quit LBXKenmerken
-]]></Implementation>
-</Method>
-
 <Method name="StandaardLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.PM.Maatwerk.dto.LBXKenmerken</ReturnType>
-<Implementation><![CDATA[	quit ..CLade()
+<Implementation><![CDATA[	Quit ..CLade()
 ]]></Implementation>
 </Method>
 
 <Method name="CLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.PM.Maatwerk.dto.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	set LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
+	
 	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
-	set LBXKenmerken.BodemKleur = "DG"
-	set LBXKenmerken.CorpusBreedte = "600"
-	set LBXKenmerken.CorpusWandDikte = "18"
-	set LBXKenmerken.Draagkracht = "40"
-	set LBXKenmerken.FrontBevestiging = "E"
-	set LBXKenmerken.GeleiderTechnologie = "B"
-	set LBXKenmerken.HeeftOpvullijstLinks = "0"
-	set LBXKenmerken.HeeftOpvullijstRechts = "0"
-	set LBXKenmerken.HeeftZijstabilisering = "0"
-	set LBXKenmerken.IsBinnenbreedte = "0"
-	set LBXKenmerken.IsBinnenlade = "0"
-	set LBXKenmerken.LadeDiepte = "300"
-	set LBXKenmerken.LadeHoogte = "C"
-	set LBXKenmerken.LadeKleur = "OG-M"
-	set LBXKenmerken.NietIngegeven = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerken.Omschrijving = ""
-	set LBXKenmerken.OpvullijstKleur = ""
-	set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
-	set LBXKenmerken.RugWandMateriaal = "Staal"
-	set LBXKenmerken.VerpakkingType = "V1"
-	set LBXKenmerken.VersieNr = ""
-	set LBXKenmerken.VoorWandTypeVanCBinnenlade = "Reling"
-	set LBXKenmerken.VoorWandTypeVanMBinnenlade = "Metaal"
+	Set LBXKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Donkergrijs()
+	Set LBXKenmerken.CorpusBreedte = 600
+	Set LBXKenmerken.CorpusWandDikte = 18
+	Set LBXKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht40()
+	Set LBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).EXPANDO()
+	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).BLUMOTION()
+	Set LBXKenmerken.HeeftOpvullijstLinks = $$$False
+	Set LBXKenmerken.HeeftOpvullijstRechts = $$$False
+	Set LBXKenmerken.HeeftZijstabilisering = $$$False
+	Set LBXKenmerken.IsBinnenbreedte = $$$False
+	Set LBXKenmerken.IsBinnenlade = $$$False
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte300()
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Oriongrijs()
+	Set LBXKenmerken.NietIngegeven = ##class(%ListOfDataTypes).%New()
+	Set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	Set LBXKenmerken.Omschrijving = ""
+	Set LBXKenmerken.OpvullijstKleur = ""
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
+	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+	Set LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).V1()
+	Set LBXKenmerken.VersieNr = ""
+	Set LBXKenmerken.VoorWandTypeVanCBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling()
+	Set LBXKenmerken.VoorWandTypeVanMBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()
 	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
 	Set LBXKenmerken.HeeftDwarsverdeling = $$$False
-	quit LBXKenmerken
+	
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="MBinnenLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.PM.Maatwerk.dto.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	set LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
-	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
-	set LBXKenmerken.BodemKleur = "DG"
-	set LBXKenmerken.CorpusBreedte = "1200"
-	set LBXKenmerken.CorpusWandDikte = "18"
-	set LBXKenmerken.Draagkracht = "40"
-	set LBXKenmerken.FrontBevestiging = "S"
-	set LBXKenmerken.GeleiderTechnologie = "T"
-	set LBXKenmerken.HeeftOpvullijstLinks = "1"
-	set LBXKenmerken.HeeftOpvullijstRechts = "1"
-	set LBXKenmerken.HeeftZijstabilisering = "1"
-	set LBXKenmerken.IsBinnenbreedte = "0"
-	set LBXKenmerken.IsBinnenlade = "1"
-	set LBXKenmerken.LadeDiepte = "500"
-	set LBXKenmerken.LadeHoogte = "M"
-	set LBXKenmerken.LadeKleur = "INGL"
-	set LBXKenmerken.NietIngegeven = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerken.Omschrijving = ""
-	set LBXKenmerken.OpvullijstKleur = "LG"
-	set LBXKenmerken.RugHoogte = "M"
-	set LBXKenmerken.RugWandMateriaal = "Hout"
-	set LBXKenmerken.VerpakkingType = "V1"
-	set LBXKenmerken.VersieNr = ""
-	set LBXKenmerken.VoorWandTypeVanCBinnenlade = ""
-	set LBXKenmerken.VoorWandTypeVanMBinnenlade = "Glas"
-	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
-	Set LBXKenmerken.HeeftDwarsverdeling = $$$False
-	quit LBXKenmerken
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..StandaardLade()
+	
+	Set LBXKenmerken.CorpusBreedte = 1200
+	Set LBXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Schroef()
+	Set LBXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPON()
+	Set LBXKenmerken.HeeftOpvullijstLinks = $$$True
+	Set LBXKenmerken.HeeftOpvullijstRechts = $$$True
+	Set LBXKenmerken.HeeftZijstabilisering = $$$True
+	Set LBXKenmerken.IsBinnenlade = $$$True
+	Set LBXKenmerken.LadeDiepte = ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500()
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Inox()
+	Set LBXKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Lichtgrijs()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	Set LBXKenmerken.VoorWandTypeVanCBinnenlade = ""
+	Set LBXKenmerken.VoorWandTypeVanMBinnenlade = ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas()	
+
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="CLadeMetMat">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.PM.Maatwerk.dto.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[
-	set LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
-	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade()
-	set LBXKenmerken.BodemKleur = "DG"
-	set LBXKenmerken.CorpusBreedte = "600"
-	set LBXKenmerken.CorpusWandDikte = "18"
-	set LBXKenmerken.Draagkracht = "40"
-	set LBXKenmerken.FrontBevestiging = "E"
-	set LBXKenmerken.GeleiderTechnologie = "B"
-	set LBXKenmerken.HeeftOpvullijstLinks = "0"
-	set LBXKenmerken.HeeftOpvullijstRechts = "0"
-	set LBXKenmerken.HeeftZijstabilisering = "0"
-	set LBXKenmerken.IsBinnenbreedte = "0"
-	set LBXKenmerken.IsBinnenlade = "0"
-	set LBXKenmerken.LadeDiepte = "300"
-	set LBXKenmerken.LadeHoogte = "C"
-	set LBXKenmerken.LadeKleur = "OG-M"
-	set LBXKenmerken.NietIngegeven = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerken.Omschrijving = ""
-	set LBXKenmerken.OpvullijstKleur = ""
-	set LBXKenmerken.RugHoogte = ""
-	set LBXKenmerken.RugWandMateriaal = "Staal"
-	set LBXKenmerken.VerpakkingType = "V1"
-	set LBXKenmerken.VersieNr = ""
-	set LBXKenmerken.VoorWandTypeVanCBinnenlade = "Reling"
-	set LBXKenmerken.VoorWandTypeVanMBinnenlade = "Metaal"
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..CLade()	
 
 	Do LBXKenmerken.GekoppeldeIngegevenKenmerken.Insert(..GeefGekoppeldeIKMat())
-	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
-	Set LBXKenmerken.HeeftDwarsverdeling = $$$False
 	
-	quit LBXKenmerken
-]]></Implementation>
-</Method>
-
-<Method name="CFreeLade">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.PM.Maatwerk.dto.LBXKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..CLade()
-	set LBXKenmerken.LadeDiepte = "400"
-	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
 	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
@@ -182,13 +91,16 @@
 <Private>1</Private>
 <ReturnType>APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk</ReturnType>
 <Implementation><![CDATA[
-	Set MatKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
-	Set MatKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
-	Set MatKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).Rood()
+	#dim MATKenmerken As APPS.PM.Maatwerk.dto.MATKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
 	
-	Set GekoppeldKenmerk = ##class(APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk).%New()
+	Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).Wolvilt()
+	Set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).Rood()
+	
+	#dim GekoppeldKenmerk As APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk = ##class(APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk).%New()
+	
 	Set GekoppeldKenmerk.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat()
-	Set GekoppeldKenmerk.IngegevenKenmerken = MatKenmerken
+	Set GekoppeldKenmerk.IngegevenKenmerken = MATKenmerken
+	
 	Quit GekoppeldKenmerk
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestLBXKenmerken.cls.xml
===================================================================
diff -u -r31563 -r32475
--- vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestLBXKenmerken.cls.xml	(.../TestLBXKenmerken.cls.xml)	(revision 31563)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarObject/TestLBXKenmerken.cls.xml	(.../TestLBXKenmerken.cls.xml)	(revision 32475)
@@ -111,8 +111,11 @@
 
 <Method name="TestCFreeLade">
 <Implementation><![CDATA[
-	Set ..IngegevenKenmerkenDto = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).CFreeLade()
+	Set ..IngegevenKenmerkenDto = ##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()
+	
 	Do $$$AssertEquals(LBXKenmerken.ZijWandType, ##class(DOM.PM.enu.LBXZijWandType).Free())
 	Do $$$AssertEquals(LBXKenmerken.ZijWandVerhogingMateriaal, ##class(DOM.PM.enu.LBXZijWandVerhogingMateriaal).GlasDiamant())
 ]]></Implementation>