Index: APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml
===================================================================
diff -u -r71600 -r71619
--- APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml	(.../MaatwerkProductEtiketten.cls.xml)	(revision 71600)
+++ APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml	(.../MaatwerkProductEtiketten.cls.xml)	(revision 71619)
@@ -50,6 +50,10 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DnaCodeRepository">
+<Type>DOM.Halux.AAP.DnaCodeRepository</Type>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -62,6 +66,7 @@
 	Set ..DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New()
 	Set ..ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
 	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
+	Set ..DnaCodeRepository = ##class(DOM.Halux.AAP.DnaCodeRepository).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -124,7 +129,9 @@
 					Set Etiket = ..EtiketBuilder.MaakMaatwerkProductInVHossViaVHossProdSeqItem(UitvoeringInfo)
 				} Else {
 					#dim ToeleveringID As %String = UitvoeringInfo.ToeleveringID
-					Set Etiket = ..EtiketBuilder.MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID,UitvoeringInfo.ToeleveringLijnID,1,UitvoeringInfo.PrinterID,UitvoeringInfo.SequentieNummer,,,IsKlantEtiketSpaceStep)
+					#dim DnaCode As %String = ..GeefDnaCodeVoorExtraAfdruk(UitvoeringInfo)
+					
+					Set Etiket = ..EtiketBuilder.MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID, UitvoeringInfo.ToeleveringLijnID, 1, UitvoeringInfo.PrinterID, UitvoeringInfo.SequentieNummer, DnaCode,, IsKlantEtiketSpaceStep)
 				}
 				Do ..Etiketten.Insert(Etiket)
 			} Catch {
@@ -230,6 +237,24 @@
 	Quit IsSpoelbakeLade || IsSifonLade || IsSmalleLade
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDnaCodeVoorExtraAfdruk">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCode As %String = ""
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
+	#dim DnaCodeLijst As %ListOfObjects = ##class(TECH.ListUtils).IteratorToList(DnaCodeIterator)
+		
+	If (DnaCodeLijst.Size = 1) {
+		#dim DnaCodeObject As DOM.Halux.AAP.DnaCode = DnaCodeLijst.GetAt(1)
+		Set DnaCode = DnaCodeObject.DnaCode
+	}
+	
+	Quit DnaCode
+]]></Implementation>
+</Method>
 </Class>