Index: vhTest/Fake/zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml
===================================================================
diff -u -r29257 -r29944
--- vhTest/Fake/zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml	(.../StapelbareBreedteBepaler.cls.xml)	(revision 29257)
+++ vhTest/Fake/zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml	(.../StapelbareBreedteBepaler.cls.xml)	(revision 29944)
@@ -1,21 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhTest.Fake.zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler">
+<Description>
+Deze fake gebruiken wanneer je de VrijeRuimte-waarden zelf wil vastleggen. </Description>
 <Super>zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler</Super>
 
-<Parameter name="VrijeRuimteLengte">
-<Description>
-VrijeRuimteLengte = ((25 + 20) * 2)   ; vork dikte 25mm + marge 20mm (aan beide kanten)</Description>
-<Type>%Numeric</Type>
-<Default>85</Default>
-</Parameter>
-
-<Parameter name="VrijeRuimteBreedte">
-<Description>
-VrijeRuimteBreedte : een negatief getal betekent dat het hout zoveel mm breder mag zijn dan de draagplaat. </Description>
-<Type>%Numeric</Type>
-<Default>-6</Default>
-</Parameter>
+<Method name="%OnNew">
+<FormalSpec>DraagPlaatBepaler:zTryout.WV.FPV1.DOM.DraagPlaatBepaler="",VrijeRuimteLengte:%Numeric,VrijeRuimteBreedte:%Numeric</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super(DraagPlaatBepaler)
+	Set ..VrijeRuimteLengte = VrijeRuimteLengte
+	Set ..VrijeRuimteBreedte = VrijeRuimteBreedte
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml
===================================================================
diff -u -r29477 -r29944
--- zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml	(.../StapelbareBreedteBepaler.cls.xml)	(revision 29477)
+++ zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler.cls.xml	(.../StapelbareBreedteBepaler.cls.xml)	(revision 29944)
@@ -3,19 +3,21 @@
 <Class name="zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler">
 <Super>TECH.RegisteredObject</Super>
 
-<Parameter name="VrijeRuimteLengte">
+<Property name="VrijeRuimteLengte">
 <Description>
 VrijeRuimteLengte = ((25 + 20) * 2)   ; vork dikte 25mm + marge 20mm (aan beide kanten)</Description>
 <Type>%Numeric</Type>
-<Default>90</Default>
-</Parameter>
+<InitialExpression>90</InitialExpression>
+<Private>1</Private>
+</Property>
 
-<Parameter name="VrijeRuimteBreedte">
+<Property name="VrijeRuimteBreedte">
 <Description>
 VrijeRuimteBreedte : een negatief getal betekent dat het hout zoveel mm breder mag zijn dan de draagplaat. </Description>
 <Type>%Numeric</Type>
-<Default>0</Default>
-</Parameter>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
 
 <Property name="DraagPlaatBepaler">
 <Type>zTryout.WV.FPV1.DOM.DraagPlaatBepaler</Type>
@@ -46,14 +48,14 @@
 <Method name="GeefDraagPlaat">
 <FormalSpec>AfmetingLangsteOnderdeel:%Numeric,AfmetingBreedsteOnderdeel:%Numeric</FormalSpec>
 <ReturnType>zTryout.WV.FPV1.DOM.dto.DraagPlaat</ReturnType>
