Index: vhTest/Mock/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon.cls.xml
===================================================================
diff -u -r50491 -r71559
--- vhTest/Mock/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon.cls.xml	(.../AppsNaarEcon.cls.xml)	(revision 50491)
+++ vhTest/Mock/ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon.cls.xml	(.../AppsNaarEcon.cls.xml)	(revision 71559)
@@ -9,7 +9,7 @@
 <Inheritance>right</Inheritance>
 
 <Method name="Converteer">
-<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.LadeKenmerken</FormalSpec>
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <ReturnType>ECON.PM.Maatwerk.dto.EconConfiguratieKenmerken</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("Converteer",Kenmerken)
 ]]></Implementation>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml
===================================================================
diff -u -r71557 -r71559
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml	(.../IngegevenKenmerkenOptiesGenerator.cls.xml)	(revision 71557)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/IngegevenKenmerkenOptiesGenerator.cls.xml	(.../IngegevenKenmerkenOptiesGenerator.cls.xml)	(revision 71559)
@@ -41,35 +41,55 @@
 	#dim SequentieNummerBinnenToelevering = UitvoeringInfo.SequentieNummerBinnenToelevering
 	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)
 	#dim Ingegevenkenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Product.GeefIngegevenKenmerken()
+	#dim KenmerkenApps As APPS.PM.Maatwerk.dto.LadeKenmerken = ..DomNaarAppsConverter.GeefIngegevenKenmerken(Ingegevenkenmerken)
 	
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesIngegegevenKenmerken(Ingegevenkenmerken, SequentieNummerBinnenToelevering))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesIngegegevenKenmerken(KenmerkenApps, SequentieNummerBinnenToelevering))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesGekoppeldeIngegevenKenmerken(KenmerkenApps, SequentieNummerBinnenToelevering))
 	
 	Quit Opties
 ]]></Implementation>
 </Method>
 
 <Method name="GeefOptiesIngegegevenKenmerken">
-<FormalSpec>Ingegevenkenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<FormalSpec>KenmerkenApps:APPS.PM.Maatwerk.dto.LadeKenmerken,SequentieNummerBinnenToelevering:%String,VoorvoegselNaam:%String=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set LijstOpties = ##class(%ListOfObjects).%New()
 	
-	#dim KenmerkenApps As APPS.PM.Maatwerk.dto.LBXKenmerken = ..DomNaarAppsConverter.GeefIngegevenKenmerken(Ingegevenkenmerken)
 	Set PropertiesIterator = ##class(TECH.ListIterator).%New(##class(TECH.ClassUtils).GeefProperties(KenmerkenApps.%ClassName(1)))
 	#dim GefilterdePropertiesIterator As TECH.ListIterator = ..ProperyFilter.Filter(PropertiesIterator)
-	
 	While (GefilterdePropertiesIterator.HasNext()) {
 		#dim PropertyNaam As %String = GefilterdePropertiesIterator.Next()	
 		#dim Waarde As %String = $Property(KenmerkenApps, PropertyNaam)
 		
 		#dim Property As %Dictionary.CompiledProperty = ##class(TECH.CompiledClassUtils).GeefProperty(KenmerkenApps.%ClassName(1), PropertyNaam)
-		Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ PropertyNaam , ..ConverteerWaarde(Waarde, Property.Type)))
+		Do LijstOpties.Insert(..GeefOptieVoorLade(SequentieNummerBinnenToelevering, "-" _ VoorvoegselNaam _ PropertyNaam , ..ConverteerWaarde(Waarde, Property.Type)))
 	}
 	
 	Quit LijstOpties
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOptiesGekoppeldeIngegevenKenmerken">
+<FormalSpec>KenmerkenApps:APPS.PM.Maatwerk.dto.LadeKenmerken,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstOpties = ##class(%ListOfObjects).%New()
+	
+	#dim GekoppeldeIngegevenKenmerken As %ListOfObjects = KenmerkenApps.GekoppeldeIngegevenKenmerken
+	#dim GekoppeldeIngegevenKenmerkenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(GekoppeldeIngegevenKenmerken)
+	
+	While (GekoppeldeIngegevenKenmerkenIterator.HasNext()) {
+		#dim GekoppeldIK As APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk = GekoppeldeIngegevenKenmerkenIterator.Next()
+		
+		Do ##class(TECH.ListUtils).AppendList(LijstOpties, ..GeefOptiesIngegegevenKenmerken(GekoppeldIK.IngegevenKenmerken, SequentieNummerBinnenToelevering, "Mat."))
+	}
+	
+	Quit LijstOpties
+]]></Implementation>
+</Method>
 </Class>