Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGenerator.cls.xml	(revision 71426)
@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.RollenEnStuklijstOptiesGenerator">
+<Abstract>1</Abstract>
+<Super>APPS.Halux.PPS.Document.impl.LBX.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 SequentieNummerBinnenToeleveringGeformateerd = ..PrependNul(UitvoeringInfo.SequentieNummerBinnenToelevering)
+	
+	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)	
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
+	#dim HalffabItemsIterator As TECH.Iterator = HalffabItemsBoom.GeefAlleHalffabItemsIterator()
+	#dim Index As %Integer = 0
+	
+	While (HalffabItemsIterator.HasNext()) {
+		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsIterator.Next()
+		If $$$Not(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")) {
+			Do Opties.Insert(..GeefOptieVoorRol(HalffabItem, SequentieNummerBinnenToeleveringGeformateerd))
+			Do Opties.Insert(..GeefOptieVoorStuklijst(HalffabItem, SequentieNummerBinnenToeleveringGeformateerd, $Increment(Index)))
+		}
+	}
+	
+	Quit Opties
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieVoorRol">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim Naam As %String = "-ROL-" _ ..GeefRolNaam(HalffabItem)
+	
+	Quit ..GeefOptie(SequentieNummerBinnenToelevering, Naam, HalffabItem.GeefAantal())
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieVoorStuklijst">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,SequentieNummerBinnenToelevering:%String,Index:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim IdentNummer As %String = ""		
+	If (HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem")) {
+		#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = HalffabItem
+		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ConcreetHalffabItem.GeefHalffab()
+		Set IdentNummer = ..ProductApi.GeefIdentNummerVoorProductId(Halffab.GeefProductID())
+	} Else {
+		// TODO Throw error
+	}
+	
+	#dim Naam As %String = "-INPUT[" _ ..PrependNul(Index, 2) _ "]|QTY|ROL"
+	#dim Waarde As %String = IdentNummer _ "|"_ HalffabItem.GeefAantal() _ "|" _ ..GeefRolNaam(HalffabItem)
+	
+	Quit ..GeefOptie(SequentieNummerBinnenToelevering, Naam, Waarde)
+]]></Implementation>
+</Method>
+
+<Method name="GeefRolNaam">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim RolNaam As %String = HalffabItem.GeefRol()
+
+	If $$$Not(HalffabItem.ParentItem.GeefRol() = ..GeefLadeVariant()) {
+		Set RolNaam = HalffabItem.ParentItem.GeefRol() _ "." _ RolNaam
+	}
+	
+	Quit RolNaam
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeVariant">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.LadeVariant</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator.cls.xml	(revision 71426)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.SequentieOptiesGenerator">
+<Super>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator</Super>
+
+<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 SequentieNummerBinnenBatchGeformateerd = ..PrependNul(UitvoeringInfo.SequentieNummer)
+	#dim SequentieNummerBinnenToeleveringGeformateerd = ..PrependNul(UitvoeringInfo.SequentieNummerBinnenToelevering)
+	
+	Do Opties.Insert(..GeefOptieSequentieInfoBinnenToelevering(SequentieNummerBinnenBatchGeformateerd, UitvoeringInfo.SequentieNummerBinnenToelevering))
+	Do Opties.Insert(..GeefOptieSequentieBinnenBatch(SequentieNummerBinnenBatchGeformateerd))
+	
+	Quit Opties
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieSequentieInfoBinnenToelevering">
+<FormalSpec>SequentieNummerBinnenBatch:%Integer,SequentieNummerBinnenToelevering:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim Naam As %String = "-SEQ"
+	Quit ..GeefOptie(SequentieNummerBinnenBatch, Naam, SequentieNummerBinnenToelevering)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptieSequentieBinnenBatch">
+<FormalSpec>SequentieNummer:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim Naam = "-SEQ binnen batch"
+	Quit ..GeefOptie(SequentieNummer, Naam, SequentieNummer)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGeneratorLbx.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGeneratorLbx.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/RollenEnStuklijstOptiesGeneratorLbx.cls.xml	(revision 71426)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.RollenEnStuklijstOptiesGeneratorLbx">
+<Super>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.RollenEnStuklijstOptiesGenerator</Super>
+
+<Method name="GeefLadeVariant">
+<Private>1</Private>
+<ReturnType>DOM.PM.enu.LadeVariant</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.enu.LadeVariant).LBXPure()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/KenmerkenOptiesGenerator.cls.xml	(revision 71426)
@@ -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.KenmerkenOptiesGenerator">
+<Super>APPS.Halux.PPS.Document.impl.LBX.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>
+<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
+]]></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 SequentieNummerBinnenToeleveringGeformateerdGeformateerd = ..PrependNul(UitvoeringInfo.SequentieNummerBinnenToelevering)	
+	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)
+	#dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+	
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesAlgemeneKenmerken(Product, Ingegevenkenmerken, SequentieNummerBinnenToeleveringGeformateerdGeformateerd))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesBijkomend(Product, Ingegevenkenmerken, SequentieNummerBinnenToeleveringGeformateerdGeformateerd))
+	
+	Quit Opties
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiesAlgemeneKenmerken">
+<FormalSpec>Product:DOM.PM.MaatwerkProduct,Ingegevenkenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToeleveringGeformateerdGeformateerd:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstAlgemeneOpties = ##class(%ListOfObjects).%New()
+	
+	
+	Do LijstAlgemeneOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerdGeformateerd, "-AdminProductNummer", Product.GeefID()))
+	Do LijstAlgemeneOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerdGeformateerd, "-Afbeeldingcode", ..AfbeeldingService.GeefImageCodeVoorIngegevenKenmerken(Ingegevenkenmerken)))
+	Do LijstAlgemeneOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerdGeformateerd, "-Ladecode", Product.GeefLadeCode()))
+	
+	// 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)
+		
+		Do LijstAlgemeneOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerdGeformateerd, "-" _ PropertyNaam , Waarde))
+	}
+	
+	Quit LijstAlgemeneOpties
+]]></Implementation>
+</Method>
+
+<Method name="GeefOptiesBijkomend">
+<FormalSpec>Product:DOM.PM.MaatwerkProduct,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToeleveringGeformateerd:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstBijkomendeOpties = ##class(%ListOfObjects).%New()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
+	
+	#dim IsSmalleLade As %Boolean = ..IngegevenKenmerkenTypeApi.IsSmalleLade(IngegevenKenmerken)
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "IsSmalleLade", IsSmalleLade))
+
+	#dim AftrekVoorBodemDiepte As %Decimal = ##class(DOM.PM.Maatwerk.LBX.BodemUtils).GeefAftrekVoorBodemDiepte(IngegevenKenmerken.RugWandMateriaal)
+	#dim BodemHoogte As %Integer = IngegevenKenmerken.LadeDiepte - AftrekVoorBodemDiepte
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "BodemHoogte", BodemHoogte))
+	
+	#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)
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "BodemBreedte", BodemBreedte))
+	
+	#dim RugBreedte As %String = ""
+	#dim RugHoogteInMm As %String = ""
+	#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils.impl.LBXRugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
+	#dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = RugUtils.GeefRugX(HalffabItemsBoom)
+	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) {
+		Set RugBreedte = RugItem.GeefBewerkteDimensie(LengteDimensie)
+		Set RugHoogteInMm = RugUtils.GeefRugHoogteInMm(IngegevenKenmerken.RugHoogte)
+	}
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "RugBreedte", RugBreedte))
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "RugHoogteInMm", RugHoogteInMm))
+	
+	#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
+	}
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "PlaatmateriaalKleuren", PlaatmateriaalKleuren))
+	
+	#dim StalenRugBreedte As %String = ""
+	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()) {
+		Set StalenRugBreedte = RugUtils.GeefStalenRugBreedte(RugItem.GeefHalffab().ProductID)
+	}
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToeleveringGeformateerd, "-" _ "StalenRugBreedte", StalenRugBreedte))
+	
+	Quit LijstBijkomendeOpties
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(revision 71426)
@@ -0,0 +1,83 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator">
+<Super>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator</Super>
+
+<Property name="ProductApi">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DnaCodeRepository">
+<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ProductApi:DOM.PM.ProductAPI="",DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository=""</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 ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%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 SequentieNummerBinnenToeleveringGeformateerd = ..PrependNul(UitvoeringInfo.SequentieNummerBinnenToelevering)
+	
+	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)	
+	#dim SequentieNummerBinnenToelevering As %Integer = UitvoeringInfo.SequentieNummerBinnenToelevering
+	#dim DnaCodeIterator As TECH.Iterator =  ..DnaCodeRepository.ZoekViaToeleveringEnProductNummer(Toelevering.GeefID(), Product.GeefID())	
+	#dim DnaCodes As %ListOfDataTypes = ##class(TECH.ListUtils).IteratorToList(DnaCodeIterator)
+	#dim DnaCode As %String = ""
+	#dim DnaCodeIngekort As %String = ""
+	
+	If ($Length(DnaCodes) >= SequentieNummerBinnenToelevering) {
+		#dim DnaCodeObject As DOM.Halux.AAP.DnaCode = DnaCodes.GetAt(SequentieNummerBinnenToelevering)
+		Set DnaCode = DnaCodeObject.DnaCode
+		Set DnaCodeIngekort = $Extract(DnaCode, $Length(DnaCode) - 2, $Length(DnaCode))
+	}
+	Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "DNA-code", DnaCode))
+	Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "PIN", DnaCode))
+	Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "SHORTPIN", DnaCodeIngekort))
+	
+	#dim AxInventTransId As %String = ""
+	#dim AxConfigId As %String = ""
+	#dim ToeleveringLijnGevonden As %Boolean = $$$False
+	#dim ToeleveringLijnIterator As DOM.AKP.impl.DataM.DataMToeleveringLijnIterator = Toelevering.GeefToeleveringLijnIterator()	
+	While (ToeleveringLijnIterator.HasNext() && $$$Not(ToeleveringLijnGevonden)) {
+		#dim ProductToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = ToeleveringLijnIterator.Next()
+		If ProductToeleveringLijn.GeefProductID() = Product.GeefID() {
+			Set AxInventTransId = ProductToeleveringLijn.GeefAxInventTransId()
+			Set AxConfigId = ProductToeleveringLijn.GeefAxConfigId()
+			Set ToeleveringLijnGevonden = $$$True
+		}
+	}
+	Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "InventTransID", AxInventTransId))
+	Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "AxConfigId", AxConfigId))
+	
+	Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Korttekst", Product.GeefKorttekst()))
+	Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Langtekst", Product.GeefLangtekst()))
+	Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Dossiercode", Product.GeefDossierCode()))
+	// Mapper voorzien voor FSC
+	Do Opties.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "FSC-claim", Product.GeefFSCHout()))
+	
+	Quit Opties
+
+	
+	Quit Opties
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71417 -r71426
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71417)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71426)
@@ -3,11 +3,6 @@
 <Class name="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.BatchNaarObjectiveDataGenerator">
 <Super>TECH.RegisteredObject</Super>
 
