Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u -r62039 -r62253
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 62039)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 62253)
@@ -201,6 +201,51 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Herafdruk 1 DnaCode met reeds ingevulde afdrukdatum -&gt; ok">
+<Implementation><![CDATA[
+	#dim ToeleveringId As %String = "222222"
+	#dim ProductNummer As %String = "1234567"
+	#dim SequentieNummer As %String = "1"
+	#dim BatchId As %String = "123456"
+	Set ..DnaCode1.ProductNummer = ProductNummer
+	Set ..DnaCode1.AfdrukTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchIdEnSequentienummer",BatchId,SequentieNummer).DanReturn(..DnaCodeIterator1)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode1).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
+	
+	#dim VolgendeDnaCode As %String = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer, $$$True, BatchId)
+	
+	Do $$$AssertEquals(VolgendeDnaCode,..DnaCode1.DnaCode)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Herafdruk 1 DnaCode met nog niet ingevulde afdrukdatum -&gt; ok">
+<Implementation><![CDATA[
+	#dim ToeleveringId As %String = "222222"
+	#dim ProductNummer As %String = "1234567"
+	#dim SequentieNummer As %String = "1"
+	#dim BatchId As %String = "123456"
+	Set ..DnaCode1.ProductNummer = ProductNummer
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchIdEnSequentienummer",BatchId,SequentieNummer).DanReturn(..DnaCodeIterator1)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode1).DanDoeNiks()
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
+	
+	#dim VolgendeDnaCode As %String = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer, $$$True, BatchId)
+	
+	Do $$$AssertEquals(VolgendeDnaCode,..DnaCode1.DnaCode)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Afdruk KlantEtiketSpaceStep met reeds ingevulde afdrukdatum -&gt; ok">
 <Implementation><![CDATA[
 	#dim ToeleveringId As %String = "222222"