Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/Test.cls.xml
===================================================================
diff -u -r39852 -r39951
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/Test.cls.xml	(.../Test.cls.xml)	(revision 39852)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/Test.cls.xml	(.../Test.cls.xml)	(revision 39951)
@@ -21,7 +21,7 @@
 	Set ..TAORKenmerken.IsBinnenlade = $$$True
 	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.FlatpackV1
 	
-	Do ..AssertBuilderMoetWerken($$$True)
+	Do ..AssertBuilderMoetWerken($$$True, ..GeefAantalBodemOndersteuningen())
 ]]></Implementation>
 </Method>
 
@@ -30,7 +30,7 @@
 	Set ..TAORKenmerken.IsBinnenlade = $$$False
 	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.FlatpackV1
 	
-	Do ..AssertBuilderMoetWerken($$$True)
+	Do ..AssertBuilderMoetWerken($$$True, ..GeefAantalBodemOndersteuningen())
 ]]></Implementation>
 </Method>
 
@@ -39,7 +39,7 @@
 	Set ..TAORKenmerken.IsBinnenlade = $$$False
 	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox
 	
-	Do ..AssertBuilderMoetWerken($$$True)
+	Do ..AssertBuilderMoetWerken($$$True, ..GeefAantalBodemOndersteuningen())
 ]]></Implementation>
 </Method>
 
@@ -48,23 +48,22 @@
 	Set ..TAORKenmerken.IsBinnenlade = $$$False
 	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1
 	
-	Do ..AssertBuilderMoetWerken($$$True)
+	Do ..AssertBuilderMoetWerken($$$True, ..GeefAantalBodemOndersteuningen())
 ]]></Implementation>
 </Method>
 
 <Method name="Test: builder werkt niet voor binnenlade">
 <Implementation><![CDATA[
 	Set ..TAORKenmerken.IsBinnenlade = $$$True
 	
-	Do ..AssertBuilderMoetWerken($$$False)
+	Do ..AssertBuilderMoetWerken($$$False, ..GeefAantalBodemOndersteuningen())
 ]]></Implementation>
 </Method>
 
 <Method name="AssertBuilderMoetWerken">
-<FormalSpec>VerwachteWaarde:%Boolean</FormalSpec>
+<FormalSpec>VerwachteWaarde:%Boolean,AantalBodemOndersteuningen:%Integer=0,AantalKoppelingen:%Integer=0,AantalDiepteVerstellingen:%Integer=0</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim AantalBodemOndersteuningen As %Integer = $S(..TAORKenmerken.InterneBreedte < 300 : 0, 1:2)
 	#dim SamengesteldHalffabItemBuilder As vhUnitTest.DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder.Bereken.DummySamengesteldHalffabItemBuilder = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder.Bereken.DummySamengesteldHalffabItemBuilder).%New()
 	#dim Context As vhUnitTest.DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder.Bereken.DummyContext = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder.Bereken.DummyContext).%New()
 	#dim HFSetSchroevenv000 As vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFSetSchroevenv000.BuilderMoetWerken.HFBuilderMock = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFSetSchroevenv000.BuilderMoetWerken.HFBuilderMock).%New(SamengesteldHalffabItemBuilder, AantalBodemOndersteuningen)
@@ -74,6 +73,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAantalBodemOndersteuningen">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $S(..TAORKenmerken.InterneBreedte < 300 : 0, 1:2)
+]]></Implementation>
+</Method>
+
 <Method name="ZetIngegevenKenmerken">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/HFBuilderMock.cls.xml
===================================================================
diff -u -r39849 -r39951
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/HFBuilderMock.cls.xml	(.../HFBuilderMock.cls.xml)	(revision 39849)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/HFBuilderMock.cls.xml	(.../HFBuilderMock.cls.xml)	(revision 39951)
@@ -8,14 +8,26 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AantalKoppelingen">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AantalDiepteVerstellingen">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder,AantalBodemOndersteuningen:%Integer</FormalSpec>
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder,AantalBodemOndersteuningen:%Integer=0,AantalKoppelingen:%Integer=0,AantalDiepteVerstellingen:%Integer=0</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Do ##super(SamengesteldHalffabItemBuilder)
 	Set ..AantalBodemOndersteuningen = AantalBodemOndersteuningen
+	Set ..AantalKoppelingen = AantalKoppelingen
+	Set ..AantalDiepteVerstellingen = AantalDiepteVerstellingen
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -33,7 +45,11 @@
 <FormalSpec>Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,Rol:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Decimal</ReturnType>
-<Implementation><![CDATA[	Quit ..AantalBodemOndersteuningen
+<Implementation><![CDATA[
+	Quit:(Rol="BodemOndersteuning") ..AantalBodemOndersteuningen
+	Quit:(Rol="Koppeling") ..AantalKoppelingen
+	Quit:(Rol="DiepteVerstelling") ..AantalDiepteVerstellingen
+	Quit 0
 ]]></Implementation>
 </Method>
 </Class>