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)
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r59252 -r59271
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 59252)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 59271)
@@ -20,6 +20,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeApi">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",ProjectSettingsApi:DOM.common.ProjectSettingsAPI=""</FormalSpec>
 <Private>1</Private>
@@ -31,6 +36,7 @@
 	Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
 	Set ..DnaCodeGenerator = $$$Inject(DnaCodeGenerator, ##class(APPS.Halux.AAP.DnaCodeGenerator).%New())
 	Set ..ProjectSettingsApi = $$$Inject(ProjectSettingsApi, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
+	Set ..DateTimeApi = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -182,6 +188,7 @@
 <FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(127).String(..ProjectSettingsApi.IsActiefDnaCodeOpEtiket())
 	If $$$Not(..ProjectSettingsApi.IsActiefDnaCodeOpEtiket()) {
 		Quit ""
 	}
@@ -191,16 +198,19 @@
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
 	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
-		If ((DnaCode.SequentieNummer = "") && (DnaCode.ProductNummer = ProductID)) {
+		Do ##class(Tools.Wlip).%New(127).String(DnaCode.AfdrukTijdstip)
+		Do ##class(Tools.Wlip).%New(127).String(DnaCode.ProductNummer)
+		If ((DnaCode.AfdrukTijdstip = "") && (DnaCode.ProductNummer = ProductID)) {
 			Set DnaCode.SequentieNummer = SequentieNummer
+			Set DnaCode.AfdrukTijdstip = ..DateTimeApi.CurrentHorolog()
 			Do ..DnaCodeRepository.Bewaar(DnaCode)
 			Set Result = DnaCode.DnaCode
 			Quit
 		}
 	}
 	
 	If $$$Not($$$HasLength(Result)) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen DnaCode zonder sequentienummer gevonden voor Toelevering '"_ToeleveringID_"' en product '"_ProductID_"'"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen nog niet afgedrukte barcode gevonden voor Toelevering '"_ToeleveringID_"' en product '"_ProductID_"'"))
 	}
 	
 	Quit Result