Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/TestLBX.cls.xml
===================================================================
diff -u -r32363 -r46226
--- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 32363)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/TestLBX.cls.xml	(.../TestLBX.cls.xml)	(revision 46226)
@@ -1,101 +1,107 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenNaarGUIKenmerkenVisitor.TestLBX">
-<Super>vhUnitTest.APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenNaarGUIKenmerkenVisitor.TestBase</Super>
+<Super>vhUnitTest.APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenNaarGUIKenmerkenVisitor.TestBase,DOM.PM.Maatwerk.LBX.impl.Base</Super>
 
-<Parameter name="MBinnenladeKenmerk">
-<Default>VoorWandTypeVanMBinnenlade</Default>
-</Parameter>
-
-<Parameter name="CBinnenladeKenmerk">
-<Default>VoorWandTypeVanCBinnenlade</Default>
-</Parameter>
-
-<Property name="LBXKenmerkNaam">
-<Type>DOM.PM.enu.LBXKenmerkNaam.AutoComplete</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	
 	Set ..Mogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
+]]></Implementation>
+</Method>
+
+<Method name="TestKBinnenlade">
+<Implementation><![CDATA[
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandType, ..Enum.VoorWandType.Voorstuk)	
 	
-	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.IsBinnenlade, "true")
-	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandVerhogingMateriaal, ##class(DOM.PM.enu.LBXVoorWandVerhogingMateriaal).GlasDiamant())
-	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Vulling())
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefKenmerken($$$True, ..Enum.LadeHoogte.K)
+	
+	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(LbxKenmerken, ..Mogelijkheden)
+		
+	#dim VoorWandMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ..Mogelijkheden.MogelijkeWaarden.GetAt("VoorWandTypeVanKBinnenlade")
+	
+	Do $$$AssertTrue(VoorWandMogelijkheden)
+	Do $$$AssertTrue(VoorWandMogelijkheden.Waarden.Find(##class(DOM.PM.enu.LBXVoorWandTypeVanKBinnenlade).Metaal()))
+	
+	Do $$$AssertFalse(..Mogelijkheden.MogelijkeWaarden.GetAt("VoorWandTypeVanCBinnenlade"))
+	Do $$$AssertFalse(..Mogelijkheden.MogelijkeWaarden.GetAt("VoorWandTypeVanMBinnenlade"))
 ]]></Implementation>
 </Method>
 
 <Method name="TestMBinnenlade">
 <Implementation><![CDATA[
-	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.LadeHoogte, ##class(DOM.PM.enu.LBXLadeHoogte).M())
-	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Voorstuk())	
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandType, ..Enum.VoorWandType.Voorstuk)
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandType, ..Enum.VoorWandType.Vulling)
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandVerhogingMateriaal, ..Enum.VoorWandVerhogingMateriaal.GlasDiamant)	
 	
-	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(..Mogelijkheden)
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefKenmerken($$$True, ..Enum.LadeHoogte.M)
+	
+	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(LbxKenmerken, ..Mogelijkheden)
 		
-	#Dim MVoorWandMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ..Mogelijkheden.MogelijkeWaarden.GetAt(..#MBinnenladeKenmerk)
+	#dim VoorWandMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ..Mogelijkheden.MogelijkeWaarden.GetAt("VoorWandTypeVanMBinnenlade")
 	
