Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml
===================================================================
diff -u -r71476 -r71480
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml	(.../KenmerkenOptiesGenerator.cls.xml)	(revision 71476)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml	(.../KenmerkenOptiesGenerator.cls.xml)	(revision 71480)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.KenmerkenOptiesGenerator">
+<Abstract>1</Abstract>
 <Super>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator</Super>
 
 <Property name="ProductApi">
@@ -13,11 +14,6 @@
 <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>
@@ -29,7 +25,7 @@
 </Property>
 
 <Property name="RugUtils">
-<Type>DOM.PM.Maatwerk.Lade.RugUtils.impl.LBXRugUtils</Type>
+<Type>DOM.PM.Maatwerk.Lade.RugUtils</Type>
 <Private>1</Private>
 </Property>
 
@@ -42,11 +38,8 @@
 <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())
-	// LBX!
-	Set ..RugUtils  = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -104,27 +97,10 @@
 </Method>
 
 <Method name="GeefOptiesIngegegevenKenmerken">
+<Abstract>1</Abstract>
 <FormalSpec>Ingegevenkenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set LijstOpties = ##class(%ListOfObjects).%New()
-	
-	// LBX!
-	#dim LbxKenmerkenApps As APPS.PM.Maatwerk.dto.LBXKenmerken = ..KenmerkenConverterLbx.Converteer(Ingegevenkenmerken)	
-	Set PropertiesIterator = ##class(TECH.ListIterator).%New(##class(TECH.ClassUtils).GeefProperties(LbxKenmerkenApps.%ClassName(1)))
-	#dim GefilterdePropertiesIterator As TECH.ListIterator = ..ProperyFilter.Filter(PropertiesIterator)
-	
-	While (GefilterdePropertiesIterator.HasNext()) {
-		#dim PropertyNaam As %String = GefilterdePropertiesIterator.Next()	
-		#dim Waarde As %String = $Property(LbxKenmerkenApps, PropertyNaam)
-		
-		#dim Property As %Dictionary.CompiledProperty = ##class(TECH.CompiledClassUtils).GeefProperty(LbxKenmerkenApps.%ClassName(1), PropertyNaam)
-		Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ PropertyNaam , ..ConverteerWaarde(Waarde, Property.Type)))
-	}
-	
-	Quit LijstOpties
-]]></Implementation>
 </Method>
 
 <Method name="GeefOptieVoorSmalleLade">
@@ -138,88 +114,38 @@
 </Method>
 
 <Method name="GeefOptieVoorBodemHoogte">
+<Abstract>1</Abstract>
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
-<Implementation><![CDATA[
-	#dim AftrekVoorBodemDiepte As %Decimal = ##class(DOM.PM.Maatwerk.LBX.BodemUtils).GeefAftrekVoorBodemDiepte(IngegevenKenmerken.RugWandMateriaal)
-	#dim BodemHoogte As %Integer = IngegevenKenmerken.LadeDiepte - AftrekVoorBodemDiepte
-	
-	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "BodemHoogte", BodemHoogte)
-]]></Implementation>
 </Method>
 
 <Method name="GeefOptieVoorBodemBreedte">
+<Abstract>1</Abstract>
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
-<Implementation><![CDATA[
-	// LBX!
-	#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem())
-	#dim LengteDimensie As DOM.PM.enu.BewerkingDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Lengte()
-	#dim BodemBreedte As %Decimal = BodemItem.GeefBewerkteDimensie(LengteDimensie)
-	
-	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "BodemBreedte", BodemBreedte)
-]]></Implementation>
 </Method>
 
 <Method name="GeefOptiesVoorRugBreedteEnRugHoogte">
+<Abstract>1</Abstract>
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set LijstOpties = ##class(%ListOfObjects).%New()
-	#dim RugBreedte As %String = ""
-	#dim RugHoogteInMm As %String = ""
-		
-	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) {
-		#dim LengteDimensie As DOM.PM.enu.BewerkingDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Lengte()
-		#dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..RugUtils.GeefRugX(HalffabItemsBoom)
-		
-		Set RugBreedte = RugItem.GeefBewerkteDimensie(LengteDimensie)
-		Set RugHoogteInMm = ..RugUtils.GeefRugHoogteInMm(IngegevenKenmerken.RugHoogte)
-	}
-	
-	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "RugBreedte", RugBreedte))
-	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "RugHoogteInMm", RugHoogteInMm))
-	
-	Quit LijstOpties
-]]></Implementation>
 </Method>
 
 <Method name="GeefOptiePlaatmateriaalKleuren">
+<Abstract>1</Abstract>
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
-<Implementation><![CDATA[
-	#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem())
-	#dim PlaatmateriaalKleuren = ""
-	#dim BodemKleurZichtbaar As %string = IngegevenKenmerken.BodemKleur
-	#dim BodemKleur2de As %String = ##class(DOM.PM.Maatwerk.LBX.BodemUtils).GeefTweedeKleur(BodemItem.GeefHalffab().ProductID, BodemKleurZichtbaar)	
-	
-	If (BodemKleurZichtbaar = BodemKleur2de) {
-		Set PlaatmateriaalKleuren = BodemKleurZichtbaar
-	} Else {
-		Set PlaatmateriaalKleuren = BodemKleurZichtbaar _ "/" _ BodemKleur2de
-	}
-	
-	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "PlaatmateriaalKleuren", PlaatmateriaalKleuren)
-]]></Implementation>
 </Method>
 
 <Method name="GeefOptieStalenRugBreedte">
