Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringAantalRollenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r71785 -r71788
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringAantalRollenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71785)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringAantalRollenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71788)
@@ -3,23 +3,43 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringAantalRollenOptiesGenerator.GenereerOptiesVoorLade.Test">
 <Super>vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.Base</Super>
 
+<Parameter name="RolnaamParentItem">
+<Type>%String</Type>
+<Default>DummyParentItem</Default>
+</Parameter>
+
+<Parameter name="RolnaamHFItem1">
+<Type>%String</Type>
+<Default>DummyHFItem1</Default>
+</Parameter>
+
+<Parameter name="RolnaamHFItem2">
+<Type>%String</Type>
+<Default>DummyHFItem2</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 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 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()
@@ -48,18 +68,15 @@
 
 <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 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()
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r71786 -r71788
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71786)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71788)
@@ -28,6 +28,40 @@
 <Default>111111</Default>
 </Parameter>
 
+<Parameter name="DummyDnaCode">
+<Type>%String</Type>
+<Default>DummyDnaCode</Default>
+</Parameter>
+
+<Parameter name="DummyInventTransId">
+<Type>%String</Type>
+<Default>DummyInventTransId</Default>
+</Parameter>
+
+<Parameter name="DummyAxConfigId">
+<Type>%String</Type>
+<Default>DummyAxConfigId</Default>
+</Parameter>
+
+<Parameter name="DummyKorttekst">
+<Type>%String</Type>
+<Default>DummyKorttekst</Default>
+</Parameter>
+
+<Parameter name="DummyLangtekst">
+<Type>%String</Type>
+<Default>DummyLangtekst</Default>
+</Parameter>
+
+<Parameter name="DummyDossierCode">
+<Type>%String</Type>
+<Default>DummyDossierCode</Default>
+</Parameter>
+
+<Parameter name="DummyFscClaim">
+<Type>%String</Type>
+</Parameter>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestCase:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -39,38 +73,31 @@
 
 <Method name="Test: Standaardgedrag">
 <Implementation><![CDATA[
-	#dim DummyDnaCode As %String = "DummyDnaCode"
-	#dim DummyInventTransId As %String = "DummyInventTransId"
-	#dim DummyAxConfigId As %String = "DummyAxConfigId"
-	#dim DummyKorttekst As %String = "DummyKorttekst"
-	#dim DummyLangtekst As %String = "DummyLangtekst"
-	#dim DummyDossierCode As %String = "DummyDossierCode"
-	#dim DummyFscClaim As %String = ""
 	
-	#dim ToeleveringLijnStub As vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator.GenereerOptiesVoorLade.ToeleveringLijnMock = ..GeefToeleveringlijnMock(..#DummyProductId, DummyInventTransId, DummyAxConfigId)
+	#dim ToeleveringLijnStub As vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator.GenereerOptiesVoorLade.ToeleveringLijnMock = ..GeefToeleveringlijnMock(..#DummyProductId, ..#DummyInventTransId, ..#DummyAxConfigId)
 	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(..#DummyToeleveringId, ToeleveringLijnStub)	
-	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ..GeefProductMock(..#DummyProductId, DummyKorttekst, DummyLangtekst, DummyDossierCode, DummyFscClaim)
+	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ..GeefProductMock(..#DummyProductId, ..#DummyKorttekst, ..#DummyLangtekst, ..#DummyDossierCode, ..#DummyFscClaim)
 	
 	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
 	
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode.DnaCode = DummyDnaCode
+	Set DnaCode.DnaCode = ..#DummyDnaCode
 	#dim DnaCodeIterator As TECH.ItemIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode)
 	#dim DnaCodeRepositoryMock As vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository = ..GeefDnaCodeRepositoryMock(..#DummyToeleveringId, ..#SequentieNummer, ..#DummyProductId, DnaCodeIterator)
 	
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeRepositoryMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringMock, ..UitvoeringInfo)
 	
 	Do $$$AssertEquals(Resultaat.Size, 10)
-	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-DNA-code", DummyDnaCode)
-	Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-PIN", DummyDnaCode)
+	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-DNA-code", ..#DummyDnaCode)
+	Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-PIN", ..#DummyDnaCode)
 	Do ..AssertOptie(Resultaat.GetAt(3), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-SHORTPIN", "ode")	
-	Do ..AssertOptie(Resultaat.GetAt(4), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Inventtransid", DummyInventTransId)	
-	Do ..AssertOptie(Resultaat.GetAt(5), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Axconfigid", DummyAxConfigId)	
-	Do ..AssertOptie(Resultaat.GetAt(6), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Korttekst", DummyKorttekst)	
-	Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Langtekst", DummyLangtekst)
-	Do ..AssertOptie(Resultaat.GetAt(8), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Dossiercode", DummyDossierCode)
+	Do ..AssertOptie(Resultaat.GetAt(4), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Inventtransid", ..#DummyInventTransId)	
+	Do ..AssertOptie(Resultaat.GetAt(5), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Axconfigid", ..#DummyAxConfigId)	
+	Do ..AssertOptie(Resultaat.GetAt(6), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Korttekst", ..#DummyKorttekst)	
+	Do ..AssertOptie(Resultaat.GetAt(7), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Langtekst", ..#DummyLangtekst)
+	Do ..AssertOptie(Resultaat.GetAt(8), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Dossiercode", ..#DummyDossierCode)
 	Do ..AssertOptie(Resultaat.GetAt(9), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-FSC-claim", "NonApplicable")	
 	Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Vhoss-info", "null")		
 	
@@ -83,27 +110,19 @@
 
 <Method name="Test: Indien het gaat over Vhoss verpakking -&gt; Vhoss-info optie is aanwezig">
 <Implementation><![CDATA[
-	#dim DummyDnaCode As %String = "DummyDnaCode"
-	#dim DummyInventTransId As %String = "DummyInventTransId"
-	#dim DummyAxConfigId As %String = "DummyAxConfigId"
-	#dim DummyKorttekst As %String = "DummyKorttekst"
-	#dim DummyLangtekst As %String = "DummyLangtekst"
-	#dim DummyDossierCode As %String = "DummyDossierCode"
-	#dim DummyFscClaim As %String = ""
-	
 	Set ..UitvoeringInfo.VHOSSID = "123"
 	Set ..UitvoeringInfo.ZijVlakID = "456"
 	Set ..UitvoeringInfo.SlotID = "789"
 	
-	#dim ToeleveringLijnStub As vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator.GenereerOptiesVoorLade.ToeleveringLijnMock = ..GeefToeleveringlijnMock(..#DummyProductId, DummyInventTransId, DummyAxConfigId)
+	#dim ToeleveringLijnStub As vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator.GenereerOptiesVoorLade.ToeleveringLijnMock = ..GeefToeleveringlijnMock(..#DummyProductId, ..#DummyInventTransId, ..#DummyAxConfigId)
 	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(..#DummyToeleveringId, ToeleveringLijnStub)	
-	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ..GeefProductMock(..#DummyProductId, DummyKorttekst, DummyLangtekst, DummyDossierCode, DummyFscClaim)
+	#dim ProductMock As vhTest.Mock.DOM.PM.MaatwerkProduct = ..GeefProductMock(..#DummyProductId, ..#DummyKorttekst, ..#DummyLangtekst, ..#DummyDossierCode, ..#DummyFscClaim)
 	
 	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
 	
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode.DnaCode = DummyDnaCode
+	Set DnaCode.DnaCode = ..#DummyDnaCode
 	#dim DnaCodeIterator As TECH.ItemIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode)
 	#dim DnaCodeRepositoryMock As vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository = ..GeefDnaCodeRepositoryMock(..#DummyToeleveringId, ..#SequentieNummer, ..#DummyProductId, DnaCodeIterator)
 	
@@ -122,7 +141,6 @@
 
 <Method name="Test: Meerdere dnacodes gevonden geeft een error">
 <Implementation><![CDATA[
-	#dim DummyDnaCode As %String = "DummyDnaCode"
 	
 	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(..#DummyToeleveringId)
 	
@@ -133,9 +151,9 @@
 	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
 	
 	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode1.DnaCode = DummyDnaCode
+	Set DnaCode1.DnaCode = ..#DummyDnaCode
 	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode2.DnaCode = DummyDnaCode
+	Set DnaCode2.DnaCode = ..#DummyDnaCode
 	#dim DnaCodeIterator As TECH.ItemIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
 	#dim DnaCodeRepositoryMock As vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository = ..GeefDnaCodeRepositoryMock(..#DummyToeleveringId, ..#SequentieNummer, ..#DummyProductId, DnaCodeIterator)
 	
@@ -154,8 +172,7 @@
 
 <Method name="Test: Geen dnacodes gevonden geeft een error">
 <Implementation><![CDATA[
-	#dim DummyDnaCode As %String = "DummyDnaCode"
-		
+	
 	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(..#DummyToeleveringId)
 	
 	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r71786 -r71788
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71786)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71788)
@@ -35,7 +35,7 @@
 <Method name="Test: Standaard Ingegevenkenmerken -&gt; Geeft lijst van opties met elk ingegeven kenmerk terug">
 <Implementation><![CDATA[
 	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLbxKenmerken()
-		
+	
 	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
 	Do ProductMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(LbxKenmerken)