Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u -r61682 -r73618
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 61682)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 73618)
@@ -34,8 +34,10 @@
 	Do ##super()
 	Set ..DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set ..DnaCode1.DnaCode = "LAAAAA0"
+	Set ..DnaCode1.SequentieNummer = 1
 	Set ..DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
 	Set ..DnaCode2.DnaCode = "LAAAAB1"
+	Set ..DnaCode2.SequentieNummer = 2
 	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
 	Set ..DnaCodeIterator1 = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1)
 	Set ..ProjectSettingsAPIStub = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
@@ -53,7 +55,7 @@
 	Set ..DnaCode1.ProductNummer = ProductNummer
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatus",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..DnaCodeIterator1)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatusEnRecent",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..DnaCodeIterator1)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode1).DanDoeNiks()
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
@@ -76,7 +78,7 @@
 	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatus",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatusEnRecent",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..TweeDnaCodesIterator)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode1).DanDoeNiks()
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
@@ -99,7 +101,7 @@
 	Set ..DnaCode2.ProductNummer = ProductNummer
 	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatus",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatusEnRecent",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..TweeDnaCodesIterator)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode2).DanDoeNiks()
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
@@ -117,13 +119,13 @@
 	#dim ToeleveringId As %String = "222222"
 	#dim ProductNummer1 As %String = "1234567"
 	#dim ProductNummer2 As %String = "1234568"
-	#dim SequentieNummer As %String = "1"
+	#dim SequentieNummer As %String = "2"
 	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("ZoekViaToeleveringIdEnStatus",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatusEnRecent",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..TweeDnaCodesIterator)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode2).DanDoeNiks()
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
@@ -146,7 +148,7 @@
 	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("ZoekViaToeleveringIdEnStatus",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatusEnRecent",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..TweeDnaCodesIterator)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(0).DanDoeNiks()
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
@@ -172,7 +174,7 @@
 	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("ZoekViaToeleveringIdEnStatus",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatusEnRecent",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..TweeDnaCodesIterator)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
@@ -190,7 +192,7 @@
 	#dim SequentieNummer As %String = "1"
 	
 	Set DnaCodeRepositoryStub = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryStub.IndienMethodCall("ZoekViaToeleveringIdEnStatus",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..EmptyIterator())
+	Do DnaCodeRepositoryStub.IndienMethodCall("ZoekViaToeleveringIdEnStatusEnRecent",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..EmptyIterator())
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryStub,,,..ProjectSettingsAPIStub)
 	
@@ -245,6 +247,73 @@
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Afdruk KlantEtiketSpaceStep 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, $$$True)
+	
+	Do $$$AssertEquals(VolgendeDnaCode,..DnaCode1.DnaCode)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Afdruk KlantEtiketSpaceStep met herafdruk">
+<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, $$$True)
+	
+	Do $$$AssertEquals(VolgendeDnaCode,..DnaCode1.DnaCode)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Afdruk KlantEtiketSpaceStep 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 = ""
+	Set ..DnaCode1.ProductNummer = ProductNummer
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringEnSequentienummerEnRecent",ToeleveringId,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, $$$False, BatchId, $$$True)
+	
+	Do $$$AssertEquals(VolgendeDnaCode,..DnaCode1.DnaCode)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>