Index: DOM/Halux/AAP/DnaCodeRepository.cls.xml
===================================================================
diff -u -r72485 -r72799
--- DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 72485)
+++ DOM/Halux/AAP/DnaCodeRepository.cls.xml	(.../DnaCodeRepository.cls.xml)	(revision 72799)
@@ -18,17 +18,7 @@
 <Method name="ZoekViaPalletCodeEnRecent">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[
-	#dim DnaCodeIterator As TECH.DynamicIterator
-	
-	If ..IsABPalletCode(PalletCode) {
-		#dim BasisPalletCode = $Extract(PalletCode, 1, 8)
-		Set DnaCodeIterator = ..ZoekViaFilter("PalletCode like ? and not status = ? and (AanmaakTijdstip > current_date - 30)", $LB(BasisPalletCode _ "%", ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()))
-	} Else {
-		Set DnaCodeIterator = ..ZoekViaFilter("PalletCode = ? and not status = ? and (AanmaakTijdstip > current_date - 30)", $LB(PalletCode, ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()))
-	}
-	
-	Quit DnaCodeIterator
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("PalletCode like ? and not status = ? and (AanmaakTijdstip > current_date - 30)", $LB(PalletCode _ "%", ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer()))
 ]]></Implementation>
 </Method>
 
@@ -42,7 +32,7 @@
 <Method name="ZoekVoorProboxEtiket">
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ..ZoekViaFilter("PalletCode = ? and (AanmaakTijdstip > current_date - 30)", $LB(PalletCode))
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("PalletCode like ? and (AanmaakTijdstip > current_date - 30)", $LB(PalletCode _ "%"))
 ]]></Implementation>
 </Method>
 
@@ -57,20 +47,13 @@
 <FormalSpec>PalletCode:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	#dim DnaCodeIterator As TECH.DynamicIterator
 	#dim AantalDagenTerug As %Integer = 30
 	
 	If ##class(APPS.VisiDot.impl.Tech).IsFrameID(PalletCode) {
 		Set AantalDagenTerug = 5
 	}
-	If ..IsABPalletCode(PalletCode) {
-		#dim BasisPalletCode = $Extract(PalletCode, 1, 8)
-		Set DnaCodeIterator = ..ZoekViaFilter("PalletCode like ? and (AanmaakTijdstip > current_date - ?)", $LB(BasisPalletCode _ "%", AantalDagenTerug))
-	} Else {
-		Set DnaCodeIterator = ..ZoekViaFilter("PalletCode = ? and (AanmaakTijdstip > current_date - ?)", $LB(PalletCode, AantalDagenTerug))
-	}
-	
-	Quit DnaCodeIterator
+
+	Quit ..ZoekViaFilter("PalletCode = ? and (AanmaakTijdstip > current_date - ?)", $LB(PalletCode, AantalDagenTerug))
 ]]></Implementation>
 </Method>