Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/TestBodemOndersteuning.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/TestBodemOndersteuning.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/TestBodemOndersteuning.cls.xml	(revision 39958)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFSetSchroevenv000.BuilderMoetWerken.TestBodemOndersteuning">
+<Super>vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFSetSchroevenv000.BuilderMoetWerken.Testbase</Super>
+
+<Method name="Test: builder werkt voor binnenlade en FlatpackV1">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.IsBinnenlade = $$$True
+	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.FlatpackV1
+	
+	Do ..AssertBuilderMoetWerken($$$True, ..GeefAantalBodemOndersteuningen())
+]]></Implementation>
+</Method>
+
+<Method name="Test: builder werkt voor FlatPackV1 zonder binnenlade">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.IsBinnenlade = $$$False
+	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.FlatpackV1
+	
+	Do ..AssertBuilderMoetWerken($$$True, ..GeefAantalBodemOndersteuningen())
+]]></Implementation>
+</Method>
+
+<Method name="Test: builder werkt voor Probox zonder binnenlade">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.IsBinnenlade = $$$False
+	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox
+	
+	Do ..AssertBuilderMoetWerken($$$True, ..GeefAantalBodemOndersteuningen())
+]]></Implementation>
+</Method>
+
+<Method name="Test: builder werkt voor V1 zonder binnenlade">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.IsBinnenlade = $$$False
+	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1
+	
+	Do ..AssertBuilderMoetWerken($$$True, ..GeefAantalBodemOndersteuningen())
+]]></Implementation>
+</Method>
+
+<Method name="Test: builder werkt niet voor binnenlade">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.IsBinnenlade = $$$True
+	
+	Do ..AssertBuilderMoetWerken($$$False, ..GeefAantalBodemOndersteuningen())
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalBodemOndersteuningen">
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit $S(..TAORKenmerken.InterneBreedte < 300 : 0, 1:2)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/Testbase.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/Testbase.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/Testbase.cls.xml	(revision 39958)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFSetSchroevenv000.BuilderMoetWerken.Testbase">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="TAORKenmerken">
+<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="AssertBuilderMoetWerken">
+<FormalSpec>VerwachteWaarde:%Boolean,AantalBodemOndersteuningen:%Integer=0,AantalKoppelingen:%Integer=0,AantalDiepteVerstellingen:%Integer=0</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#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, AantalKoppelingen, AantalDiepteVerstellingen)
+	Do HFSetSchroevenv000.Bereken(..TAORKenmerken, Context)
+
+	Do $$$AssertEquals(HFSetSchroevenv000.BuilderMoetWerkenPublic(..TAORKenmerken, Context), VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="ZetIngegevenKenmerken">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..TAORKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+	Set ..TAORKenmerken.IsBinnenlade = $$$False
+	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.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 ..TAORKenmerken.CorpusBinnenbreedte = InterneBreedte
+	;Set ..TAORKenmerken.InterneBreedte = InterneBreedte
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 39958 refers to a dead (removed) revision in file `vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/TestDiepteVerstelling.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/TestDiepteVerstelling.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFSetSchroevenv000/BuilderMoetWerken/TestDiepteVerstelling.cls.xml	(revision 39958)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFSetSchroevenv000.BuilderMoetWerken.TestDiepteVerstelling">
+<Super>vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFSetSchroevenv000.BuilderMoetWerken.Testbase</Super>
+
+<Method name="Test: builder werkt niet voor V1 bij lade met diepteverstelling">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.IsBinnenlade = $$$True
+	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1
+	Set ..TAORKenmerken.HeeftDiepteVerstelling = $$$True
+	#dim AantalDiepteverstellingen As %Integer = 2
+	
+	Do ..AssertBuilderMoetWerken($$$False, 0,0,AantalDiepteverstellingen)
+]]></Implementation>
+</Method>
+
+<Method name="Test: builder werkt niet voor Probox bij lade met diepteverstelling">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.IsBinnenlade = $$$True
+	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.Probox
+	Set ..TAORKenmerken.HeeftDiepteVerstelling = $$$True
+	#dim AantalDiepteverstellingen As %Integer = 2
+	
+	Do ..AssertBuilderMoetWerken($$$False, 0,0,AantalDiepteverstellingen)
+]]></Implementation>
+</Method>
+
+<Method name="Test: builder werkt voor LosseComponentenInBulk bij lade met diepteverstelling">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.IsBinnenlade = $$$True
+	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk 
+	Set ..TAORKenmerken.HeeftDiepteVerstelling = $$$True
+	#dim AantalDiepteverstellingen As %Integer = 2
+
+	Do ..AssertBuilderMoetWerken($$$True, 0,0,AantalDiepteverstellingen)
+]]></Implementation>
+</Method>
+
+<Method name="Test: builder werkt voor BulkPerOnderdeelGegroepeerd bij lade met diepteverstelling">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.IsBinnenlade = $$$True
+	Set ..TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd 
+	Set ..TAORKenmerken.HeeftDiepteVerstelling = $$$True
+	#dim AantalDiepteverstellingen As %Integer = 2
+
+	Do ..AssertBuilderMoetWerken($$$True, 0,0,AantalDiepteverstellingen)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>