Index: vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGeneratorLbx/GenereerOptiesVoorLade/Test.cls.xml	(revision 71580)
@@ -0,0 +1,154 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.RollenEnStuklijstOptiesGeneratorLbx.GenereerOptiesVoorLade.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="SequentieNummerBinnenToelevering">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="SequentieNummer">
+<Type>%Integer</Type>
+<Default>2</Default>
+</Parameter>
+
+<Parameter name="DummyProductId">
+<Type>%String</Type>
+<Default>111111</Default>
+</Parameter>
+
+<Method name="Test: Standaardgedrag rolnamen van het halffabitem wordt in een opties geplaatst">
+<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 HFIdentnummer1 As %String = "1.111.111.1"
+	#dim HFProductId2 As %String = 150001
+	#dim HFIdentnummer2 As %String = "2.222.222.2"
+	
+	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLbxKenmerken()
+	
+	#dim ParentHalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ..GeefSamengesteldHalffabItem(RolnaamParentItem)
+	// Samengesteld:
+	//	#dim ParentHalffabItemStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ..GeefHalffabItem(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)
+	
+	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	Do ProductMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(LbxKenmerken)
+	Do ProductMock.VerwachtMethodCall("GeefHalffabItemsBoom").DanReturn(HalffabItemBoomMock)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
+	Do ProductApiMock.VerwachtMethodCall("GeefIdentNummerVoorProductId", HFProductId1).DanReturn(HFIdentnummer1)
+	Do ProductApiMock.VerwachtMethodCall("GeefIdentNummerVoorProductId", HFProductId2).DanReturn(HFIdentnummer2)
+	
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo()
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.RollenEnStuklijstOptiesGeneratorLbx).%New(ProductApiMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, UitvoeringInfo)
+	
+	Do $$$AssertEquals(Resultaat.Size, 4)
+	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-ROL-"_ RolnaamParentItem _ "." _ RolnaamHFItem1, HFItemAantal1)
+	Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-INPUT[01]|QTY|ROL", HFIdentnummer1 _ "|" _ HFItemAantal1 _ "|" _ RolnaamParentItem _ "." _ RolnaamHFItem1)
+	Do ..AssertOptie(Resultaat.GetAt(3), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-ROL-"_ RolnaamParentItem _ "." _ RolnaamHFItem2, HFItemAantal2)
+	Do ..AssertOptie(Resultaat.GetAt(4), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-INPUT[02]|QTY|ROL", HFIdentnummer2 _ "|" _ HFItemAantal2 _ "|" _ RolnaamParentItem _ "." _ RolnaamHFItem2)
+	
+	Do HalffabItemBoomMock.Verifieer()
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLbxKenmerken">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LbxKenmerkenStandaardLade As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
+	
+	Set LbxKenmerkenStandaardLade.AantalDwarsverdelingen = 2
+	Set LbxKenmerkenStandaardLade.BodemKleur = ##class(DOM.PM.enu.LBXBodemKleur).Wit()
+	Set LbxKenmerkenStandaardLade.HeeftOpvullijstLinks = $$$False
+	
+	Quit LbxKenmerkenStandaardLade
+]]></Implementation>
+</Method>
+
+<Method name="GeefUitvoeringInfo">
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[
+	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo).%New()
+	Set UitvoeringInfo.SequentieNummerBinnenToelevering = ..#SequentieNummerBinnenToelevering
+	Set UitvoeringInfo.SequentieNummer = ..#SequentieNummer
+	Set UitvoeringInfo.ProductID = ..#DummyProductId
+	
+	Quit UitvoeringInfo
+]]></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="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>