-<Property name="ToeleveringApi">
-<Type>DOM.AKP.ToeleveringAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="OrderApi">
 <Type>DOM.VKP.OrderAPI</Type>
 <Private>1</Private>
@@ -18,58 +13,15 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ProductApi">
-<Type>DOM.PM.ProductAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="MaatwerkService">
-<Type>APPS.PM.Maatwerk.MaatwerkService</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>
-
-<Property name="DnaCodeRepository">
-<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>ToeleveringApi:DOM.AKP.ToeleveringAPI="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="",ProductApi:DOM.PM.ProductAPI="",MaatwerkService:APPS.PM.Maatwerk.MaatwerkService="",AfbeeldingService:APPS.PM.Maatwerk.impl.AfbeeldingService="",IngegevenKenmerkenTypeApi:DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI="",DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository=""</FormalSpec>
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
 	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
 	Set ..PartijApi = $$$Inject(PartijApi, ##class(DOM.DomeinContext).Instance().GeefPartijAPI())
-	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
-	Set ..MaatwerkService = $$$Inject(MaatwerkService, ##class(APPS.PM.Maatwerk.MaatwerkService).%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())
-	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -108,312 +60,47 @@
 ]]></Implementation>
 </Method>
 
-<Method name="FormateerHorolog">
-<FormalSpec>Horolog:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim Timestamp As %String = ##class(TECH.DateTime).HorologToTimeStamp(Horolog)	
-	#dim Datum As %String = $Piece(Timestamp, " ", 1)
-	#dim Tijdstip As %String = $Piece(Timestamp, " ", 2)
-	
-	Quit Datum _ "T" _ Tijdstip _ "Z"
-]]></Implementation>
-</Method>
-
-<Method name="GeefRangorde">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	// TODO Uit pitchingtabel
-]]></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 SequentieNummerBinnenBatchGeformateerd = ..PrependNul(UitvoeringInfo.SequentieNummer)
-	#dim SequentieNummerBinnenToeleveringGeformateerd = ..PrependNul(UitvoeringInfo.SequentieNummerBinnenToelevering)
 	
