Index: vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler/Test.cls.xml
===================================================================
diff -u -r62414 -r63533
--- vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 62414)
+++ vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 63533)
@@ -13,6 +13,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: LBX met 25mm wanddikte">
+<Implementation><![CDATA[	Do ..AssertSmalleLadeLBXMetWanddikte(220, $$$True)
+]]></Implementation>
+</Method>
+
 <Method name="Test: MVX breedte kleiner dan 250 is een smalle lade">
 <Implementation><![CDATA[	Do ..AssertSmalleLadeMVX(249, $$$True)
 ]]></Implementation>
@@ -23,18 +28,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: MVX met 25mm wanddikte">
+<Implementation><![CDATA[	Do ..AssertSmalleLadeMVXMetWanddikte(237, $$$True)
+]]></Implementation>
+</Method>
+
 <Method name="AssertSmalleLadeLBX">
-<FormalSpec>Breedte:%Numeric,VerwachteWaarde:%Boolean</FormalSpec>
+<FormalSpec>InterneBreedte:%Numeric,VerwachteWaarde:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade()
-	Set LBXKenmerken.InterneBreedte = Breedte
+	Set LBXKenmerken.InterneBreedte = InterneBreedte
 
 	Set ExtremaStandaardladeMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Standaardlade).%New()
 	Do ExtremaStandaardladeMock.VerwachtMethodCall("GeefMinimumBreedte",LBXKenmerken).DanReturn(237)
 
 	Set CorpusBreedteBepalerMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.CorpusBreedteBepaler).%New()
-	Do CorpusBreedteBepalerMock.VerwachtMethodCall("GeefCorpusBreedte",LBXKenmerken,"").DanReturn(LBXKenmerken.InterneBreedte)
+	Do CorpusBreedteBepalerMock.VerwachtMethodCall("GeefCorpusBreedte",LBXKenmerken,"").DanDoeNiks()
+	Do CorpusBreedteBepalerMock.VerwachtMethodCall("GeefInbouwBreedte",LBXKenmerken).DanReturn(LBXKenmerken.InterneBreedte)
 	
 	Set IsSmalleLadeBepaler = ##class(DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI.IsSmalleLadeBepaler).%New(ExtremaStandaardladeMock, CorpusBreedteBepalerMock)
 	
@@ -44,18 +55,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="AssertSmalleLadeLBXMetWanddikte">
+<FormalSpec>InterneBreedte:%Numeric,VerwachteWaarde:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).DummyLade()
+	Set LBXKenmerken.InterneBreedte = InterneBreedte
+	Set LBXKenmerken.GUIKenmerken.WandDikte = 25
+
+	Set ExtremaStandaardladeMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Standaardlade).%New()
+	Do ExtremaStandaardladeMock.VerwachtMethodCall("GeefMinimumBreedte",LBXKenmerken).DanReturn(237)
+
+	Set CorpusBreedteBepalerMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.CorpusBreedteBepaler).%New()
+	Do CorpusBreedteBepalerMock.VerwachtMethodCall("GeefCorpusBreedte",LBXKenmerken,"").DanDoeNiks()
+	Do CorpusBreedteBepalerMock.VerwachtMethodCall("GeefInbouwBreedte",LBXKenmerken).DanReturn(LBXKenmerken.InterneBreedte)
+	
+	Set IsSmalleLadeBepaler = ##class(DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI.IsSmalleLadeBepaler).%New(ExtremaStandaardladeMock, CorpusBreedteBepalerMock)
+	
+	do $$$AssertEquals(IsSmalleLadeBepaler.IsSmalleLade(LBXKenmerken), VerwachteWaarde)
+	Do CorpusBreedteBepalerMock.Verifieer()
+	Do ExtremaStandaardladeMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="AssertSmalleLadeMVX">
-<FormalSpec>Breedte:%Numeric,VerwachteWaarde:%Boolean</FormalSpec>
+<FormalSpec>InterneBreedte:%Numeric,VerwachteWaarde:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim MVXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).DummyLade()
-	Set MVXKenmerken.InterneBreedte = Breedte
+	Set MVXKenmerken.InterneBreedte = InterneBreedte
 
 	Set ExtremaStandaardladeMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Standaardlade).%New()
 	Do ExtremaStandaardladeMock.VerwachtMethodCall("GeefMinimumBreedte",MVXKenmerken).DanReturn(250)
 
 	Set CorpusBreedteBepalerMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.CorpusBreedteBepaler).%New()
