Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r62578 -r62610
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62578)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 62610)
@@ -62,13 +62,13 @@
 	#dim TbxSequentie As %CacheString
 	#dim ItemIterator As TECH.Iterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
 
-	While ItemIterator.HasNext() && $$$Not(Resultaat) {
+	While ItemIterator.HasNext()  {
 		Set TbxSequentie = ItemIterator.Next()
 		If DnaCode.SequentieNummer = TbxSequentie.GetData(3) {
 			Set Resultaat = TbxSequentie
+			Quit
 		}
-	}		
-	 
+	}
 	Quit Resultaat
 ]]></Implementation>
 </Method>