-	Do Opties.Insert(..GeefOptieSequentieInfoBinnenToelevering(SequentieNummerBinnenBatchGeformateerd, UitvoeringInfo.SequentieNummerBinnenToelevering))
-	Do Opties.Insert(..GeefOptieSequentieBinnenBatch(SequentieNummerBinnenBatchGeformateerd))
+	Set SequentieOptieGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.SequentieOptiesGenerator).%New()
+	Do ##class(TECH.ListUtils).AppendList(Opties, SequentieOptieGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo))
 	
-	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesRollenLade(Product, SequentieNummerBinnenToeleveringGeformateerd))
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorStuklijst(Product, SequentieNummerBinnenToeleveringGeformateerd))
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorKenmerken(Product, SequentieNummerBinnenToeleveringGeformateerd))
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefBijkomendeOpties(Product.GeefIngegevenKenmerken(), Product.GeefHalffabItemsBoom(), SequentieNummerBinnenToeleveringGeformateerd))
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesProductInfo(Product, Toelevering, UitvoeringInfo.SequentieNummerBinnenToelevering))
+	Set RollenEnStuklijstOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.RollenEnStuklijstOptiesGeneratorLbx).%New()
+	Do ##class(TECH.ListUtils).AppendList(Opties, RollenEnStuklijstOptiesGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo))
 	
