Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator/GenereerOptiesVoorToelevering/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator/GenereerOptiesVoorToelevering/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator/GenereerOptiesVoorToelevering/Test.cls.xml	(revision 71897)
@@ -0,0 +1,198 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AantalRollenOptiesGenerator.GenereerOptiesVoorToelevering.Test">
+<Super>vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.Base</Super>
+
+<Parameter name="RolnaamParentItem">
+<Type>%String</Type>
+<Default>Dummy Parent Item</Default>
+</Parameter>
+
+<Parameter name="RolnaamHFItem1">
+<Type>%String</Type>
+<Default>Dummy HF Item1</Default>
+</Parameter>
+
+<Parameter name="RolnaamHFItem2">
+<Type>%String</Type>
+<Default>Dummy HF Item2</Default>
+</Parameter>
+
+<Parameter name="HFProductId1">
+<Type>%String</Type>
+<Default>150000</Default>
+</Parameter>
+
+<Parameter name="HFProductId2">
+<Type>%String</Type>
+<Default>150001</Default>
+</Parameter>
+
+<Method name="Test: Alle aanwezige rollen in de halffabitemsboom worden opgeteld">
+<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()	
+	#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, 2)
+	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "ROL-" _ "Dummyparentitem" _ "." _ "dummyhfitem1", AantalProducten * HFItemAantal1)
+	Do ..AssertOptie(Resultaat.GetAt(2), "_TOELEVERING", "ROL-" _ "Dummyparentitem" _ "." _ "dummyhfitem2", AantalProducten * HFItemAantal2)
+	
+	Do ToeleveringMock.Verifieer()
+	Do HalffabItemBoomMock.Verifieer()
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien een rol tweemaal voorkomt, wordt deze opgeteld en niet opnieuw toegevoegd">
+<Implementation><![CDATA[
+	#dim HFItemAantal1 As %Integer = 2
+	#dim AantalProducten As %Integer = 2
+	
+	#dim ProductToeleveringLijn1 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(111111, AantalProducten)
+	#dim ProductToeleveringLijn2 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(222222, AantalProducten)
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(ProductToeleveringLijn1, ProductToeleveringLijn2)
+	
+	#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 HalffabItemsIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(HalffabItemStub1)
+	
+	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)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", 222222).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)
+	#dim VerwachtAantalRollen As %Integer = 2 * AantalProducten * HFItemAantal1
+	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "ROL-" _ "Dummyparentitem" _ "." _ "dummyhfitem1", VerwachtAantalRollen)
+	
+	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>
+<ReturnType>vhTest.Mock.DOM.PM.LBXProduct.LBXLade</ReturnType>
+<Implementation><![CDATA[
+	Set ProductMock = ##class(vhTest.Mock.DOM.PM.LBXProduct.LBXLade).%New()
+	Do ProductMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(LbxKenmerken)
+	
+	Quit ProductMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductLijnStub">
+<FormalSpec>ProductId:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.AKP.ProductToeleveringLijn</ReturnType>
+<Implementation><![CDATA[
+	Set ProductLijnStub = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
+	Do ProductLijnStub.IndienMethodCall("GeefProductID").DanReturn(ProductId)
+	Do ProductLijnStub.IndienMethodCall("GeefAantal").DanReturn(Aantal)
+	
+	Quit ProductLijnStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringMock">
+<FormalSpec>ProductToeleveringLijn...:vhTest.Mock.DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.AKP.Toelevering</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Set ProductLijnen = ##class(%ListOfObjects).%New()
+	#dim ProductToeleveringLijnIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes(.ProductToeleveringLijn))
+	
+	While ProductToeleveringLijnIterator.HasNext() {
+		#dim ProductLijn As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ProductToeleveringLijnIterator.Next()
+		Do ProductLijnen.Insert(ProductLijn)
+	}
+	
+	Set ProductLijnIterator = ##class(TECH.ListIterator).%New(ProductLijnen)
+	Do ToeleveringMock.VerwachtMethodCall("GeefTypeToeleveringLijnIterator",##class(DOM.AKP.enu.ToeleveringLijnType).Product()).DanReturn(ProductLijnIterator)
+	
+	Quit ToeleveringMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffab">
+<FormalSpec>HalffabNaam:%String,ProductId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
+<Implementation><![CDATA[
+	Set HalffabMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.Halffab).%New(HalffabNaam)
+	Do HalffabMock.IndienMethodCall("GeefProductID").DanReturn(ProductId)
+	
+	Quit HalffabMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefStandaardHalffabItem">
+<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 HalffabItemMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New()
+	Do HalffabItemMock.IndienMethodCall("GeefRol").DanReturn(Rolnaam)
+	Do HalffabItemMock.IndienMethodCall("GeefAantal").DanReturn(Aantal) 
+	
+	If ($IsObject(ParentItem)) {
+		Set HalffabItemMock.ParentItem = ParentItem
+	}
+	
+	If ($IsObject(Halffab)) {
+		Do HalffabItemMock.IndienMethodCall("GeefHalffab").DanReturn(Halffab)
+	}
+	
+	Quit HalffabItemMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefSamengesteldHalffabItem">
+<FormalSpec>Rolnaam:%String</FormalSpec>
+<ReturnType>vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	Set HalffabItemMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New()
+	Do HalffabItemMock.IndienMethodCall("GeefRol").DanReturn(Rolnaam)
+	
+	Quit HalffabItemMock
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71896 -r71897
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71896)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71897)
@@ -88,7 +88,7 @@
 	Set Opties = ##class(%ListOfObjects).%New()
 	
 	Do ##class(TECH.ListUtils).AppendList(Opties, ..AlgemeneInfoOptiesGenerator.GenereerAlgemeneOptiesVoorToelevering(Toelevering))
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..AantalRollenOptiesGenerator.GenereerOptiesVoorLade(Toelevering))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..AantalRollenOptiesGenerator.GenerereerOptiesToelevering(Toelevering))
 	
 	Quit Opties
 ]]></Implementation>
@@ -101,7 +101,7 @@
 	Set Opties = ##class(%ListOfObjects).%New()
 	
 	Do ##class(TECH.ListUtils).AppendList(Opties, ..AlgemeneInfoOptiesGenerator.GenereerAlgemeneOptiesVoorBatch(Batch))
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..AantalRollenOptiesGenerator.GenerereerOptiesAantallenPerRolVoorBatch(Batch))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..AantalRollenOptiesGenerator.GenerereerOptiesVoorBatch(Batch))
 	
 	Quit Opties
 ]]></Implementation>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator.cls.xml
===================================================================
diff -u -r71896 -r71897
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator.cls.xml	(.../AantalRollenOptiesGenerator.cls.xml)	(revision 71896)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator.cls.xml	(.../AantalRollenOptiesGenerator.cls.xml)	(revision 71897)
@@ -21,7 +21,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GenerereerOptiesAantallenPerRolVoorBatch">
+<Method name="GenerereerOptiesVoorBatch">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
@@ -40,7 +40,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GenereerOptiesVoorLade">
+<Method name="GenerereerOptiesToelevering">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[