Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u -r58949 -r58953
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58949)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58953)
@@ -3,18 +3,68 @@
 <Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="DnaCode1">
+<Type>DOM.Halux.AAP.DnaCode</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DnaCode2">
+<Type>DOM.Halux.AAP.DnaCode</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TweeDnaCodesIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DnaCodeIterator1">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super()
+	Set ..DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set ..DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
+	Set ..DnaCodeIterator1 = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1)
+]]></Implementation>
+</Method>
+
 <Method name="Test: 1 DnaCode (zonder sequentienummer) in Toelevering">
 <Implementation><![CDATA[
 	#dim ToeleveringId As %String = "222222"
 	#dim ProductNummer As %String = "1234567"
 	#dim SequentieNummer As %String = "1"
-	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode1.PalletCode = "TBX12345"
-	#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("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="Test: Meerdere DnaCodes (zonder sequentienummer) in Toelevering">
+<Implementation><![CDATA[
+	#dim ToeleveringId As %String = "222222"
+	#dim ProductNummer As %String = "1234567"
+	#dim SequentieNummer As %String = "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("Bewaar",DnaCode1).DanDoeNiks()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode1).DanDoeNiks()
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)