Index: vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/MVXKenmerken.cls.xml
===================================================================
diff -u
--- vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/MVXKenmerken.cls.xml	(revision 0)
+++ vhTest/Dummy/DOM/PM/Maatwerk/Calc/Common/impl/MVXKenmerken.cls.xml	(revision 62295)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefLegeMVXKenmerken">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).%New()
+]]></Implementation>
+</Method>
+
+<Method name="DummyLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..StandaardLade()
+]]></Implementation>
+</Method>
+
+<Method name="StandaardLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.PM.Maatwerk.dto.MVXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim MVXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ..GeefLegeMVXKenmerken()
+	
+	Set MVXKenmerken.BodemKleur = ##class(DOM.PM.enu.MVXBodemKleur).Donkergrijs()
+	Set MVXKenmerken.CorpusBreedte = 600
+	Set MVXKenmerken.CorpusWandDikte = 0
+	Set MVXKenmerken.Draagkracht = ##class(DOM.PM.enu.MVXDraagkracht).Draagkracht40()
+	Set MVXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.MVXFrontBevestiging).Inserta()
+	Set MVXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.MVXGeleiderTechnologie).BLUMOTION()
+	Set MVXKenmerken.IsBinnenbreedte = $$$True
+	Set MVXKenmerken.IsBinnenlade = $$$False
+	Set MVXKenmerken.LadeDiepte = ##class(DOM.PM.enu.MVXLadeDiepte).LadeDiepte500()
+	Set MVXKenmerken.LadeHoogte = ##class(DOM.PM.enu.MVXLadeHoogte).M()
+	Set MVXKenmerken.LadeKleur = ##class(DOM.PM.enu.MVXLadeKleur).Oriongrijs()
+	Set MVXKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXProductieWijze).Volledig()
+	Set MVXKenmerken.RugHoogte = ##class(DOM.PM.enu.MVXRugHoogte).M()
+	Set MVXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Hout()
+	Set MVXKenmerken.VerpakkingType = ##class(DOM.PM.enu.MVXVerpakkingType).Probox()
+	Set MVXKenmerken.GUIKenmerken.IsBinnenbreedte = 0
+	Set MVXKenmerken.GUIKenmerken.WandDikte = 18
+	Set MVXKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Lade()
+	Set MVXKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Pure()
+	Set MVXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.MVXZijwandVerhogingType).Zonder()
+	
+	Quit MVXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="BinnenLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.PM.Maatwerk.dto.MVXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim MvxKenmerken As APPS.PM.Maatwerk.dto.MVXKenmerken = ..StandaardLade()
+	
+	Set MvxKenmerken.IsBinnenlade = $$$True
+	Set MvxKenmerken.FrontBevestiging = ""
+	Set MvxKenmerken.GUIKenmerken.VoorWandTypeVanMBinnenlade = ##class(DOM.PM.enu.MVXVoorWandTypeVanMBinnenlade).Metaal()
+	
+	Quit MvxKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/PM/Maatwerk/dto/MVXKenmerken.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/PM/Maatwerk/dto/MVXKenmerken.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/PM/Maatwerk/dto/MVXKenmerken.cls.xml	(revision 62295)
@@ -0,0 +1,254 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.PM.Maatwerk.dto.MVXKenmerken">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="LegeKenmerken">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.PM.Maatwerk.dto.MVXKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.dto.MVXKenmerken).%New()
+]]></Implementation>
+</Method>
+
+<Method name="StandaardLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.PM.Maatwerk.dto.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim MVXKenmerken As APPS.PM.Maatwerk.dto.MVXKenmerken = ..LegeKenmerken()
+	
+	Set MVXKenmerken.BodemKleur = ##class(DOM.PM.enu.MVXBodemKleur).Donkergrijs()
+	Set MVXKenmerken.CorpusBreedte = 600
+	Set MVXKenmerken.CorpusWandDikte = 0
+	Set MVXKenmerken.Draagkracht = ##class(DOM.PM.enu.MVXDraagkracht).Draagkracht40()
+	Set MVXKenmerken.FrontBevestiging = ##class(DOM.PM.enu.MVXFrontBevestiging).Inserta()
+	Set MVXKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.MVXGeleiderTechnologie).BLUMOTION()
+	Set MVXKenmerken.IsBinnenbreedte = $$$True
+	Set MVXKenmerken.IsBinnenlade = $$$False
+	Set MVXKenmerken.LadeDiepte = ##class(DOM.PM.enu.MVXLadeDiepte).LadeDiepte500()
+	Set MVXKenmerken.LadeHoogte = ##class(DOM.PM.enu.MVXLadeHoogte).M()
+	Set MVXKenmerken.LadeKleur = ##class(DOM.PM.enu.MVXLadeKleur).Oriongrijs()
+	Set MVXKenmerken.ProductieWijze = ##class(DOM.PM.enu.MVXProductieWijze).Volledig()
+	Set MVXKenmerken.RugHoogte = ##class(DOM.PM.enu.MVXRugHoogte).M()
+	Set MVXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Hout()
+	Set MVXKenmerken.VerpakkingType = ##class(DOM.PM.enu.MVXVerpakkingType).Probox()
+	Set MVXKenmerken.VoorWandTypeVanMBinnenlade = ""
+	Set MVXKenmerken.VoorWandTypeVanEBinnenlade = ""
+	Set MVXKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Lade()
+	Set MVXKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Pure()
+	Set MVXKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.MVXZijwandVerhogingType).Zonder()
+	
+	Quit MVXKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="BinnenLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.PM.Maatwerk.dto.MVXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim MvxKenmerken As APPS.PM.Maatwerk.dto.MVXKenmerken = ..StandaardLade()
+	
+	Set MvxKenmerken.IsBinnenlade = $$$True
+	Set MvxKenmerken.FrontBevestiging = ""
+	Set MvxKenmerken.VoorWandTypeVanMBinnenlade = ##class(DOM.PM.enu.MVXVoorWandTypeVanMBinnenlade).Metaal()
+	
+	Quit MvxKenmerken
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+ClassMethod SpoelbakLade() As APPS.PM.Maatwerk.dto.LBXKenmerken
+{
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..StandaardLade()
+	
+	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
+	
+	Quit LBXKenmerken
+}
+
+ClassMethod SifonLadeMet1Uitsparing() As APPS.PM.Maatwerk.dto.LBXKenmerken
+{
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..StandaardLade()
+	
+	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon()
+	Set LBXKenmerken.UitsparingDataAantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
+	Set LBXKenmerken.UitsparingDataBreedteX = 225
+	Set LBXKenmerken.UitsparingDataBreedteY = 225
+	Set LBXKenmerken.UitsparingDataBreedteZ1 = 150
+	Set LBXKenmerken.UitsparingDataCodeZ1 = "SY_Recht_M_D250_B150"
+	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	
+	Quit LBXKenmerken
+}
+
+ClassMethod SifonLadeMet2Uitsparingen() As APPS.PM.Maatwerk.dto.LBXKenmerken
+{
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..StandaardLade()
+	
+	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon()
+	Set LBXKenmerken.CorpusBreedte = 900
+	Set LBXKenmerken.UitsparingDataAantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
+	Set LBXKenmerken.UitsparingDataBreedteM = 240
+	Set LBXKenmerken.UitsparingDataBreedteX = 180
+	Set LBXKenmerken.UitsparingDataBreedteY = 180
+	Set LBXKenmerken.UitsparingDataBreedteZ1 = 150
+	Set LBXKenmerken.UitsparingDataBreedteZ2 = 150
+	Set LBXKenmerken.UitsparingDataCodeZ1 = "SY_Recht_M_D250_B150"
+	Set LBXKenmerken.UitsparingDataCodeZ2 = "SY_Recht_M_D250_B150"
+	Set LBXKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()
+	
+	Quit LBXKenmerken
+}
+
+ClassMethod LadeMetVeelExtras() As APPS.PM.Maatwerk.dto.LBXKenmerken
+{
+	#dim LbxKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..StandaardLade()
+	
+	Set LbxKenmerken.AantalDwarsverdelingen = 3
+	Set LbxKenmerken.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Bruinzwart()
+	Set LbxKenmerken.Draagkracht = ##class(DOM.PM.enu.LBXDraagkracht).Draagkracht70()
+	Set LbxKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Schroef()
+	Set LbxKenmerken.GeleiderTechnologie = ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()
+	Set LbxKenmerken.HeeftDwarsverdeling = $$$True
+	Set LbxKenmerken.HeeftOpvullijstLinks = $$$True
+	Set LbxKenmerken.HeeftOpvullijstRechts = $$$True
+	Set LbxKenmerken.IsBinnenbreedte = $$$False
+	Set LbxKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LbxKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Terrazwart()
+	Set LbxKenmerken.OpvullijstKleur = ##class(DOM.PM.enu.LBXOpvullijstKleur).Zwart()
+	Set LbxKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).C()
+	Set LbxKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()
+	Set LbxKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
+	
+	Set MATKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
+	Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
+	Set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberWit()
+	Set GekoppeldIngegevenKenmerk = ##class(APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk).%New()
+	Set GekoppeldIngegevenKenmerk.IngegevenKenmerken = MATKenmerken
+	Set GekoppeldIngegevenKenmerk.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat()
+	Do LbxKenmerken.GekoppeldeIngegevenKenmerken.Insert(GekoppeldIngegevenKenmerk)
+	
+	Quit LbxKenmerken
+}
+
+ClassMethod LadeMetVerlaagdeRug() As APPS.PM.Maatwerk.dto.LBXKenmerken
+{
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..StandaardLade()
+	
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).C()
+	Set LBXKenmerken.RugHoogte = ##class(DOM.PM.enu.LBXRugHoogte).M()
+	
+	Quit LBXKenmerken
+}
+
+ClassMethod StandaardLadeMetNietMeeleveren() As APPS.PM.Maatwerk.dto.LBXKenmerken
+{
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..StandaardLade()
+	
+	Set LBXEnum = ##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New()
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.AfdekkapBinnen)
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.AfdekkapBuiten)
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.AfdekkapRugWandHouder)
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.BevestigingBodemFront)
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.FrontBevestiging)
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.Geleider)
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.InschuifElementVoor)
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.InschuifElementZijkant)
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.Opvullijst)
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.TiponBlumotionSetEenhedenEnMeenemers)
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.TiponBlumotionSynchronisatieStang)
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.TiponSynchronisatieSet _ LBXEnum.Rol.TiponSynchronisatieStang)
+	Do LBXKenmerken.NietMeeleveren.Insert(LBXEnum.Rol.Zijstabilisering)
+	
+	Quit LBXKenmerken
+}
+
+ClassMethod CLade() As APPS.PM.Maatwerk.dto.LBXKenmerken
+{
+	#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 = ##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
+}
+
+ClassMethod MBinnenLade() As APPS.PM.Maatwerk.dto.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).TIPONBLUMOTION()
+	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).PlatinaZilverGrijs()
+	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
+}
+
+ClassMethod CLadeMetMat() As APPS.PM.Maatwerk.dto.LBXKenmerken
+{
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ..CLade()	
+
+	Do LBXKenmerken.GekoppeldeIngegevenKenmerken.Insert(..GeefGekoppeldeIKMat())
+	
+	Quit LBXKenmerken
+}
+
+ClassMethod GeefGekoppeldeIKMat() As APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk [ Private ]
+{
+	#dim MATKenmerken As APPS.PM.Maatwerk.dto.MATKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
+	
+	Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).AntislipFiber()
+	Set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).AntiSlipFiberAntraciet()
+	
+	#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
+	
+	Quit GekoppeldKenmerk
+}
+*/
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>