Index: APPS/PM/Maatwerk/impl/LBX/KenmerkNaarDtoConverter/VoorWandTypeBepaler.cls.xml
===================================================================
diff -u -r45764 -r45765
--- APPS/PM/Maatwerk/impl/LBX/KenmerkNaarDtoConverter/VoorWandTypeBepaler.cls.xml	(.../VoorWandTypeBepaler.cls.xml)	(revision 45764)
+++ APPS/PM/Maatwerk/impl/LBX/KenmerkNaarDtoConverter/VoorWandTypeBepaler.cls.xml	(.../VoorWandTypeBepaler.cls.xml)	(revision 45765)
@@ -11,6 +11,8 @@
 			Set DtoKenmerken.VoorWandTypeVanMBinnenlade = ..BepaalVoorLadeHoogteM(DomKenmerken)	
 		} ElseIf (DomKenmerken.LadeHoogte = ..Enum.LadeHoogte.C) {
 			Set DtoKenmerken.VoorWandTypeVanCBinnenlade = ..BepaalVoorLadeHoogteC(DomKenmerken)
+		} ElseIf (DomKenmerken.LadeHoogte = ..Enum.LadeHoogte.K) {
+			Set DtoKenmerken.VoorWandTypeVanKBinnenlade = ..BepaalVoorLadeHoogteK(DomKenmerken)
 		}
 	}
 ]]></Implementation>
@@ -53,6 +55,21 @@
 	Quit VoorWandType
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalVoorLadeHoogteK">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim VoorWandType As %String = ""
+	
+	If (Kenmerken.VoorWandType = ..Enum.VoorWandType.Voorstuk) {
+		Set VoorWandType = ##class(DOM.PM.enu.LBXVoorWandTypeVanKBinnenlade).Metaal()
+	}
+	
+	Quit VoorWandType
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/PM/Maatwerk/impl/LBX/KenmerkNaarDtoConverter/VoorWandTypeBepaler/Test.cls.xml
===================================================================
diff -u -r45764 -r45765
--- vhUnitTest/APPS/PM/Maatwerk/impl/LBX/KenmerkNaarDtoConverter/VoorWandTypeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 45764)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/LBX/KenmerkNaarDtoConverter/VoorWandTypeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 45765)
@@ -27,13 +27,18 @@
 	Do ..AssertVoorWandType($$$True, ..Enum.LadeHoogte.C, ..Enum.VoorWandType.Vulling, ..Enum.VoorWandVerhogingHoogte.Hoog, "VoorWandTypeVanCBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanCBinnenlade).GlasHoog())
 	Do ..AssertVoorWandType($$$True, ..Enum.LadeHoogte.C, ..Enum.VoorWandType.Voorstuk, ..Enum.VoorWandVerhogingHoogte.Laag, "VoorWandTypeVanCBinnenlade", "")
 	Do ..AssertVoorWandType($$$True, ..Enum.LadeHoogte.C, ..Enum.VoorWandType.Voorstuk, ..Enum.VoorWandVerhogingHoogte.Hoog, "VoorWandTypeVanCBinnenlade", "")
+	
+	Do ..AssertVoorWandType($$$True, ..Enum.LadeHoogte.K, ..Enum.VoorWandType.Voorstuk, "", "VoorWandTypeVanKBinnenlade", ##class(DOM.PM.enu.LBXVoorWandTypeVanKBinnenlade).Metaal())
+	Do ..AssertVoorWandType($$$True, ..Enum.LadeHoogte.K, ..Enum.VoorWandType.Vulling, "", "VoorWandTypeVanKBinnenlade", "")
+	Do ..AssertVoorWandType($$$True, ..Enum.LadeHoogte.K, ..Enum.VoorWandType.Reling, "", "VoorWandTypeVanKBinnenlade", "")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: VoorWandType bepaling bij niet-Binnenlades">
 <Implementation><![CDATA[
 	Do ..AssertVoorWandType($$$False, "", "", "", "VoorWandTypeVanMBinnenlade", "")
 	Do ..AssertVoorWandType($$$False, "", "", "", "VoorWandTypeVanCBinnenlade", "")
+	Do ..AssertVoorWandType($$$False, "", "", "", "VoorWandTypeVanKBinnenlade", "")
 ]]></Implementation>
 </Method>