Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u -r58965 -r58977
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58965)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58977)
@@ -41,6 +41,7 @@
 	#dim ToeleveringId As %String = "222222"
 	#dim ProductNummer As %String = "1234567"
 	#dim SequentieNummer As %String = "1"
+	Set ..DnaCode1.ProductNummer = ProductNummer
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..DnaCodeIterator1)
@@ -102,6 +103,77 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Meerdere DnaCodes (zonder sequentienummer) (verschillend product) in Toelevering">
+<Implementation><![CDATA[
+	#dim ToeleveringId As %String = "222222"
+	#dim ProductNummer1 As %String = "1234567"
+	#dim ProductNummer2 As %String = "1234568"
+	#dim SequentieNummer As %String = "1"
+	Set ..DnaCode1.ProductNummer = ProductNummer1
+	Set ..DnaCode2.ProductNummer = ProductNummer2
+	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode2).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	#dim VolgendeDnaCode As %String = ""
+	Set VolgendeDnaCode = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer2,SequentieNummer)
+	Do $$$AssertEquals(VolgendeDnaCode,..DnaCode2.DnaCode)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Meerdere DnaCodes (met en zonder sequentienummer) (verschillend product) in Toelevering (variant die error moet geven)">
+<Implementation><![CDATA[
+	#dim ToeleveringId As %String = "222222"
+	#dim ProductNummer1 As %String = "1234567"
+	#dim ProductNummer2 As %String = "1234568"
+	#dim SequentieNummer As %String = "2"
+	Set ..DnaCode1.SequentieNummer = "1"
+	Set ..DnaCode1.ProductNummer = ProductNummer1
+	Set ..DnaCode2.ProductNummer = ProductNummer2
+	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(0).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen DnaCode zonder sequentienummer gevonden voor Toelevering '"_ToeleveringId_"' en product '"_ProductNummer1_"'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Substrings))
+	
+	#dim VolgendeDnaCode As %String = ""
+	Set VolgendeDnaCode = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer1,SequentieNummer)
+	Do $$$AssertEquals(VolgendeDnaCode,..DnaCode1.DnaCode)
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Meerdere DnaCodes (met en zonder sequentienummer) (verschillend product) in Toelevering">
+<Implementation><![CDATA[
+	#dim ToeleveringId As %String = "222222"
+	#dim ProductNummer1 As %String = "1234567"
+	#dim ProductNummer2 As %String = "1234568"
+	#dim SequentieNummer As %String = "2"
+	Set ..DnaCode1.SequentieNummer = "1"
+	Set ..DnaCode1.ProductNummer = ProductNummer1
+	Set ..DnaCode2.ProductNummer = ProductNummer2
+	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim VolgendeDnaCode As %String = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer2,SequentieNummer)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Geen relevante DnaCodes te vinden -&gt; exception">
 <Implementation><![CDATA[
 	#dim ToeleveringId As %String = "222222"
Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58964 -r58977
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58964)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58977)
@@ -31,7 +31,7 @@
 <Method name="GeefVolgendeAfTeDrukkenDnaCode">
 <FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("GeefVolgendeAfTeDrukkenDnaCode",ToeleveringID,ProductID,SequentieNummer)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVolgendeAfTeDrukkenDnaCode",ToeleveringID,ProductID,SequentieNummer)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58964 -r58977
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58964)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58977)
@@ -177,23 +177,25 @@
 <FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#dim Result As %String = ""
 	#dim DnaCodeIterator As TECH.Iterator
 	Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringID)
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
 	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
-		If DnaCode.SequentieNummer = "" {
+		If ((DnaCode.SequentieNummer = "") && (DnaCode.ProductNummer = ProductID)) {
 			Set DnaCode.SequentieNummer = SequentieNummer
 			Do ..DnaCodeRepository.Bewaar(DnaCode)
+			Set Result = DnaCode.DnaCode
 			Quit
 		}
 	}
 	
-	If $$$Not($isObject(DnaCode)) {
+	If $$$Not($$$HasLength(Result)) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen DnaCode zonder sequentienummer gevonden voor Toelevering '"_ToeleveringID_"' en product '"_ProductID_"'"))
 	}
 	
-	Quit DnaCode.DnaCode
+	Quit Result
 ]]></Implementation>
 </Method>
 </Class>