Index: APPS/Halux/Docs/EtiketBuilder.cls.xml
===================================================================
diff -u -r51366 -r59252
--- APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 51366)
+++ APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 59252)
@@ -38,6 +38,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DnaCodeService">
+<Type>APPS.Halux.AAP.DnaCodeService</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>
 <Private>1</Private>
@@ -53,6 +58,7 @@
 	Set ..MaatwerkProductEtiketBuilder = $$$Inject(MaatwerkProductEtiketBuilder, ##class(APPS.Halux.Docs.impl.LadeKlantEtiketBuilder).%New())
 	Set ..VHossHelper = ##class(BL.PPS.TBX.VHossHelper).%New()
 	Set ..VHossService = ##class(APPS.Halux.common.impl.VHossService).%New()
+	Set ..DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -80,7 +86,7 @@
 </Method>
 
 <Method name="MaakMaatwerkProductViaToeleveringEnLijnID">
-<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,VoorkeurPrinter:%String=""</FormalSpec>
+<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,VoorkeurPrinter:%String="",QueueID:%String=""</FormalSpec>
 <ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
@@ -90,7 +96,8 @@
 	If $$$HasLength(Toelevering.GeefOorsprongKetting()) {
 		Set Partij = ..PartijApi.GeefPartij(Toelevering.GeefEindPersonality().GeefKlantID())
 	}	
-	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..MaatwerkProductEtiketBuilder.MaakBasisMaatwerkProductEtiket(ProductID,Partij,Aantal)	
+	#dim DnaCode As %String = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringID, ProductID, QueueID)
+	#dim Etiket As BL.Etiket.LadeKlantEtiket = ..MaatwerkProductEtiketBuilder.MaakBasisMaatwerkProductEtiket(ProductID,Partij,Aantal, DnaCode)	
 	Set Etiket = ..MaatwerkProductEtiketBuilder.VulInToeleveringInfo(Etiket,Toelevering,ToeleveringLijn,Partij)
 	Set Etiket.ProductieWeek = ..MaatwerkProductEtiketBuilder.FormateerProductieWeek(Toelevering.GeefDueOutTime())
 	Do ..PrinterInstellen(Etiket,VoorkeurPrinter)