Index: DOM/PM/Maatwerk/Lade/impl/CorpusBreedteBepaler.cls.xml
===================================================================
diff -u -r63533 -r63615
--- DOM/PM/Maatwerk/Lade/impl/CorpusBreedteBepaler.cls.xml	(.../CorpusBreedteBepaler.cls.xml)	(revision 63533)
+++ DOM/PM/Maatwerk/Lade/impl/CorpusBreedteBepaler.cls.xml	(.../CorpusBreedteBepaler.cls.xml)	(revision 63615)
@@ -8,12 +8,23 @@
 <Default>1</Default>
 </Parameter>
 
+<Property name="CorpusBreedteWaardenBepaler">
+<Type>DOM.PM.Maatwerk.Lade.impl.CorpusBreedteWaardenBepaler</Type>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..CorpusBreedteWaardenBepaler = ##class(DOM.PM.Maatwerk.Lade.impl.CorpusBreedteWaardenBepaler).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefCorpusBreedte">
 <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()
-	#dim CorpusBreedteWaarden As DOM.PM.Maatwerk.Lade.dto.CorpusBreedteWaarden = CorpusBreedteWaardenBepaler.GeefWaarden(Kenmerken)
+	#dim CorpusBreedteWaarden As DOM.PM.Maatwerk.Lade.dto.CorpusBreedteWaarden = ..CorpusBreedteWaardenBepaler.GeefWaarden(Kenmerken)
 	
 	If $length(InterneBreedte){
 		Set CorpusBreedteWaarden.InterneBreedte = InterneBreedte
@@ -35,8 +46,7 @@
 <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)
+	#dim CorpusBreedteWaarden As DOM.PM.Maatwerk.Lade.dto.CorpusBreedteWaarden = ..CorpusBreedteWaardenBepaler.GeefWaarden(Kenmerken)
 	
 	Quit CorpusBreedteWaarden.InterneBreedte
 ]]></Implementation>
Index: DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler.cls.xml
===================================================================
diff -u -r63533 -r63615
--- DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler.cls.xml	(.../IsSmalleLadeBepaler.cls.xml)	(revision 63533)
+++ DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler.cls.xml	(.../IsSmalleLadeBepaler.cls.xml)	(revision 63615)
@@ -18,11 +18,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="CorpusBreedte">
-<Type>%Integer</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="InterneBreedte">
 <Type>%Integer</Type>
 <Private>1</Private>
@@ -45,7 +40,6 @@
 <Method name="IsSmalleLade">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Implementation><![CDATA[
-	Set ..CorpusBreedte = ..CorpusBreedteBepaler.GeefCorpusBreedte(IngegevenKenmerken)
 	Set ..InterneBreedte = ..CorpusBreedteBepaler.GeefInbouwBreedte(IngegevenKenmerken)
 	
 	Set ..IsSmalleLade = ""
Index: vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler/Test.cls.xml
===================================================================
diff -u -r63533 -r63615
--- vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 63533)
+++ vhUnitTest/DOM/PM/Maatwerk/IngegevenKenmerkenTypeAPI/IsSmalleLadeBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 63615)
@@ -4,47 +4,47 @@
 <Super>vhUnitTest.TestCase</Super>
 
 <Method name="Test: LBX breedte kleiner dan 237 is een smalle lade">
-<Implementation><![CDATA[	Do ..AssertSmalleLadeLBX(236, $$$True)
+<Implementation><![CDATA[	Do ..AssertSmalleLadeLBX(236,, $$$True)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: LBX breedte vanaf 237 is geen smalle lade">
-<Implementation><![CDATA[	Do ..AssertSmalleLadeLBX(237, $$$False)
+<Implementation><![CDATA[	Do ..AssertSmalleLadeLBX(237,, $$$False)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: LBX met 25mm wanddikte">
-<Implementation><![CDATA[	Do ..AssertSmalleLadeLBXMetWanddikte(220, $$$True)
+<Implementation><![CDATA[	Do ..AssertSmalleLadeLBX(220,25, $$$True)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: MVX breedte kleiner dan 250 is een smalle lade">
-<Implementation><![CDATA[	Do ..AssertSmalleLadeMVX(249, $$$True)
+<Implementation><![CDATA[	Do ..AssertSmalleLadeMVX(249,, $$$True)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: MVX breedte vanaf 250 is geen smalle lade">
-<Implementation><![CDATA[	Do ..AssertSmalleLadeMVX(250, $$$False)
+<Implementation><![CDATA[	Do ..AssertSmalleLadeMVX(250,, $$$False)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: MVX met 25mm wanddikte">
-<Implementation><![CDATA[	Do ..AssertSmalleLadeMVXMetWanddikte(237, $$$True)
+<Implementation><![CDATA[	Do ..AssertSmalleLadeMVX(237,25, $$$True)
 ]]></Implementation>
 </Method>
 
 <Method name="AssertSmalleLadeLBX">
-<FormalSpec>InterneBreedte:%Numeric,VerwachteWaarde:%Boolean</FormalSpec>
+<FormalSpec>InterneBreedte:%Numeric,Wanddikte:%Integer=0,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 = Wanddikte
 
 	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)
@@ -55,41 +55,18 @@
 ]]></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>InterneBreedte:%Numeric,VerwachteWaarde:%Boolean</FormalSpec>
+<FormalSpec>InterneBreedte:%Numeric,Wanddikte:%Integer=0,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 = Wanddikte
 
 	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)
@@ -99,29 +76,6 @@
 	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>