Index: APPS/Halux/PPS/AansturingActie/common/KlantEtiket/Printer.cls.xml
===================================================================
diff -u -r60704 -r60732
--- APPS/Halux/PPS/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60704)
+++ APPS/Halux/PPS/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60732)
@@ -7,7 +7,7 @@
 
 <Method name="PrintKlantEtiket">
 <Abstract>1</Abstract>
-<FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters="",LijstDnacode:%ListOfDataTypes=""</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters="",DnaCodeIterator:TECH.Iterator=""</FormalSpec>
 </Method>
 
 <Method name="GeefResultaatOmschrijving">
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml
===================================================================
diff -u -r60627 -r60732
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 60627)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 60732)
@@ -32,17 +32,19 @@
 </Property>
 
 <Method name="PrintKlantEtiket">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters,LijstDnacode:%ListOfDataTypes=""</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters,DnaCodeIterator:TECH.Iterator=""</FormalSpec>
 <Implementation><![CDATA[
 	Set ..DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New()
 	Set ..blLabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
 	
-	If (LijstDnacode = "")  {
+	Do DnaCodeIterator.Reset()
+	If (DnaCodeIterator.HasNext()) {
+		Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator)
+	} Else {
 		Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal())
 		Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten()
-	} Else {
-		Do ..BepaalEtikettenMetDnaCodes(LijstDnacode)
 	}
+
 	
 	Do ..VoegToeEtiketten()
 	Do ..blLabelPrinter.Print2Bartender()
@@ -130,14 +132,13 @@
 </Method>
 
 <Method name="BepaalEtikettenMetDnaCodes">
-<FormalSpec>LijstDnacode:%ListOfDataTypes</FormalSpec>
+<FormalSpec>DnaCodeIterator:TECH.Iterator=""</FormalSpec>
 <Implementation><![CDATA[
+	Do DnaCodeIterator.Reset()
 	#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()
+	While (DnaCodeIterator.HasNext()) {
+		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
 		#dim AantalEtiketten As %Integer = 1
 		#dim Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(DnaCode.BatchId)
 		
Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r60731 -r60732
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 60731)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 60732)
@@ -302,8 +302,11 @@
 							
 			}
 			
+			Do ##class(Tools.Wlip).%New(43).String("VOOR GeefKlantEtiketPrinter")
 			Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-			Do Printer.PrintKlantEtiket(,,, DnaCodeIterator)
+			Do ##class(Tools.Wlip).%New(43).String("Na GeefKlantEtiketPrinter")
+			Do Printer.PrintKlantEtiket(,,DnaCodeIterator)
+			Do ##class(Tools.Wlip).%New(43).String("Do Printer.PrintKlantEtiket")
 		} Else {
 			Do ##class(Tools.Wlip).%New(43).String("Geen records in Iterator")
 		}
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml
===================================================================
diff -u -r60679 -r60732
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60679)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60732)
@@ -28,9 +28,11 @@
 </Method>
 
 <Method name="PrintKlantEtiket">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters="",LijstDnacode:%ListOfDataTypes=""</FormalSpec>
+<FormalSpec>Batch:APPS.Halux.common.Batch,Parameters:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters="",DnaCodeIterator:TECH.Iterator=""</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(43).String("PrintKlantEtiket Printer")
+	
 	Set ..Parameters = Parameters
 	
 	Set Q="K", U=";", D="\"
@@ -44,7 +46,13 @@
 	Set PrintEtiketten = ##class(%ListOfObjects).%New()
 	#dim VoorkeurPrinter As %String = "HALUX_productie_TAOR"
 		
-	If (LijstDnacode = "") {
+	Do DnaCodeIterator.Reset()
+	If (DnaCodeIterator.HasNext()) {
+		Do ##class(Tools.Wlip).%New(43).String("In IF")
+		//#dim DnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(LijstDnacode)
+		Do ..PrintKlantEtiketMetDnaCodes(DnaCodeIterator)
+	} Else {
+		Do ##class(Tools.Wlip).%New(43).String("In ELSE")
 		Set itToeleveringen = Batch.GeefToeleveringIterator()
 	
 	
@@ -58,12 +66,10 @@
 				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)
 	}
 	
+	
+	
 	Do PrintNaarDropfolder^HADETIK("",VoorkeurPrinter)
 	Kill %Print2File
 ]]></Implementation>
@@ -73,6 +79,8 @@
 <FormalSpec>DnaCodesIterator:TECH.Iterator=""</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(43).String("PrintKlantEtiketMetDnaCodes")
+	Do DnaCodesIterator.Reset()
 	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
@@ -83,7 +91,14 @@
 		;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
+		
+		Do ##class(Tools.Wlip).%New(43).String("in PrintKlantEtiketMetDnaCodes iterator")
+		//TODO 
+		//Set aantal =  ..GeefLijnAantal(DnaCode.Lijn) // moet hier toch ook gebruikt worden aangezien dat te maken heeft met het aantal etiketten  volgens vooraf gedifinieer per product
+		Do ##class(Tools.Wlip).%New(43).String("IU"_" - "_DnaCode.Toelevering_" - "_DnaCode.ToeleveringLijn)
+		Do ##class(Tools.Wlip).%New(43).ObjToText(DnaCode)
 		Set TLNr=$G(^TO("IU",DnaCode.Toelevering,DnaCode.ToeleveringLijn))
+		// TODO check op stekren of dit leeg is want anders verder in hadetik foutmelding 
 		Do PRINT^HADETIK("|PRN|\\FOP\ICT","T",DnaCode.Toelevering,TLNr,DnaCode.ProductNummer,aantal,VoorkeurPrinter,DnaCode.DnaCode)
 	}
 ]]></Implementation>