-	Quit Opties
-]]></Implementation>
-</Method>
-
-<Method name="GeefOptieSequentieInfoBinnenToelevering">
-<FormalSpec>SequentieNummerBinnenBatch:%Integer,SequentieNummerBinnenToelevering:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
-<Implementation><![CDATA[
-	#dim Naam As %String = "-SEQ"
-	Quit ..GeefOptie(SequentieNummerBinnenBatch, Naam, SequentieNummerBinnenToelevering)
-]]></Implementation>
-</Method>
-
-<Method name="GeefOptieSequentieBinnenBatch">
-<FormalSpec>SequentieNummer:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
-<Implementation><![CDATA[
-	#dim Naam = "-SEQ binnen batch"
-	Quit ..GeefOptie(SequentieNummer, Naam, SequentieNummer)
-]]></Implementation>
-</Method>
-
-<Method name="GeefOptiesRollenLade">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct,SequentieNummerBinnenToelevering:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set RollenLade = ##class(%ListOfObjects).%New()
+	Set KenmerkenOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.KenmerkenOptiesGenerator).%New()
+	Do ##class(TECH.ListUtils).AppendList(Opties, KenmerkenOptiesGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo))
 	
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom()
-	#dim HalffabItemsIterator As TECH.Iterator = HalffabItemsBoom.GeefAlleHalffabItemsIterator()
+	Set ProductOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.ProductOptiesGenerator).%New()
+	Do ##class(TECH.ListUtils).AppendList(Opties, ProductOptiesGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo))
 	