+<Abstract>1</Abstract>
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
-<Implementation><![CDATA[
-	#dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..RugUtils.GeefRugX(HalffabItemsBoom)
-	#dim StalenRugBreedte As %String = ""
-	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()) {
-		Set StalenRugBreedte = ..RugUtils.GeefStalenRugBreedte(RugItem.GeefHalffab().ProductID)
-	}
-	
-	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "StalenRugBreedte", StalenRugBreedte)
-]]></Implementation>
 </Method>
 </Class>
 
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71479 -r71480
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71479)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71480)
@@ -78,7 +78,7 @@
 	Set RollenEnStuklijstOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.RollenEnStuklijstOptiesGeneratorLbx).%New()
 	Do ##class(TECH.ListUtils).AppendList(Opties, RollenEnStuklijstOptiesGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo))
 	
-	Set KenmerkenOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.KenmerkenOptiesGenerator).%New()
+	Set KenmerkenOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.KenmerkenOptiesGeneratorLbx).%New()
 	Do ##class(TECH.ListUtils).AppendList(Opties, KenmerkenOptiesGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo))
 	
 	Set ProductOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New()
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGeneratorLbx.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGeneratorLbx.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGeneratorLbx.cls.xml	(revision 71480)
@@ -0,0 +1,145 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.KenmerkenOptiesGeneratorLbx">
+<Super>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.KenmerkenOptiesGenerator</Super>
+
+<Property name="RugUtils">
+<Type>DOM.PM.Maatwerk.Lade.RugUtils.impl.LBXRugUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BodemUtils">
+<Type>DOM.PM.Maatwerk.LBX.BodemUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KenmerkenConverterLbx">
+<Type>APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Lbx</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..RugUtils  = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
+	Set ..BodemUtils  = ##class(DOM.PM.Maatwerk.LBX.BodemUtils).%New()
+	Set ..KenmerkenConverterLbx = ##class(APPS.PM.Maatwerk.impl.KenmerkenConverter.DomNaarApps.Lbx).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiesIngegegevenKenmerken">
+<FormalSpec>Ingegevenkenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstOpties = ##class(%ListOfObjects).%New()
+	
+	#dim LbxKenmerkenApps As APPS.PM.Maatwerk.dto.LBXKenmerken = ..KenmerkenConverterLbx.Converteer(Ingegevenkenmerken)	
+	Set PropertiesIterator = ##class(TECH.ListIterator).%New(##class(TECH.ClassUtils).GeefProperties(LbxKenmerkenApps.%ClassName(1)))
+	#dim GefilterdePropertiesIterator As TECH.ListIterator = ..ProperyFilter.Filter(PropertiesIterator)
+	
+	While (GefilterdePropertiesIterator.HasNext()) {
+		#dim PropertyNaam As %String = GefilterdePropertiesIterator.Next()	
+		#dim Waarde As %String = $Property(LbxKenmerkenApps, PropertyNaam)
+		
+		#dim Property As %Dictionary.CompiledProperty = ##class(TECH.CompiledClassUtils).GeefProperty(LbxKenmerkenApps.%ClassName(1), PropertyNaam)
+		Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ PropertyNaam , ..ConverteerWaarde(Waarde, Property.Type)))
+	}
+	
+	Quit LijstOpties
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieVoorBodemHoogte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim AftrekVoorBodemDiepte As %Decimal = ..BodemUtils.GeefAftrekVoorBodemDiepte(IngegevenKenmerken.RugWandMateriaal)
+	#dim BodemHoogte As %Integer = IngegevenKenmerken.LadeDiepte - AftrekVoorBodemDiepte
+	
+	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "BodemHoogte", BodemHoogte)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieVoorBodemBreedte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem())
+	#dim LengteDimensie As DOM.PM.enu.BewerkingDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Lengte()
+	#dim BodemBreedte As %Decimal = BodemItem.GeefBewerkteDimensie(LengteDimensie)
+	
+	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "BodemBreedte", BodemBreedte)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiesVoorRugBreedteEnRugHoogte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstOpties = ##class(%ListOfObjects).%New()
+	#dim RugBreedte As %String = ""
+	#dim RugHoogteInMm As %String = ""
+		
+	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) {
+		#dim LengteDimensie As DOM.PM.enu.BewerkingDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Lengte()
+		#dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..RugUtils.GeefRugX(HalffabItemsBoom)
+		
+		Set RugBreedte = RugItem.GeefBewerkteDimensie(LengteDimensie)
+		Set RugHoogteInMm = ..RugUtils.GeefRugHoogteInMm(IngegevenKenmerken.RugHoogte)
+	}
+	
+	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "RugBreedte", RugBreedte))
+	Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "RugHoogteInMm", RugHoogteInMm))
+	
+	Quit LijstOpties
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiePlaatmateriaalKleuren">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem())
+	#dim PlaatmateriaalKleuren = ""
+	#dim BodemKleurZichtbaar As %string = IngegevenKenmerken.BodemKleur
+	#dim BodemKleur2de As %String = ..BodemUtils.GeefTweedeKleur(BodemItem.GeefHalffab().ProductID, BodemKleurZichtbaar)	
+	
+	If (BodemKleurZichtbaar = BodemKleur2de) {
+		Set PlaatmateriaalKleuren = BodemKleurZichtbaar
+	} Else {
+		Set PlaatmateriaalKleuren = BodemKleurZichtbaar _ "/" _ BodemKleur2de
+	}
+	
+	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "PlaatmateriaalKleuren", PlaatmateriaalKleuren)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieStalenRugBreedte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..RugUtils.GeefRugX(HalffabItemsBoom)
+	#dim StalenRugBreedte As %String = ""
+	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()) {
+		Set StalenRugBreedte = ..RugUtils.GeefStalenRugBreedte(RugItem.GeefHalffab().ProductID)
+	}
+	
+	Quit ..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ "StalenRugBreedte", StalenRugBreedte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>