Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71384 -r71392
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71384)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71392)
@@ -33,6 +33,16 @@
 <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>
+
 <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</FormalSpec>
 <Private>1</Private>
@@ -46,6 +56,8 @@
 	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()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -237,11 +249,35 @@
 	Do KenmerkenLijst.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-AdminProductNummer", Product.GeefID()))
 	Do KenmerkenLijst.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-Afbeeldingcode", ..AfbeeldingService.GeefImageCodeVoorIngegevenKenmerken(Product.GeefIngegevenKenmerken())))
 	Do KenmerkenLijst.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-Ladecode", Product.GeefLadeCode()))
+	Do ##class(TECH.ListUtils).AppendList(KenmerkenLijst, ..GeefOptiesIngegevenKenmerken(Product.GeefIngegevenKenmerken(), SequentieNummberBinnenToelevering))
 	
 	Quit KenmerkenLijst
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOptiesIngegevenKenmerken">
+<FormalSpec>LbxIngegegevenKenmerkenDom:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01,SequentieNummberBinnenToelevering:%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(SequentieNummberBinnenToelevering, "-" _ PropertyNaam , Waarde))
+	}
+	
+	Quit LijstOptiesIngegevenKenmerken
+]]></Implementation>
+</Method>
+
 <Method name="PrependNul">
 <FormalSpec>Getal:%Integer,Lengte:%Integer=3</FormalSpec>
 <Private>1</Private>