-	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 = "-ROL-" _ ..GeefRolNaam(HalffabItem)
-			Do RollenLade.Insert(..GeefOptie(SequentieNummerBinnenToelevering, Naam, HalffabItem.GeefAantal()))
-		}
-	}
-	
-	Quit RollenLade
+	Quit Opties
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOptiesVoorStuklijst">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Method name="FormateerHorolog">
+<FormalSpec>Horolog:%String</FormalSpec>
 <Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set Stuklijst = ##class(%ListOfObjects).%New()
-	
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom= Product.GeefHalffabItemsBoom()
-	#dim HalffabItemsIterator As TECH.Iterator = HalffabItemsBoom.GeefAlleHalffabItemsIterator()
-	#dim Index As %Integer = 0
-	
-	While (HalffabItemsIterator.HasNext()) {
-		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsIterator.Next()
-		If $$$Not(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")) {
-			Set Index = Index + 1
-			Do Stuklijst.Insert(..GeefOptieVoorStuklijst(HalffabItem, SequentieNummerBinnenToelevering, Index))
-		}
-
-	}
-	
-	Quit Stuklijst
-]]></Implementation>
-</Method>
-
-<Method name="GeefOptieVoorStuklijst">
-<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,SequentieNummerBinnenToelevering:%String,Index:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
-<Implementation><![CDATA[
-	#dim IdentNummer As %String = ""		
-	If (HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem")) {
-		#dim ConcreetHalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = HalffabItem
-		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ConcreetHalffabItem.GeefHalffab()
-		Set IdentNummer = ..ProductApi.GeefIdentNummerVoorProductId(Halffab.GeefProductID())
-	} Else {
-		// TODO Throw error
-	}
-	
-	#dim Naam As %String = "-INPUT[" _ ..PrependNul(Index, 2) _ "]|QTY|ROL"
-	#dim Waarde As %String = IdentNummer _ "|"_ HalffabItem.GeefAantal() _ "|" _ ..GeefRolNaam(HalffabItem)
-	
-	Quit ..GeefOptie(SequentieNummerBinnenToelevering, Naam, Waarde)
-]]></Implementation>
-</Method>
-
-<Method name="GeefRolNaam">
-<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
-<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim RolNaam As %String = HalffabItem.GeefRol()
-
-	// TODO Converteer naar juiste naam voor verschillende ladetypes
-	If $$$Not(HalffabItem.ParentItem.GeefRol() = ##class(DOM.PM.enu.LadeVariant).LBXPure()) {
-		Set RolNaam = HalffabItem.ParentItem.GeefRol() _ "." _ RolNaam
-	}
+	#dim Timestamp As %String = ##class(TECH.DateTime).HorologToTimeStamp(Horolog)	
+	#dim Datum As %String = $Piece(Timestamp, " ", 1)
+	#dim Tijdstip As %String = $Piece(Timestamp, " ", 2)
 	
-	Quit RolNaam
+	Quit Datum _ "T" _ Tijdstip _ "Z"
 ]]></Implementation>
 </Method>
 
-<Method name="GeefOptiesVoorKenmerken">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Method name="GeefRangorde">
 <Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set KenmerkenLijst = ##class(%ListOfObjects).%New()
