Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml
===================================================================
diff -u -r74501 -r74613
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml	(.../RollenEnStuklijstOptiesGenerator.cls.xml)	(revision 74501)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml	(.../RollenEnStuklijstOptiesGenerator.cls.xml)	(revision 74613)
@@ -58,17 +58,7 @@
 		#dim IsRolLbxIngebrepenAfdekkapBinnen As %Boolean = ((HalffabItem.%ClassName() [ "InbegrepenHalffabItem") && (HalffabItem.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBinnen()) && (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()))
 		#dim IsRolLbxIngebrepenAfdekkapBuiten As %Boolean = ((HalffabItem.%ClassName() [ "InbegrepenHalffabItem") && (HalffabItem.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBuiten()) && (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()))
 		
-		If (IsRolLbxIngebrepenAfdekkapBinnen || IsRolLbxIngebrepenAfdekkapBuiten) {
-			If (IsRolLbxIngebrepenAfdekkapBinnen) {
-				Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabAfdekkapBinnen).%New(..GeefAfdekkapBinnen("LBX", IngegevenKenmerken.LadeHoogte, IngegevenKenmerken.LadeKleur, KlantId))
-				Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBinnen(), Halffab)
-			} Else {
-				Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabAfdekkapBuiten).%New(..GeefAfdekkapBuiten("LBX", IngegevenKenmerken.LadeKleur, KlantId))
-				Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBuiten(), Halffab)
-			}
-			
-			Do HalffabItem.ZetAantal(2)
-		}
+		Do ..FixHalffabItemVoorInbegrepenAfdekkappen(.HalffabItem, Batch, IngegevenKenmerken, KlantId)
 		
 		If (($$$Not(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem"))) && ($$$Not(HalffabItem.%ClassName() [ "InbegrepenHalffabItem"))) {
 			If ($$$Not(IsRolTbxStabilisatorStang) ||  (IsRolTbxStabilisatorStang && (HuidigeMESFase > 1))) {
@@ -89,6 +79,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="FixHalffabItemVoorInbegrepenAfdekkappen">
+<FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,Batch:APPS.Halux.common.Batch,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,KlantId:%String]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim IsRolLbxIngebrepenAfdekkapBinnen As %Boolean = ((HalffabItem.%ClassName() [ "InbegrepenHalffabItem") && (HalffabItem.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBinnen()) && (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()))
+	#dim IsRolLbxIngebrepenAfdekkapBuiten As %Boolean = ((HalffabItem.%ClassName() [ "InbegrepenHalffabItem") && (HalffabItem.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBuiten()) && (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()))
+	
+	If (IsRolLbxIngebrepenAfdekkapBinnen || IsRolLbxIngebrepenAfdekkapBuiten) {
+		If (IsRolLbxIngebrepenAfdekkapBinnen) {
+			Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabAfdekkapBinnen).%New(..GeefAfdekkapBinnen("LBX", IngegevenKenmerken.LadeHoogte, IngegevenKenmerken.LadeKleur, KlantId))
+			Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBinnen(), Halffab)
+		} Else {
+			Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabAfdekkapBuiten).%New(..GeefAfdekkapBuiten("LBX", IngegevenKenmerken.LadeKleur, KlantId))
+			Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBuiten(), Halffab)
+		}
+		
+		Do HalffabItem.ZetAantal(2)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeExtraBouwstenen">
 <FormalSpec><![CDATA[&Opties:%ListOfObjects,ProductID:%String,SequentieNummerLade:%String,Index:%Integer]]></FormalSpec>
 <Implementation><![CDATA[