Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv000/Test.cls.xml
===================================================================
diff -u -r50872 -r57168
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv000/Test.cls.xml	(.../Test.cls.xml)	(revision 50872)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFBevestigingBodemFrontv000/Test.cls.xml	(.../Test.cls.xml)	(revision 57168)
@@ -37,6 +37,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Z96.0001   FR-S   500SEIW toevoegen indien geen binnenlade en Schroef als frontbevestiging">
+<Implementation><![CDATA[
+	#dim LBXIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefIngegevenKenmerken(##class(DOM.PM.enu.LBXKlasse).Lade())
+	Set LBXIngegevenKenmerken.FrontBevestiging = ##class(DOM.PM.enu.LBXFrontBevestiging).Schroef()
+	
+	Set HFBevestigingBodemFrontv000 = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFBevestigingBodemFrontv000).%New(..SamengesteldHalffabItemBuilder)
+	
+	#dim Lijst As %ListOfObjects = HFBevestigingBodemFrontv000.BerekenHalffabLijst(LBXIngegevenKenmerken, ..Context)
+	
+	Do ..AssertList(Lijst, ..GeefVerwachteLijstLadeMetSchroefBevestiging())
+]]></Implementation>
+</Method>
+
 <Method name="Test: Geen Z9600T1 FRO-ST 100R737 toevoegen indien geen binnenlade en geen ExpandoT als frontbevestiging">
 <Implementation><![CDATA[
 	#dim LBXIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefIngegevenKenmerken(##class(DOM.PM.enu.LBXKlasse).Lade())
@@ -109,6 +122,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVerwachteLijstLadeMetSchroefBevestiging">
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim Lijst As %ListOfObjects = ##class(%ListOfObjects).%New()
+	Do Lijst.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabBevestigingBodemFront).%New(2011340))   // Z96.0001   FR-S   500SEIW
+	Quit Lijst
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerwachteLijstLadeZonderExpandoT">
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>