Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r71416 -r71438
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 71416)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 71438)
@@ -69,6 +69,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent">
+<FormalSpec>ToeleveringId:%String,SequentieNummer:%String,ProductNummer:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("Toelevering = ? and SequentieNummer = ? and ProductNummer = ? and (AanmaakTijdstip > current_date - 30)", $LB(ToeleveringId, SequentieNummer, ProductNummer))
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaToeleveringIdEnNotStatusEnRecent">
 <FormalSpec>ToeleveringId:%String,Status:DOM.Halux.AAP.enu.DnaCodeStatus</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r71416 -r71438
--- vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 71416)
+++ vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 71438)
@@ -225,6 +225,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent">
+<FormalSpec>ToeleveringId:%String,SequentieNummer:%String,ProductNummer:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent",ToeleveringId,SequentieNummer,ProductNummer)
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaToeleveringIdEnStatus">
 <FormalSpec>ToeleveringId:%String,Status:DOM.Halux.AAP.enu.DnaCodeStatus</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml
===================================================================
diff -u -r71427 -r71438
--- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 71427)
+++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 71438)
@@ -32,20 +32,21 @@
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set Opties = ##class(%ListOfObjects).%New()
+	#dim SequentieNummerBinnenToelevering As %Integer = UitvoeringInfo.SequentieNummerBinnenToelevering	
 	#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 DnaCodeIterator As TECH.Iterator =  ..DnaCodeRepository.ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent(Toelevering.GeefID(), UitvoeringInfo.SequentieNummer, Product.GeefID())
+	#dim DnaCodeLijst 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)
+	If (DnaCodeLijst.Size = 1) {
+		#dim DnaCodeObject As DOM.Halux.AAP.DnaCode = DnaCodeLijst.GetAt(1)
 		Set DnaCode = DnaCodeObject.DnaCode
 		Set DnaCodeIngekort = $Extract(DnaCode, $Length(DnaCode) - 2, $Length(DnaCode))
 	}
+	
 	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "DNA-code", DnaCode))
 	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "PIN", DnaCode))
 	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "SHORTPIN", DnaCodeIngekort))
@@ -72,9 +73,6 @@
 	Do Opties.Insert(..GeefOptieVoorLade(..PrependNul(SequentieNummerBinnenToelevering), "-" _ "FSC-claim", Product.GeefFSCHout()))
 	
 	Quit Opties
-
-	
-	Quit Opties
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r71416 -r71438
--- vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 71416)
+++ vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 71438)
@@ -19,6 +19,13 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent">
+<FormalSpec>ToeleveringId:%String,SequentieNummer:%String,ProductNummer:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaToeleveringEnProductId">
 <FormalSpec>ToeleveringId:%String,ProductId:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>