Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r60370 -r60765
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60370)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 60765)
@@ -110,6 +110,24 @@
 <Implementation><![CDATA[	Do ..VerwijderViaFilter("BatchId = ? and Status = ?",$LB(BatchId, ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()))
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekViaKlantnummer">
+<FormalSpec>Klantnummer:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("KlantNummer = ? and (AanmaakTijdstip > current_date - 90)",$lb(Klantnummer))
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaOrdernummer">
+<FormalSpec>Ordernummer:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("OrderId = ? and (AanmaakTijdstip > current_date - 90)",$lb(Ordernummer))
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaLadecodeEnRecent">
+<FormalSpec>Ladecode:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("LadeCode = ? and (AanmaakTijdstip > current_date - 30)",$lb(Ladecode))
+]]></Implementation>
+</Method>
 </Class>