Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r71773 -r71775
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71773)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 71775)
@@ -31,34 +31,20 @@
 	#dim DummyKorttekst As %String = "DummyKorttekst"
 	#dim DummyLangtekst As %String = "DummyLangtekst"
 	#dim DummyDossierCode As %String = "DummyDossierCode"
+	#dim DummyFscClaim As %String = ""
 	
-	Set ToeleveringLijnStub = ##class(vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator.GenereerOptiesVoorLade.ToeleveringLijnMock).%New()
-	Do ToeleveringLijnStub.IndienMethodCall("GeefProductID").DanReturn(..#DummyProductId)
-	Do ToeleveringLijnStub.IndienMethodCall("GeefAxInventTransId").DanReturn(DummyInventTransId)
-	Do ToeleveringLijnStub.IndienMethodCall("GeefAxConfigId").DanReturn(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)
 	
-	Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-	Do ToeleveringMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyToeleveringId)
-	Do ToeleveringMock.VerwachtMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijnStub))
-	
-	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
-	Do ProductMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyProductId)
-	Do ProductMock.VerwachtMethodCall("GeefKorttekst").DanReturn(DummyKorttekst)
-	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
-	Do ProductMock.VerwachtMethodCall("GeefLangtekst", Taal, $$$True).DanReturn(DummyLangtekst)
-	Do ProductMock.VerwachtMethodCall("GeefDossierCode").DanReturn(DummyDossierCode)
-	Do ProductMock.VerwachtMethodCall("GeefFSCHout").DanReturn("")
-	
 	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
 	#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 DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent", 222222, 2, 111111).DanReturn(DnaCodeIterator)
-	
 	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo()
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New(ProductApiMock, DnaCodeRepositoryMock)
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(ToeleveringMock, UitvoeringInfo)
@@ -72,7 +58,7 @@
 	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(9), "LADE 00" _ ..#SequentieNummerLade, "00" _ ..#SequentieNummerLade _ "-FSC-claim", "NonApplicable")			
 	
 	Do ToeleveringMock.Verifieer()
 	Do ProductMock.Verifieer()
@@ -84,10 +70,9 @@
 <Method name="Test: Meerdere dnacodes gevonden geeft een error">
 <Implementation><![CDATA[
 	#dim DummyDnaCode As %String = "DummyDnaCode"
-		
-	Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-	Do ToeleveringMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyToeleveringId)
 	
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(..#DummyToeleveringId)
+	
 	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
 	Do ProductMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyProductId)
 	
@@ -99,10 +84,8 @@
 	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	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)
 	
-	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent", 222222, 2, 111111).DanReturn(DnaCodeIterator)
-	
 	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo()
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Meerdere dnacodes gevonden voor toelevering '222222', product '111111' en sequentienummer '2'.")
@@ -122,20 +105,17 @@
 <Implementation><![CDATA[
 	#dim DummyDnaCode As %String = "DummyDnaCode"
 		
-	Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
-	Do ToeleveringMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyToeleveringId)
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(..#DummyToeleveringId)
 	
 	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
 	Do ProductMock.VerwachtMethodCall("GeefID").DanReturn(..#DummyProductId)
 	
 	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	Do ProductApiMock.VerwachtMethodCall("GeefProduct", ..#DummyProductId).DanReturn(ProductMock)
 	
-	Set DnaCodeIterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())
+	Set DnaCodeIterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())	
+	#dim DnaCodeRepositoryMock As vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository = ..GeefDnaCodeRepositoryMock(..#DummyToeleveringId, ..#SequentieNummer, ..#DummyProductId, DnaCodeIterator)
 	
-	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent", 222222, 2, 111111).DanReturn(DnaCodeIterator)
-	
 	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = ..GeefUitvoeringInfo()
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen Dnacode gevonden voor toelevering '222222', product '111111' en sequentienummer '2'.")
@@ -164,6 +144,65 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefToeleveringlijnMock">
+<FormalSpec>ProductId:%String,AxInventTransId:%String,AxConfigId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator.GenereerOptiesVoorLade.ToeleveringLijnMock</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringLijnStub = ##class(vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator.GenereerOptiesVoorLade.ToeleveringLijnMock).%New()
+	
+	Do ToeleveringLijnStub.IndienMethodCall("GeefProductID").DanReturn(ProductId)
+	Do ToeleveringLijnStub.IndienMethodCall("GeefAxInventTransId").DanReturn(AxInventTransId)
+	Do ToeleveringLijnStub.IndienMethodCall("GeefAxConfigId").DanReturn(AxConfigId)
+	
+	Quit ToeleveringLijnStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringMock">
+<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()
+	
+	Do ToeleveringMock.VerwachtMethodCall("GeefID").DanReturn(ToeleveringId)
+	Do ToeleveringMock.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(ToeleveringLijn))
+	
+	Quit ToeleveringMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductMock">
+<FormalSpec>ProductId:%String,Korttekst:%String,Langtekst:%String,DossierCode:%String,FscClaim:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.PM.MaatwerkProduct</ReturnType>
+<Implementation><![CDATA[
+	Set ProductMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()	
+	#dim Taal As DOM.enu.Taal = ##class(DOM.enu.Taal).Nederlands()
+	
+	Do ProductMock.VerwachtMethodCall("GeefID").DanReturn(ProductId)
+	Do ProductMock.VerwachtMethodCall("GeefKorttekst").DanReturn(Korttekst)
+	Do ProductMock.VerwachtMethodCall("GeefLangtekst", Taal, $$$True).DanReturn(Langtekst)
+	Do ProductMock.VerwachtMethodCall("GeefDossierCode").DanReturn(DossierCode)
+	Do ProductMock.VerwachtMethodCall("GeefFSCHout").DanReturn(FscClaim)
+	
+	Quit ProductMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefDnaCodeRepositoryMock">
+<FormalSpec>ToeleveringId:%String,SequentieNummer:%Integer,ProductId:%String,DnaCodeIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository</ReturnType>
+<Implementation><![CDATA[
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent", ToeleveringId, SequentieNummer, ProductId).DanReturn(DnaCodeIterator)
+	
+	Quit DnaCodeRepositoryMock
+]]></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>