Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r61681 -r61685
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 61681)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 61685)
@@ -302,46 +302,48 @@
 	Do ##class(Tools.Wlip).%New(127).String("100")
 	Do DnaCodeIterator.Reset()
 	Set Lijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
-	#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
-	#dim BatchId As %Integer = DnaCode.BatchId
-	Do ##class(Tools.Wlip).%New(127).String(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 ProductieSequentieItemsIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
-	#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem
-	While ProductieSequentieItemsIterator.HasNext() {
-	Do ##class(Tools.Wlip).%New(127).String("200")
-		Set ProductieSequentieItem = ProductieSequentieItemsIterator.Next()
-	Do ##class(Tools.Wlip).%New(127).String(ProductieSequentieItem.SequentieNummer _"/"_DnaCode.SequentieNummer)
-		If (ProductieSequentieItem.SequentieNummer = DnaCode.SequentieNummer) {
-			Quit	
+	While DnaCodeIterator.HasNext(){
+		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+		#dim BatchId As %Integer = DnaCode.BatchId
+		Do ##class(Tools.Wlip).%New(127).String(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 ProductieSequentieItemsIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
+		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem
+		While ProductieSequentieItemsIterator.HasNext() {
+		Do ##class(Tools.Wlip).%New(127).String("200")
+			Set ProductieSequentieItem = ProductieSequentieItemsIterator.Next()
+		Do ##class(Tools.Wlip).%New(127).String(ProductieSequentieItem.SequentieNummer _"/"_DnaCode.SequentieNummer)
+			If (ProductieSequentieItem.SequentieNummer = DnaCode.SequentieNummer) {
+				Quit	
+			}
 		}
+		Do ##class(Tools.Wlip).%New(127).String("400")
+		
+		Set WerklijstItemMakerInput = ##class(APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput).%New(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking).%New(),ProductieSequentieItem)
+	    
+		Do ##class(Tools.Wlip).%New(127).String("410")
+	    Set KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New()
+	    Set KlantEtiketInput.VoorkeurPrinter = "HALUX"
+	    Set KlantEtiketInput.AantalInDoos = 1
+	    Set KlantEtiketInput.Herafdruk = $$$True
+	    
+		Do ##class(Tools.Wlip).%New(127).String("420")
+		Set WerklijstItemMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(KlantEtiketInput)
+		Do ##class(Tools.Wlip).%New(127).String("430")
+		#dim ProductieSequentieWerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = WerklijstItemMaker.MaakWerklijstItem(WerklijstItemMakerInput)
+		Do ##class(Tools.Wlip).%New(127).String("440")
+		#dim KlantEtiketUitvoeringInfo1 As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo = ProductieSequentieWerklijstItem.UitvoeringInfo //  UitvoeringInfoInvuller.GeefUitvoeringInfo(WerklijstItemMakerInput)
+		Set KlantEtiketUitvoeringInfo1.HerafdrukEtiket = $$$True
+		
+		Do ##class(Tools.Wlip).%New(127).String(KlantEtiketUitvoeringInfo1)
+		
+		Do ##class(Tools.Wlip).%New(127).ObjToXML(KlantEtiketUitvoeringInfo1)
+		
+		Do ##class(Tools.Wlip).%New(127).String("600")
+		Do Lijst.Insert(KlantEtiketUitvoeringInfo1)
 	}
-	Do ##class(Tools.Wlip).%New(127).String("400")
-	
-	Set WerklijstItemMakerInput = ##class(APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput).%New(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking).%New(),ProductieSequentieItem)
-    
-	Do ##class(Tools.Wlip).%New(127).String("410")
-    Set KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New()
-    Set KlantEtiketInput.VoorkeurPrinter = "HALUX"
-    Set KlantEtiketInput.AantalInDoos = 1
-    Set KlantEtiketInput.Herafdruk = $$$True
-    
-	Do ##class(Tools.Wlip).%New(127).String("420")
-	Set WerklijstItemMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(KlantEtiketInput)
-	Do ##class(Tools.Wlip).%New(127).String("430")
-	#dim ProductieSequentieWerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = WerklijstItemMaker.MaakWerklijstItem(WerklijstItemMakerInput)
-	Do ##class(Tools.Wlip).%New(127).String("440")
-	#dim KlantEtiketUitvoeringInfo1 As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo = ProductieSequentieWerklijstItem.UitvoeringInfo //  UitvoeringInfoInvuller.GeefUitvoeringInfo(WerklijstItemMakerInput)
-	Set KlantEtiketUitvoeringInfo1.HerafdrukEtiket = $$$True
-	
-	Do ##class(Tools.Wlip).%New(127).String(KlantEtiketUitvoeringInfo1)
-	
-	Do ##class(Tools.Wlip).%New(127).ObjToXML(KlantEtiketUitvoeringInfo1)
-	
-	Do ##class(Tools.Wlip).%New(127).String("600")
-	Do Lijst.Insert(KlantEtiketUitvoeringInfo1)
 	Quit Lijst
 ]]></Implementation>
 </Method>