Index: APPS/Halux/Docs/EtiketBuilder.cls.xml
===================================================================
diff -u -r59590 -r60627
--- APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 59590)
+++ APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 60627)
@@ -86,7 +86,7 @@
 </Method>
 
 <Method name="MaakMaatwerkProductViaToeleveringEnLijnID">
-<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,VoorkeurPrinter:%String="",QueueID:%String=""</FormalSpec>
+<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,VoorkeurPrinter:%String="",QueueID:%String="",DnaCode:%String=""</FormalSpec>
 <ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
@@ -95,8 +95,13 @@
 	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Toelevering.GeefKlantID())
 	If $$$HasLength(Toelevering.GeefOorsprongKetting()) {
 		Set Partij = ..PartijApi.GeefPartij(Toelevering.GeefEindPersonality().GeefKlantID())
-	}	
-	#dim DnaCode As %String = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringID, ProductID, QueueID)
+	}
+	// 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)
+		Set Aantal = 1
+	 }
+		
 	#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())
@@ -106,17 +111,17 @@
 </Method>
 
 <Method name="MaakMaatwerkProductViaToelevering">
-<FormalSpec>ToeleveringID:%String,ToeleveringLijnVolgNr:%String,Aantal:%Integer,VoorkeurPrinter:%String=""</FormalSpec>
+<FormalSpec>ToeleveringID:%String,ToeleveringLijnVolgNr:%String,Aantal:%Integer,VoorkeurPrinter:%String="",DnaCode:%String=""</FormalSpec>
 <ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
 	#dim ToeleveringLijnID As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijnViaVolgNr(ToeleveringLijnVolgNr).GeefID()
-	Quit ..MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID,ToeleveringLijnID,Aantal,VoorkeurPrinter)
+	Quit ..MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID,ToeleveringLijnID,Aantal,VoorkeurPrinter,, DnaCode)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakMaatwerkProductInVHossViaToelevering">
-<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,BatchID:%String,WPVerpak:DS.PPS.TBX.sub.emWPVerpak,VoorkeurPrinter:%String=""</FormalSpec>
+<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String,Aantal:%Integer,BatchID:%String,WPVerpak:DS.PPS.TBX.sub.emWPVerpak,VoorkeurPrinter:%String="",DnaCode:%String=""</FormalSpec>
 <ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
 <Implementation><![CDATA[
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringID)
@@ -127,7 +132,10 @@
 		Set Partij = ..PartijApi.GeefPartij(Toelevering.GeefEindPersonality().GeefKlantID())
 	}
 	
-	#dim DnaCode As %String = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringID, ProductID)
+	If (DnaCode = "") {
+		Set DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringID, ProductID)
+	}
+		
 	#dim Etiket As BL.Etiket.LadeKlantEtiketVHoss = ..MaatwerkProductEtiketBuilder.MaakMaatwerkProductInVHossEtiket(ProductID,Partij,Aantal,DnaCode)		
 	Set Etiket = ..MaatwerkProductEtiketBuilder.VulInToeleveringInfo(Etiket,Toelevering,ToeleveringLijn,Partij)
 	Set Etiket.ProductieWeek = ..MaatwerkProductEtiketBuilder.FormateerProductieWeek(Toelevering.GeefDueOutTime())