FishEye: Tag 71782 refers to a dead (removed) revision in file `APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/BatchInfoOptiesGenerator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 71782 refers to a dead (removed) revision in file `APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringInfoOptiesGenerator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator.cls.xml
===================================================================
diff -u -r71780 -r71782
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator.cls.xml	(.../AlgemeneInfoOptiesGenerator.cls.xml)	(revision 71780)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator.cls.xml	(.../AlgemeneInfoOptiesGenerator.cls.xml)	(revision 71782)
@@ -1,7 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator">
-<Abstract>1</Abstract>
 <Super>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator</Super>
 
 <Property name="ProductApi">
@@ -28,12 +27,39 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GenereerOptiesVoorAlgemeneInfo">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Method name="GenereerAlgemeneOptiesVoorBatch">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
+	Set AlgemeneInfoOptieObjective = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective).%New()
+	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	
+	While (ToeleveringIterator.HasNext()) {		
+		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()	
+		Do ..BepaalAlgemeneInfoVoorToelevering(.AlgemeneInfoOptieObjective, Toelevering)
+	}
+	
+	Quit ..GeefAlgemeneOpties(AlgemeneInfoOptieObjective)
+]]></Implementation>
+</Method>
+
+<Method name="GenereerAlgemeneOptiesVoorToelevering">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set AlgemeneInfoOptieObjective = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective).%New()
+	Do ..BepaalAlgemeneInfoVoorToelevering(.AlgemeneInfoOptieObjective, Toelevering)
+	
+	Quit ..GeefAlgemeneOpties(AlgemeneInfoOptieObjective)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAlgemeneOpties">
+<FormalSpec>AlgemeneInfoOptieObjective:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
 	Set Opties = ##class(%ListOfObjects).%New()
-	#dim AlgemeneInfoOptieObjective As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective = ..GeefAlgemeneInfoVoorObjective(Batch, Toelevering)
 	
 	Do Opties.Insert(..GeefOptieVoorToelevering("Aantalsifonlades", AlgemeneInfoOptieObjective.AantalSifonLades))
 	Do Opties.Insert(..GeefOptieVoorToelevering("Aantalspoelbaklades", AlgemeneInfoOptieObjective.AantalSpoelbakLades))
@@ -43,11 +69,27 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAlgemeneInfoVoorObjective">
-<Abstract>1</Abstract>
-<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Method name="BepaalAlgemeneInfoVoorToelevering">
+<FormalSpec><![CDATA[&ToeleveringProductInfoObjective:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective,Toelevering:DOM.AKP.Toelevering]]></FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+	
+	While (ProductLijnIterator.HasNext()) {
+		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+		
+		Try {
+			Do ..BepaalAantalSpecialeLades(.ToeleveringProductInfoObjective, ProductLijn)
+		} 
+		Catch {
+			#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Set NewException = ##class(TECH.Exceptions.GeneralErrorException).%New("Fout bij GeefToeleveringProductInfoVoorObjective voor Toelevering '"_Toelevering.GeefID() _"' en Product ID '"_ProductLijn.GeefProductID()_"'.")
+			Do NewException.VoegToeInnerExceptie(GecatchteException)
+			Do ##class(TECH.ExceptionHandler).Throw(NewException)
+		}
+	}
+]]></Implementation>
 </Method>
 
 <Method name="BepaalAantalSpecialeLades">
