Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml	(revision 71429)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.ToeleveringProductInfoObjective">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AantalSpoelbakLades">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="AantalSifonLades">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="AantalSmalleLades">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml	(revision 71429)
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator">
+<Super>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator</Super>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AfbeeldingService">
+<Type>APPS.PM.Maatwerk.impl.AfbeeldingService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KenmerkenConverterLbx">
+<Type>APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Lbx</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProperyFilter">
+<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.PropertyFilter</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="",AfbeeldingService:APPS.PM.Maatwerk.impl.AfbeeldingService="",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 ..AfbeeldingService = $$$Inject(AfbeeldingService, ##class(APPS.PM.Maatwerk.impl.AfbeeldingService).%New())
+	Set ..KenmerkenConverterLbx = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Lbx).%New()
+	Set ..ProperyFilter = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.PropertyFilter).%New()
+	Set ..IngegevenKenmerkenTypeApi = $$$Inject(IngegevenKenmerkenTypeApi, ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenereerOptiesVoorLade">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set Opties = ##class(%ListOfObjects).%New()
+	#dim ToeleveringProductInfoVoorObjective As APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.ToeleveringProductInfoObjective = ..GeefToeleveringProductInfoVoorObjective(Toelevering)
+	
+	Do Opties.Insert(..GeefOptieVoorToelevering("AantalSifonLades", ToeleveringProductInfoVoorObjective.AantalSifonLades))
+	Do Opties.Insert(..GeefOptieVoorToelevering("AantalSpoelbakLades", ToeleveringProductInfoVoorObjective.AantalSpoelbakLades))
+	Do Opties.Insert(..GeefOptieVoorToelevering("AantalSmalleLades", ToeleveringProductInfoVoorObjective.AantalSmalleLades))
+	
+	Quit Opties
+]]></Implementation>
+</Method>
+
+<Method name="GeefToeleveringProductInfoVoorObjective">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.ToeleveringProductInfoObjective</ReturnType>
+<Implementation><![CDATA[
+	Set ToeleveringProductInfoObjective = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.ToeleveringProductInfoObjective).%New()
+	#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+	
+	While (ProductLijnIterator.HasNext()) {
+		#dim Aantal As %Integer
+		#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+		Try {
+			#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductLijn.GeefProductID())
+			
+			If (Product.%Extends("DOM.PM.LBXProduct.LBXLade")) {
+				Set Aantal = ProductLijn.GeefAantal()
+				
+				#dim LBXLade As DOM.PM.LBXProduct.LBXLade = Product 
+				#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = LBXLade.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
+				}
+			}
+		} 
+		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/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71426 -r71429
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71426)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71429)
@@ -78,6 +78,9 @@
 	Set ProductOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New()
 	Do ##class(TECH.ListUtils).AppendList(Opties, ProductOptiesGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo))
 	
+	Set ToeleveringProductInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator).%New()
+	Do ##class(TECH.ListUtils).AppendList(Opties, ToeleveringProductInfoOptiesGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo))
+	
 	Quit Opties
 ]]></Implementation>
 </Method>