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())
Index: vhTest/Fake/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml
===================================================================
diff -u -r60495 -r60627
--- vhTest/Fake/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(.../EtiketAfdrukkenHelper.cls.xml)	(revision 60495)
+++ vhTest/Fake/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(.../EtiketAfdrukkenHelper.cls.xml)	(revision 60627)
@@ -14,6 +14,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDnaCodesVoorBatchId">
+<FormalSpec>DnaCodeIterator:TECH.Iterator,BatchId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="MaakBatchIdIteratorVoorDnaCodes">
+<FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
 <Method name="MaakDnaCodeIteratorVanDnaCodeStringLijst">
 <FormalSpec>DnaCodeStringLijst:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r60524 -r60627
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 60524)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 60627)
@@ -107,27 +107,40 @@
 <FormalSpec>KlantEtiketAfdrukkenRequest:WS.Halux.AAP.KlantEtiketAfdrukkenRequest</FormalSpec>
 <ReturnType>WS.Halux.AAP.KlantEtiketAfdrukkenResponse</ReturnType>
 <Implementation><![CDATA[
-	
+	Do ##class(Tools.Wlip).%New(43).String("IN KlantEtiketAfdrukken")
 	Try {
+		Do ##class(Tools.Wlip).%New(43).String("IN KlantEtiketAfdrukken")
 		Set Response = ##class(WS.Halux.AAP.KlantEtiketAfdrukkenResponse).%New()
 		
 		If KlantEtiketAfdrukkenRequest.DnaCodes.Count() = 0 {
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen DnaCodes aangeleverd om af te drukken"))
 		}
 		
+		Do ##class(Tools.Wlip).%New(43).String("IN KlantEtiketAfdrukken: voor iteratoer")
+		
 		#dim DnaCodeIterator As TECH.Iterator = ..EtiketAfdrukkenHelper.MaakDnaCodeIteratorVanDnaCodeStringLijst(KlantEtiketAfdrukkenRequest.DnaCodes)
 		#dim DnaCode As TECH.Iterator = DnaCodeIterator.Next()
 		Do DnaCodeIterator.Reset()
 		
-		#dim TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..EtiketAfdrukkenHelper.GeefWerkpost(DnaCode))
+		Do ##class(Tools.Wlip).%New(43).String("TeGebruikenPrinter")
 		
-		If TeGebruikenPrinter = "" {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor DnaCode '"_DnaCode.DnaCode_"'"))
-		}
+		//#dim TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..EtiketAfdrukkenHelper.GeefWerkpost(DnaCode))
+			
 		
+		//If TeGebruikenPrinter = "" {
+		//	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor DnaCode '"_DnaCode.DnaCode_"'"))
+		//}
+		
 		// TODO iplementatie
+		#dim resultaat = ..VoerUitKlantEtiketAfdrukken(DnaCodeIterator)
 		
-		Set Response.Header.Status = "200"
+		If (resultaat = "") {
+			Set Response.Header.Status = "200"
+		} Else {
+			Set Response.Header.Status = "100"
+		}
+		
+		
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
@@ -142,6 +155,121 @@
 <FormalSpec>aantalDnaCodes:%Integer</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 </Method>
+
+<Method name="VoerUitKlantEtiketAfdrukken">
+<FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	// !!!!!!!!!!!!!!!!!!! ---  TODO   ------  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  
+	// !!!!!!!!!! Refactoren en checken of alle dna codes in dezelfde batch zitten want per batch moet er een apart bestand zijn.
+	// !!!!!!!!!! Wlips weg doen
+	// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+	
+	#dim ErrorMessage As %String = ""
+
+	#dim KaderdeurDnaCodesLijst = ##class(%ListOfDataTypes).%New()
+	#dim MatDnaCodesLijst = ##class(%ListOfDataTypes).%New()
+	#dim KastDnaCodesLijst = ##class(%ListOfDataTypes).%New()
+	#dim TAORboxDnaCodesLijst = ##class(%ListOfDataTypes).%New()
+	#dim OverigeDnaCodesLijst = ##class(%ListOfDataTypes).%New()
+	
+	While DnaCodeIterator.HasNext() {
+		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+		#dim BatchId As %Integer = DnaCode.BatchId
+		#dim BestaatBatch As %Boolean = ##class(APPS.Halux.common.impl.BatchService).%New().BestaatBatch(BatchId)
+			
+		If ($$$Not(BestaatBatch)) {
+			Set ErrorMessage = ErrorMessage_" Batch ("_DnaCode.BatchId_")niet gevonden voor Dnacode ("_DnaCode.DnaCode_")"
+			Quit
+		}		
+		
+		#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchId)
+				
+		If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur()) {
+			Do ##class(Tools.Wlip).%New(43).String("kaderdeur category")
+			Do KaderdeurDnaCodesLijst.Insert(DnaCode)
+		} elseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Mat()) {
+			Do ##class(Tools.Wlip).%New(43).String("mat category")
+			Do MatDnaCodesLijst.Insert(DnaCode)
+		} Else {
+			If (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {			
+			Do ##class(Tools.Wlip).%New(43).String("kast category")
+				Do KastDnaCodesLijst.Insert(DnaCode)
+			} Else {
+				If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
+					Do ##class(Tools.Wlip).%New(43).String("toar category")
+					Do TAORboxDnaCodesLijst.Insert(DnaCode)
+				} Else {
+					Do ##class(Tools.Wlip).%New(43).String("andere category")
+					Do OverigeDnaCodesLijst.Insert(DnaCode)
+				}
+			}
+		}
+	}
+	
+	If (KaderdeurDnaCodesLijst.Count() > 0) {
+		#dim KaderdeurDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(KaderdeurDnaCodesLijst)
+		
+		Set KADPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.KAD.Printer).%New()
+		Do KADPrinter.PrintKlantEtiketVanDnaCodes(KaderdeurDnaCodesIterator)		
+	}
+	
+	If (MatDnaCodesLijst.Count() > 0) {
+		#dim MatDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MatDnaCodesLijst)
+		
+		Set MatPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Mat.Printer).%New()
+		Do MatPrinter.PrintKlantEtiketVanDnaCodes(MatDnaCodesIterator)
+	}
+	
+	If (KastDnaCodesLijst.Count() > 0) {
+		Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkInVHOSS.EtiketPrinter).%New()
+		Do KlantEtiketPrinter.PrintKlantEtiket(,,,,, KastDnaCodesLijst)
+	}
+	
+	If (TAORboxDnaCodesLijst.Count() > 0) {
+		Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.Geen.EtiketPrinter).%New()
+		Do KlantEtiketPrinter.PrintKlantEtiket(,,,,, TAORboxDnaCodesLijst)	
+	}
+	
+	If (OverigeDnaCodesLijst.Count() > 0) {
+		#dim OverigeDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OverigeDnaCodesLijst)
+		
+		Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.ProductOpMaat.Printer).%New()
+		Do KlantEtiketPrinter.PrintKlantEtiketVanDnaCodes(OverigeDnaCodesIterator)
+	}
+
+	;#dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
+	;If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur()) {
+	;	Set Printer    = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.KAD.Printer).%New()
+	;	Set KADPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.KAD.Printer).%New()
+	;} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Mat()) {
+	;	Set Printer    = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Mat.Printer).%New()
+	;	Set MatPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Mat.Printer).%New()
+	;} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Inpak()) {
+	;	Set Printer    = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Inpak.Printer).%New()
+	;} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Onbepaald()) {
+	;	Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Onbepaald.Printer).%New()
+	;} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).ProductOpMaat()) {
+	;	Set Printer            = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.ProductOpMaat.Printer).%New()
+	;	Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkEtiketPrinter).%New()
+	;} ElseIf (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {			
+	;	Set Printer            = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkInVHOSS.EtiketPrinter).%New()
+	;	Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkInVHOSSEtiketPrinter).%New()
+	;} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
+	;	Set Printer            = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.Geen.EtiketPrinter).%New()
+	;	Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.GeenEtiketPrinter).%New()
+	;} Else {
+	;	Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Maatwerk.EtiketPrinter).%New()
+	;} 
+	
+	// Dit moet nieuwe code worden met facotry patter n werken
+	//Set PrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New()
+	//#dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
+	//Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
+	
+	Quit ErrorMessage
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml
===================================================================
diff -u -r59977 -r60627
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 59977)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 60627)
@@ -32,13 +32,18 @@
 </Property>
 
 <Method name="PrintKlantEtiket">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters,LijstDnacode:%ListOfDataTypes=""</FormalSpec>
 <Implementation><![CDATA[
 	Set ..DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New()
 	Set ..blLabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
 	
-	Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal())
-	Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten()
+	If (LijstDnacode = "")  {
+		Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal())
+		Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten()
+	} Else {
+		Do ..BepaalEtikettenMetDnaCodes(LijstDnacode)
+	}
+	
 	Do ..VoegToeEtiketten()
 	Do ..blLabelPrinter.Print2Bartender()
 ]]></Implementation>