-<Implementation><![CDATA[	Quit ..DraagPlaatBepaler.GeefDraagPlaat(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel,..#VrijeRuimteLengte,..#VrijeRuimteBreedte)
+<Implementation><![CDATA[	Quit ..DraagPlaatBepaler.GeefDraagPlaat(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel,..VrijeRuimteLengte,..VrijeRuimteBreedte)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefStapelbareBreedteVoorDraagPlaat">
 <FormalSpec>DraagPlaat:zTryout.WV.FPV1.DOM.dto.DraagPlaat</FormalSpec>
 <ReturnType>%Numeric</ReturnType>
-<Implementation><![CDATA[	Quit (DraagPlaat.Breedte - ..#VrijeRuimteBreedte)
+<Implementation><![CDATA[	Quit (DraagPlaat.Breedte - ..VrijeRuimteBreedte)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler/GeefStapelbareBreedte/Test.cls.xml
===================================================================
diff -u -r29258 -r29944
--- vhUnitTest/zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler/GeefStapelbareBreedte/Test.cls.xml	(.../Test.cls.xml)	(revision 29258)
+++ vhUnitTest/zTryout/WV/FPV1/DOM/impl/StapelbareBreedteBepaler/GeefStapelbareBreedte/Test.cls.xml	(.../Test.cls.xml)	(revision 29944)
@@ -3,49 +3,69 @@
 <Class name="vhUnitTest.zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler.GeefStapelbareBreedte.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="DraagPlaatStubBreedte">
+<Parameter name="DraagPlaatDummyBreedte">
 <Description>
 Zomaar een breedte genomen voor de UT </Description>
 <Type>%Numeric</Type>
 <Default>262</Default>
 </Parameter>
 
+<Parameter name="VrijeRuimteBreedte">
+<Description>
+Bewust verschillend van 0 gekozen.  LET OP want waarde is negatief! </Description>
+<Type>%Numeric</Type>
+<Default>-6</Default>
+</Parameter>
+
+<Parameter name="AfmetingLangsteOnderdeel">
+<Description>
+Dummy afmeting </Description>
+<Type>%Numeric</Type>
+<Default>500</Default>
+</Parameter>
+
+<Parameter name="AfmetingBreedsteOnderdeel">
+<Description>
+Dummy afmeting </Description>
+<Type>%Numeric</Type>
+<Default>210</Default>
+</Parameter>
+
 <Property name="StapelbareBreedteBepaler">
 <Type>zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="VrijeRuimteBreedte">
-<Type>%Numeric</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="Test">
 <Implementation><![CDATA[
-	#dim AfmetingLangsteOnderdeel As %Numeric = 500
-	#dim AfmetingBreedsteOnderdeel As %Numeric = 210
-	
-	Do ..InitMocks()
-	#dim StapelbareBreedte As %Numeric = ..StapelbareBreedteBepaler.GeefStapelbareBreedte(AfmetingLangsteOnderdeel,AfmetingBreedsteOnderdeel)
-	
-	#dim VerwachteStapelbareBreedte = ..#DraagPlaatStubBreedte - ..VrijeRuimteBreedte
-	Do $$$AssertEquals(StapelbareBreedte, VerwachteStapelbareBreedte)
+	#dim VrijeRuimteBreedte As %Numeric = ..#VrijeRuimteBreedte
+	#dim VrijeRuimteLengte As %Numeric = $$$DummyInteger
+	#dim DraagPlaatBepalerStub As zTryout.WV.FPV1.DOM.DraagPlaatBepaler = ..GeefDraagPlaatBepalerStub(VrijeRuimteLengte,VrijeRuimteBreedte)
+	Set ..StapelbareBreedteBepaler = ##class(vhTest.Fake.zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New(DraagPlaatBepalerStub,VrijeRuimteLengte,VrijeRuimteBreedte)
+
+	Do ..AssertStapelbareBreedte(268)   ; =  DraagPlaatDummyBreedte - VrijeRuimteBreedte
 ]]></Implementation>
 </Method>
 
-<Method name="InitMocks">
+<Method name="GeefDraagPlaatBepalerStub">
+<FormalSpec>VrijeRuimteLengte:%Numeric,VrijeRuimteBreedte:%Numeric</FormalSpec>
 <Private>1</Private>
+<ReturnType>zTryout.WV.FPV1.DOM.DraagPlaatBepaler</ReturnType>
 <Implementation><![CDATA[
-	#dim VrijeRuimteLengte As %Numeric = ##class(TECH.ClassUtils).GetClassParameterValue(##class(vhTest.Fake.zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%ClassName($$$True),"VrijeRuimteLengte")
-	#dim VrijeRuimteBreedte As %Numeric = ##class(TECH.ClassUtils).GetClassParameterValue(##class(vhTest.Fake.zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%ClassName($$$True),"VrijeRuimteBreedte")
-	
-	#dim DraagPlaatBepalerMock As vhTest.Mock.zTryout.WV.FPV1.DOM.DraagPlaatBepaler = ##class(vhTest.Mock.zTryout.WV.FPV1.DOM.DraagPlaatBepaler).%New()
-	Set DraagPlaatStub = ##class(zTryout.WV.FPV1.DOM.dto.DraagPlaat).%New()
-	Set DraagPlaatStub.Breedte=..#DraagPlaatStubBreedte
-	Do DraagPlaatBepalerMock.IndienMethodCall("GeefDraagPlaat",500,210,VrijeRuimteLengte,VrijeRuimteBreedte).DanReturn(DraagPlaatStub)
+	#dim DraagPlaatBepalerStub As vhTest.Mock.zTryout.WV.FPV1.DOM.DraagPlaatBepaler = ##class(vhTest.Mock.zTryout.WV.FPV1.DOM.DraagPlaatBepaler).%New()
+	Set DraagPlaatDummy = ##class(zTryout.WV.FPV1.DOM.dto.DraagPlaat).%New()
+	Set DraagPlaatDummy.Breedte=..#DraagPlaatDummyBreedte
+	Do DraagPlaatBepalerStub.IndienMethodCall("GeefDraagPlaat",..#AfmetingLangsteOnderdeel,..#AfmetingBreedsteOnderdeel,VrijeRuimteLengte,VrijeRuimteBreedte).DanReturn(DraagPlaatDummy)
+	Quit DraagPlaatBepalerStub
+]]></Implementation>
+</Method>
 
-	Set ..StapelbareBreedteBepaler = ##class(vhTest.Fake.zTryout.WV.FPV1.DOM.impl.StapelbareBreedteBepaler).%New(DraagPlaatBepalerMock)
-	Set ..VrijeRuimteBreedte = VrijeRuimteBreedte
+<Method name="AssertStapelbareBreedte">
+<FormalSpec>VerwachteStapelbareBreedte:%Numeric</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim StapelbareBreedte As %Numeric = ..StapelbareBreedteBepaler.GeefStapelbareBreedte(..#AfmetingLangsteOnderdeel,..#AfmetingBreedsteOnderdeel)
+	Do $$$AssertEquals(StapelbareBreedte, VerwachteStapelbareBreedte)
 ]]></Implementation>
 </Method>
 </Class>