Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml
===================================================================
diff -u -r71483 -r71684
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml	(.../ToeleveringProductInfoObjective.cls.xml)	(revision 71483)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/ToeleveringProductInfoObjective.cls.xml	(.../ToeleveringProductInfoObjective.cls.xml)	(revision 71684)
@@ -17,10 +17,6 @@
 <Type>%Integer</Type>
 <InitialExpression>0</InitialExpression>
 </Property>
-
-<Property name="AantallenPerRol">
-<Type>TECH.KeyValue.UniqueList</Type>
-</Property>
 </Class>
 
 
FishEye: Tag 71684 refers to a dead (removed) revision in file `APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGeneratorLbx.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringAantalRollenOptiesGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringAantalRollenOptiesGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringAantalRollenOptiesGenerator.cls.xml	(revision 71684)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringAantalRollenOptiesGenerator">
+<Super>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator</Super>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.ProductAPI=""</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())
+	
+	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 AantallenPerRol As TECH.KeyValue.UniqueList = ..GeefAantallenPerRol(Toelevering)	
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorAantallenPerRol(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="GeefAantallenPerRol">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.KeyValue.UniqueList</ReturnType>
+<Implementation><![CDATA[
+	Set 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 ..BepaalAantallenVoorProduct(.AantallenPerRol, 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 AantallenPerRol
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAantallenVoorProduct">
+<FormalSpec><![CDATA[&AantallenPerRol:TECH.KeyValue.UniqueList,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 LbxProduct As DOM.PM.LBXProduct.LBXLade = Product
+		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = LbxProduct.GeefIngegevenKenmerken()
+		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = LbxProduct.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, IngegevenKenmerken)
+				#dim Aantal As %String = ProductLijn.GeefAantal() * HalffabItem.GeefAantal()
+				
+				#dim KeyValuePair As TECH.KeyValuePair = AantallenPerRol.FindByKey(Naam)
+				If ($IsObject(KeyValuePair)) {
+					Set Aantal = KeyValuePair.Value + Aantal
+					Do AantallenPerRol.RemoveByKey(Naam)
+					Do AantallenPerRol.InsertKeyValue(Naam, Aantal)
+				} Else {
+					Do AantallenPerRol.InsertKeyValue(Naam, Aantal)
+				}
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71524 -r71684
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71524)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71684)
@@ -34,7 +34,7 @@
 	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 = ..GeefToeleveringProductInfoOptiesGenerator()
+	Set ..ToeleveringProductInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -47,13 +47,6 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
-<Method name="GeefToeleveringProductInfoOptiesGenerator">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
-
 <Method name="VerwerkUitvoeringInfoLijst">
 <FormalSpec>Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.UitvoeringResultaat</ReturnType>
@@ -105,23 +98,33 @@
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData</ReturnType>
 <Implementation><![CDATA[
 	#dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerBatchDataVoorToelevering(Batch, Toelevering, IndexToelevering)
-	Set BatchData.Opties = ##class(%ListOfObjects).%New()
+	Set BatchData.Opties = ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator)
 	
-	Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..ToeleveringProductInfoOptiesGenerator.GenereerOptiesVoorLade(Toelevering))				
+	Quit BatchData
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiesVoorToelevering">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,UitvoeringInfoLijstIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<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()
 		
 		If (UitvoeringInfo.ToeleveringID = Toelevering.GeefID()) {
 			#dim OptiesVoorAlleLades As %ListOfObjects = ..BatchNaarObjectiveDataGenerator.GenereerOptiesVoorLadePerUitvoeringInfo(Toelevering, UitvoeringInfo)
 			
-			Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, OptiesVoorAlleLades)
+			Do ##class(TECH.ListUtils).AppendList(Opties, OptiesVoorAlleLades)
 		}
 	}
 	
 	Do UitvoeringInfoLijstIterator.Reset()
 	
-	Quit BatchData
+	Quit Opties
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml
===================================================================
diff -u -r71502 -r71684
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71502)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml	(.../BatchNaarObjective.cls.xml)	(revision 71684)
@@ -9,13 +9,6 @@
 <Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.BatchNaarObjectiveDataGeneratorLbx).%New()
 ]]></Implementation>
 </Method>
-
-<Method name="GeefToeleveringProductInfoOptiesGenerator">
-<Private>1</Private>
-<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGeneratorLbx).%New()
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml
===================================================================
diff -u -r71483 -r71684
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml	(.../ToeleveringProductInfoOptiesGenerator.cls.xml)	(revision 71483)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml	(.../ToeleveringProductInfoOptiesGenerator.cls.xml)	(revision 71684)
@@ -1,45 +1,26 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator">
-<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="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>
+<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 ..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
@@ -56,43 +37,24 @@
 	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.common.BatchNaarObjective.ToeleveringProductInfoObjective</ReturnType>
 <Implementation><![CDATA[
 	Set ToeleveringProductInfoObjective = ##class(APPS.Halux.PPS.Document.impl.common.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 ..BepaalAantalSpecialeLades(.ToeleveringProductInfoObjective, ProductLijn)
-			Do ..BepaalAantallenPerRol(.ToeleveringProductInfoObjective, ProductLijn)		
 		} 
 		Catch {
 			#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -111,11 +73,11 @@
 <Implementation><![CDATA[
 	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(ProductLijn.GeefProductID())
 	
-	If (Product.%Extends("DOM.PM.LBXProduct.LBXLade")) {
+	If (Product.%Extends("DOM.PM.MaatwerkProduct")) {
 		#dim Aantal As %Integer = ProductLijn.GeefAantal()
 		
-		#dim LBXLade As DOM.PM.LBXProduct.LBXLade = Product 
-		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = LBXLade.GeefIngegevenKenmerken()
+		#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
@@ -131,44 +93,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="BepaalAantallenPerRol">
-<FormalSpec><![CDATA[&ToeleveringProductInfoObjective:APPS.Halux.PPS.Document.impl.common.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 LbxProduct As DOM.PM.LBXProduct.LBXLade = Product
-		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = LbxProduct.GeefIngegevenKenmerken()
-		#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = LbxProduct.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, IngegevenKenmerken)
-				#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="GeefLadeVariant">
-<Abstract>1</Abstract>
-<Private>1</Private>
-<ReturnType>DOM.PM.enu.LadeVariant</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
-</Method>
 </Class>