-	Do CorpusBreedteBepalerMock.VerwachtMethodCall("GeefCorpusBreedte",MVXKenmerken,"").DanReturn(MVXKenmerken.InterneBreedte)
+	Do CorpusBreedteBepalerMock.VerwachtMethodCall("GeefCorpusBreedte",MVXKenmerken,"").DanDoeNiks()
+	Do CorpusBreedteBepalerMock.VerwachtMethodCall("GeefInbouwBreedte",MVXKenmerken).DanReturn(MVXKenmerken.InterneBreedte)
 	
 	Set IsSmalleLadeBepaler = ##class(DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI.IsSmalleLadeBepaler).%New(ExtremaStandaardladeMock, CorpusBreedteBepalerMock)
 	
@@ -64,6 +99,29 @@
 	Do ExtremaStandaardladeMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="AssertSmalleLadeMVXMetWanddikte">
+<FormalSpec>InterneBreedte:%Numeric,VerwachteWaarde:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim MVXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).DummyLade()
+	Set MVXKenmerken.InterneBreedte = InterneBreedte
+	Set MVXKenmerken.GUIKenmerken.WandDikte = 25
+
+	Set ExtremaStandaardladeMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Standaardlade).%New()
+	Do ExtremaStandaardladeMock.VerwachtMethodCall("GeefMinimumBreedte",MVXKenmerken).DanReturn(250)
+
+	Set CorpusBreedteBepalerMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Lade.CorpusBreedteBepaler).%New()
+	Do CorpusBreedteBepalerMock.VerwachtMethodCall("GeefCorpusBreedte",MVXKenmerken,"").DanDoeNiks()
+	Do CorpusBreedteBepalerMock.VerwachtMethodCall("GeefInbouwBreedte",MVXKenmerken).DanReturn(MVXKenmerken.InterneBreedte)
+	
+	Set IsSmalleLadeBepaler = ##class(DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI.IsSmalleLadeBepaler).%New(ExtremaStandaardladeMock, CorpusBreedteBepalerMock)
+	
+	do $$$AssertEquals(IsSmalleLadeBepaler.IsSmalleLade(MVXKenmerken), VerwachteWaarde)
+	Do CorpusBreedteBepalerMock.Verifieer()
+	Do ExtremaStandaardladeMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/Lade/impl/CorpusBreedteBepaler.cls.xml
===================================================================
diff -u -r54643 -r63533
--- DOM/PM/Maatwerk/Lade/impl/CorpusBreedteBepaler.cls.xml	(.../CorpusBreedteBepaler.cls.xml)	(revision 54643)
+++ DOM/PM/Maatwerk/Lade/impl/CorpusBreedteBepaler.cls.xml	(.../CorpusBreedteBepaler.cls.xml)	(revision 63533)
@@ -12,11 +12,11 @@
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,InterneBreedte:%Decimal=""</FormalSpec>
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[
-	set CorpusBreedteWaardenBepaler = ##class(DOM.PM.Maatwerk.Lade.impl.CorpusBreedteWaardenBepaler).%New()
+	Set CorpusBreedteWaardenBepaler = ##class(DOM.PM.Maatwerk.Lade.impl.CorpusBreedteWaardenBepaler).%New()
 	#dim CorpusBreedteWaarden As DOM.PM.Maatwerk.Lade.dto.CorpusBreedteWaarden = CorpusBreedteWaardenBepaler.GeefWaarden(Kenmerken)
 	
-	if $length(InterneBreedte){
-		set CorpusBreedteWaarden.InterneBreedte = InterneBreedte
+	If $length(InterneBreedte){
+		Set CorpusBreedteWaarden.InterneBreedte = InterneBreedte
 	}
 	#dim BreedteVanEventueleWand = $Select( CorpusBreedteWaarden.IsBinnenbreedte: 0, 1: ( 2 * CorpusBreedteWaarden.WandDikte ) )
 	#dim CorpusBreedte As %Double = CorpusBreedteWaarden.InterneBreedte + BreedteVanEventueleWand + ( CorpusBreedteWaarden.OpvullijstLinksInMM + CorpusBreedteWaarden.OpvullijstRechtsInMM )
@@ -27,13 +27,19 @@
 		}
 	}
 	
