Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringInfoOptiesGenerator/GenereerOptiesVoorAlgemeneInfo/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringInfoOptiesGenerator/GenereerOptiesVoorAlgemeneInfo/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringInfoOptiesGenerator/GenereerOptiesVoorAlgemeneInfo/Test.cls.xml	(revision 71780)
@@ -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.ToeleveringInfoOptiesGenerator.GenereerOptiesVoorAlgemeneInfo.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.ToeleveringInfoOptiesGenerator).%New(ProductApiMock, IngegevenKenmerkenTypeAPIMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorAlgemeneInfo("",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.ToeleveringInfoOptiesGenerator).%New(ProductApiMock, IngegevenKenmerkenTypeAPIMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorAlgemeneInfo("",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.ToeleveringInfoOptiesGenerator).%New(ProductApiMock)
+	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorAlgemeneInfo("",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>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71777 -r71780
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71777)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71780)
@@ -19,11 +19,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ToeleveringProductInfoOptiesGenerator">
-<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI="",BatchNaarObjectiveDataGenerator:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.BatchNaarObjectiveDataGenerator=""</FormalSpec>
 <Private>1</Private>
@@ -34,7 +29,6 @@
 	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
 	Set ..BatchNaarObjectiveDataGenerator = $$$Inject(BatchNaarObjectiveDataGenerator, ..GeefBatchNaarObjectiveDataGenerator())
 	Set ..MESService = ##class(APPS.Halux.PPS.MES.MESService).%New()
-	Set ..ToeleveringProductInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -125,7 +119,8 @@
 		Set IndexToelevering = IndexToelevering + 1
 		
 		#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorToelevering(Batch, Toelevering, IndexToelevering)
-		Set BatchData.Opties = ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator)
+		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerProductInfoOptiesVoorToelevering(Batch, Toelevering))
+		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
 		Do BatchDataLijst.Insert(BatchData)
 	}
 	
@@ -139,8 +134,6 @@
 <Implementation><![CDATA[
 	Set Opties = ##class(%ListOfObjects).%New()
 	
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..ToeleveringProductInfoOptiesGenerator.GenereerOptiesVoorLade(Toelevering))				
-	
 	While (UitvoeringInfoLijstIterator.HasNext()) {
 		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijstIterator.Next()
 				
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml
===================================================================
diff -u -r71684 -r71780
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml	(.../ToeleveringProductInfoObjective.cls.xml)	(revision 71684)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml	(.../AlgemeneInfoOptieObjective.cls.xml)	(revision 71780)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
-<Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.ToeleveringProductInfoObjective">
+<Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective">
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="AantalSpoelbakLades">
FishEye: Tag 71780 refers to a dead (removed) revision in file `APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringInfoOptiesGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringInfoOptiesGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringInfoOptiesGenerator.cls.xml	(revision 71780)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringInfoOptiesGenerator">
+<Super>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator</Super>
+
+<Method name="GeefAlgemeneInfoVoorObjective">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringProductInfoObjective = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective).%New()
+	#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)
+		}
+	}
+	
+	Quit ToeleveringProductInfoObjective
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AlgemeneInfoOptiesGenerator.cls.xml	(revision 71780)
@@ -0,0 +1,82 @@
+<?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">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenTypeApi">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.ProductAPI="",IngegevenKenmerkenTypeApi:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..IngegevenKenmerkenTypeApi = $$$Inject(IngegevenKenmerkenTypeApi, ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenereerOptiesVoorAlgemeneInfo">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<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))
+	Do Opties.Insert(..GeefOptieVoorToelevering("Aantalsmallelades", AlgemeneInfoOptieObjective.AantalSmalleLades))
+	
+	Quit Opties
+]]></Implementation>
+</Method>
+
+<Method name="GeefAlgemeneInfoVoorObjective">
+<Abstract>1</Abstract>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective</ReturnType>
+</Method>
+
+<Method name="BepaalAantalSpecialeLades">
+<FormalSpec><![CDATA[&ToeleveringProductInfoObjective:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective,ProductLijn:DOM.AKP.ProductToeleveringLijn]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductLijn.GeefProductID())
+	
+	If (Product.%Extends("DOM.PM.MaatwerkProduct")) {
+		#dim Aantal As %Integer = ProductLijn.GeefAantal()
+		
+		#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = Product 
+		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = MaatwerkProduct.GeefIngegevenKenmerken()
+		
+		If (..IngegevenKenmerkenTypeApi.IsSpoelbaklade(IngegevenKenmerken)) {
+			Set ToeleveringProductInfoObjective.AantalSpoelbakLades = ToeleveringProductInfoObjective.AantalSpoelbakLades + Aantal
+		}
+		
+		If (..IngegevenKenmerkenTypeApi.IsSifonlade(IngegevenKenmerken)) {
+			Set ToeleveringProductInfoObjective.AantalSifonLades = ToeleveringProductInfoObjective.AantalSifonLades + Aantal
+		}
+		
+		If ..IngegevenKenmerkenTypeApi.IsSmalleLade(IngegevenKenmerken) {
+			Set ToeleveringProductInfoObjective.AantalSmalleLades = ToeleveringProductInfoObjective.AantalSmalleLades + Aantal
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71777 -r71780
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71777)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71780)
@@ -29,6 +29,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AlgemeneInfoOptiesGenerator">
+<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -40,6 +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 ..AlgemeneInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringInfoOptiesGenerator).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -63,6 +69,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GenereerProductInfoOptiesVoorToelevering">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Implementation><![CDATA[	Quit ..AlgemeneInfoOptiesGenerator.GenereerOptiesVoorAlgemeneInfo(Batch, Toelevering)
+]]></Implementation>
+</Method>
+
+<Method name="GenereerProductInfoOptiesVoorBatch">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+</Method>
+
 <Method name="GenereerOptiesVoorLadePerUitvoeringInfo">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
FishEye: Tag 71780 refers to a dead (removed) revision in file `APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 71780 refers to a dead (removed) revision in file `vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?