Index: WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml
===================================================================
diff -u -r61592 -r61750
--- WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61592)
+++ WSimpl/Halux/AAP/DnaCodeService/DnaCodeInVhossKastBepaler.cls.xml	(.../DnaCodeInVhossKastBepaler.cls.xml)	(revision 61750)
@@ -58,11 +58,11 @@
 <Private>1</Private>
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
-	#dim Resultaat As %cachestring
+	#dim Resultaat As %cachestring = ""
 	#dim TbxSequentie As %CacheString
 	#dim ItemIterator As TECH.Iterator = ..GeefTbxSequentieIterator(DnaCode.BatchId)
 
-	While ItemIterator.HasNext() {
+	While ItemIterator.HasNext() && $$$Not(Resultaat) {
 		Set TbxSequentie = ItemIterator.Next()
 		If DnaCode.SequentieNummer = TbxSequentie.GetData(1) {
 			Set Resultaat = TbxSequentie
@@ -146,7 +146,7 @@
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	If $isObject(TBXSequentie) {
-		Quit $lb(TBXSequentie.GetAt(2),TBXSequentie.GetAt(3))
+		Quit $lb(TBXSequentie.GetData(2),TBXSequentie.GetData(3))
 	} Else {
 		Quit $lb(ProductieSequentie.VHOSSID,ProductieSequentie.ZijVlakID)
 	}