Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58946 -r58957
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58946)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58957)
@@ -178,12 +178,20 @@
 <Implementation><![CDATA[
 	#dim DnaCodeIterator As TECH.Iterator
 	Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringID)
-	#dim DnaCode As DOM.Halux.AAP.DnaCode
-	If DnaCodeIterator.HasNext() {
+	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
+	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
-		Set DnaCode.SequentieNummer = SequentieNummer
-		Do ..DnaCodeRepository.Bewaar(DnaCode)
+		If DnaCode.SequentieNummer = "" {
+			Set DnaCode.SequentieNummer = SequentieNummer
+			Do ..DnaCodeRepository.Bewaar(DnaCode)
+			Quit
+		}
 	}
+	
+	If $$$Not($isObject(DnaCode)) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen DnaCode zonder sequentienummer gevonden voor Toelevering '"_ToeleveringID_"' en product '"_ProductID_"'"))
+	}
+	
 	Quit DnaCode
 ]]></Implementation>
 </Method>