-	Do $$$AssertTrue(MVoorWandMogelijkheden)
-	Do $$$AssertTrue(MVoorWandMogelijkheden.Waarden.Find(##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas()))
-	Do $$$AssertTrue(MVoorWandMogelijkheden.Waarden.Find(##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()))
+	Do $$$AssertTrue(VoorWandMogelijkheden)
+	Do $$$AssertTrue(VoorWandMogelijkheden.Waarden.Find(##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas()))
+	Do $$$AssertTrue(VoorWandMogelijkheden.Waarden.Find(##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()))
 	
-	Do $$$AssertFalse(..Mogelijkheden.MogelijkeWaarden.GetAt(..#CBinnenladeKenmerk))
+	Do $$$AssertFalse(..Mogelijkheden.MogelijkeWaarden.GetAt("VoorWandTypeVanCBinnenlade"))
+	Do $$$AssertFalse(..Mogelijkheden.MogelijkeWaarden.GetAt("VoorWandTypeVanKBinnenlade"))
 ]]></Implementation>
 </Method>
 
 <Method name="TestCBinnenladeGlasHoog">
 <Implementation><![CDATA[
-	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.LadeHoogte, ##class(DOM.PM.enu.LBXLadeHoogte).C())
-	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandVerhogingHoogte, ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Hoog())
-	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandVerhogingHoogte, ##class(DOM.PM.enu.LBXVoorWandVerhogingHoogte).Laag())
-	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..LBXKenmerkNaam.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Reling())
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandType, ..Enum.VoorWandType.Vulling)
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandType, ..Enum.VoorWandType.Reling)
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandVerhogingHoogte, ..Enum.VoorWandVerhogingHoogte.Hoog)
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandVerhogingHoogte, ..Enum.VoorWandVerhogingHoogte.Laag)
+	Do ..Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandVerhogingMateriaal, ..Enum.VoorWandVerhogingMateriaal.GlasDiamant)
 
-	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(..Mogelijkheden)
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefKenmerken($$$True, ..Enum.LadeHoogte.C)
 	
-	#Dim CVoorwandMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ..Mogelijkheden.MogelijkeWaarden.GetAt(..#CBinnenladeKenmerk)
+	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(LbxKenmerken, ..Mogelijkheden)
 	
-	Do $$$AssertTrue(CVoorwandMogelijkheden)
-	Do $$$AssertTrue(CVoorwandMogelijkheden.Waarden.Find( ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog()))
-	Do $$$AssertTrue(CVoorwandMogelijkheden.Waarden.Find( ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag()))
-	Do $$$AssertTrue(CVoorwandMogelijkheden.Waarden.Find( ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling()))
+	#dim VoorWandMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ..Mogelijkheden.MogelijkeWaarden.GetAt("VoorWandTypeVanCBinnenlade")
+	
+	Do $$$AssertTrue(VoorWandMogelijkheden)
+	Do $$$AssertTrue(VoorWandMogelijkheden.Waarden.Find(##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog()))
+	Do $$$AssertTrue(VoorWandMogelijkheden.Waarden.Find(##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasLaag()))
+	Do $$$AssertTrue(VoorWandMogelijkheden.Waarden.Find(##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).Reling()))
+	
+	Do $$$AssertFalse(..Mogelijkheden.MogelijkeWaarden.GetAt("VoorWandTypeVanKBinnenlade"))
+	Do $$$AssertFalse(..Mogelijkheden.MogelijkeWaarden.GetAt("VoorWandTypeVanMBinnenlade"))
 ]]></Implementation>
 </Method>
 
 <Method name="TestDomeinNietGUIdtos">
 <Implementation><![CDATA[
-	#Dim DomeinKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLegeKenmerken()
 	
-	Do DomeinKenmerkMogelijkheden.ZetMogelijkeWaarden(..LBXKenmerkNaam.HeeftDiepteVerstelling, ##class(%ListOfDataTypes).%New())
-	Do DomeinKenmerkMogelijkheden.ZetMogelijkeWaarden(..LBXKenmerkNaam.VoorWandType, ##class(%ListOfDataTypes).%New())
-	Do DomeinKenmerkMogelijkheden.ZetMogelijkeWaarden(..LBXKenmerkNaam.VoorWandVerhogingHoogte, ##class(%ListOfDataTypes).%New())
-	Do DomeinKenmerkMogelijkheden.ZetMogelijkeWaarden(..LBXKenmerkNaam.VoorWandVerhogingMateriaal, ##class(%ListOfDataTypes).%New())
+	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(LbxKenmerken, ..Mogelijkheden)
 	
-	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(DomeinKenmerkMogelijkheden)
-	
-	Do $$$AssertFalse(DomeinKenmerkMogelijkheden.MogelijkeWaarden.IsDefined(..LBXKenmerkNaam.HeeftDiepteVerstelling))
-	Do $$$AssertFalse(DomeinKenmerkMogelijkheden.MogelijkeWaarden.IsDefined(..LBXKenmerkNaam.VoorWandType))
-	Do $$$AssertFalse(DomeinKenmerkMogelijkheden.MogelijkeWaarden.IsDefined(..LBXKenmerkNaam.VoorWandVerhogingHoogte))
-	Do $$$AssertFalse(DomeinKenmerkMogelijkheden.MogelijkeWaarden.IsDefined(..LBXKenmerkNaam.VoorWandVerhogingMateriaal))
+	Do $$$AssertFalse(..Mogelijkheden.MogelijkeWaarden.IsDefined(..Enum.KenmerkNaam.HeeftDiepteVerstelling))
+	Do $$$AssertFalse(..Mogelijkheden.MogelijkeWaarden.IsDefined(..Enum.KenmerkNaam.VoorWandType))
+	Do $$$AssertFalse(..Mogelijkheden.MogelijkeWaarden.IsDefined(..Enum.KenmerkNaam.VoorWandVerhogingHoogte))
+	Do $$$AssertFalse(..Mogelijkheden.MogelijkeWaarden.IsDefined(..Enum.KenmerkNaam.VoorWandVerhogingMateriaal))
 ]]></Implementation>
 </Method>
 
 <Method name="TestDomeinNietDOMdtos">
 <Implementation><![CDATA[
-	#Dim DomeinKenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
-	 
-	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(DomeinKenmerkMogelijkheden)
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLegeKenmerken()
 	
-	#Dim IsBinnenbreedteMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = DomeinKenmerkMogelijkheden.MogelijkeWaarden.GetAt("IsBinnenbreedte")
+	Do ..ConverteerKenmerkMogelijkhedenNaarGUIKenmerken(LbxKenmerken, ..Mogelijkheden)
 	
+	#dim IsBinnenbreedteMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardenLijst = ..Mogelijkheden.MogelijkeWaarden.GetAt("IsBinnenbreedte")
+	
 	If ($$$AssertTrue($IsObject(IsBinnenbreedteMogelijkheden))) {
 		Do $$$AssertEquals(IsBinnenbreedteMogelijkheden.Waarden.GetAt(1), ("true"))
 		Do $$$AssertEquals(IsBinnenbreedteMogelijkheden.Waarden.GetAt(2), ("false"))
 	}
 	
-	#Dim CorpusWandDikteMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardeBereik = DomeinKenmerkMogelijkheden.MogelijkeWaardenVanContinueKenmerken.GetAt("CorpusWandDikte")
+	#dim CorpusWandDikteMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkWaardeBereik = ..Mogelijkheden.MogelijkeWaardenVanContinueKenmerken.GetAt("CorpusWandDikte")
 	
 	If ($$$AssertTrue($IsObject(CorpusWandDikteMogelijkheden))) {
 		Do $$$AssertTrue(CorpusWandDikteMogelijkheden.Minimum > 0)
@@ -104,9 +110,23 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLegeIngegevenKenmerken">
+<Method name="GeefKenmerken">
+<FormalSpec>IsBinnenlade:%Boolean,LadeHoogte:DOM.PM.enu.LBXLadeHoogte</FormalSpec>
 <Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLegeKenmerken()
+	
+	Set LbxKenmerken.IsBinnenlade = IsBinnenlade
+	Set LbxKenmerken.LadeHoogte = LadeHoogte
+	
+	Quit LbxKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefLegeKenmerken">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
 <Implementation><![CDATA[	Quit ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarDataTransferObject/TestLBXKenmerken.cls.xml
===================================================================
diff -u -r29059 -r46226
--- vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarDataTransferObject/TestLBXKenmerken.cls.xml	(.../TestLBXKenmerken.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/IngegevenKenmerkenConverter/NaarDataTransferObject/TestLBXKenmerken.cls.xml	(.../TestLBXKenmerken.cls.xml)	(revision 46226)
@@ -99,6 +99,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: LBXIngegevenKenmerken met K-Binnenlade met voorstuk">
+<Implementation><![CDATA[
+	Do ..InitLBXKenmerken()
+	
+	Set ..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).K()
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
+	Set ..IngegevenKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Voorstuk()
+	
+	#dim Dto As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConverteerNaarDtoIngegevenKenmerken()
+	
+	Do $$$AssertEquals(Dto.VoorWandTypeVanKBinnenlade, ##class(DOM.PM.enu.LBXVoorWandTypeVanKBinnenlade).Metaal())
+]]></Implementation>
+</Method>
+
 <Method name="TestLBXIngegevenKenmerkenxInterneBreedteNul">
 <Implementation><![CDATA[
 	do ..InitLBXKenmerken()
Index: DOM/PM/enu/LBXKenmerkNaam/AutoComplete.cls.xml
===================================================================
diff -u -r43564 -r46226
--- DOM/PM/enu/LBXKenmerkNaam/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 43564)
+++ DOM/PM/enu/LBXKenmerkNaam/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 46226)
@@ -212,6 +212,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="VoorWandTypeVanKBinnenlade">
+<Type>%String</Type>
+<InitialExpression>"VoorWandTypeVanKBinnenlade"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="VoorWandTypeVanMBinnenlade">
 <Type>%String</Type>
 <InitialExpression>"VoorWandTypeVanMBinnenlade"</InitialExpression>
@@ -239,11 +246,6 @@
 <Transient>1</Transient>
 <ReadOnly>1</ReadOnly>
 </Property>
-
-<Storage name="Default">
-<Type>%Library.CacheSerialState</Type>
-<StreamLocation>^DOM.PM.enu.LB3954.AutoCompleteS</StreamLocation>
-</Storage>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Calc/Common/impl/LBXGUIKenmerken.cls.xml
===================================================================
diff -u -r29059 -r46226
--- DOM/PM/Maatwerk/Calc/Common/impl/LBXGUIKenmerken.cls.xml	(.../LBXGUIKenmerken.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/Common/impl/LBXGUIKenmerken.cls.xml	(.../LBXGUIKenmerken.cls.xml)	(revision 46226)
@@ -22,6 +22,10 @@
 <Type>DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade</Type>
 </Property>
 
+<Property name="VoorWandTypeVanKBinnenlade">
+<Type>DOM.PM.enu.LBXVoorWandTypeVanKBinnenlade</Type>
+</Property>
+
 <Property name="HeeftDwarsverdeling">
 <Type>%Boolean</Type>
 </Property>
@@ -46,6 +50,9 @@
 <Value name="5">
 <Value>HeeftDwarsverdeling</Value>
 </Value>
+<Value name="6">
+<Value>VoorWandTypeVanKBinnenlade</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/Lbx.cls.xml
===================================================================
diff -u -r45670 -r46226
--- APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/Lbx.cls.xml	(.../Lbx.cls.xml)	(revision 45670)
+++ APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/Lbx.cls.xml	(.../Lbx.cls.xml)	(revision 46226)
@@ -7,7 +7,7 @@
 <FormalSpec><![CDATA[&LbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,&Mogelijkheden:APPS.PM.Maatwerk.dto.KenmerkMogelijkheden]]></FormalSpec>
 <Implementation><![CDATA[
 	Do ..ZetOmVoorWandKenmerkenNaarVoorWandTypeVanMBinnenlade(LbxKenmerken, Mogelijkheden)
-	//Do ..ZetOmVoorWandKenmerkenNaarVoorWandTypeVanKBinnenlade(LbxKenmerken, Mogelijkheden)
+	Do ..ZetOmVoorWandKenmerkenNaarVoorWandTypeVanKBinnenlade(LbxKenmerken, Mogelijkheden)
 	Do ..ZetOmVoorWandKenmerkenNaarVoorWandTypeVanCBinnenlade(LbxKenmerken, Mogelijkheden)
 		
 	Do Mogelijkheden.ZetMogelijkeWaarden("IsBinnenbreedte", ..GeefMogelijkeWaardenVoorBinnenbreedte())
@@ -55,27 +55,32 @@
 <FormalSpec><![CDATA[LbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,&Mogelijkheden:APPS.PM.Maatwerk.dto.KenmerkMogelijkheden]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	
 	If (..HeeftNodigVoorWandTypeMogelijkheden(LbxKenmerken, ..Enum.LadeHoogte.M)) {
 		If (Mogelijkheden.IsMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandType, ..Enum.VoorWandType.Vulling)) {
 			If (Mogelijkheden.IsMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandVerhogingMateriaal, ..Enum.VoorWandVerhogingMateriaal.GlasDiamant)) {				
 				Do Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandTypeVanMBinnenlade, ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Glas())
+			} Else {
+				// Omdat het mogelijke waarden algoritme geen Voorstuk toelaat indien men op de webshop gekozen heeft voor glas, en omdat PM bevestigd heeft dat metaal altijd kan, als glas ook kan, is volgende IF in commentaar gezet.
+				// If ..IsMogelijkeWaarde("VoorWandType", ##class(DOM.PM.enu.LBXVoorWandType).Voorstuk()) {
 				Do Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandTypeVanMBinnenlade, ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal()) // zie opmerking	
-			}
-		}
-		
-		/*
-		// Opmerking: Het MogelijkeWaarden-algoritme laat geen Voorstuk toe indien gekozen is voor glas op de webshop gekozen, PM heeft bevestigd dat metaal altijd kan als glas kan.
-		If (Mogelijkheden.IsMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandType, ##class(DOM.PM.enu.LBXVoorWandType).Voorstuk())) {
-			Do Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandTypeVanMBinnenlade,  ##class(DOM.PM.enu.LBXVoorWandTypeVanMBinnenlade).Metaal())
-		}
-		*/	
+				// }
+			}	
+		}		
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="ZetOmVoorWandKenmerkenNaarVoorWandTypeVanKBinnenlade">
 <FormalSpec><![CDATA[LbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,&Mogelijkheden:APPS.PM.Maatwerk.dto.KenmerkMogelijkheden]]></FormalSpec>
 <Private>1</Private>
+<Implementation><![CDATA[
+	If (..HeeftNodigVoorWandTypeMogelijkheden(LbxKenmerken, ..Enum.LadeHoogte.K)) {	
+		If (Mogelijkheden.IsMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandType, ..Enum.VoorWandType.Voorstuk)) {
+			Do Mogelijkheden.VoegToeMogelijkeWaarde(..Enum.KenmerkNaam.VoorWandTypeVanKBinnenlade, ##class(DOM.PM.enu.LBXVoorWandTypeVanKBinnenlade).Metaal())
+		}
+	}
+]]></Implementation>
 </Method>
 
 <Method name="ZetOmVoorWandKenmerkenNaarVoorWandTypeVanCBinnenlade">
@@ -105,7 +110,7 @@
 <FormalSpec>LbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,LadeHoogte:DOM.PM.enu.LBXLadeHoogte</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (LbxKenmerken.LadeHoogte = "") || ((LbxKenmerken.LadeHoogte = LadeHoogte) && (LbxKenmerken.IsBinnenlade))
+<Implementation><![CDATA[	Quit (LbxKenmerken.LadeHoogte = "") || ((LbxKenmerken.IsBinnenlade) && (LbxKenmerken.LadeHoogte = LadeHoogte))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/TestBase.cls.xml
===================================================================
diff -u -r29059 -r46226
--- vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/KenmerkMogelijkhedenNaarGUIKenmerkenVisitor/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 46226)
@@ -8,33 +8,12 @@
 <Type>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</Type>
 </Property>
 
-<Method name="VerwerkLBXKenmerken">
-<FormalSpec>Domein:APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim Visitor = ##class(APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenNaarGUIKenmerkenVisitor).%New(Domein)
-	Do Visitor.VerwerkLBXKenmerken(##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New())
-]]></Implementation>
-</Method>
-
-<Method name="GeefKenmerkMogelijkheden">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</ReturnType>
-</Method>
-
-<Method name="GeefLegeIngegevenKenmerken">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-</Method>
-
 <Method name="ConverteerKenmerkMogelijkhedenNaarGUIKenmerken">
-<FormalSpec>Domein:APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</FormalSpec>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,Mogelijkheden:APPS.PM.Maatwerk.dto.KenmerkMogelijkheden</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Visitor = ##class(APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenNaarGUIKenmerkenVisitor).%New(Domein)
-	do Visitor.VerwerkLBXKenmerken(..GeefLegeIngegevenKenmerken())
+	#dim Visitor As APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenNaarGUIKenmerkenVisitor = ##class(APPS.PM.Maatwerk.impl.KenmerkMogelijkhedenNaarGUIKenmerkenVisitor).%New(Mogelijkheden)	
+	Do Visitor.VerwerkLBXKenmerken(Kenmerken)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/enu/LBXKenmerkNaam/Verwerker.cls.xml
===================================================================
diff -u -r41142 -r46226
--- DOM/PM/enu/LBXKenmerkNaam/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 41142)
+++ DOM/PM/enu/LBXKenmerkNaam/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 46226)
@@ -70,6 +70,8 @@
 		Do ..VerwerkVoorWandType()
 	} ElseIf LBXKenmerkNaam = "VoorWandTypeVanCBinnenlade" {
 		Do ..VerwerkVoorWandTypeVanCBinnenlade()
+	} ElseIf LBXKenmerkNaam = "VoorWandTypeVanKBinnenlade" {
+		Do ..VerwerkVoorWandTypeVanKBinnenlade()
 	} ElseIf LBXKenmerkNaam = "VoorWandTypeVanMBinnenlade" {
 		Do ..VerwerkVoorWandTypeVanMBinnenlade()
 	} ElseIf LBXKenmerkNaam = "VoorWandVerhogingHoogte" {
@@ -259,6 +261,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkVoorWandTypeVanKBinnenlade">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkVoorWandTypeVanMBinnenlade">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/PM/enu/LBXKenmerkNaam.cls.xml
===================================================================
diff -u -r41142 -r46226
--- DOM/PM/enu/LBXKenmerkNaam.cls.xml	(.../LBXKenmerkNaam.cls.xml)	(revision 41142)
+++ DOM/PM/enu/LBXKenmerkNaam.cls.xml	(.../LBXKenmerkNaam.cls.xml)	(revision 46226)
@@ -4,7 +4,7 @@
 <Super>DOM.PM.enu.KenmerkNaam</Super>
 
 <Parameter name="VALUELIST">
-<Default>;AantalDwarsverdelingen;BodemKleur;Draagkracht;FrontBevestiging;GeleiderTechnologie;HeeftDiepteVerstelling;HeeftDwarsverdeling;HeeftZijstabilisering;IsBinnenlade;Klasse;LadeDiepte;LadeHoogte;LadeKleur;NietMeeleveren;OpvullijstKleur;ProductieWijze;RugHoogte;RugWandMateriaal;UitsparingDataAantalUitsparingen;UitsparingDataBreedteX;UitsparingDataBreedteZ1;UitsparingDataBreedteM;UitsparingDataBreedteZ2;UitsparingDataBreedteY;UitsparingDataCodeZ1;UitsparingDataCodeZ2;VerpakkingType;VoorWandVerhogingHoogte;VoorWandVerhogingMateriaal;VoorWandType;VoorWandTypeVanCBinnenlade;VoorWandTypeVanMBinnenlade;ZijWandType</Default>
+<Default>;AantalDwarsverdelingen;BodemKleur;Draagkracht;FrontBevestiging;GeleiderTechnologie;HeeftDiepteVerstelling;HeeftDwarsverdeling;HeeftZijstabilisering;IsBinnenlade;Klasse;LadeDiepte;LadeHoogte;LadeKleur;NietMeeleveren;OpvullijstKleur;ProductieWijze;RugHoogte;RugWandMateriaal;UitsparingDataAantalUitsparingen;UitsparingDataBreedteX;UitsparingDataBreedteZ1;UitsparingDataBreedteM;UitsparingDataBreedteZ2;UitsparingDataBreedteY;UitsparingDataCodeZ1;UitsparingDataCodeZ2;VerpakkingType;VoorWandVerhogingHoogte;VoorWandVerhogingMateriaal;VoorWandType;VoorWandTypeVanCBinnenlade;VoorWandTypeVanMBinnenlade;VoorWandTypeVanKBinnenlade;ZijWandType</Default>
 </Parameter>
 
 <Method name="AantalDwarsverdelingen">
@@ -231,6 +231,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoorWandTypeVanKBinnenlade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.enu.LBXKenmerkNaam</ReturnType>
+<Implementation><![CDATA[	Quit "VoorWandTypeVanKBinnenlade"
+]]></Implementation>
+</Method>
+
 <Method name="ZijWandType">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.enu.LBXKenmerkNaam</ReturnType>