Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r60667 -r60679
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 60667)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 60679)
@@ -96,11 +96,10 @@
 			#dim DnaCodeInfo As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
 			//Set PRNr = DnaCodeInfo.ProductNummer
 			
-			Do ##class(CHUI.Prod.ProductLabel).DoOne(DnaCodeInfo.ProductNummer) //PRNr
+			//Do ##class(CHUI.Prod.ProductLabel).DoOne(DnaCodeInfo.ProductNummer) //PRNr
+			//Do ##class(CHUI.Prod.ProductLabel).PrintProductEtiketMetDnaCode(DnaCodeInfo) //PRNr
 		}
-		
-		
-		
+						
 		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -196,6 +195,9 @@
 			Quit
 		}		
 		
+		//TECH.FrequentieTabel  - 
+		// Values instekeen 
+		
 		#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")
@@ -222,59 +224,67 @@
 		
 	}
 		
+	// iterator van iteratoren van alle lijsten
+	// ItereatorOfIterators
+	// gaat factory op roepen en print klant etiket uitvoeren
+	// PrintKlantEtiketVanDnaCodes --> PrintKlantEtiketMetDnaCodes
+	// PrintKlantEtiket dus gebruiken bij de printer nog de dnacode gaan toevoegen
+	// de factory kan gebruikt worden dan ook
+	// eerst NBO horen dan Pieter
 	
+	
 	#dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
 	
 	If (KaderdeurDnaCodesLijst.Count() > 0) {
 		#dim KaderdeurDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(KaderdeurDnaCodesLijst)
 		
 		Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.KAD.Printer).%New()
-		Do Printer.PrintKlantEtiketVanDnaCodes(KaderdeurDnaCodesIterator)		
+		Do Printer.PrintKlantEtiket(,, KaderdeurDnaCodesLijst)		
 	}
 	
 	If (MatDnaCodesLijst.Count() > 0) {
 		#dim MatDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MatDnaCodesLijst)
 		
 		Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Mat.Printer).%New()
-		Do Printer.PrintKlantEtiketVanDnaCodes(MatDnaCodesIterator)
+		Do Printer.PrintKlantEtiket(,, MatDnaCodesLijst)
 	}
 	
 	If (InpakDnaCodesLijst.Count() > 0) {
 		#dim InpakDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(InpakDnaCodesLijst)
 		
 		Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Inpak.Printer).%New()
-		Do Printer.PrintKlantEtiketVanDnaCodes(InpakDnaCodesIterator)
+		Do Printer.PrintKlantEtiket(,, InpakDnaCodesLijst)
 	}
 	
 	If (OnbepaaldDnaCodesLijst.Count() > 0) {
 		#dim OnbepaaldDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OnbepaaldDnaCodesLijst)
 		
 		Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Onbepaald.Printer).%New()
-		Do Printer.PrintKlantEtiketVanDnaCodes(OnbepaaldDnaCodesIterator)
+		Do Printer.PrintKlantEtiket(,, OnbepaaldDnaCodesLijst)
 	}
 	
 	If (ProductOpMaatDnaCodesLijst.Count() > 0) {
 		#dim ProductOpMaatDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ProductOpMaatDnaCodesLijst)
 		
 		Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.ProductOpMaat.Printer).%New()
-		Do Printer.PrintKlantEtiketVanDnaCodes(ProductOpMaatDnaCodesIterator)
+		Do Printer.PrintKlantEtiket(,, ProductOpMaatDnaCodesLijst)
 	}
 	
 	If (KastDnaCodesLijst.Count() > 0) {
 		Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkInVHOSS.EtiketPrinter).%New()
-		Do Printer.PrintKlantEtiket(,,,,, KastDnaCodesLijst)
+		Do Printer.PrintKlantEtiket(,, KastDnaCodesLijst)
 	}
 	
 	If (TAORboxDnaCodesLijst.Count() > 0) {
 		Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.Geen.EtiketPrinter).%New()