@@ -55,22 +60,19 @@
 <FormalSpec>QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.common.Print.AbstractLabel</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="IsPrintenNodig">
 <Abstract>1</Abstract>
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="TussenEtiketNodig">
 <Abstract>1</Abstract>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="BepaalEtiketten">
@@ -127,6 +129,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalEtikettenMetDnaCodes">
+<FormalSpec>LijstDnacode:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	#dim VoorkeurPrinter As %String = "HALUX"
+	#dim DnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(LijstDnacode)
+	#dim lengtelijst As %Boolean = DnaCodesIterator.HasNext()
+	
+	While (DnaCodesIterator.HasNext()) {
+		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodesIterator.Next()
+		#dim AantalEtiketten As %Integer = 1
+		#dim Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(DnaCode.BatchId)
+		
+		#dim EtiketDnaCode As BL.Etiket.LadeKlantEtiket = ..GeefEtiket(DnaCode.SequentieNummer, DnaCode.BatchId, DnaCode.Toelevering, DnaCode.ToeleveringLijn, AantalEtiketten, VoorkeurPrinter, DnaCode.DnaCode)			
+		Set EtiketDataMetTussenEtiketTrigger = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger).%New()
+		Set EtiketDataMetTussenEtiketTrigger.Etiket = EtiketDnaCode
+				
+		Do ..Etiketten.Insert(EtiketDataMetTussenEtiketTrigger)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="GeefTussenEtiketTriggerKeyList">
 <FormalSpec>Batch:APPS.Halux.common.Batch,SequenceInfo:APPS.Halux.common.dto.ProductieSequentie</FormalSpec>
 <Private>1</Private>
