Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml
===================================================================
diff -u -r71429 -r71430
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml	(.../ToeleveringProductInfoOptiesGenerator.cls.xml)	(revision 71429)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ToeleveringProductInfoOptiesGenerator.cls.xml	(.../ToeleveringProductInfoOptiesGenerator.cls.xml)	(revision 71430)
@@ -69,29 +69,10 @@
 	#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
-				}
-			}
+			Do ..BepaalIsSpecialeLade(.ToeleveringProductInfoObjective, ProductLijn)
+						
 		} 
 		Catch {
 			#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -104,6 +85,32 @@
 	Quit ToeleveringProductInfoObjective
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalIsSpecialeLade">
+<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 Aantal As %Integer = 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
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>