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()