Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r67690 -r71438
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 67690)
+++ 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>
@@ -104,6 +111,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaToeleveringEnProductNummer">
+<FormalSpec>ToeleveringId:%String,ProductNummer:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("Toelevering = ? and ProductNummer = ?", $LB(ToeleveringId, ProductNummer))
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaDnaCode">
 <FormalSpec>DnaCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>