Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u -r58953 -r58954
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58953)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58954)
@@ -60,10 +60,32 @@
 	#dim ProductNummer As %String = "1234567"
 	#dim SequentieNummer As %String = "1"
 	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",..DnaCode1).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	
+	#dim VolgendeDnaCode As DOM.Halux.AAP.DnaCode = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
+	
+	Do $$$AssertEquals(VolgendeDnaCode.SequentieNummer,SequentieNummer)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="aTest: Meerdere DnaCodes (met en zonder sequentienummer) in Toelevering">
+<Implementation><![CDATA[
+	#dim ToeleveringId As %String = "222222"
+	#dim ProductNummer As %String = "1234567"
+	#dim SequentieNummer As %String = "2"
+	Set ..DnaCode1.SequentieNummer = "1"
+	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
 	#dim DnaCodeIterator1 As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1)
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(DnaCodeIterator1)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode1).DanDoeNiks()
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)