Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r71892 -r72011
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71892)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 72011)
@@ -75,16 +75,16 @@
 <Implementation><![CDATA[
 	
 	#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 ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringStub(..#DummyToeleveringId, ToeleveringLijnStub)	
 	#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)
 	
-	#dim DnaCodeServiceMock As vhTest.Mock.APPS.Halux.AAP.DnaCodeService = ..GeefDnaCodeServiceMock(..#DummyToeleveringId, ..#SequentieNummer, ..#DummyProductId, ..#DummyDnaCode)
+	#dim DnaCodeServiceMock As vhTest.Mock.APPS.Halux.AAP.DnaCodeService = ..GeefDnaCodeServiceMock(..#SequentieNummer, ..#DummyProductId, ..#DummyDnaCode)
 	
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeServiceMock)
-	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringMock, ..UitvoeringInfo)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringStub, ..UitvoeringInfo)
 	
 	Do $$$AssertEquals(Resultaat.Size, 10)
 	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-DNA-code", ..#DummyDnaCode)
@@ -98,7 +98,6 @@
 	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")		
 	
-	Do ToeleveringMock.Verifieer()
 	Do ProductMock.Verifieer()
 	Do ProductApiMock.Verifieer()
 	Do DnaCodeServiceMock.Verifieer()
@@ -112,21 +111,20 @@
 	Set ..UitvoeringInfo.SlotID = "789"
 	
 	#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 ToeleveringStub As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringStub(..#DummyToeleveringId, ToeleveringLijnStub)	
 	#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)
 	
-	#dim DnaCodeServiceMock As vhTest.Mock.APPS.Halux.AAP.DnaCodeService = ..GeefDnaCodeServiceMock(..#DummyToeleveringId, ..#SequentieNummer, ..#DummyProductId, ..#DummyDnaCode)
+	#dim DnaCodeServiceMock As vhTest.Mock.APPS.Halux.AAP.DnaCodeService = ..GeefDnaCodeServiceMock(..#SequentieNummer, ..#DummyProductId, ..#DummyDnaCode)
 	
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeServiceMock)
-	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringMock, ..UitvoeringInfo)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringStub, ..UitvoeringInfo)
 	
 	Do $$$AssertEquals(Resultaat.Size, 10)
 	Do ..AssertOptie(Resultaat.GetAt(10), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-Vhoss-info", "123.456.789")		
 	
-	Do ToeleveringMock.Verifieer()
 	Do ProductMock.Verifieer()
 	Do ProductApiMock.Verifieer()
 	Do DnaCodeServiceMock.Verifieer()
@@ -148,17 +146,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefToeleveringMock">
+<Method name="GeefToeleveringStub">
 <FormalSpec>ToeleveringId:%String,ToeleveringLijn:vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator.GenereerOptiesVoorLade.ToeleveringLijnMock=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhTest.Mock.DOM.AKP.Toelevering</ReturnType>
 <Implementation><![CDATA[
-	Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Set ToeleveringStub = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijn))
 	
-	Do ToeleveringMock.VerwachtMethodCall("GeefID").DanReturn(ToeleveringId)
-	Do ToeleveringMock.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijn))
-	
-	Quit ToeleveringMock
+	Quit ToeleveringStub
 ]]></Implementation>
 </Method>
 
@@ -181,12 +177,12 @@
 </Method>
 
 <Method name="GeefDnaCodeServiceMock">
-<FormalSpec>ToeleveringId:%String,SequentieNummer:%Integer,ProductId:%String,DnaCode:%String</FormalSpec>
+<FormalSpec>SequentieNummer:%Integer,ProductId:%String,DnaCode:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhTest.Mock.APPS.Halux.AAP.DnaCodeService</ReturnType>
 <Implementation><![CDATA[
 	Set DnaCodeServiceMock = ##class(vhTest.Mock.APPS.Halux.AAP.DnaCodeService).%New()
-	Do DnaCodeServiceMock.VerwachtMethodCall("GeefDnaCodeViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent", ToeleveringId, SequentieNummer, ProductId).DanReturn(DnaCode)
+	Do DnaCodeServiceMock.VerwachtMethodCall("GeefDnaCodeViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent", "", SequentieNummer, ProductId).DanReturn(DnaCode)
 	
 	Quit DnaCodeServiceMock
 ]]></Implementation>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml
===================================================================
diff -u -r71892 -r72011
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 71892)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 72011)
@@ -41,7 +41,7 @@
 	#dim SequentieNummerLade As %Integer = UitvoeringInfo.SequentieNummerLade
 	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)	
 	
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorDnaCodeEnPin(Toelevering.GeefID(), Product.GeefID(), UitvoeringInfo.SequentieNummer, SequentieNummerLade))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorDnaCodeEnPin(UitvoeringInfo, Product.GeefID()))
 	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorAxInventTransIdEnAxConfigId(Toelevering, Product, SequentieNummerLade))
 		
 	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "Korttekst", Product.GeefKorttekst()))
@@ -58,18 +58,18 @@
 </Method>
 
 <Method name="GeefOptiesVoorDnaCodeEnPin">
-<FormalSpec>ToeleveringId:%String,ProductId:%String,SequentieNummerBinnenBatch:%String,SequentieNummerLade:%String</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo,ProductId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set LijstOpties = ##class(%ListOfObjects).%New()
 	
-	#dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent(ToeleveringId, SequentieNummerBinnenBatch, ProductId)
+	#dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent(UitvoeringInfo.ToeleveringID, UitvoeringInfo.SequentieNummer, ProductId)
 	#dim DnaCodeIngekort As %String = $Extract(DnaCode, $Length(DnaCode) - 2, $Length(DnaCode))
 	
-	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "DNA-code", DnaCode))
-	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "PIN", DnaCode))
-	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "SHORTPIN", DnaCodeIngekort))
+	Do LijstOpties.Insert(..GeefOptieVoorLade(UitvoeringInfo.SequentieNummerLade, "-" _ "DNA-code", DnaCode))
+	Do LijstOpties.Insert(..GeefOptieVoorLade(UitvoeringInfo.SequentieNummerLade, "-" _ "PIN", DnaCode))
+	Do LijstOpties.Insert(..GeefOptieVoorLade(UitvoeringInfo.SequentieNummerLade, "-" _ "SHORTPIN", DnaCodeIngekort))
 	
 	Quit LijstOpties
 ]]></Implementation>