Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml
===================================================================
diff -u -r72011 -r72013
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 72011)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 72013)
@@ -13,13 +13,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerkenSpaceStepHelper">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="FscConverterNaarObjective">
 <Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.FscNaarObjective</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ProductApi:DOM.PM.ProductAPI="",DnaCodeService:APPS.Halux.AAP.DnaCodeService=""</FormalSpec>
+<FormalSpec>ProductApi:DOM.PM.ProductAPI="",DnaCodeService:APPS.Halux.AAP.DnaCodeService="",IngegevenKenmerkenSpaceStepHelper:DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -28,6 +33,7 @@
 	Set ..ProductApi = $$$Inject(ProductApi, ##class(DOM.PM.impl.ProductAPI).%New())
 	Set ..DnaCodeService = $$$Inject(DnaCodeService, ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService"))
 	Set ..FscConverterNaarObjective = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.Converter.FscNaarObjective).%New()
+	Set ..IngegevenKenmerkenSpaceStepHelper = $$$Inject(IngegevenKenmerkenSpaceStepHelper, ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -41,7 +47,7 @@
 	#dim SequentieNummerLade As %Integer = UitvoeringInfo.SequentieNummerLade
 	#dim Product As DOM.PM.MaatwerkProduct = ..ProductApi.GeefProduct(UitvoeringInfo.ProductID)	
 	
-	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorDnaCodeEnPin(UitvoeringInfo, Product.GeefID()))
+	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorDnaCodeEnPin(UitvoeringInfo, Product))
 	Do ##class(TECH.ListUtils).AppendList(Opties, ..GeefOptiesVoorAxInventTransIdEnAxConfigId(Toelevering, Product, SequentieNummerLade))
 		
 	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), "-" _ "Korttekst", Product.GeefKorttekst()))
@@ -58,13 +64,13 @@
 </Method>
 
 <Method name="GeefOptiesVoorDnaCodeEnPin">
-<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo,ProductId:%String</FormalSpec>
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo,Product:DOM.PM.MaatwerkProduct</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set LijstOpties = ##class(%ListOfObjects).%New()
 	
-	#dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent(UitvoeringInfo.ToeleveringID, UitvoeringInfo.SequentieNummer, ProductId)
+	#dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent(UitvoeringInfo.ToeleveringID, UitvoeringInfo.SequentieNummer, Product.GeefID())
 	#dim DnaCodeIngekort As %String = $Extract(DnaCode, $Length(DnaCode) - 2, $Length(DnaCode))
 	
 	Do LijstOpties.Insert(..GeefOptieVoorLade(UitvoeringInfo.SequentieNummerLade, "-" _ "DNA-code", DnaCode))