Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r71569 -r71570
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71569)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71570)
@@ -3,32 +3,40 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.IngegevenKenmerkenOptiesGenerator.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: Standaard Ingegevenkenmerken -&gt; Geeft lijst van opties met elk ingegeven kenmerk terug">
 <Implementation><![CDATA[
-	#dim SequentieNummerBinnenToelevering As %Integer = 1
-	#dim SequentieNummer As %Integer = 2
-	#dim DummyProductId As %Integer = 111111
-	
 	#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)
 	
 	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
-	Do ProductApiMock.VerwachtMethodCall("GeefProduct", DummyProductId).DanReturn(ProductMock)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
 	
-	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo).%New()
-	Set UitvoeringInfo.SequentieNummerBinnenToelevering = SequentieNummerBinnenToelevering
-	Set UitvoeringInfo.SequentieNummer = SequentieNummer
-	Set UitvoeringInfo.ProductID = DummyProductId
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo()
 	
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.IngegevenKenmerkenOptiesGenerator).%New(ProductApiMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, UitvoeringInfo)
 	
 	Do $$$AssertEquals(Resultaat.Size, 51)
-	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-AantalDwarsverdelingen", 2)
-	Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-BodemKleur", "WI")
-	Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-HeeftOpvullijstLinks", "False")	
+	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-AantalDwarsverdelingen", 2)
+	Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-BodemKleur", "WI")
+	Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-HeeftOpvullijstLinks", "False")	
 	
 	Do ProductMock.Verifieer()
 	Do ProductApiMock.Verifieer()
@@ -37,30 +45,23 @@
 
 <Method name="Test: Ingegevenkenmerken met gekoppelde ingegeven kenkmerken -&gt; Geeft lijst van opties met ingegeven en gekoppelde ingegeven kenmerken terug">
 <Implementation><![CDATA[
-	#dim SequentieNummerBinnenToelevering As %Integer = 1
-	#dim SequentieNummer As %Integer = 2
-	#dim DummyProductId As %Integer = 111111
-	
 	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLbxKenmerken()
 	Do LbxKenmerken.GekoppeldeIngegevenKenmerken.SetAt(..GeefMatKenmerken(), "MatX")
 		
 	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
 	Do ProductMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(LbxKenmerken)
 	
 	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
-	Do ProductApiMock.VerwachtMethodCall("GeefProduct", DummyProductId).DanReturn(ProductMock)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
 	
-	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo).%New()
-	Set UitvoeringInfo.SequentieNummerBinnenToelevering = SequentieNummerBinnenToelevering
-	Set UitvoeringInfo.SequentieNummer = SequentieNummer
-	Set UitvoeringInfo.ProductID = DummyProductId
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo()
 	
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.IngegevenKenmerkenOptiesGenerator).%New(ProductApiMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, UitvoeringInfo)
 	
 	Do $$$AssertEquals(Resultaat.Size, 71)
