Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml
===================================================================
diff -u -r60732 -r60734
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60732)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60734)
@@ -46,12 +46,8 @@
 	Set PrintEtiketten = ##class(%ListOfObjects).%New()
 	#dim VoorkeurPrinter As %String = "HALUX_productie_TAOR"
 		
-	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 {
+	
+	If (DnaCodeIterator = "") {
 		Do ##class(Tools.Wlip).%New(43).String("In ELSE")
 		Set itToeleveringen = Batch.GeefToeleveringIterator()
 	
@@ -65,7 +61,12 @@
 				#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 {
+		Do ##class(Tools.Wlip).%New(43).String("In IF")
+		Do DnaCodeIterator.Reset()
+		//#dim DnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(LijstDnacode)
+		Do ..PrintKlantEtiketMetDnaCodes(DnaCodeIterator)				
 	}
 	
 	
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml
===================================================================
diff -u -r60732 -r60734
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 60732)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 60734)
@@ -37,12 +37,12 @@
 	Set ..DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New()
 	Set ..blLabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
 	
-	Do DnaCodeIterator.Reset()
-	If (DnaCodeIterator.HasNext()) {
-		Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator)
-	} Else {
+	
+	If (DnaCodeIterator = "") {
 		Do ..BepaalEtiketten(Batch, Parameters.IsSpecifiekEtiket(), Parameters.GeefToeleveringID(), Parameters.GeefDossiercode(), Parameters.GeefAantal())
 		Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten()
+	} Else {		
+		Do ..BepaalEtikettenMetDnaCodes(DnaCodeIterator)
 	}