Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningSchroefv001.cls.xml
===================================================================
diff -u -r29059 -r29385
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningSchroefv001.cls.xml	(.../HFBodemOndersteuningSchroefv001.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFBodemOndersteuningSchroefv001.cls.xml	(.../HFBodemOndersteuningSchroefv001.cls.xml)	(revision 29385)
@@ -10,6 +10,24 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Method name="BerekenHalffabLijst">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#define SchroefjesInZakjeProductID   1238300
+	
+	If ..SchroefjesInZakje(IngegevenKenmerken) {
+		Set Lijst = ##class(%ListOfObjects).%New()
+		Do Lijst.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Halffab.HalffabBodemOndersteuningSchroef).%New($$$SchroefjesInZakjeProductID))
+	}
+	Else {
+		Set Lijst = ##super()
+	}
+	Quit Lijst
+]]></Implementation>
+</Method>
+
 <Method name="GeefAantalBodemOndersteuningen">
 <FormalSpec>Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
 <Private>1</Private>
@@ -20,9 +38,22 @@
 
 <Method name="PostProcessHalffabItem">
 <FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
-<Implementation><![CDATA[	Set HalffabItem.Aantal = ..GeefAantalBodemOndersteuningen(Context) * 2
+<Implementation><![CDATA[
+	#dim AantalPerBodemsteun = 2
+	If (..SchroefjesInZakje(IngegevenKenmerken)) {
+		Set AantalPerBodemsteun = 1   ; want per twee in een zakje 
+	}
+	Set HalffabItem.Aantal = ..GeefAantalBodemOndersteuningen(Context) * AantalPerBodemsteun
 ]]></Implementation>
 </Method>
+
+<Method name="SchroefjesInZakje">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()
+]]></Implementation>
+</Method>
 </Class>