@@ -140,7 +163,6 @@
 <FormalSpec>BatchID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
-<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="VoegToeEtiketten">
Index: vhTest/Mock/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml
===================================================================
diff -u -r60495 -r60627
--- vhTest/Mock/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(.../EtiketAfdrukkenHelper.cls.xml)	(revision 60495)
+++ vhTest/Mock/WSimpl/Halux/AAP/AfdrukService/EtiketAfdrukkenHelper.cls.xml	(.../EtiketAfdrukkenHelper.cls.xml)	(revision 60627)
@@ -15,13 +15,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDnaCodesVoorBatchId">
+<FormalSpec>DnaCodeIterator:TECH.Iterator,BatchId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefDnaCodesVoorBatchId",DnaCodeIterator,BatchId)
+]]></Implementation>
+</Method>
+
 <Method name="GeefWerkpost">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefWerkpost",DnaCode)
 ]]></Implementation>
 </Method>
 
+<Method name="MaakBatchIdIteratorVoorDnaCodes">
+<FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakBatchIdIteratorVoorDnaCodes",DnaCodeIterator)
+]]></Implementation>
+</Method>
+
 <Method name="MaakDnaCodeIteratorVanDnaCodeStringLijst">
 <FormalSpec>DnaCodeStringLijst:%String</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Maatwerk/EtiketPrinter.cls.xml
===================================================================
diff -u -r59963 -r60627
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Maatwerk/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 59963)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Maatwerk/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 60627)
@@ -4,10 +4,10 @@
 <Super>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinter</Super>
 
 <Method name="GeefEtiket">
-<FormalSpec>QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String</FormalSpec>
+<FormalSpec>QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String,Dnacode:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.common.Print.AbstractLabel</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.Halux.Docs.EtiketBuilder).%New().MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID,ToeleveringLijnID,AantalEtiketten,VoorkeurPrinter,QueueID)
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.Docs.EtiketBuilder).%New().MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID,ToeleveringLijnID,AantalEtiketten,VoorkeurPrinter,QueueID,Dnacode)
 ]]></Implementation>
 </Method>
 
@@ -35,6 +35,10 @@
 <Implementation><![CDATA[	quit 1
 ]]></Implementation>
 </Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
 </Class>
 
 