-		Do Printer.PrintKlantEtiket(,,,,, TAORboxDnaCodesLijst)	
+		Do Printer.PrintKlantEtiket(,, TAORboxDnaCodesLijst)	
 	}
 	
 	If (MaatwerkDnaCodesLijst.Count() > 0) {
 		#dim MaatwerkDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(MaatwerkDnaCodesLijst)
 		
 		Set Printer = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.ProductOpMaat.Printer).%New()
-		Do Printer.PrintKlantEtiketVanDnaCodes(MaatwerkDnaCodesIterator)
+		Do Printer.PrintKlantEtiket(,, MaatwerkDnaCodesLijst)
 	}
 
 	Quit ErrorMessage
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml
===================================================================
diff -u -r60627 -r60679
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60627)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60679)
@@ -28,55 +28,51 @@
 </Method>
 
 <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>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Set ..Parameters = Parameters
 	
-	set Q="K", U=";", D="\"
-	set F="*27,""[""_(FP\100)_"";""_(FP#100)_""f"""
-	set F1="/ED"
+	Set Q="K", U=";", D="\"
+	Set F="*27,""[""_(FP\100)_"";""_(FP#100)_""f"""
+	Set F1="/ED"
 
-	new itToeleveringen , Toelevering , Lijn , VoorkeurPrinter, PrintEtiketten
+	New itToeleveringen , Toelevering , Lijn , VoorkeurPrinter, PrintEtiketten
 	
 	Kill %Print2File
 	Set %Print2File=1
 	Set PrintEtiketten = ##class(%ListOfObjects).%New()
 	#dim VoorkeurPrinter As %String = "HALUX_productie_TAOR"
+		
+	If (LijstDnacode = "") {
+		Set itToeleveringen = Batch.GeefToeleveringIterator()
 	
-	set itToeleveringen = Batch.GeefToeleveringIterator()
 	
+		While itToeleveringen.HasNext() {
+			#dim Toelevering As DOM.AKP.Toelevering = itToeleveringen.Next()
 	
-	while itToeleveringen.HasNext() {
-		#dim Toelevering As DOM.AKP.Toelevering = itToeleveringen.Next()
+			Set itLijnen = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+			While itLijnen.HasNext() {
+				#dim Lijn As DOM.AKP.ProductToeleveringLijn = itLijnen.Next()
+				#dim DnaCode As %String = ..GeefDnaCode(Toelevering.GeefID(), Lijn.GeefProductID())
+				Do PRINT^HADETIK("|PRN|\\FOP\ICT","T",Toelevering.GeefID(),Lijn.GeefLijnVolgNr(),Lijn.GeefProductID(),..GeefLijnAantal(Lijn),VoorkeurPrinter,DnaCode)
+			}
+		}	
+		
+	} Else {
+		#dim DnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(LijstDnacode)
+		Do ..PrintKlantEtiketMetDnaCodes(DnaCodesIterator)
+	}
 	
-		set itLijnen = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
-		while itLijnen.HasNext() {
-			#dim Lijn As DOM.AKP.ProductToeleveringLijn = itLijnen.Next()
-			#dim DnaCode As %String = ..GeefDnaCode(Toelevering.GeefID(), Lijn.GeefProductID())
-			do PRINT^HADETIK("|PRN|\\FOP\ICT","T",Toelevering.GeefID(),Lijn.GeefLijnVolgNr(),Lijn.GeefProductID(),..GeefLijnAantal(Lijn),VoorkeurPrinter,DnaCode)
-		}
-	}	
 	Do PrintNaarDropfolder^HADETIK("",VoorkeurPrinter)
 	Kill %Print2File
 ]]></Implementation>
 </Method>
 
-<Method name="PrintKlantEtiketVanDnaCodes">
+<Method name="PrintKlantEtiketMetDnaCodes">
 <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
@@ -89,10 +85,7 @@
 		; 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>