-	Do ..AssertOptie(Resultaat.GetAt(52), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Mat.Breedte", 800)
-	Do ..AssertOptie(Resultaat.GetAt(60), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Mat.Kleur", "W")
+	Do ..AssertOptie(Resultaat.GetAt(52), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Mat.Breedte", 800)
+	Do ..AssertOptie(Resultaat.GetAt(60), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Mat.Kleur", "W")
 	
 	Do ProductMock.Verifieer()
 	Do ProductApiMock.Verifieer()
@@ -69,9 +70,6 @@
 
 <Method name="Test: Ingegeven kenmerken sifonlade -&gt; Geeft lijst van opties met elk ingegeven kenmerk terug en uitsparingdata">
 <Implementation><![CDATA[
-	#dim SequentieNummerBinnenToelevering As %Integer = 1
-	#dim SequentieNummer As %Integer = 2
-	#dim DummyProductId As %Integer = 111111
 	
 	#dim LbxKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ..GeefLbxKenmerken()
 	Set LbxKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Sifon()
@@ -87,43 +85,53 @@
 	Do ProductMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(LbxKenmerken)
 	
 	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
-	Do ProductApiMock.VerwachtMethodCall("GeefProduct", DummyProductId).DanReturn(ProductMock)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
 	
-	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo).%New()
-	Set UitvoeringInfo.SequentieNummerBinnenToelevering = SequentieNummerBinnenToelevering
-	Set UitvoeringInfo.SequentieNummer = SequentieNummer
-	Set UitvoeringInfo.ProductID = DummyProductId
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo()
 	
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.IngegevenKenmerkenOptiesGenerator).%New(ProductApiMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, UitvoeringInfo)
 	
 	Do $$$AssertEquals(Resultaat.Size, 51)
-	Do ..AssertOptie(Resultaat.GetAt(32), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.UitsparingAantal", "Dubbel")
-	Do ..AssertOptie(Resultaat.GetAt(33), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.X.Breedte", 150)
-	Do ..AssertOptie(Resultaat.GetAt(34), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.X.Hoogte", "M")
-	Do ..AssertOptie(Resultaat.GetAt(35), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.X.Materiaal", "Hout")
-	Do ..AssertOptie(Resultaat.GetAt(36), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Y.Breedte", 150)
-	Do ..AssertOptie(Resultaat.GetAt(37), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Y.Hoogte", "M")
-	Do ..AssertOptie(Resultaat.GetAt(38), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Y.Materiaal", "Hout")
-	Do ..AssertOptie(Resultaat.GetAt(39), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.M.Breedte", 140)
-	Do ..AssertOptie(Resultaat.GetAt(40), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.M.Hoogte", "M")
-	Do ..AssertOptie(Resultaat.GetAt(41), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.M.Materiaal", "Hout")
-	Do ..AssertOptie(Resultaat.GetAt(42), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z1.Breedte", 300)
-	Do ..AssertOptie(Resultaat.GetAt(43), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z1.Hoogte", "M")
-	Do ..AssertOptie(Resultaat.GetAt(44), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z1.Diepte", 250)
-	Do ..AssertOptie(Resultaat.GetAt(45), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z1.Vorm", "Recht")
-	Do ..AssertOptie(Resultaat.GetAt(46), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z1.Materiaal", "Staal")
-	Do ..AssertOptie(Resultaat.GetAt(47), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z2.Breedte", 160)
-	Do ..AssertOptie(Resultaat.GetAt(48), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z2.Hoogte", "M")
-	Do ..AssertOptie(Resultaat.GetAt(49), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z2.Diepte", 250)
-	Do ..AssertOptie(Resultaat.GetAt(50), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z2.Vorm", "Recht")
-	Do ..AssertOptie(Resultaat.GetAt(51), "LADE 00" _ SequentieNummerBinnenToelevering, "00" _ SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z2.Materiaal", "Staal")
+	Do ..AssertOptie(Resultaat.GetAt(32), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.UitsparingAantal", "Dubbel")
+	Do ..AssertOptie(Resultaat.GetAt(33), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.X.Breedte", 150)
+	Do ..AssertOptie(Resultaat.GetAt(34), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.X.Hoogte", "M")
+	Do ..AssertOptie(Resultaat.GetAt(35), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.X.Materiaal", "Hout")
+	Do ..AssertOptie(Resultaat.GetAt(36), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Y.Breedte", 150)
+	Do ..AssertOptie(Resultaat.GetAt(37), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Y.Hoogte", "M")
+	Do ..AssertOptie(Resultaat.GetAt(38), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Y.Materiaal", "Hout")
+	Do ..AssertOptie(Resultaat.GetAt(39), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.M.Breedte", 140)
+	Do ..AssertOptie(Resultaat.GetAt(40), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.M.Hoogte", "M")
+	Do ..AssertOptie(Resultaat.GetAt(41), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.M.Materiaal", "Hout")
+	Do ..AssertOptie(Resultaat.GetAt(42), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z1.Breedte", 300)
+	Do ..AssertOptie(Resultaat.GetAt(43), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z1.Hoogte", "M")
+	Do ..AssertOptie(Resultaat.GetAt(44), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z1.Diepte", 250)
+	Do ..AssertOptie(Resultaat.GetAt(45), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z1.Vorm", "Recht")
+	Do ..AssertOptie(Resultaat.GetAt(46), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z1.Materiaal", "Staal")
+	Do ..AssertOptie(Resultaat.GetAt(47), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z2.Breedte", 160)
+	Do ..AssertOptie(Resultaat.GetAt(48), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z2.Hoogte", "M")
+	Do ..AssertOptie(Resultaat.GetAt(49), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z2.Diepte", 250)
+	Do ..AssertOptie(Resultaat.GetAt(50), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z2.Vorm", "Recht")
+	Do ..AssertOptie(Resultaat.GetAt(51), "LADE 00" _ ..#SequentieNummerBinnenToelevering, "00" _ ..#SequentieNummerBinnenToelevering _ "-Uitsparingdata.Z2.Materiaal", "Staal")
 	
 	Do ProductMock.Verifieer()
 	Do ProductApiMock.Verifieer()
 ]]></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="GeefLbxKenmerken">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>