Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringAantalRollenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringAantalRollenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringAantalRollenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(revision 71686)
@@ -0,0 +1,191 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringAantalRollenOptiesGenerator.GenereerOptiesVoorLade.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Alle aanwezige rollen in de halffabitemsboom worden opgeteld">
+<Implementation><![CDATA[
+	#dim RolnaamParentItem As %String = "DummyParentItem"
+	#dim RolnaamHFItem1 As %String = "DummyHFItem1"
+	#dim RolnaamHFItem2 As %String = "DummyHFItem2"
+	#dim HFItemAantal1 As %Integer = 2
+	#dim HFItemAantal2 As %Integer = 3
+	#dim HFProductId1 As %String = 150000
+	#dim HFProductId2 As %String = 150001
+	#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.ToeleveringAantalRollenOptiesGenerator).%New(ProductApiMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringMock)
+	
+	Do $$$AssertEquals(Resultaat.Size, 2)
+	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "ROL-" _RolnaamParentItem _ "." _ RolnaamHFItem1, AantalProducten * HFItemAantal1)
+	Do ..AssertOptie(Resultaat.GetAt(2), "_TOELEVERING", "ROL-" _RolnaamParentItem _ "." _ RolnaamHFItem2, 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 RolnaamParentItem As %String = "DummyParentItem"
+	#dim RolnaamHFItem1 As %String = "DummyHFItem1"
+	#dim HFItemAantal1 As %Integer = 2
+	#dim HFProductId1 As %String = 150000
+	#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.ToeleveringAantalRollenOptiesGenerator).%New(ProductApiMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringMock)
+	
+	Do $$$AssertEquals(Resultaat.Size, 1)
+	#dim VerwachtAantalRollen As %Integer = 2 * AantalProducten * HFItemAantal1
+	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "ROL-" _RolnaamParentItem _ "." _ RolnaamHFItem1, VerwachtAantalRollen)
+	
+	Do ToeleveringMock.Verifieer()
+	Do HalffabItemBoomMock.Verifieer()
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="AssertOptie">
+<FormalSpec>Optie:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions,Omschrijving:%String,Naam:%String,Waarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(Optie.Omschrijving, Omschrijving)
+	Do $$$AssertEquals(Optie.Naam, Naam)
+	Do $$$AssertEquals(Optie.Waarde, Waarde)
+]]></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>