Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningSchroefv001/BuilderMoetWerken/HFBuilderMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningSchroefv001/BuilderMoetWerken/HFBuilderMock.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningSchroefv001/BuilderMoetWerken/HFBuilderMock.cls.xml	(revision 29933)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFBodemOndersteuningSchroefv001.BuilderMoetWerken.HFBuilderMock">
+<Super>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFBodemOndersteuningSchroefv001</Super>
+
+<Property name="AantalBodemOndersteuningen">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder,AantalBodemOndersteuningen:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(SamengesteldHalffabItemBuilder)
+	Set ..AantalBodemOndersteuningen = AantalBodemOndersteuningen
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalBodemOndersteuningen">
+<FormalSpec>Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..AantalBodemOndersteuningen
+]]></Implementation>
+</Method>
+
+<Method name="BuilderMoetWerkenPublic">
+<Description>
+Public gemaakt. </Description>
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..BuilderMoetWerken(IngegevenKenmerken,Context)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningSchroefv001/BuilderMoetWerken/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningSchroefv001/BuilderMoetWerken/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningSchroefv001/BuilderMoetWerken/Test.cls.xml	(revision 29933)
@@ -0,0 +1,92 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFBodemOndersteuningSchroefv001.BuilderMoetWerken.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ..ZetIngegevenKenmerken()
+]]></Implementation>
+</Method>
+
+<Method name="TestGewoneLade">
+<Implementation><![CDATA[	Do ..AssertBuilderMoetWerken($$$False)
+]]></Implementation>
+</Method>
+
+<Method name="TestBinnenLade">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
+	
+	Do ..AssertBuilderMoetWerken($$$True)
+]]></Implementation>
+</Method>
+
+<Method name="TestLadeZonderBodemOndersteuningen">
+<Implementation><![CDATA[
+	Do ..ZetInterneBreedte(299)
+	
+	Do ..AssertBuilderMoetWerken($$$False)
+]]></Implementation>
+</Method>
+
+<Method name="TestBinnenLadeZonderBodemOndersteuningen">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$True
+	Do ..ZetInterneBreedte(299)
+	
+	Do ..AssertBuilderMoetWerken($$$False)
+]]></Implementation>
+</Method>
+
+<Method name="TestFlatpackV1">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()
+	
+	Do ..AssertBuilderMoetWerken($$$True)
+]]></Implementation>
+</Method>
+
+<Method name="AssertBuilderMoetWerken">
+<FormalSpec>VerwachteWaarde:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim AantalBodemOndersteuningen As %Integer = $S(..IngegevenKenmerken.InterneBreedte < 300 : 0, 1:2)
+	Set SamengesteldHalffabItemBuilder = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder.Bereken.DummySamengesteldHalffabItemBuilder).%New()
+	Set Context = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder.Bereken.DummyContext).%New()
+	Set BodemOndersteuningSchroef = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFBodemOndersteuningSchroefv001.BuilderMoetWerken.HFBuilderMock).%New(SamengesteldHalffabItemBuilder,AantalBodemOndersteuningen)
+	Do $$$AssertEquals(BodemOndersteuningSchroef.BuilderMoetWerkenPublic(..IngegevenKenmerken,Context), VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="ZetIngegevenKenmerken">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set ..IngegevenKenmerken = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).GeefLegeTAORKenmerken()
+	Set ..IngegevenKenmerken.IsBinnenlade = $$$False
+	Set ..IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
+	Do ..ZetInterneBreedte(900)
+]]></Implementation>
+</Method>
+
+<Method name="ZetInterneBreedte">
+<Description>
+Method effe afgezonderd, omdat dit crappy code is! </Description>
+<FormalSpec>InterneBreedte:%Numeric</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.CorpusBinnenbreedte = InterneBreedte
+	;Set ..IngegevenKenmerken.InterneBreedte = InterneBreedte
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>