Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r63411 -r63559
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 63411)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 63559)
@@ -311,7 +311,7 @@
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
 	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
-		If ..MagDnaCodeBijgewerktWorden(DnaCode, ProductID, Herafdruk) {
+		If ..MagDnaCodeBijgewerktWorden(DnaCode, ProductID, Herafdruk, SequentieNummer) {
 			If $$$HasLength(SequentieNummer) {
 				Set DnaCode.SequentieNummer = SequentieNummer
 			}
@@ -331,12 +331,17 @@
 </Method>
 
 <Method name="MagDnaCodeBijgewerktWorden">
-<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,ProductID:%String,Herafdruk:%Boolean,IsKlantEtiketSpaceStep:%Boolean=$$$False</FormalSpec>
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,ProductID:%String,Herafdruk:%Boolean,SequentieNummer:%String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Resultaat As %Boolean = ((DnaCode.ProductNummer = ProductID) || ..IsSpaceStepGeneriekProduct(DnaCode, ProductID))
+	#dim Resultaat As %Boolean
+	If $$$HasLength(SequentieNummer) {
+		Set Resultaat = ((DnaCode.ProductNummer = ProductID) && (DnaCode.SequentieNummer = SequentieNummer)) || ..IsSpaceStepGeneriekProduct(DnaCode, ProductID)
+	} Else {
+	 	Set Resultaat = ((DnaCode.ProductNummer = ProductID) || ..IsSpaceStepGeneriekProduct(DnaCode, ProductID))
+	}
 	If Resultaat {
-		Set Resultaat = ((DnaCode.AfdrukTijdstip = "") || Herafdruk || IsKlantEtiketSpaceStep)
+		Set Resultaat = ((DnaCode.AfdrukTijdstip = "") || Herafdruk)
 	} 
 	Quit Resultaat
 ]]></Implementation>
Index: APPS/Halux/Docs/EtiketBuilder.cls.xml
===================================================================
diff -u -r62253 -r63559
--- APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 62253)
+++ APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 63559)
@@ -128,7 +128,7 @@
 </Method>
 
 <Method name="MaakMaatwerkProductInVHossViaToelevering">
-<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,BatchID:%String,WPVerpak:DS.PPS.TBX.sub.emWPVerpak,VoorkeurPrinter:%String="",DnaCode:%String=""</FormalSpec>
+<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,BatchID:%String,WPVerpak:DS.PPS.TBX.sub.emWPVerpak,VoorkeurPrinter:%String="",DnaCode:%String="",SequentieNummer:%String=""</FormalSpec>
 <ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
@@ -140,7 +140,7 @@
 	}
 	
 	If (DnaCode = "") {
-		Set DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringID, ProductID)
+		Set DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringID, ProductID, SequentieNummer)
 	}
 		
 	#dim Etiket As BL.Etiket.LadeKlantEtiketVHoss = ..MaatwerkProductEtiketBuilder.MaakMaatwerkProductInVHossEtiket(ProductID,Partij,Aantal,DnaCode)		
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u -r62253 -r63559
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 62253)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 63559)
@@ -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()
@@ -117,7 +119,7 @@
 	#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)
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/MaatwerkInVHOSS/EtiketPrinter.cls.xml
===================================================================
diff -u -r60661 -r63559
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/MaatwerkInVHOSS/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 60661)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/MaatwerkInVHOSS/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 63559)
@@ -11,7 +11,7 @@
 	Set Queue = ##class(DS.PPS.TBX.Queue).%OpenId(QueueID)
 	#dim WPVerpak As DS.PPS.TBX.sub.emWPVerpak = Queue.WPVerpak
 	set EtiketBuilder = ##class(APPS.Halux.Docs.EtiketBuilder).%New()
-	Quit EtiketBuilder.MaakMaatwerkProductInVHossViaToelevering(ToeleveringID,ToeleveringLijnID,AantalEtiketten,BatchID,WPVerpak,VoorkeurPrinter,Dnacode)
+	Quit EtiketBuilder.MaakMaatwerkProductInVHossViaToelevering(ToeleveringID,ToeleveringLijnID,AantalEtiketten,BatchID,WPVerpak,VoorkeurPrinter,Dnacode,Queue.Sequence)
 ]]></Implementation>
 </Method>