Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r60098 -r60173
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60098)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60173)
@@ -57,6 +57,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaDnaCodeEnRecent">
+<FormalSpec>DnaCode:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("DnaCode = ? and (AanmaakTijdstip > current_date - 30)", $LB(DnaCode))
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderNieuweCodesVoorToeleveringId">
 <FormalSpec>ToeleveringId:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>