FishEye: Tag 71782 refers to a dead (removed) revision in file `APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OptieGeneratorFactory.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71781 -r71782
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71781)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71782)
@@ -29,8 +29,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="OptieGeneratorFactory">
-<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OptieGeneratorFactory</Type>
+<Property name="AlgemeneInfoOptiesGenerator">
+<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator</Type>
 <Private>1</Private>
 </Property>
 
@@ -45,7 +45,7 @@
 	Set ..SequentieOptieGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.SequentieOptiesGenerator).%New()
 	Set ..ProductOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New()
 	Set ..IngegevenKenmerkenOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.IngegevenKenmerkenOptiesGenerator).%New()
-	Set ..OptieGeneratorFactory = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OptieGeneratorFactory).%New()
+	Set ..AlgemeneInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -70,18 +70,16 @@
 </Method>
 
 <Method name="GenereerAlgemeneInfoOptiesVoorToelevering">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
-<Implementation><![CDATA[
-	#dim InfoOptiesGenerator As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringInfoOptiesGenerator = ..OptieGeneratorFactory.MaakToeleveringInfoOptiesGenerator()
-	Quit InfoOptiesGenerator.GenereerOptiesVoorAlgemeneInfo(Batch, Toelevering)
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ..AlgemeneInfoOptiesGenerator.GenereerAlgemeneOptiesVoorToelevering(Toelevering)
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerAlgemeneInfoOptiesVoorBatch">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
-<Implementation><![CDATA[
-	#dim InfoOptiesGenerator As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.BatchInfoOptiesGenerator = ..OptieGeneratorFactory.MaakBatchInfoOptiesGenerator()
-	Quit InfoOptiesGenerator.GenereerOptiesVoorAlgemeneInfo(Batch, Toelevering)
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ..AlgemeneInfoOptiesGenerator.GenereerAlgemeneOptiesVoorBatch(Batch)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71781 -r71782
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71781)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71782)
@@ -87,12 +87,13 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set BatchDataLijst = ##class(%ListOfObjects).%New()
+	
 	#dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
 	#dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID()
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
 	#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorBatch(Batch, Toelevering, 1)
 	
-	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorBatch(Batch, Toelevering))
+	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorBatch(Batch))
 	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
 	
 	While ToeleveringenIterator.HasNext() {		
@@ -103,6 +104,7 @@
 	}
 	
 	Do BatchDataLijst.Insert(BatchData)
+	
 	Quit BatchDataLijst
 ]]></Implementation>
 </Method>
@@ -121,7 +123,7 @@
 		Set IndexToelevering = IndexToelevering + 1
 		
 		#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorToelevering(Batch, Toelevering, IndexToelevering)
-		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorToelevering(Batch, Toelevering))
+		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorToelevering(Toelevering))
 		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
 		
 		Do BatchDataLijst.Insert(BatchData)
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator/GenereerAlgemeneOptiesVoorToelevering/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator/GenereerAlgemeneOptiesVoorToelevering/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator/GenereerAlgemeneOptiesVoorToelevering/Test.cls.xml	(revision 71782)
@@ -0,0 +1,172 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator.GenereerAlgemeneOptiesVoorToelevering.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Wanneer er geen speciale lades aanwezig zijn, zal het aantal ook gelijk zijn aan 0">
+<Implementation><![CDATA[
+	#dim ProductToeleveringLijn1 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(111111, 1)
+	#dim ProductToeleveringLijn2 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(222222, 2)
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(ProductToeleveringLijn1, ProductToeleveringLijn2)
+	
+	#dim LbxLegeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	#dim ProductMock As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
+	
+	Set IngegevenKenmerkenTypeAPIMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSpoelbaklade", LbxLegeKenmerken).DanReturn($$$False)
+	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSifonlade", LbxLegeKenmerken).DanReturn($$$False)
+	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSmalleLade", LbxLegeKenmerken).DanReturn($$$False)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", 111111).DanReturn(ProductMock)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", 222222).DanReturn(ProductMock)
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New(ProductApiMock, IngegevenKenmerkenTypeAPIMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorToelevering(ToeleveringMock)
+	
+	Do $$$AssertEquals(Resultaat.Size, 3)
+	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "Aantalsifonlades", 0)
+	Do ..AssertOptie(Resultaat.GetAt(2), "_TOELEVERING", "Aantalspoelbaklades", 0)
+	Do ..AssertOptie(Resultaat.GetAt(3), "_TOELEVERING", "Aantalsmallelades", 0)
+	
+	Do ToeleveringMock.Verifieer()
+	Do ProductMock.Verifieer()
+	Do ProductApiMock.Verifieer()
+	Do IngegevenKenmerkenTypeAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Meerdere sifonlades aanwezig -&gt; Optie geeft aan hoeveel er in totaal zijn">
+<Implementation><![CDATA[
+	#dim ProductToeleveringLijn1 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(111111, 1)
+	#dim ProductToeleveringLijn2 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(222222, 2)
+	#dim ProductToeleveringLijn3 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(333333, 3)
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(ProductToeleveringLijn1, ProductToeleveringLijn2, ProductToeleveringLijn3)
+	
+	#dim LbxLegeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	#dim ProductMock1 As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
+	#dim ProductMock2 As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
+	#dim ProductMock3 As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxLegeKenmerken)
+	
+	Set IngegevenKenmerkenTypeAPIMock = ##class(vhTest.Mock.DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI).%New()
+	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSpoelbaklade", LbxLegeKenmerken).DanReturn($$$False)
+	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSifonlade", LbxLegeKenmerken).DanReturn($$$True)
+	Do IngegevenKenmerkenTypeAPIMock.VerwachtMethodCall("IsSmalleLade", LbxLegeKenmerken).DanReturn($$$False)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", 111111).DanReturn(ProductMock1)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", 222222).DanReturn(ProductMock2)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", 333333).DanReturn(ProductMock3)
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New(ProductApiMock, IngegevenKenmerkenTypeAPIMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorToelevering(ToeleveringMock)
+	
+	Do $$$AssertEquals(Resultaat.Size, 3)
+	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "Aantalsifonlades", 6)
+	Do ..AssertOptie(Resultaat.GetAt(2), "_TOELEVERING", "Aantalspoelbaklades", 0)
+	Do ..AssertOptie(Resultaat.GetAt(3), "_TOELEVERING", "Aantalsmallelades", 0)
+	
+	Do ToeleveringMock.Verifieer()
+	Do ProductMock1.Verifieer()
+	Do ProductMock2.Verifieer()
+	Do ProductMock3.Verifieer()
+	Do ProductApiMock.Verifieer()
+	Do IngegevenKenmerkenTypeAPIMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Meerdere sifonlades, spoelbaklades en smalle lades aanwezig -&gt; Opties geven aan hoeveel er zijn">
+<Implementation><![CDATA[
+	#dim ProductToeleveringLijn1 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(111111, 1)
+	#dim ProductToeleveringLijn2 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(222222, 2)
+	#dim ProductToeleveringLijn3 As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ..GeefProductLijnStub(333333, 3)
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ..GeefToeleveringMock(ProductToeleveringLijn1, ProductToeleveringLijn2, ProductToeleveringLijn3)
+	
+	#dim LbxSifonLadeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardSifonLade()
+	#dim LbxSpoelbakLadeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardSpoelbakLade()
+	#dim LbxSmalleLadeKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).SmalleLade()
+	
+	#dim ProductMockSifon As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxSifonLadeKenmerken)
+	#dim ProductMockSpoelbak As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxSpoelbakLadeKenmerken)
+	#dim ProductMockSmal As vhTest.Mock.DOM.PM.LBXProduct.LBXLade = ..GeefProductMock(LbxSmalleLadeKenmerken)
+	
+	Set ProductApiMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", 111111).DanReturn(ProductMockSifon)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", 222222).DanReturn(ProductMockSpoelbak)
+	Do ProductApiMock.VerwachtMethodCall("GeefProduct", 333333).DanReturn(ProductMockSmal)
+	
+	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator).%New(ProductApiMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerAlgemeneOptiesVoorToelevering(ToeleveringMock)
+	
+	Do $$$AssertEquals(Resultaat.Size, 3)
+	Do ..AssertOptie(Resultaat.GetAt(1), "_TOELEVERING", "Aantalsifonlades", 1)
+	Do ..AssertOptie(Resultaat.GetAt(2), "_TOELEVERING", "Aantalspoelbaklades", 2)
+	Do ..AssertOptie(Resultaat.GetAt(3), "_TOELEVERING", "Aantalsmallelades", 3)
+	
+	Do ToeleveringMock.Verifieer()
+	Do ProductMockSifon.Verifieer()
+	Do ProductMockSpoelbak.Verifieer()
+	Do ProductMockSmal.Verifieer()
+	Do ProductApiMock.Verifieer()
+]]></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="GeefProductMock">
+<FormalSpec>LbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.PM.LBXProduct.LBXLade</ReturnType>
+<Implementation><![CDATA[
+	Set ProductMock = ##class(vhTest.Mock.DOM.PM.LBXProduct.LBXLade).%New()
+	Do ProductMock.VerwachtMethodCall("GeefIngegevenKenmerken").DanReturn(LbxKenmerken)
+	
+	Quit ProductMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductLijnStub">
+<FormalSpec>ProductId:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.AKP.ProductToeleveringLijn</ReturnType>
+<Implementation><![CDATA[
+	Set ProductLijnStub = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
+	Do ProductLijnStub.IndienMethodCall("GeefProductID").DanReturn(ProductId)
+	Do ProductLijnStub.IndienMethodCall("GeefAantal").DanReturn(Aantal)
+	
+	Quit ProductLijnStub
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringMock">
+<FormalSpec>ProductToeleveringLijn...:vhTest.Mock.DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.AKP.Toelevering</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Set ProductLijnen = ##class(%ListOfObjects).%New()
+	#dim ProductToeleveringLijnIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes(.ProductToeleveringLijn))
+	
+	While ProductToeleveringLijnIterator.HasNext() {
+		#dim ProductLijn As vhTest.Mock.DOM.AKP.ProductToeleveringLijn = ProductToeleveringLijnIterator.Next()
+		Do ProductLijnen.Insert(ProductLijn)
+	}
+	
+	Set ProductLijnIterator = ##class(TECH.ListIterator).%New(ProductLijnen)
+	Do ToeleveringMock.VerwachtMethodCall("GeefTypeToeleveringLijnIterator",##class(DOM.AKP.enu.ToeleveringLijnType).Product()).DanReturn(ProductLijnIterator)
+	
+	Quit ToeleveringMock
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 71782 refers to a dead (removed) revision in file `vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringInfoOptiesGenerator/GenereerOptiesVoorAlgemeneInfo/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?