Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r63203 -r63642
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 63203)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 63642)
@@ -39,7 +39,12 @@
 <Method name="ZoekAlleRecenteViaPalletCode">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ..ZoekViaFilter("PalletCode = ? and (AanmaakTijdstip > current_date - 30)", $LB(PalletCode))
+<Implementation><![CDATA[
+	#dim AantalDagenTerug As %Integer = 30
+	If ##class(APPS.VisiDot.impl.Tech).IsFrameID(PalletCode) {
+		Set AantalDagenTerug = 5
+	}
+	Quit ..ZoekViaFilter("PalletCode = ? and (AanmaakTijdstip > current_date - ?)", $LB(PalletCode, AantalDagenTerug))
 ]]></Implementation>
 </Method>