Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml
===================================================================
diff -u -r71400 -r71412
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71400)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/BatchNaarObjectiveDataGenerator.cls.xml	(.../BatchNaarObjectiveDataGenerator.cls.xml)	(revision 71412)
@@ -48,8 +48,13 @@
 <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=""</FormalSpec>
+<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>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -64,6 +69,7 @@
 	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>
@@ -138,6 +144,7 @@
 	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(UitvoeringInfo.ProductID, Toelevering.GeefID(), UitvoeringInfo.SequentieNummerBinnenToelevering))
 	
 	Quit Opties
 ]]></Implementation>
@@ -164,7 +171,7 @@
 </Method>
 
 <Method name="GeefOptiesRollenLade">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct,SequentieNummberBinnenToelevering:%String</FormalSpec>
+<FormalSpec>Product:DOM.PM.MaatwerkProduct,SequentieNummerBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
@@ -177,7 +184,7 @@
 		#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(SequentieNummberBinnenToelevering, Naam, HalffabItem.GeefAantal()))
+			Do RollenLade.Insert(..GeefOptie(SequentieNummerBinnenToelevering, Naam, HalffabItem.GeefAantal()))
 		}
 	}
 	
@@ -186,7 +193,7 @@
 </Method>
 
 <Method name="GeefOptiesVoorStuklijst">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct,SequentieNummberBinnenToelevering:%String</FormalSpec>
+<FormalSpec>Product:DOM.PM.MaatwerkProduct,SequentieNummerBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
@@ -200,7 +207,7 @@
 		#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, SequentieNummberBinnenToelevering, Index))
+			Do Stuklijst.Insert(..GeefOptieVoorStuklijst(HalffabItem, SequentieNummerBinnenToelevering, Index))
 		}
 
 	}
@@ -210,7 +217,7 @@
 </Method>
 
 <Method name="GeefOptieVoorStuklijst">
-<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,SequentieNummberBinnenToelevering:%String,Index:%Integer</FormalSpec>
+<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[
@@ -226,7 +233,7 @@
 	#dim Naam As %String = "-INPUT[" _ ..PrependNul(Index, 2) _ "]|QTY|ROL"
 	#dim Waarde As %String = IdentNummer _ "|"_ HalffabItem.GeefAantal() _ "|" _ ..GeefRolNaam(HalffabItem)
 	
-	Quit ..GeefOptie(SequentieNummberBinnenToelevering, Naam, Waarde)
+	Quit ..GeefOptie(SequentieNummerBinnenToelevering, Naam, Waarde)
 ]]></Implementation>
 </Method>
 
@@ -247,23 +254,23 @@
 </Method>
 
 <Method name="GeefOptiesVoorKenmerken">
-<FormalSpec>Product:DOM.PM.MaatwerkProduct,SequentieNummberBinnenToelevering:%String</FormalSpec>
+<FormalSpec>Product:DOM.PM.MaatwerkProduct,SequentieNummerBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set KenmerkenLijst = ##class(%ListOfObjects).%New()
 		
-	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))
+	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,SequentieNummberBinnenToelevering:%String</FormalSpec>
+<FormalSpec>LbxIngegegevenKenmerkenDom:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01,SequentieNummerBinnenToelevering:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
@@ -277,31 +284,31 @@
 		#dim PropertyNaam As %String = GefilterdePropertiesIterator.Next()	
 		#dim Waarde As %String = $Property(LbxKenmerkenApps, PropertyNaam)
 		
-		Do LijstOptiesIngegevenKenmerken.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ PropertyNaam , Waarde))
+		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,SequentieNummberBinnenToelevering:%String</FormalSpec>
+<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(SequentieNummberBinnenToelevering, "-" _ "IsSmalleLade", IsSmalleLade))
+	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(SequentieNummberBinnenToelevering, "-" _ "BodemHoogte", BodemHoogte))
+	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(SequentieNummberBinnenToelevering, "-" _ "BodemBreedte", BodemBreedte))
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-" _ "BodemBreedte", BodemBreedte))
 	
 	#dim RugBreedte As %String = ""
 	#dim RugHoogteInMm As %String = ""
@@ -311,8 +318,8 @@
 		Set RugBreedte = RugItem.GeefBewerkteDimensie(LengteDimensie)
 		Set RugHoogteInMm = RugUtils.GeefRugHoogteInMm(LbxIngegegevenKenmerkenDom.RugHoogte)
 	}
-	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "RugBreedte", RugBreedte))
-	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "RugHoogteInMm", RugHoogteInMm))
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-" _ "RugBreedte", RugBreedte))
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-" _ "RugHoogteInMm", RugHoogteInMm))
 	
 	#dim PlaatmateriaalKleuren = ""
 	#dim BodemKleurZichtbaar As %string = LbxIngegegevenKenmerkenDom.BodemKleur
@@ -322,18 +329,43 @@
 	} Else {
 		Set PlaatmateriaalKleuren = BodemKleurZichtbaar _ "/" _ BodemKleur2de
 	}
-	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummberBinnenToelevering, "-" _ "PlaatmateriaalKleuren", PlaatmateriaalKleuren))
+	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(SequentieNummberBinnenToelevering, "-" _ "StalenRugBreedte", StalenRugBreedte))
+	Do LijstBijkomendeOpties.Insert(..GeefOptie(SequentieNummerBinnenToelevering, "-" _ "StalenRugBreedte", StalenRugBreedte))
 	
 	Quit LijstBijkomendeOpties
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOptiesProductInfo">
+<FormalSpec>ProductId:%String,ToeleveringId:%String,SequentieNummerBinnenToelevering:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstProductInfo = ##class(%ListOfObjects).%New()
+	
+	#dim DnaCodeIterator As TECH.Iterator =  ..DnaCodeRepository.ZoekViaToeleveringEnProductNummer(ToeleveringId, ProductId)	
+	#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))	
+	
+	Quit LijstProductInfo
+]]></Implementation>
+</Method>
+
 <Method name="PrependNul">
 <FormalSpec>Getal:%Integer,Lengte:%Integer=3</FormalSpec>
 <Private>1</Private>