Index: APPS/Halux/Docs/EtiketBuilder.cls.xml
===================================================================
diff -u -r60627 -r71681
--- APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 60627)
+++ APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 71681)
@@ -43,8 +43,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProjectSettingsAPI">
+<Type>DOM.common.impl.ProjectSettingsAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BarcodeService">
+<Type>APPS.algemeen.BarcodeService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",MaatwerkProductEtiketBuilder:APPS.Halux.Docs.impl.LadeKlantEtiketBuilder="",PartijApi:DOM.PARTIJ.PartijAPI=""</FormalSpec>
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",MaatwerkProductEtiketBuilder:APPS.Halux.Docs.impl.LadeKlantEtiketBuilder="",PartijApi:DOM.PARTIJ.PartijAPI="",BarcodeService:APPS.algemeen.BarcodeService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -59,6 +69,8 @@
 	Set ..VHossHelper = ##class(BL.PPS.TBX.VHossHelper).%New()
 	Set ..VHossService = ##class(APPS.Halux.common.impl.VHossService).%New()
 	Set ..DnaCodeService =  ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService")
+	Set ..ProjectSettingsAPI = ##class(DOM.common.impl.ProjectSettingsAPI).%New()
+	Set ..BarcodeService = $$$Inject(BarcodeService, ##class(APPS.algemeen.BarcodeService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -86,7 +98,7 @@
 </Method>
 
 <Method name="MaakMaatwerkProductViaToeleveringEnLijnID">
-<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,VoorkeurPrinter:%String="",QueueID:%String="",DnaCode:%String=""</FormalSpec>
+<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,VoorkeurPrinter:%String="",QueueID:%String="",DnaCode:%String="",Herafdruk:%Boolean=$$$False,IsKlantEtiketSpaceStep:%Boolean=$$$False</FormalSpec>
 <ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
@@ -96,20 +108,44 @@
 	If $$$HasLength(Toelevering.GeefOorsprongKetting()) {
 		Set Partij = ..PartijApi.GeefPartij(Toelevering.GeefEindPersonality().GeefKlantID())
 	}
-	// zoeken op 	GeefVolgendeAfTeDrukkenDnaCode --> kijken of daar ook de if  DnaCode = leeg nodig is
-	If DnaCode="" && ##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDnaCodeOpEtiket(){
-		Set DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringID, ProductID, QueueID)
+	If $$$Not($$$HasLength(DnaCode)) && ..ProjectSettingsAPI.IsActiefDnaCodeOpEtiket(){
+		If $$$Not(Herafdruk) {
+			// afhankelijk van welk ladetype kan queueid ofwel de queueid ofwel de sequentienummer bevatten
+			// GeefVolgendeAfTeDrukkenDnaCode verwacht sequentienummer
+			#dim TeGebruikenSequentienummer As %String = QueueID
+			Set Queue = ##class(DS.PPS.TBX.Queue).%OpenId(QueueID)
+			If $isObject(Queue) {
+				Set TeGebruikenSequentienummer = Queue.Sequence
+			}
+			Set DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringID, ProductID, TeGebruikenSequentienummer, Herafdruk,, IsKlantEtiketSpaceStep)
+		}
 		Set Aantal = 1
 	 }
 		
-	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..MaatwerkProductEtiketBuilder.MaakBasisMaatwerkProductEtiket(ProductID,Partij,Aantal, DnaCode)	
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..MaatwerkProductEtiketBuilder.MaakBasisMaatwerkProductEtiket(ProductID,Partij,Aantal, DnaCode, IsKlantEtiketSpaceStep)	
 	Set Etiket = ..MaatwerkProductEtiketBuilder.VulInToeleveringInfo(Etiket,Toelevering,ToeleveringLijn,Partij)
 	Set Etiket.ProductieWeek = ..MaatwerkProductEtiketBuilder.FormateerProductieWeek(Toelevering.GeefDueOutTime())
 	Do ..PrinterInstellen(Etiket,VoorkeurPrinter)
 	Quit Etiket
 ]]></Implementation>
 </Method>
 
+<Method name="MaakExtraMaatwerkProductVoorBewerkingscenter">
+<FormalSpec>DnaCode:%String="",ProductId:%String,Layout:%String,Device:%String</FormalSpec>
+<ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
+<Implementation><![CDATA[
+	Set Etiket = ##class(BL.Etiket.LadeKlantEtiket).%New("")
+	Set Etiket.Info1 = "**ORGALUX**"
+	Set Etiket.Info2 = "BWC"
+	Set Etiket.DnaCode = DnaCode
+	Set Etiket.Layout = Layout
+	Set Etiket.Device = Device
+	Set Etiket.BarcodeTekst = ..BarcodeService.GeefLeesbaarDossierBarcodeVanProduct(ProductId)
+	
+	Quit Etiket
+]]></Implementation>
+</Method>
+
 <Method name="MaakMaatwerkProductViaToelevering">
 <FormalSpec>ToeleveringID:%String,ToeleveringLijnVolgNr:%String,Aantal:%Integer,VoorkeurPrinter:%String="",DnaCode:%String=""</FormalSpec>
 <ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
@@ -121,7 +157,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)
@@ -133,7 +169,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)		
@@ -164,7 +200,7 @@
 	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
 	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Toelevering.GeefKlantID())
 		
-	#dim DnaCode As %String = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(VHossItem.ToeleveringID, ProductID)
+	#dim DnaCode As %String = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(VHossItem.ToeleveringID, ProductID, VHossItem.SequentieNummer)
 	#dim Etiket As BL.Etiket.LadeKlantEtiketVHoss = ..MaatwerkProductEtiketBuilder.MaakMaatwerkProductInVHossEtiket(ProductID,Partij,1,DnaCode)		
 	Set Etiket = ..MaatwerkProductEtiketBuilder.VulInToeleveringInfo(Etiket,Toelevering,ToeleveringLijn,Partij)
 	Set Etiket.ProductieWeek = ..MaatwerkProductEtiketBuilder.FormateerProductieWeek(Toelevering.GeefDueOutTime())