-		
-	Do KenmerkenLijst.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-AdminProductNummer", Product.GeefID()))
-	Do KenmerkenLijst.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-Afbeeldingcode", ..AfbeeldingService.GeefImageCodeVoorIngegevenKenmerken(Product.GeefIngegevenKenmerken())))
-	Do KenmerkenLijst.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-Ladecode", Product.GeefLadeCode()))
-	Do ##class(TECH.ListUtils).AppendList(KenmerkenLijst, ..GeefOptiesIngegevenKenmerken(Product.GeefIngegevenKenmerken(), SequentieNummerBinnenToelevering))
-	
-	Quit KenmerkenLijst
-]]></Implementation>
-</Method>
-
-<Method name="GeefOptiesIngegevenKenmerken">
-<FormalSpec>LbxIngegegevenKenmerkenDom:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01,SequentieNummerBinnenToelevering:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set LijstOptiesIngegevenKenmerken = ##class(%ListOfObjects).%New()
-	
-	#dim LbxKenmerkenApps As APPS.PM.Maatwerk.dto.LBXKenmerken = ..KenmerkenConverterLbx.Converteer(LbxIngegegevenKenmerkenDom)	
-	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)
-		
-		Do LijstOptiesIngegevenKenmerken.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-" _ PropertyNaam , Waarde))
-	}
-	
-	Quit LijstOptiesIngegevenKenmerken
-]]></Implementation>
-</Method>
-
-<Method name="GeefBijkomendeOpties">
-<FormalSpec>LbxIngegegevenKenmerkenDom:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,SequentieNummerBinnenToelevering:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set LijstBijkomendeOpties = ##class(%ListOfObjects).%New()
-	
-	#dim IsSmalleLade As %Boolean = ..IngegevenKenmerkenTypeApi.IsSmalleLade(LbxIngegegevenKenmerkenDom)
-	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-" _ "IsSmalleLade", IsSmalleLade))
-
-	#dim AftrekVoorBodemDiepte As %Decimal = ##class(DOM.PM.Maatwerk.LBX.BodemUtils).GeefAftrekVoorBodemDiepte(LbxIngegegevenKenmerkenDom.RugWandMateriaal)
-	#dim BodemHoogte As %Integer = LbxIngegegevenKenmerkenDom.LadeDiepte - AftrekVoorBodemDiepte
-	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-" _ "BodemHoogte", BodemHoogte))
-	
-	#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)
-	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-" _ "BodemBreedte", BodemBreedte))
-	
-	#dim RugBreedte As %String = ""
-	#dim RugHoogteInMm As %String = ""
-	#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils.impl.LBXRugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
-	#dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = RugUtils.GeefRugX(HalffabItemsBoom)
-	If (LbxIngegegevenKenmerkenDom.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Hout()) {
-		Set RugBreedte = RugItem.GeefBewerkteDimensie(LengteDimensie)
-		Set RugHoogteInMm = RugUtils.GeefRugHoogteInMm(LbxIngegegevenKenmerkenDom.RugHoogte)
-	}
-	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-" _ "RugBreedte", RugBreedte))
-	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-" _ "RugHoogteInMm", RugHoogteInMm))
-	
-	#dim PlaatmateriaalKleuren = ""
-	#dim BodemKleurZichtbaar As %string = LbxIngegegevenKenmerkenDom.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
-	}
-	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-" _ "PlaatmateriaalKleuren", PlaatmateriaalKleuren))
-	
-	#dim StalenRugBreedte As %String = ""
-	If (LbxIngegegevenKenmerkenDom.RugWandMateriaal = ##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()) {
-		Set StalenRugBreedte = RugUtils.GeefStalenRugBreedte(RugItem.GeefHalffab().ProductID)
-	}
-	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-" _ "StalenRugBreedte", StalenRugBreedte))
-	
-	Quit LijstBijkomendeOpties
-]]></Implementation>
-</Method>
-
-<Method name="GeefOptiesProductInfo">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct,Toelevering:DOM.AKP.Toelevering,SequentieNummerBinnenToelevering:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set LijstProductInfo = ##class(%ListOfObjects).%New()
-	
-	#dim DnaCodeIterator As TECH.Iterator =  ..DnaCodeRepository.ZoekViaToeleveringEnProductNummer(Toelevering.GeefID(), Product.GeefID())	
-	#dim DnaCodes As %ListOfDataTypes = ##class(TECH.ListUtils).IteratorToList(DnaCodeIterator)
-	#dim DnaCode As %String = ""
-	#dim DnaCodeIngekort As %String = ""
-		
-	If ($Length(DnaCodes) >= SequentieNummerBinnenToelevering) {
-		#dim DnaCodeObject As DOM.Halux.AAP.DnaCode = DnaCodes.GetAt(SequentieNummerBinnenToelevering)
-		Set DnaCode = DnaCodeObject.DnaCode
-		Set DnaCodeIngekort = $Extract(DnaCode, $Length(DnaCode) - 2, $Length(DnaCode))
-	}
-	Do LijstProductInfo.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "DNA-code", DnaCode))
-	Do LijstProductInfo.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "PIN", DnaCode))
-	Do LijstProductInfo.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "SHORTPIN", DnaCodeIngekort))
-	
-	#dim AxInventTransId As %String = ""
-	#dim AxConfigId As %String = ""
-	#dim ToeleveringLijnGevonden As %Boolean = $$$False
-	#dim ToeleveringLijnIterator As DOM.AKP.impl.DataM.DataMToeleveringLijnIterator = Toelevering.GeefToeleveringLijnIterator()	
-	While (ToeleveringLijnIterator.HasNext() && $$$Not(ToeleveringLijnGevonden)) {
-		#dim ProductToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = ToeleveringLijnIterator.Next()
-		If ProductToeleveringLijn.GeefProductID() = Product.GeefID() {
-			Set AxInventTransId = ProductToeleveringLijn.GeefAxInventTransId()
-			Set AxConfigId = ProductToeleveringLijn.GeefAxConfigId()
-			Set ToeleveringLijnGevonden = $$$True
-		}
-	}
-	Do LijstProductInfo.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "InventTransID", AxInventTransId))
-	Do LijstProductInfo.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "AxConfigId", AxConfigId))
-	
-	Do LijstProductInfo.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Korttekst", Product.GeefKorttekst()))
-	Do LijstProductInfo.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Langtekst", Product.GeefLangtekst()))
-	Do LijstProductInfo.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "Dossiercode", Product.GeefDossierCode()))
-	// Mapper voorzien voor FSC
-	Do LijstProductInfo.Insert(..GeefOptie(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "FSC-claim", Product.GeefFSCHout()))
-	
-	Quit LijstProductInfo
-]]></Implementation>
-</Method>
-
-<Method name="PrependNul">
-<FormalSpec>Getal:%Integer,Lengte:%Integer=3</FormalSpec>
-<Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	While ($Length(Getal) < Lengte) {
-		Set Getal = "0" _ Getal
-	}
-	
-	Quit Getal
+<Implementation><![CDATA[	// TODO Uit pitchingtabel
 ]]></Implementation>
 </Method>
-
-<Method name="GeefOptie">
-<FormalSpec>SequentieNummer:%String,Naam:%String,Waarde:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
-<Implementation><![CDATA[
-	Set OptieVoorAdminProductNummer = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveOptions).%New()
-	
-	Set OptieVoorAdminProductNummer.Omschrijving = "LADE " _ SequentieNummer
-	Set OptieVoorAdminProductNummer.Naam = SequentieNummer _ Naam
-	Set OptieVoorAdminProductNummer.Waarde = Waarde
-	
-	Quit OptieVoorAdminProductNummer
-]]></Implementation>
-</Method>
 </Class>