Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r61707 -r61710
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 61707)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 61710)
@@ -33,8 +33,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="SequentieService">
+<Type>APPS.Halux.common.impl.SequentieService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",DocsV1:BL.PPS.TBX.DocsV1="",EtiketAfdrukkenHelper:WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper,BatchService:APPS.Halux.common.impl.BatchService="",PrinterFactory:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",DocsV1:BL.PPS.TBX.DocsV1="",EtiketAfdrukkenHelper:WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper,BatchService:APPS.Halux.common.impl.BatchService="",PrinterFactory:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory="",SequentieService:APPS.Halux.common.impl.SequentieService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -208,7 +213,6 @@
 		} Else {
 			Do MaatwerkDnaCodesLijst.Insert(DnaCode)
 		} 	
-		
 	}
 ]]></Implementation>
 </Method>
@@ -236,11 +240,8 @@
 	Do DnaCodesIteratorLijsten.Insert(KastIterator)
 	Do DnaCodesIteratorLijsten.Insert(TaorIterator)
 	Do DnaCodesIteratorLijsten.Insert(MaatwerkDnaCodesIterator)
-	Do ##class(Tools.Wlip).%New(127).String(DnaCodesIteratorLijsten.Count())
 	
-	#dim IteratorVanDnaCodesIterators As TECH.Iterator = ##class(TECH.ListIterator).%New(DnaCodesIteratorLijsten)
-	
-	Quit IteratorVanDnaCodesIterators
+	Quit ##class(TECH.ListIterator).%New(DnaCodesIteratorLijsten)
 ]]></Implementation>
 </Method>
 
@@ -255,7 +256,6 @@
 		#dim DnaCodeIterator As TECH.Iterator = IteratorVanDnaCodesIterators.Next()
 		
 		If (DnaCodeIterator.HasNext()){
-			//Do DnaCodeIterator.Reset()			
 			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
 			#dim BatchId As %Integer = DnaCode.BatchId
 			#dim Batch As APPS.Halux.common.impl.BatchImpl = ..BatchService.GeefBatch(BatchId)	
@@ -265,10 +265,9 @@
 				Do Printer.PrintKlantEtiket(Batch,,DnaCodeIterator)
 			} Else {
 				Set LabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
-				Set BatchService = ##class(APPS.Halux.Planning.impl.BatchService).%New()
 				Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New()
 				Set AssemblageKarRepository = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
-				Set Verwerker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(LabelPrinter, AssemblageKarRepository, BatchService, ToeleveringService)
+				Set Verwerker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(LabelPrinter, AssemblageKarRepository, ..BatchService, ToeleveringService)
 				
 				Set ActiviteitParameters = ##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New()
 				Set ActiviteitParameters.Printer = "18"
@@ -295,7 +294,7 @@
 		#dim BatchId As %Integer = DnaCode.BatchId
 		Set Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchId)
 		
-		Set ProductieSequentie = ##class(APPS.Halux.common.impl.SequentieService).%New().GeefProductieSequentie(DnaCode.BatchId)
+		#dim ProductieSequentie As APPS.Halux.common.impl.SequentieService = ..SequentieService.GeefProductieSequentie(DnaCode.BatchId)
 		#dim ProductieSequentieItemsIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
 		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem
 		While ProductieSequentieItemsIterator.HasNext() {