Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/VulInSequentieIds/Test.cls.xml
===================================================================
diff -u -r60929 -r62202
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/VulInSequentieIds/Test.cls.xml	(.../Test.cls.xml)	(revision 60929)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/VulInSequentieIds/Test.cls.xml	(.../Test.cls.xml)	(revision 62202)
@@ -82,7 +82,7 @@
 	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode)
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVolgendeMetLeegSequentieItem",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).Nooit()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekVolgendeMetLeegSequentieItem",$$$ElkeWaarde,$$$ElkeWaarde,$$$ElkeWaarde).ExactAantalKeer(1).DanReturn(..EmptyIterator())
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).Nooit()
 	Do ..SequentieService.IndienMethodCall("HeeftSequentie",..Batch.GeefID()).DanReturn($$$False)
 	
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62063 -r62202
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62063)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62202)
@@ -269,13 +269,11 @@
 <Implementation><![CDATA[
 	Try {
 		Do ..Logger.Info("APPS.Halux.AAP.DnaCodeService", "VulInSequentieId voor "_SequentieId_ "/" _BatchId_" / "_ToeleveringId_" / "_ToeleveringlijnId_".")
-		If ((..SequentieService.HeeftSequentie(BatchId)) || (..SequentieService.HeeftProductieSequentie(BatchId))) {
-			#dim DnaCodeIterator = ..DnaCodeRepository.ZoekVolgendeMetLeegSequentieItem(BatchId, ToeleveringId, ToeleveringlijnId)
-			If DnaCodeIterator.HasNext() {
-				#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
-				Set DnaCode.SequentieNummer = SequentieId
-				Do ..DnaCodeRepository.Bewaar(DnaCode)
-			}
+		#dim DnaCodeIterator = ..DnaCodeRepository.ZoekVolgendeMetLeegSequentieItem(BatchId, ToeleveringId, ToeleveringlijnId)
+		If DnaCodeIterator.HasNext() {
+			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+			Set DnaCode.SequentieNummer = SequentieId
+			Do ..DnaCodeRepository.Bewaar(DnaCode)
 		}
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()