Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u -r58977 -r59262
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58977)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 59262)
@@ -23,6 +23,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProjectSettingsAPIStub">
+<Type>DOM.common.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -33,6 +38,8 @@
 	Set ..DnaCode2.DnaCode = "LAAAAB1"
 	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
 	Set ..DnaCodeIterator1 = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1)
+	Set ..ProjectSettingsAPIStub = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).%New()
+	Do ..ProjectSettingsAPIStub.IndienMethodCall("IsActiefDnaCodeOpEtiket").DanReturn($$$True)
 ]]></Implementation>
 </Method>
 
@@ -47,7 +54,7 @@
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..DnaCodeIterator1)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode1).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
 	
 	#dim VolgendeDnaCode As %String = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
 	
@@ -70,7 +77,7 @@
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode1).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
 	
 	#dim VolgendeDnaCode As %String = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
 	
@@ -93,7 +100,7 @@
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode2).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
 	
 	#dim VolgendeDnaCode As %String = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
 	
@@ -117,7 +124,7 @@
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",..DnaCode2).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
 	#dim VolgendeDnaCode As %String = ""
 	Set VolgendeDnaCode = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer2,SequentieNummer)
 	Do $$$AssertEquals(VolgendeDnaCode,..DnaCode2.DnaCode)
@@ -140,7 +147,7 @@
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).ExactAantalKeer(0).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	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_"'")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Substrings))
@@ -166,7 +173,7 @@
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..TweeDnaCodesIterator)
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("Bewaar",$$$ElkeWaarde).DanDoeNiks()
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,..ProjectSettingsAPIStub)
 	
 	#dim VolgendeDnaCode As %String = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer2,SequentieNummer)
 	
@@ -183,7 +190,7 @@
 	Set DnaCodeRepositoryStub = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryStub.IndienMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..EmptyIterator())
 	
-	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryStub)
+	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_"'")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Substrings))