Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r61746 -r63203
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 61746)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 63203)
@@ -177,7 +177,11 @@
 <Method name="ZoekViaLadecodeEnRecent">
 <FormalSpec>Ladecode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ..ZoekViaFilter("LadeCode = ? and (AanmaakTijdstip > current_date - 30)",$lb(Ladecode))
+<Implementation><![CDATA[
+	If $Length(Ladecode)=4 {
+		Set Ladecode = $Extract(Ladecode,1,2)_"."_$Extract(Ladecode,3,4)
+	}
+	Quit ..ZoekViaFilter("LadeCode like '%"_Ladecode_"%' and (AanmaakTijdstip > current_date - 30)","")
 ]]></Implementation>
 </Method>