Index: HADETIK.mac.rou
===================================================================
diff -u -r60217 -r60627
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 60217)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 60627)
@@ -410,10 +410,6 @@
  If $$HeeftMaatwerkEtiketNodig(PRNr){
 	#dim Etiket As APPS.common.Print.AbstractLabel
  
-	 If DnaCode="" && ObjTyp = "T" && ##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDnaCodeOpEtiket(){
-		Set DnaCode = ##class(APPS.Halux.AAP.DnaCodeService).%New().GeefVolgendeAfTeDrukkenDnaCode(ObjRef,PRNr,"") 
-		Set Aantal = 1
-	 }
 	#dim AantalEtiketten As %Integer = $G(C("AANTAL"),Aantal)
  	
 	If ObjTyp="T" {
@@ -430,9 +426,7 @@
  
 	 If $E($$$PRGet($$$KortTekst),1,3)="Z37" Do  Quit ; Glazen boxside op maat
 	 . Do ##class(CHUI.Prod.ProductLabel).PrintVHMaatwerkMetDnaCodes(PRNr,$G(C("KLNMBIG")),$G(C("TOENR")),$G(C("ORDNR")),Aantal,"",$G(C("DNACODE")))
- 
- 
- 
+   
 	 If DnaCode="" && ObjTyp = "T" && ##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDnaCodeOpEtiket(){
 		Set DnaCode = ##class(APPS.Halux.AAP.DnaCodeService).%New().GeefVolgendeAfTeDrukkenDnaCode(ObjRef,PRNr,"") 
 		Set Aantal = 1
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml
===================================================================
diff -u -r60082 -r60627
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60082)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60627)
@@ -62,6 +62,40 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PrintKlantEtiketVanDnaCodes">
+<FormalSpec>DnaCodesIterator:TECH.Iterator=""</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Set Q="K", U=";", D="\"
+	Set F="*27,""[""_(FP\100)_"";""_(FP#100)_""f"""
+	Set F1="/ED"
+
+	New VoorkeurPrinter, PrintEtiketten
+	
+	Kill %Print2File
+	Set %Print2File=1
+	Set PrintEtiketten = ##class(%ListOfObjects).%New()
+	#dim VoorkeurPrinter As %String = "HALUX_productie_TAOR"
+	
+	While DnaCodesIterator.HasNext() {
+		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodesIterator.Next()
+		Set aantal = 1 //..GeefLijnAantal(DnaCode.Lijn) // Moet iets andere zijn want dnacode.lijn gaat over de productielijn
+		
+		;TODO controleren met de juiste data of aantal hetzelfde is als toelevering.aantal
+		;Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+		;#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ToeleveringAPI.GeefToeleveringLijn(DnaCode.Toelevering, DnaCode.ToeleveringLijn)
+		;Set aantallijnen = ToeleveringLijn.GeefAantal()
+		; Waarschijnlijk is aantal in dit geval niet relevant .. als ik bekijk wat er in de hadetik mee gedaan wordt
+		; Tom eens vragen to be sure
+		Set TLNr=$G(^TO("IU",DnaCode.Toelevering,DnaCode.ToeleveringLijn))
+		Do PRINT^HADETIK("|PRN|\\FOP\ICT","T",DnaCode.Toelevering,TLNr,DnaCode.ProductNummer,aantal,VoorkeurPrinter,DnaCode.DnaCode)
+	}	
+	
+	Do PrintNaarDropfolder^HADETIK("",VoorkeurPrinter)
+	Kill %Print2File
+]]></Implementation>
+</Method>
+
 <Method name="GeefResultaatOmschrijving">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/MaatwerkInVHOSS/EtiketPrinter.cls.xml
===================================================================
diff -u -r59963 -r60627
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/MaatwerkInVHOSS/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 59963)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/MaatwerkInVHOSS/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 60627)
@@ -4,14 +4,14 @@
 <Super>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinter</Super>
 
 <Method name="GeefEtiket">
-<FormalSpec>QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String</FormalSpec>
+<FormalSpec>QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String,Dnacode:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.common.Print.AbstractLabel</ReturnType>
 <Implementation><![CDATA[
 	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)
+	Quit EtiketBuilder.MaakMaatwerkProductInVHossViaToelevering(ToeleveringID,ToeleveringLijnID,AantalEtiketten,BatchID,WPVerpak,VoorkeurPrinter,Dnacode)
 ]]></Implementation>
 </Method>
 
@@ -42,6 +42,10 @@
 <Implementation><![CDATA[	quit 0
 ]]></Implementation>
 </Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
 </Class>