Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator.cls.xml
===================================================================
diff -u -r71932 -r74483
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator.cls.xml	(.../AantalRollenOptiesGenerator.cls.xml)	(revision 71932)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/AantalRollenOptiesGenerator.cls.xml	(.../AantalRollenOptiesGenerator.cls.xml)	(revision 74483)
@@ -107,7 +107,7 @@
 		While (HalffabItemsIterator.HasNext()) {
 			#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsIterator.Next()
 			
-			If ..MagHalffabItemToegevoegdWorden(HalffabItem, NietMeeleverenLijst) {
+			If ..MagHalffabItemToegevoegdWorden(HalffabItem, NietMeeleverenLijst, IngegevenKenmerken.GeefVariant()) {
 				#dim Naam As %String = ..GeefRolNaam(HalffabItem, IngegevenKenmerken)
 				#dim Aantal As %String = ProductLijn.GeefAantal() * HalffabItem.GeefAantal()
 				
@@ -126,13 +126,20 @@
 </Method>
 
 <Method name="MagHalffabItemToegevoegdWorden">
-<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,NietMeeleverenLijst:%ListOfDataTypes</FormalSpec>
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,NietMeeleverenLijst:%ListOfDataTypes,Variant:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim MagToegevoegdWorden As %Boolean = $$$True
 	
 	Set:(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")) MagToegevoegdWorden = $$$False
 	Set:(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem")) MagToegevoegdWorden = $$$False
+	
+	If (Variant = ##class(DOM.PM.enu.Variant).LegraboxPure() && HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem")) {
+		If ##class(TECH.StringUtils).Equals(HalffabItem.GeefRol(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBinnen(), ##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).AfdekkapBuiten()) {
+			Set MagToegevoegdWorden = $$$True
+		}
+	}
+	
 	Set:(##class(TECH.ListUtils).Contains(NietMeeleverenLijst, HalffabItem.GeefRol())) MagToegevoegdWorden = $$$False
 	
 	Quit MagToegevoegdWorden
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml
===================================================================
diff -u -r74472 -r74483
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml	(.../RollenEnStuklijstOptiesGenerator.cls.xml)	(revision 74472)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml	(.../RollenEnStuklijstOptiesGenerator.cls.xml)	(revision 74483)
@@ -48,12 +48,28 @@
 	#dim HalffabItemsIterator As TECH.Iterator = HalffabItemsBoom.GeefAlleHalffabItemsIterator()	
 	#dim Index As %Integer = 0
 	#dim StalenRugPRNr As %String = ""
-	#dim ProductieLijn As %String = ..BatchService.GeefBatch(UitvoeringInfo.BatchID).GeefLijn()
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(UitvoeringInfo.BatchID)
+	#dim ProductieLijn As %String = Batch.GeefLijn()
+	#dim KlantId As %String = $Piece(Toelevering.GeefKlantID(), "K||",2)
 	
 	While (HalffabItemsIterator.HasNext()) {
 		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsIterator.Next()
 		#dim IsRolTbxStabilisatorStang As %Boolean = (HalffabItem.GeefRol() = ##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).StabilisatorStang())
+		#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)
+		}
+		
 		If (($$$Not(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem"))) && ($$$Not(HalffabItem.%ClassName() [ "InbegrepenHalffabItem"))) {
 			If ($$$Not(IsRolTbxStabilisatorStang) ||  (IsRolTbxStabilisatorStang && (HuidigeMESFase > 1))) {
 				If ($$$Not(HalffabItem.GeefAantal() = 0)) {
@@ -154,6 +170,62 @@
 	Quit BackSteelIsFastMover
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAfdekkapBinnen">
+<FormalSpec>Variant:%String,LadeHoogte:%String,Kleur:%String,KlantID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim PRNrAfdekkap As %String
+	#dim Datum = ##class(TECH.DateTime).%New().CurrentDateVoorQueries()
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName("DOM.PM.Maatwerk.Calc.HF.impl."_Variant_".Halffab.HalffabAfdekkapBinnen")
+	#dim SqlStatement As TECH.String = "SELECT ProductID FROM " _SqlTableName _" WHERE " _"(GeldigTot >= '"_Datum_"' or GeldigTot is null) and (GeldigVan <= '"_Datum_"' or GeldigVan is null) and LadeKleur = '"_Kleur_"' and LadeHoogte = '"_LadeHoogte_"' and Klantbeperking = '"_KlantID_"'"
+	
+	#dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement, $LB()))
+
+	If ResultSet.Next() {
+		Set PRNrAfdekkap = ResultSet.GetData(1)
+	} Else {
+		Set SqlStatement = "SELECT ProductID FROM " _SqlTableName _" WHERE " _"(GeldigTot >= '"_Datum_"' or GeldigTot is null) and (GeldigVan <= '"_Datum_"' or GeldigVan is null) and LadeKleur = '"_Kleur_"' and LadeHoogte = '"_LadeHoogte_"' and Klantbeperking is null"
+		Set ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement, $LB()))
+		If ResultSet.Next() {
+			Set PRNrAfdekkap = ResultSet.GetData(1)
+		} Else {
+			Do ##class(TECH.Exceptions.DataNotFoundException).Throw("Geen data gevonden voor "_SqlStatement_".")
+		}
+	}
+	
+	Quit PRNrAfdekkap
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfdekkapBuiten">
+<FormalSpec>Variant:%String,Kleur:%String,KlantID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim PRNrAfdekkap As %String
+	#dim Datum = ##class(TECH.DateTime).%New().CurrentDateVoorQueries()
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName("DOM.PM.Maatwerk.Calc.HF.impl."_Variant_".Halffab.HalffabAfdekkapBuiten")
+	#dim SqlStatement As TECH.String = "SELECT ProductID FROM " _SqlTableName _" WHERE " _"(GeldigTot >= '"_Datum_"' or GeldigTot is null) and (GeldigVan <= '"_Datum_"' or GeldigVan is null) and LadeKleur = '"_Kleur_"' and Klantbeperking = '"_KlantID_"'"
+	
+	#dim QueryAPI As TECH.Query.QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
+	#dim ResultSet As TECH.ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement, $LB()))
+
+	If ResultSet.Next() {
+		Set PRNrAfdekkap = ResultSet.GetData(1)
+	} Else {
+		Set SqlStatement = "SELECT ProductID FROM " _SqlTableName _" WHERE " _"(GeldigTot >= '"_Datum_"' or GeldigTot is null) and (GeldigVan <= '"_Datum_"' or GeldigVan is null) and LadeKleur = '"_Kleur_"' and Klantbeperking is null"
+		Set ResultSet = QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement, $LB()))
+		If ResultSet.Next() {
+			Set PRNrAfdekkap = ResultSet.GetData(1)
+		} Else {
+			Do ##class(TECH.Exceptions.DataNotFoundException).Throw("Geen data gevonden voor "_SqlStatement_".")
+		}
+	}
+	
+	Quit PRNrAfdekkap
+]]></Implementation>
+</Method>
 </Class>