Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u -r59262 -r59271
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 59262)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 59271)
@@ -40,10 +40,12 @@
 	Set ..DnaCodeIterator1 = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1)
 	Set ..ProjectSettingsAPIStub = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
 	Do ..ProjectSettingsAPIStub.IndienMethodCall("IsActiefDnaCodeOpEtiket").DanReturn($$$True)
+	
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: 1 DnaCode (zonder sequentienummer) in Toelevering">
+<Method name="Test: 1 DnaCode (zonder afdrukdatum) in Toelevering">
 <Implementation><![CDATA[
 	#dim ToeleveringId As %String = "222222"
 	#dim ProductNummer As %String = "1234567"
@@ -64,7 +66,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Meerdere DnaCodes (zonder sequentienummer) (zelfde product) in Toelevering">
+<Method name="Test: Meerdere DnaCodes (zonder afdrukdatum) (zelfde product) in Toelevering">
 <Implementation><![CDATA[
 	#dim ToeleveringId As %String = "222222"
 	#dim ProductNummer As %String = "1234567"
@@ -87,12 +89,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Meerdere DnaCodes (met en zonder sequentienummer) (zelfde product) in Toelevering">
+<Method name="Test: Meerdere DnaCodes (met en zonder afdrukdatum) (zelfde product) in Toelevering">
 <Implementation><![CDATA[
 	#dim ToeleveringId As %String = "222222"
 	#dim ProductNummer As %String = "1234567"
 	#dim SequentieNummer As %String = "2"
-	Set ..DnaCode1.SequentieNummer = "1"
+	Set ..DnaCode1.AfdrukTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
 	Set ..DnaCode1.ProductNummer = ProductNummer
 	Set ..DnaCode2.ProductNummer = ProductNummer
 	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
@@ -110,7 +112,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Meerdere DnaCodes (zonder sequentienummer) (verschillend product) in Toelevering">
+<Method name="Test: Meerdere DnaCodes (zonder afdrukdatum) (verschillend product) in Toelevering">
 <Implementation><![CDATA[
 	#dim ToeleveringId As %String = "222222"
 	#dim ProductNummer1 As %String = "1234567"
@@ -133,13 +135,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Meerdere DnaCodes (met en zonder sequentienummer) (verschillend product) in Toelevering (variant die error moet geven)">
+<Method name="Test: Meerdere DnaCodes (met en zonder afdrukdatum) (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.AfdrukTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
 	Set ..DnaCode1.ProductNummer = ProductNummer1
 	Set ..DnaCode2.ProductNummer = ProductNummer2
 	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
@@ -149,7 +151,7 @@
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen DnaCode zonder sequentienummer gevonden voor Toelevering '"_ToeleveringId_"' en product '"_ProductNummer1_"'")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen nog niet afgedrukte barcode gevonden voor Toelevering '"_ToeleveringId_"' en product '"_ProductNummer1_"'")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Substrings))
 	
 	#dim VolgendeDnaCode As %String = ""
@@ -159,13 +161,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Meerdere DnaCodes (met en zonder sequentienummer) (verschillend product) in Toelevering">
+<Method name="Test: Meerdere DnaCodes (met en zonder afdrukdatum) (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.AfdrukTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
 	Set ..DnaCode1.ProductNummer = ProductNummer1
 	Set ..DnaCode2.ProductNummer = ProductNummer2
 	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
@@ -192,7 +194,7 @@
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryStub,,,..ProjectSettingsAPIStub)
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen DnaCode zonder sequentienummer gevonden voor Toelevering '"_ToeleveringId_"' en product '"_ProductNummer_"'")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen nog niet afgedrukte barcode gevonden voor Toelevering '"_ToeleveringId_"' en product '"_ProductNummer_"'")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Substrings))
 	
 	#dim VolgendeDnaCode As DOM.Halux.AAP.DnaCode = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)