-	quit CorpusBreedte
+	Quit CorpusBreedte
 ]]></Implementation>
 </Method>
 
 <Method name="GeefInbouwBreedte">
-<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,CorpusBreedte:%Decimal=""</FormalSpec>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	Set CorpusBreedteWaardenBepaler = ##class(DOM.PM.Maatwerk.Lade.impl.CorpusBreedteWaardenBepaler).%New()
+	#dim CorpusBreedteWaarden As DOM.PM.Maatwerk.Lade.dto.CorpusBreedteWaarden = CorpusBreedteWaardenBepaler.GeefWaarden(Kenmerken)
+	
+	Quit CorpusBreedteWaarden.InterneBreedte
+]]></Implementation>
 </Method>
 </Class>
 
Index: vhTest/Mock/DOM/PM/Maatwerk/Lade/CorpusBreedteBepaler.cls.xml
===================================================================
diff -u -r29059 -r63533
--- vhTest/Mock/DOM/PM/Maatwerk/Lade/CorpusBreedteBepaler.cls.xml	(.../CorpusBreedteBepaler.cls.xml)	(revision 29059)
+++ vhTest/Mock/DOM/PM/Maatwerk/Lade/CorpusBreedteBepaler.cls.xml	(.../CorpusBreedteBepaler.cls.xml)	(revision 63533)
@@ -16,9 +16,9 @@
 </Method>
 
 <Method name="GeefInbouwBreedte">
-<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,CorpusBreedte:%Decimal=""</FormalSpec>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefInbouwBreedte",Kenmerken,CorpusBreedte)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefInbouwBreedte",Kenmerken)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Lade/CorpusBreedteBepaler.cls.xml
===================================================================
diff -u -r29059 -r63533
--- DOM/PM/Maatwerk/Lade/CorpusBreedteBepaler.cls.xml	(.../CorpusBreedteBepaler.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Lade/CorpusBreedteBepaler.cls.xml	(.../CorpusBreedteBepaler.cls.xml)	(revision 63533)
@@ -12,7 +12,7 @@
 
 <Method name="GeefInbouwBreedte">
 <Abstract>1</Abstract>
-<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,CorpusBreedte:%Decimal=""</FormalSpec>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%Decimal</ReturnType>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler.cls.xml
===================================================================
diff -u -r62414 -r63533
--- DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler.cls.xml	(.../IsSmalleLadeBepaler.cls.xml)	(revision 62414)
+++ DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler.cls.xml	(.../IsSmalleLadeBepaler.cls.xml)	(revision 63533)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="InterneBreedte">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ExtremaStandaardlade:DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler.Standaardlade="",CorpusBreedteBepaler:DOM.PM.Maatwerk.Lade.impl.CorpusBreedteBepaler=""</FormalSpec>
 <Private>1</Private>
@@ -41,6 +46,7 @@
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Implementation><![CDATA[
 	Set ..CorpusBreedte = ..CorpusBreedteBepaler.GeefCorpusBreedte(IngegevenKenmerken)
+	Set ..InterneBreedte = ..CorpusBreedteBepaler.GeefInbouwBreedte(IngegevenKenmerken)
 	
 	Set ..IsSmalleLade = ""
 	Do IngegevenKenmerken.Accept($This)
@@ -50,7 +56,7 @@
 
 <Method name="VerwerkLBXKenmerken">
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
-<Implementation><![CDATA[	Set ..IsSmalleLade = (..CorpusBreedte < ..ExtremaStandaardlade.GeefMinimumBreedte(LBXKenmerken))
+<Implementation><![CDATA[	Set ..IsSmalleLade = (..InterneBreedte < ..ExtremaStandaardlade.GeefMinimumBreedte(LBXKenmerken))
 ]]></Implementation>
 </Method>
 
@@ -86,7 +92,7 @@
 
 <Method name="VerwerkMVXKenmerken">
 <FormalSpec>MVXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
-<Implementation><![CDATA[	Set ..IsSmalleLade = (MVXKenmerken.InterneBreedte < ..ExtremaStandaardlade.GeefMinimumBreedte(MVXKenmerken))
+<Implementation><![CDATA[	Set ..IsSmalleLade = (..InterneBreedte < ..ExtremaStandaardlade.GeefMinimumBreedte(MVXKenmerken))
 ]]></Implementation>
 </Method>
 </Class>