Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u -r59271 -r59274
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 59271)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 59274)
@@ -53,7 +53,7 @@
 	Set ..DnaCode1.ProductNummer = ProductNummer
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..DnaCodeIterator1)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatus",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 +76,7 @@
 	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatus",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 +99,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("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatus",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)
@@ -123,7 +123,7 @@
 	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatus",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 +146,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("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatus",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 +172,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("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnStatus",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 +190,7 @@
 	#dim SequentieNummer As %String = "1"
 	
 	Set DnaCodeRepositoryStub = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryStub.IndienMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..EmptyIterator())
+	Do DnaCodeRepositoryStub.IndienMethodCall("ZoekViaToeleveringIdEnStatus",ToeleveringId,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch()).DanReturn(..EmptyIterator())
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryStub,,,..ProjectSettingsAPIStub)
 	
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r59271 -r59274
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 59271)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 59274)
@@ -188,18 +188,15 @@
 <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 ""
 	}
 	#dim Result As %String = ""
 	#dim DnaCodeIterator As TECH.Iterator
-	Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringID)
+	Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnStatus(ToeleveringID,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
 	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
-		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()