Index: vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest001.cls.xml
===================================================================
diff -u -r30767 -r32479
--- vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest001.cls.xml	(.../LBXTest001.cls.xml)	(revision 30767)
+++ vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest001.cls.xml	(.../LBXTest001.cls.xml)	(revision 32479)
@@ -3,54 +3,23 @@
 <Class name="vhUnitTest.DOM.PM.impl.MaatwerkLangtekstCreator.LBXTest001">
 <Super>vhUnitTest.DOM.PM.impl.MaatwerkLangtekstCreator.LBXTestBase</Super>
 
-<Method name="GeefKenmerkenDto">
-<Private>1</Private>
-<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[
-	set LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
-	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"
-	quit LBXKenmerken
-]]></Implementation>
-</Method>
-
 <Method name="GeefVerwachteHoofding">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit "LEGRABOX [Lade] C"
+<Implementation><![CDATA[	Quit "LEGRABOX [Lade] C"
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVerwachteDetaillijnen">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set List = ##class(%ListOfDataTypes).%New()
-	Do List.Insert("[DiepteAfkorting]:300x[BreedteAfkorting]:564; [Bodem]:[DG]; [ladezijkant]:[OG-M]; [Bevat]: [GemonteerdeLade]; [Geleider] 40[KilogramAfkorting]; BLUMOTION; [StalenRug]; frontbevest. EXPANDO")
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do List.Insert("[DiepteAfkorting]:300x[BreedteAfkorting]:564; [Bodem]:[DG]; [ladezijkant]:[OG-M]; [StalenRug]; [Bevat]: [GemonteerdeLade]; [Geleider] 40[KilogramAfkorting]; BLUMOTION; frontbevest. EXPANDO")
 	Do List.Insert("[Verpakt]: [Karton]")
-	quit List
+	
+	Quit List
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest003SpoelbakMetGekoppeldeMat.cls.xml
===================================================================
diff -u -r30767 -r32479
--- vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest003SpoelbakMetGekoppeldeMat.cls.xml	(.../LBXTest003SpoelbakMetGekoppeldeMat.cls.xml)	(revision 30767)
+++ vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest003SpoelbakMetGekoppeldeMat.cls.xml	(.../LBXTest003SpoelbakMetGekoppeldeMat.cls.xml)	(revision 32479)
@@ -7,81 +7,55 @@
 <Private>1</Private>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	set LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
-	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"
-	Set LBXKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
 	
-	Do ..VoegToeMat(LBXKenmerken)
-	
-	quit LBXKenmerken
+	Set LBXKenmerken.Klasse = ..Enum.Klasse.Spoelbak
+
+	Do LBXKenmerken.GekoppeldeIngegevenKenmerken.Insert(..GeefGekoppeldMatKenmerk())
+
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeMat">
-<FormalSpec>LBXKenmerken:APPS.PM.Maatwerk.dto.LBXKenmerken</FormalSpec>
+<Method name="GeefGekoppeldMatKenmerk">
 <Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk</ReturnType>
 <Implementation><![CDATA[
-	Set GekoppeldIngegevenKenmerk = ##class(APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk).%New()
+	#dim MATKenmerken As APPS.PM.Maatwerk.dto.MATKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
 	
-	Set MATKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
 	Set MATKenmerken.Materiaal = ##class(DOM.PM.enu.MATMateriaal).VinylFiberglass()
 	Set MATKenmerken.Kleur = ##class(DOM.PM.enu.MATKleur).QuartzZilverBruin()
 	
+	#dim GekoppeldIngegevenKenmerk As APPS.PM.Maatwerk.dto.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 GekoppeldIngegevenKenmerk
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVerwachteHoofding">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit "LEGRABOX [Spoelbaklade]"
+<Implementation><![CDATA[	Quit "LEGRABOX [Spoelbaklade]"
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVerwachteDetaillijnen">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set List = ##class(%ListOfDataTypes).%New()
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
 	Do List.Insert(" 2 x C; [DiepteAfkorting]:300x[BreedteAfkorting]:564; ")
-	Do List.Insert("[Spoelbakopening] = 800.2mm (148.4/800.2/152.4); [Bodem]:[DG]; [ladezijkant]:[OG-M]; [Bevat]: 2x [GemonteerdeLade]; [Geleider] 40[KilogramAfkorting]; BLUMOTION; [StalenRug]; frontbevest. EXPANDO")
+	Do List.Insert("[Spoelbakopening] = 800.2mm (148.4/800.2/152.4); [Bodem]:[DG]; [ladezijkant]:[OG-M]; [StalenRug]; [Bevat]: 2x [GemonteerdeLade]; [Geleider] 40[KilogramAfkorting]; BLUMOTION; frontbevest. EXPANDO")
 	Do List.Insert("2 x [vinylfiberglassinlegmat] quartz zilver bruin")
 	Do List.Insert("[Verpakt]: [Karton]")	
-	quit List
+	
+	Quit List
 ]]></Implementation>
 </Method>
-
-<Method name="IsSpoelbakLade">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$True
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest002.cls.xml
===================================================================
diff -u -r30767 -r32479
--- vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest002.cls.xml	(.../LBXTest002.cls.xml)	(revision 30767)
+++ vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest002.cls.xml	(.../LBXTest002.cls.xml)	(revision 32479)
@@ -7,70 +7,70 @@
 <Private>1</Private>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	set LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
-	set LBXKenmerken.BodemKleur = "DG"
-	set LBXKenmerken.CorpusBreedte = "874"
-	set LBXKenmerken.CorpusWandDikte = "13"
-	set LBXKenmerken.Draagkracht = "40"
-	set LBXKenmerken.FrontBevestiging = "S"
-	set LBXKenmerken.GeleiderTechnologie = "B"
-	set LBXKenmerken.HeeftOpvullijstLinks = "0"
-	set LBXKenmerken.HeeftOpvullijstRechts = "0"
-	set LBXKenmerken.HeeftZijstabilisering = "0"
-	set LBXKenmerken.IsBinnenbreedte = "1"
-	set LBXKenmerken.IsBinnenlade = "0"
-	set LBXKenmerken.LadeDiepte = "400"
-	set LBXKenmerken.LadeHoogte = "C"
-	set LBXKenmerken.LadeKleur = "OG-M"
-	set LBXKenmerken.NietIngegeven = ##class(%ListOfDataTypes).%New()
-	set LBXKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	do LBXKenmerken.NietMeeleveren.Insert("AdapterStuk")
-	do LBXKenmerken.NietMeeleveren.Insert("AfdekkapBinnen")
-	do LBXKenmerken.NietMeeleveren.Insert("AfdekkapBuiten")
-	do LBXKenmerken.NietMeeleveren.Insert("AfdekkapFrontHouderBinnen")
-	do LBXKenmerken.NietMeeleveren.Insert("AfdekkapFrontHouderBuiten")
-	do LBXKenmerken.NietMeeleveren.Insert("BevestigingBodemFront")
-	do LBXKenmerken.NietMeeleveren.Insert("FrontBevestiging")
-	do LBXKenmerken.NietMeeleveren.Insert("FrontHouder")
-	do LBXKenmerken.NietMeeleveren.Insert("Geleider")
-	do LBXKenmerken.NietMeeleveren.Insert("InschuifElementVoor")
-	do LBXKenmerken.NietMeeleveren.Insert("Opvullijst")
-	do LBXKenmerken.NietMeeleveren.Insert("RelingVoor")
-	do LBXKenmerken.NietMeeleveren.Insert("TiponSynchronisatieSet")
-	do LBXKenmerken.NietMeeleveren.Insert("TiponSynchronisatieStang")
-	do LBXKenmerken.NietMeeleveren.Insert("Voorstuk")
-	do LBXKenmerken.NietMeeleveren.Insert("Zijstabilisering")
-	set LBXKenmerken.Omschrijving = ""
-	set LBXKenmerken.OpvullijstKleur = "LG"
-	set LBXKenmerken.RugHoogte = "M"
-	set LBXKenmerken.RugWandMateriaal = "Hout"
-	set LBXKenmerken.VerpakkingType = "VHoss"
-	set LBXKenmerken.VersieNr = ""
-	set LBXKenmerken.VoorWandTypeVanCBinnenlade = "Reling"
-	set LBXKenmerken.VoorWandTypeVanMBinnenlade = "Metaal"
-	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
-	quit LBXKenmerken
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
+
+	Set LBXKenmerken.CorpusBreedte = 874
+	Set LBXKenmerken.CorpusWandDikte = 13
+	Set LBXKenmerken.FrontBevestiging = ..Enum.FrontBevestiging.Schroef
+	Set LBXKenmerken.IsBinnenbreedte = $$$True
+	Set LBXKenmerken.LadeDiepte = ..Enum.LadeDiepte.LadeDiepte400
+	Set LBXKenmerken.OpvullijstKleur = ..Enum.OpvullijstKleur.Lichtgrijs
+	Set LBXKenmerken.RugHoogte = ..Enum.RugHoogte.M
+	Set LBXKenmerken.RugWandMateriaal = ..Enum.RugWandMateriaal.Hout
+	Set LBXKenmerken.VerpakkingType = ..Enum.VerpakkingType.VHoss
+	Set LBXKenmerken.NietMeeleveren = ..GeefNietMeeleveren()
+
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVerwachteHoofding">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit "LEGRABOX [Lade] C"
+<Implementation><![CDATA[	Quit "LEGRABOX [Lade] C"
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVerwachteDetaillijnen">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set List = ##class(%ListOfDataTypes).%New()
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
 	Do List.Insert("[DiepteAfkorting]:400x[BreedteAfkorting]:874; [Bodem]:[DG]; [ladezijkant]:[OG-M]; [Bevat]: [GemonteerdeLade]")
 	Do List.Insert("[Verpakt]: [VHoss]")
 	DO List.Insert("[NietMeegeleverd]: [AfdekkapBinnen]; [AfdekkapBuiten]; [BevestigingBodemFront]; [FrontBevestiging]; [Geleider]")
-	quit List
+	
+	Quit List
 ]]></Implementation>
 </Method>
+
+<Method name="GeefNietMeeleveren">
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren</ReturnType>
+<Implementation><![CDATA[
+	#dim NietMeeleveren As APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkenNietMeeleveren).%New()
+	
+	Do NietMeeleveren.Insert(..Enum.Rol.AdapterStuk)
+	Do NietMeeleveren.Insert(..Enum.Rol.AfdekkapBinnen)
+	Do NietMeeleveren.Insert(..Enum.Rol.AfdekkapBuiten)
+	Do NietMeeleveren.Insert(..Enum.Rol.AfdekkapFrontHouderBinnen)
+	Do NietMeeleveren.Insert(..Enum.Rol.AfdekkapFrontHouderBuiten)
+	Do NietMeeleveren.Insert(..Enum.Rol.BevestigingBodemFront)
+	Do NietMeeleveren.Insert(..Enum.Rol.FrontBevestiging)
+	Do NietMeeleveren.Insert(..Enum.Rol.FrontHouder)
+	Do NietMeeleveren.Insert(..Enum.Rol.Geleider)
+	Do NietMeeleveren.Insert(..Enum.Rol.InschuifElementVoor)
+	Do NietMeeleveren.Insert(..Enum.Rol.Opvullijst)
+	Do NietMeeleveren.Insert(..Enum.Rol.RelingVoor)
+	Do NietMeeleveren.Insert(..Enum.Rol.TiponSynchronisatieSet)
+	Do NietMeeleveren.Insert(..Enum.Rol.TiponSynchronisatieStang)
+	Do NietMeeleveren.Insert(..Enum.Rol.Voorstuk)
+	Do NietMeeleveren.Insert(..Enum.Rol.Zijstabilisering)
+	
+	Quit NietMeeleveren
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTestBase.cls.xml
===================================================================
diff -u -r29059 -r32479
--- vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTestBase.cls.xml	(.../LBXTestBase.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTestBase.cls.xml	(.../LBXTestBase.cls.xml)	(revision 32479)
@@ -2,31 +2,22 @@
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.PM.impl.MaatwerkLangtekstCreator.LBXTestBase">
 <Abstract>1</Abstract>
-<Super>vhUnitTest.DOM.PM.impl.MaatwerkLangtekstCreator.Test</Super>
+<Super>vhUnitTest.DOM.PM.impl.MaatwerkLangtekstCreator.Test,DOM.PM.Maatwerk.LBX.impl.Base</Super>
 
 <Method name="GeefLangtekstCreator">
 <Private>1</Private>
 <ReturnType>DOM.PM.impl.LBXLangtekstCreator</ReturnType>
 <Implementation><![CDATA[
-	Set IngegevenKenmerkenTypeAPIMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
-	Do IngegevenKenmerkenTypeAPIMock.IndienMethodCall("IsSpoelbaklade", ..Kenmerken).DanReturn(..IsSpoelbakLade())
-	Do IngegevenKenmerkenTypeAPIMock.IndienMethodCall("IsSifonlade", ..Kenmerken).DanReturn(..IsSifonLade())
-	Set SpoelbakAfmetingBepaler = ##class(vhTest.Fake.APPS.PM.Maatwerk.LBX.SpoelbakAfmetingBepaler).%New()
-	Quit ##class(DOM.PM.impl.LBXLangtekstCreator).%New(SpoelbakAfmetingBepaler,IngegevenKenmerkenTypeAPIMock)
-]]></Implementation>
-</Method>
+	#dim SpoelbakAfmetingBepaler As vhTest.Fake.APPS.PM.Maatwerk.LBX.SpoelbakAfmetingBepaler = ##class(vhTest.Fake.APPS.PM.Maatwerk.LBX.SpoelbakAfmetingBepaler).%New()
 
-<Method name="IsSpoelbakLade">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$False
+	Quit ##class(DOM.PM.impl.LBXLangtekstCreator).%New(SpoelbakAfmetingBepaler)
 ]]></Implementation>
 </Method>
 
-<Method name="IsSifonLade">
+<Method name="GeefKenmerkenDto">
 <Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$False
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest003SpoelbakNormaal.cls.xml
===================================================================
diff -u -r30767 -r32479
--- vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest003SpoelbakNormaal.cls.xml	(.../LBXTest003SpoelbakNormaal.cls.xml)	(revision 30767)
+++ vhUnitTest/DOM/PM/impl/MaatwerkLangtekstCreator/LBXTest003SpoelbakNormaal.cls.xml	(.../LBXTest003SpoelbakNormaal.cls.xml)	(revision 32479)
@@ -7,32 +7,11 @@
 <Private>1</Private>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
-	set LBXKenmerken = ##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New()
-	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"
-	quit LBXKenmerken
+	#dim LBXKenmerken As APPS.PM.Maatwerk.dto.LBXKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.LBXKenmerken).StandaardLade()
+	
+	Set LBXKenmerken.Klasse = ..Enum.Klasse.Spoelbak
+	
+	Quit LBXKenmerken
 ]]></Implementation>
 </Method>
 
@@ -47,20 +26,15 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set List = ##class(%ListOfDataTypes).%New()
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
 	Do List.Insert(" 2 x C; [DiepteAfkorting]:300x[BreedteAfkorting]:564; ")
-	Do List.Insert("[Spoelbakopening] = 800.2mm (148.4/800.2/152.4); [Bodem]:[DG]; [ladezijkant]:[OG-M]; [Bevat]: 2x [GemonteerdeLade]; [Geleider] 40[KilogramAfkorting]; BLUMOTION; [StalenRug]; frontbevest. EXPANDO")
+	Do List.Insert("[Spoelbakopening] = 800.2mm (148.4/800.2/152.4); [Bodem]:[DG]; [ladezijkant]:[OG-M]; [StalenRug]; [Bevat]: 2x [GemonteerdeLade]; [Geleider] 40[KilogramAfkorting]; BLUMOTION; frontbevest. EXPANDO")
 	Do List.Insert("[Verpakt]: [Karton]")
-	quit List
+	
+	Quit List
 ]]></Implementation>
 </Method>
-
-<Method name="IsSpoelbakLade">
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $$$True
-]]></Implementation>
-</Method>
 </Class>
 
 
FishEye: Tag 32479 refers to a dead (removed) revision in file `vhUnitTest/DOM/PM/impl/LBXLangtekstCreator/Test001.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?