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>
Index: vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r60098 -r60173
--- vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60098)
+++ vhTest/Fake/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60173)
@@ -39,6 +39,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaDnaCodeEnRecent">
+<FormalSpec>DnaCode:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaPalletCodeEnRecent">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r60098 -r60173
--- vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60098)
+++ vhTest/Mock/DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60173)
@@ -99,6 +99,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZoekViaDnaCodeEnRecent">
+<FormalSpec>DnaCode:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaDnaCodeEnRecent",DnaCode)
+]]></Implementation>
+</Method>
+
 <Method name="ZoekViaPalletCode">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>