Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml
===================================================================
diff -u -r71430 -r71436
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml	(.../ToeleveringProductInfoOptiesGenerator.cls.xml)	(revision 71430)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml	(.../ToeleveringProductInfoOptiesGenerator.cls.xml)	(revision 71436)
@@ -55,24 +55,43 @@
 	Do Opties.Insert(..GeefOptieVoorToelevering("AantalSifonLades", ToeleveringProductInfoVoorObjective.AantalSifonLades))
 	Do Opties.Insert(..GeefOptieVoorToelevering("AantalSpoelbakLades", ToeleveringProductInfoVoorObjective.AantalSpoelbakLades))
 	Do Opties.Insert(..GeefOptieVoorToelevering("AantalSmalleLades", ToeleveringProductInfoVoorObjective.AantalSmalleLades))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorAantallenPerRol(ToeleveringProductInfoVoorObjective.AantallenPerRol))
 	
 	Quit Opties
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOptiesVoorAantallenPerRol">
+<FormalSpec>AantallenPerRol:TECH.KeyValue.UniqueList</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set OptiesVoorAantallenPerRol = ##class(%ListOfObjects).%New() 
+	#dim i As %Integer
+	
+	For i=1:1:AantallenPerRol.Count() {
+		#dim AantalPerRol As TECH.KeyValuePair = AantallenPerRol.GetAt(i)
+		Do OptiesVoorAantallenPerRol.Insert(..GeefOptieVoorToelevering("ROL-" _ AantalPerRol.Key, AantalPerRol.Value))
+	}
+	
+	Quit OptiesVoorAantallenPerRol
+]]></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()
+	Set ToeleveringProductInfoObjective.AantallenPerRol = ##class(TECH.KeyValue.UniqueList).%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 ..BepaalIsSpecialeLade(.ToeleveringProductInfoObjective, ProductLijn)
-						
+			Do ..BepaalAantalSpecialeLades(.ToeleveringProductInfoObjective, ProductLijn)
+			Do ..BepaalAantallenPerRol(.ToeleveringProductInfoObjective, ProductLijn)		
 		} 
 		Catch {
 			#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -86,7 +105,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalIsSpecialeLade">
+<Method name="BepaalAantalSpecialeLades">
 <FormalSpec><![CDATA[&ToeleveringProductInfoObjective:APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.ToeleveringProductInfoObjective,ProductLijn:DOM.AKP.ProductToeleveringLijn]]></FormalSpec>
 <Implementation><![CDATA[
 	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductLijn.GeefProductID())
@@ -111,6 +130,57 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalAantallenPerRol">
+<FormalSpec><![CDATA[&ToeleveringProductInfoObjective:APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.ToeleveringProductInfoObjective,ProductLijn:DOM.AKP.ProductToeleveringLijn]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductLijn.GeefProductID())
+	
+	If (Product.%Extends("DOM.PM.LBXProduct.LBXLade")) {		
+		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
+		#dim HalffabItemsIterator As TECH.Iterator = HalffabItemsBoom.GeefAlleHalffabItemsIterator()
+		
+		While (HalffabItemsIterator.HasNext()) {
+			#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsIterator.Next()
+			If $$$Not(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")) {
+				#dim Naam As %String = ..GeefRolNaam(HalffabItem)
+				#dim Aantal As %String = ProductLijn.GeefAantal()
+				
+				#dim KeyValuePair As TECH.KeyValuePair = ToeleveringProductInfoObjective.AantallenPerRol.FindByKey(Naam)
+				If ($IsObject(KeyValuePair)) {
+					Set Aantal = KeyValuePair.Value + Aantal
+					Do ToeleveringProductInfoObjective.AantallenPerRol.RemoveByKey(Naam)
+					Do ToeleveringProductInfoObjective.AantallenPerRol.InsertKeyValue(Naam, Aantal)
+				} Else {
+					Do ToeleveringProductInfoObjective.AantallenPerRol.InsertKeyValue(Naam, Aantal)
+				}
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefRolNaam">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim RolNaam As %String = HalffabItem.GeefRol()
+
+	If $$$Not(HalffabItem.ParentItem.GeefRol() = ..GeefLadeVariant()) {
+		Set RolNaam = HalffabItem.ParentItem.GeefRol() _ "." _ RolNaam
+	}
+	
+	Quit RolNaam
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVariant">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.LadeVariant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.LadeVariant).LBXPure()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml
===================================================================
diff -u -r71429 -r71436
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml	(.../ToeleveringProductInfoObjective.cls.xml)	(revision 71429)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml	(.../ToeleveringProductInfoObjective.cls.xml)	(revision 71436)
@@ -17,6 +17,10 @@
 <Type>%Integer</Type>
 <InitialExpression>0</InitialExpression>
 </Property>
+
+<Property name="AantallenPerRol">
+<Type>TECH.KeyValue.UniqueList</Type>
+</Property>
 </Class>