Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71780 -r71781
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71780)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71781)
@@ -91,8 +91,10 @@
 	#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)
-	Set BatchData.Opties = ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator)
 	
+	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorBatch(Batch, Toelevering))
+	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
+	
 	While ToeleveringenIterator.HasNext() {		
 		Set ToeleveringId = ToeleveringenIterator.Next().GeefID()
 		Set Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId)
@@ -119,8 +121,9 @@
 		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.GenereerProductInfoOptiesVoorToelevering(Batch, Toelevering))
+		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorToelevering(Batch, Toelevering))
 		Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator))
+		
 		Do BatchDataLijst.Insert(BatchData)
 	}
 	
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OptieGeneratorFactory.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OptieGeneratorFactory.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OptieGeneratorFactory.cls.xml	(revision 71781)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OptieGeneratorFactory">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="MaakBatchInfoOptiesGenerator">
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.BatchInfoOptiesGenerator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.BatchInfoOptiesGenerator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="MaakToeleveringInfoOptiesGenerator">
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringInfoOptiesGenerator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringInfoOptiesGenerator).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71780 -r71781
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71780)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71781)
@@ -29,8 +29,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="AlgemeneInfoOptiesGenerator">
-<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.AlgemeneInfoOptiesGenerator</Type>
+<Property name="OptieGeneratorFactory">
+<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OptieGeneratorFactory</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 ..AlgemeneInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringInfoOptiesGenerator).%New()
+	Set ..OptieGeneratorFactory = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.OptieGeneratorFactory).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -69,14 +69,20 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GenereerProductInfoOptiesVoorToelevering">
+<Method name="GenereerAlgemeneInfoOptiesVoorToelevering">
 <FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
-<Implementation><![CDATA[	Quit ..AlgemeneInfoOptiesGenerator.GenereerOptiesVoorAlgemeneInfo(Batch, Toelevering)
+<Implementation><![CDATA[
+	#dim InfoOptiesGenerator As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringInfoOptiesGenerator = ..OptieGeneratorFactory.MaakToeleveringInfoOptiesGenerator()
+	Quit InfoOptiesGenerator.GenereerOptiesVoorAlgemeneInfo(Batch, Toelevering)
 ]]></Implementation>
 </Method>
 
-<Method name="GenereerProductInfoOptiesVoorBatch">
+<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)
+]]></Implementation>
 </Method>
 
 <Method name="GenereerOptiesVoorLadePerUitvoeringInfo">
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/BatchInfoOptiesGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/BatchInfoOptiesGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/BatchInfoOptiesGenerator.cls.xml	(revision 71781)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.BatchInfoOptiesGenerator">
+<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 AlgemeneInfoOptieObjective = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.AlgemeneInfoOptieObjective).%New()	
+	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
+	
+	While (ToeleveringIterator.HasNext()) {
+		Set Toelevering = ToeleveringIterator.Next()	
+		#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(.AlgemeneInfoOptieObjective, 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 AlgemeneInfoOptieObjective
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>