Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator.cls.xml
===================================================================
diff -u -r71897 -r71917
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator.cls.xml	(.../AantalRollenOptiesGenerator.cls.xml)	(revision 71897)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator.cls.xml	(.../AantalRollenOptiesGenerator.cls.xml)	(revision 71917)
@@ -103,11 +103,12 @@
 		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = LbxProduct.GeefIngegevenKenmerken()
 		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = LbxProduct.GeefHalffabItemsBoom()
 		#dim HalffabItemsIterator As TECH.Iterator = HalffabItemsBoom.GeefAlleHalffabItemsIterator()
+		#dim NietMeeleverenLijst As %ListOfDataTypes = IngegevenKenmerken.NietMeeleveren
 		
 		While (HalffabItemsIterator.HasNext()) {
 			#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsIterator.Next()
 			
-			If $$$Not(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")) {
+			If ..MagHalffabItemToegevoegdWorden(HalffabItem, NietMeeleverenLijst) {
 				#dim Naam As %String = ..GeefRolNaam(HalffabItem, IngegevenKenmerken)
 				#dim Aantal As %String = ProductLijn.GeefAantal() * HalffabItem.GeefAantal()
 				
@@ -124,6 +125,20 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="MagHalffabItemToegevoegdWorden">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,NietMeeleverenLijst:%ListOfDataTypes</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim MagToegevoegdWorden As %Boolean = $$$True
+	
+	Set:(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")) MagToegevoegdWorden = $$$False
+	Set:(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem")) MagToegevoegdWorden = $$$False
+	Set:(##class(TECH.ListUtils).Contains(NietMeeleverenLijst, HalffabItem.GeefRol())) MagToegevoegdWorden = $$$False
+	
+	Quit MagToegevoegdWorden
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator/GenereerOptiesVoorToelevering/Test.cls.xml
===================================================================
diff -u -r71897 -r71917
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator/GenereerOptiesVoorToelevering/Test.cls.xml	(.../Test.cls.xml)	(revision 71897)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator/GenereerOptiesVoorToelevering/Test.cls.xml	(.../Test.cls.xml)	(revision 71917)
@@ -104,6 +104,83 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Indien een halffabItem niet mag meegegeleverd worden, wordt deze niet toegevoegd">
+<Implementation><![CDATA[
+	#dim HFItemAantal1 As %Integer = 2
+	#dim HFItemAantal2 As %Integer = 3
+	#dim AantalProducten As %Integer = 2
+	
+	#dim ProductToeleveringLijn As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(111111, AantalProducten)
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(ProductToeleveringLijn)
+	
+	#dim ParentHalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ..GeefSamengesteldHalffabItem(..#RolnaamParentItem)
+	#dim HalffabItemStub1 As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ..GeefStandaardHalffabItem(..#RolnaamHFItem1, HFItemAantal1, ParentHalffabItemStub, ..GeefHalffab("DummyHF1", ..#HFProductId1))
+	#dim HalffabItemStub2 As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ..GeefStandaardHalffabItem(..#RolnaamHFItem2, HFItemAantal2, ParentHalffabItemStub, ..GeefHalffab("DummyHF2", ..#HFProductId2))	
+	#dim HalffabItemsIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(HalffabItemStub1, HalffabItemStub2)
+	
+	Set HalffabItemBoomMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Do HalffabItemBoomMock.VerwachtMethodCall("GeefAlleHalffabItemsIterator").DanReturn(HalffabItemsIterator)
+	
+	#dim LbxLegeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	Do LbxLegeKenmerken.NietMeeleveren.Insert(..#RolnaamHFItem2)
+		
+	#dim ProductMock As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
+	Do ProductMock.VerwachtMethodCall("GeefHalffabItemsBoom").DanReturn(HalffabItemBoomMock)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", 111111).DanReturn(ProductMock)
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AantalRollenOptiesGenerator).%New(ProductApiMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenerereerOptiesToelevering(ToeleveringMock)
+	
+	Do $$$AssertEquals(Resultaat.Size, 1)
+	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "ROL-" _ "Dummyparentitem" _ "." _ "dummyhfitem1", AantalProducten * HFItemAantal1)
+	
+	
+	Do ToeleveringMock.Verifieer()
+	Do HalffabItemBoomMock.Verifieer()
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien een halffabItem van de klasse &apos;InbegrepenHalffabItem&apos; is, wordt deze niet toegevoegd">
+<Implementation><![CDATA[
+	#dim HFItemAantal1 As %Integer = 2
+	#dim HFItemAantal2 As %Integer = 3
+	#dim AantalProducten As %Integer = 2
+	
+	#dim ProductToeleveringLijn As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(111111, AantalProducten)
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(ProductToeleveringLijn)
+	
+	#dim ParentHalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ..GeefSamengesteldHalffabItem(..#RolnaamParentItem)
+	#dim HalffabItemStub1 As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ..GeefStandaardHalffabItem(..#RolnaamHFItem1, HFItemAantal1, ParentHalffabItemStub, ..GeefHalffab("DummyHF1", ..#HFProductId1))
+	#dim InbegrepenHalffabItemStub2 As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem = ..GeefInbegrepenHalffabItem()	
+	#dim HalffabItemsIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(HalffabItemStub1, InbegrepenHalffabItemStub2)
+	
+	Set HalffabItemBoomMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Do HalffabItemBoomMock.VerwachtMethodCall("GeefAlleHalffabItemsIterator").DanReturn(HalffabItemsIterator)
+	
+	#dim LbxLegeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	#dim ProductMock As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
+	Do ProductMock.VerwachtMethodCall("GeefHalffabItemsBoom").DanReturn(HalffabItemBoomMock)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", 111111).DanReturn(ProductMock)
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AantalRollenOptiesGenerator).%New(ProductApiMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenerereerOptiesToelevering(ToeleveringMock)
+	
+	Do $$$AssertEquals(Resultaat.Size, 1)
+	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "ROL-" _ "Dummyparentitem" _ "." _ "dummyhfitem1", AantalProducten * HFItemAantal1)
+	
+	Do ToeleveringMock.Verifieer()
+	Do HalffabItemBoomMock.Verifieer()
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="GeefProductMock">
 <FormalSpec>LbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Private>1</Private>
@@ -182,6 +259,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInbegrepenHalffabItem">
+<FormalSpec>Rolnaam:%String,Aantal:%Integer=1,ParentItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem="",Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab=""</FormalSpec>
+<ReturnType>vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	Set InbegrepenHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New("","DummyRol")
+	Quit InbegrepenHalffabItem
+]]></Implementation>
+</Method>
+
 <Method name="GeefSamengesteldHalffabItem">
 <FormalSpec>Rolnaam:%String</FormalSpec>
 <ReturnType>vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</ReturnType>