Index: vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r73087 -r73100
--- vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 73087)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 73100)
@@ -27,15 +27,16 @@
 <Implementation><![CDATA[
 	#dim DummyAfbeeldingCode As %String = "DummyAfbeeldingCode"
 	#dim DummyLadeCode As %String = "DummyLadeCode"
+	#dim AantalRugBodemSchroeven As %Integer = 3
 	
-	#dim HalffabItemBoomMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemBoomMock($$$True, $$$True)
+	#dim HalffabItemBoomMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemBoomMock($$$True, $$$True, AantalRugBodemSchroeven)
 	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ..GeefProductMock(..LbxKenmerken, DummyLadeCode, HalffabItemBoomMock)
 	#dim ProductApiMock As vhTest.Mock.DOM.PM.ProductAPI = ..GeefProductApiMock(ProductMock)
 	
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.AlgemeneKenmerkenOptiesGeneratorLbx).%New(ProductApiMock, ..AfbeeldingServiceMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, ..UitvoeringInfo)
 		
-	Do $$$AssertEquals(Resultaat.Size, 14)
+	Do $$$AssertEquals(Resultaat.Size, 15)
 	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Adminproductnummer", ..#DummyProductId)
 	Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Afbeeldingcode", DummyAfbeeldingCode)
 	Do ..AssertOptie(Resultaat.GetAt(3), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Ladecode", DummyLadeCode)
@@ -50,6 +51,7 @@
 	Do ..AssertOptie(Resultaat.GetAt(12), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Ladehoogteinmm", 78.5)
 	Do ..AssertOptie(Resultaat.GetAt(13), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Fysiekeladehoogteinmm", 90)
 	Do ..AssertOptie(Resultaat.GetAt(14), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Zijkanthoogteinmm", 90)
+	Do ..AssertOptie(Resultaat.GetAt(15), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Aantalboringen", AantalRugBodemSchroeven)
 	
 	Do HalffabItemBoomMock.Verifieer()
 	Do ProductMock.Verifieer()
@@ -69,7 +71,7 @@
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.AlgemeneKenmerkenOptiesGeneratorLbx).%New(ProductApiMock, ..AfbeeldingServiceMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, ..UitvoeringInfo)
 	
-	Do $$$AssertEquals(Resultaat.Size, 14)
+	Do $$$AssertEquals(Resultaat.Size, 15)
 	Do ..AssertOptie(Resultaat.GetAt(5), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Bodemhoogte", 474)
 	Do ..AssertOptie(Resultaat.GetAt(6), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Bodembreedte", 1)
 	Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Rugbreedte", "null")
@@ -95,7 +97,7 @@
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.AlgemeneKenmerkenOptiesGeneratorLbx).%New(ProductApiMock, ..AfbeeldingServiceMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, ..UitvoeringInfo)
 	
-	Do $$$AssertEquals(Resultaat.Size, 14)
+	Do $$$AssertEquals(Resultaat.Size, 15)
 	Do ..AssertOptie(Resultaat.GetAt(5), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Bodemhoogte", 474)
 	Do ..AssertOptie(Resultaat.GetAt(6), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Bodembreedte", "null")
 	Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Rugbreedte", 1)
@@ -130,7 +132,7 @@
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.AlgemeneKenmerkenOptiesGeneratorLbx).%New(ProductApiMock, ..AfbeeldingServiceMock, IngegevenKenmerkenTypeApiMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, ..UitvoeringInfo)
 	
-	Do $$$AssertEquals(Resultaat.Size, 15)
+	Do $$$AssertEquals(Resultaat.Size, 16)
 	Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Rugxbreedte", 1)
 	Do ..AssertOptie(Resultaat.GetAt(8), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Rugybreedte", 3.1416)
 	Do ..AssertOptie(Resultaat.GetAt(13), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Ladehoogteinmm", 78.5)
@@ -165,7 +167,7 @@
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.AlgemeneKenmerkenOptiesGeneratorLbx).%New(ProductApiMock, ..AfbeeldingServiceMock, IngegevenKenmerkenTypeApiMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, ..UitvoeringInfo)
 	
-	Do $$$AssertEquals(Resultaat.Size, 16)
+	Do $$$AssertEquals(Resultaat.Size, 17)
 	Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Rugxbreedte", 1)
 	Do ..AssertOptie(Resultaat.GetAt(8), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Rugybreedte", 3.1416)
 	Do ..AssertOptie(Resultaat.GetAt(9), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Rugmbreedte", 2.7183)
@@ -177,14 +179,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Lade met zonder RugBodemSchroef -&gt; Aantalboringen is null">
+<Implementation><![CDATA[
+	#dim DummyAfbeeldingCode As %String = "DummyAfbeeldingCode"
+	#dim DummyLadeCode As %String = "DummyLadeCode"
+	#dim AantalRugBodemSchroeven As %Integer = 0
+	
+	#dim HalffabItemBoomMock As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemBoomMock($$$True, $$$False, AantalRugBodemSchroeven)
+	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ..GeefProductMock(..LbxKenmerken, DummyLadeCode, HalffabItemBoomMock)
+	#dim ProductApiMock As vhTest.Mock.DOM.PM.ProductAPI = ..GeefProductApiMock(ProductMock)
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.AlgemeneKenmerkenOptiesGeneratorLbx).%New(ProductApiMock, ..AfbeeldingServiceMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, ..UitvoeringInfo)
+	
+	Do $$$AssertEquals(Resultaat.Size, 15)
+	Do ..AssertOptie(Resultaat.GetAt(15), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Aantalboringen", "null")
+	
+	Do HalffabItemBoomMock.Verifieer()
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefHalffabItemBoomMock">
-<FormalSpec>IsBodemBewerkbaar:%Boolean,IsRugBewerkbaar:%Boolean</FormalSpec>
+<FormalSpec>IsBodemBewerkbaar:%Boolean,IsRugBewerkbaar:%Boolean,AantalRugBodemSchroeven:%Integer=1</FormalSpec>
 <ReturnType>vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
 <Implementation><![CDATA[
 	Set HalffabItemBoomMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	
 	Do HalffabItemBoomMock.VerwachtMethodCall("GeefHalffabItem", "Bodem").DanReturn(..GeefDummyBewerktHalffabItem(IsBodemBewerkbaar))
 	Do HalffabItemBoomMock.VerwachtMethodCall("GeefHalffabItem", "Rug->X").DanReturn(..GeefDummyBewerktHalffabItem(IsRugBewerkbaar))
+	If (AantalRugBodemSchroeven > 0) {
+		Do HalffabItemBoomMock.VerwachtMethodCall("GeefHalffabItem", "RugBodemSchroef").DanReturn(..GeefDummyStandaardHalffabItem(AantalRugBodemSchroeven))
+	} Else {
+		Do HalffabItemBoomMock.VerwachtMethodCall("GeefHalffabItem", "RugBodemSchroef").DanDoeNiks()
+	}
 	
 	Quit HalffabItemBoomMock
 ]]></Implementation>
@@ -198,6 +227,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDummyStandaardHalffabItem">
+<FormalSpec>Aantal:%Integer=1</FormalSpec>
+<ReturnType>vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	Set DummyStandaardHalffabItem = ##class(vhTest.Dummy.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New()
+	Set DummyStandaardHalffabItem.Aantal = Aantal
+	
+	Quit DummyStandaardHalffabItem
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductMock">
 <FormalSpec>LbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,LadeCode:%String,HalffabItemBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <Private>1</Private>