Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml
===================================================================
diff -u -r59238 -r61681
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 59238)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 61681)
@@ -77,7 +77,7 @@
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters</FormalSpec>
 <Implementation><![CDATA[
 	Do ..BepaalWissels(UitvoeringInfo)
-	Do:(..WisselToelevering || ..WisselKar) ..KlantEtiketten.Insert(..MaakTussenEtiket(UitvoeringInfo))
+	Do:(..WisselToelevering || ..WisselKar)&&$$$Not(UitvoeringInfo.HerafdrukEtiket) ..KlantEtiketten.Insert(..MaakTussenEtiket(UitvoeringInfo))
 	
 	Do ..KlantEtiketten.Insert(..MaakEtiket(UitvoeringInfo.KlantEtiketData))
 ]]></Implementation>
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61365 -r61681
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61365)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61681)
@@ -212,7 +212,7 @@
 </Method>
 
 <Method name="GeefVolgendeAfTeDrukkenDnaCode">
-<FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String=""</FormalSpec>
+<FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String="",Herafdruk:%Boolean=$$$False,BatchId:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	If $$$Not(..ProjectSettingsApi.IsActiefDnaCodeOpEtiket()) {
@@ -223,11 +223,19 @@
 	}
 	#dim Result As %String = ""
 	#dim DnaCodeIterator As TECH.Iterator
-	Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnStatus(ToeleveringID,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
+	Do ##class(Tools.Wlip).%New(127).String("Herafdruk = "_Herafdruk_"/"_BatchId_"/"_SequentieNummer)
+	If Herafdruk {
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, SequentieNummer)
+	} Else {
+		Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringIdEnStatus(ToeleveringID,##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBatch())
+	}
+	
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
 	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
 		If ((DnaCode.AfdrukTijdstip = "") && (DnaCode.ProductNummer = ProductID)) {
+			Do ##class(Tools.Wlip).%New(127).String("seq nummer = "_SequentieNummer)
+			Do ##class(Tools.Wlip).%New(127).Stack()
 			Set DnaCode.SequentieNummer = SequentieNummer
 			Set DnaCode.AfdrukTijdstip = ..DateTimeApi.CurrentHorolog()
 			Do ..DnaCodeRepository.Bewaar(DnaCode)
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml
===================================================================
diff -u -r59702 -r61681
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml	(.../KlantEtiketDataProductAanvuller.cls.xml)	(revision 59702)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml	(.../KlantEtiketDataProductAanvuller.cls.xml)	(revision 61681)
@@ -115,11 +115,11 @@
 	Set UitvoeringInfo.KlantEtiketData.DossierCode = Product.GeefDossierCode()
 	Set UitvoeringInfo.KlantEtiketData.DossierTitel = ..Vertaler.GeefVertaling("Dossier")
 	Set UitvoeringInfo.KlantEtiketData.Dossier = UitvoeringInfo.ToeleveringID
-	
+	Do ##class(Tools.Wlip).%New(127).ObjToXML(UitvoeringInfo)
 	If ..KlantEtiketInput.DnaCodeOnderdrukken = $$$True {
 		Set UitvoeringInfo.KlantEtiketData.DnaCode = ""
 	} Else {
-		Set UitvoeringInfo.KlantEtiketData.DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(UitvoeringInfo.ToeleveringID, UitvoeringInfo.ProductID, UitvoeringInfo.SequentieNummer)
+		Set UitvoeringInfo.KlantEtiketData.DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(UitvoeringInfo.ToeleveringID, UitvoeringInfo.ProductID, UitvoeringInfo.SequentieNummer, ..KlantEtiketInput.Herafdruk, UitvoeringInfo.BatchID)
 	}
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/dto/KlantEtiketUitvoeringInfo.cls.xml
===================================================================
diff -u -r31041 -r61681
--- APPS/Halux/PPS/Activiteit/impl/TAOR/dto/KlantEtiketUitvoeringInfo.cls.xml	(.../KlantEtiketUitvoeringInfo.cls.xml)	(revision 31041)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/dto/KlantEtiketUitvoeringInfo.cls.xml	(.../KlantEtiketUitvoeringInfo.cls.xml)	(revision 61681)
@@ -8,6 +8,11 @@
 <Parameter name="CLASSNAME" value="1"/>
 </Property>
 
+<Property name="HerafdrukEtiket">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>KlantEtiketUitvoeringInfoDefaultData</DefaultData>
@@ -16,6 +21,9 @@
 <Value name="1">
 <Value>KlantEtiketData</Value>
 </Value>
+<Value name="2">
+<Value>HerafdrukEtiket</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r60929 -r61681
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 60929)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61681)
@@ -29,9 +29,9 @@
 </Method>
 
 <Method name="GeefVolgendeAfTeDrukkenDnaCode">
-<FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String=""</FormalSpec>
+<FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String="",Herafdruk:%Boolean=$$$False,BatchId:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVolgendeAfTeDrukkenDnaCode",ToeleveringID,ProductID,SequentieNummer)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVolgendeAfTeDrukkenDnaCode",ToeleveringID,ProductID,SequentieNummer,Herafdruk,BatchId)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketInput.cls.xml
===================================================================
diff -u -r59702 -r61681
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketInput.cls.xml	(.../KlantEtiketInput.cls.xml)	(revision 59702)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketInput.cls.xml	(.../KlantEtiketInput.cls.xml)	(revision 61681)
@@ -24,6 +24,11 @@
 <Type>%Boolean</Type>
 <InitialExpression>0</InitialExpression>
 </Property>
+
+<Property name="Herafdruk">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
 </Class>
 
 
Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r61624 -r61681
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 61624)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 61681)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PrinterFactory">
+<Type>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory</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=""</FormalSpec>
 <Private>1</Private>
@@ -39,6 +44,7 @@
 	Set ..DocsV1 = $$$Inject(DocsV1, ##class(BL.PPS.TBX.DocsV1).%New())
 	Set ..EtiketAfdrukkenHelper = $$$Inject(EtiketAfdrukkenHelper, ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New())
 	Set ..BatchService = $$$Inject(BatchService,##class(APPS.Halux.common.impl.BatchService).%New())
+	Set ..PrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -129,6 +135,7 @@
 		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(Tools.Wlip).%New(127).String(Exception.ToString())
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
 	}
@@ -154,7 +161,7 @@
 	#dim TAORboxDnaCodesLijst = ##class(%ListOfDataTypes).%New()
 	#dim MaatwerkDnaCodesLijst = ##class(%ListOfDataTypes).%New()
 	
-	Do ..GeefDnaCodeLijstenPerCategorie(DnaCodeIterator, KaderdeurDnaCodesLijst,MatDnaCodesLijst,InpakDnaCodesLijst,OnbepaaldDnaCodesLijst,ProductOpMaatDnaCodesLijst,KastDnaCodesLijst,TAORboxDnaCodesLijst,MaatwerkDnaCodesLijst)
+	Do ..GeefDnaCodeLijstenPerCategorie(DnaCodeIterator, .KaderdeurDnaCodesLijst,.MatDnaCodesLijst,.InpakDnaCodesLijst,.OnbepaaldDnaCodesLijst,.ProductOpMaatDnaCodesLijst,.KastDnaCodesLijst,.TAORboxDnaCodesLijst,.MaatwerkDnaCodesLijst)
 	
 	#dim IteratorOfDnaCodePerCategorieyIterators As TECH.IteratorOfIterators = ..GeefIteratorVanDnaCodeIterators(KaderdeurDnaCodesLijst,MatDnaCodesLijst,InpakDnaCodesLijst,OnbepaaldDnaCodesLijst,ProductOpMaatDnaCodesLijst,KastDnaCodesLijst,TAORboxDnaCodesLijst,MaatwerkDnaCodesLijst)
 	Do ..StartPrintKlantEtiket(IteratorOfDnaCodePerCategorieyIterators)
@@ -184,7 +191,7 @@
 	While DnaCodeIterator.HasNext() {
 		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()		
 		#dim Batch As APPS.Halux.common.Batch = ..GeefBatchVoorDnaCode(DnaCode)
-		
+		Do ##class(Tools.Wlip).%New(127).String(Batch.GeefCategorie())
 		If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur()) {
 			Do KaderdeurDnaCodesLijst.Insert(DnaCode)
 		} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Mat()) {
@@ -198,6 +205,7 @@
 		} ElseIf (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {			
 			Do KastDnaCodesLijst.Insert(DnaCode)
 		} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
+			Do ##class(Tools.Wlip).%New(127).String("inserting")
 			Do TAORboxDnaCodesLijst.Insert(DnaCode)
 		} Else {
 			Do MaatwerkDnaCodesLijst.Insert(DnaCode)
@@ -230,6 +238,7 @@
 	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)
 	
@@ -239,28 +248,103 @@
 
 <Method name="StartPrintKlantEtiket">
 <FormalSpec>IteratorVanDnaCodesIterators:TECH.Iterator</FormalSpec>
+<Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set PrinterFactory = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New()
+	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 100")
 	#dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
 	
 	While IteratorVanDnaCodesIterators.HasNext() {
+	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 200")
 		#dim DnaCodeIterator As TECH.Iterator = IteratorVanDnaCodesIterators.Next()
 		
 		If (DnaCodeIterator.HasNext()){
-			Do DnaCodeIterator.Reset()			
+	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 300")
+			//Do DnaCodeIterator.Reset()			
 			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
 			#dim BatchId As %Integer = DnaCode.BatchId
 			Set Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchId)	
-						
-			Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-			Do Printer.PrintKlantEtiket(,,DnaCodeIterator)
+			
+			If $$$Not(Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {		
+	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 400")	
+				Set Printer = ..PrinterFactory.GeefKlantEtiketPrinter(Batch)
+				Do Printer.PrintKlantEtiket(,,DnaCodeIterator)
+			} Else {
+	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 500")
+				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)
+				
+	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 600")
+				Set ActiviteitParameters = ##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New()
+				Set ActiviteitParameters.Printer = "18"
+				
+	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 700")
+				#dim Lijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = ..MaakKlantEtiketUitvoeringInfoVanDnaCodeIterator(DnaCodeIterator)
+	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 800")
+				Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,ActiviteitParameters)
+	Do ##class(Tools.Wlip).%New(127).String("StartPrintKlantEtiket 900")
+			}
 		} Else {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen records in Iterator"))
+			//Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen records in Iterator"))
 		}
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="MaakKlantEtiketUitvoeringInfoVanDnaCodeIterator">
+<FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.dto.UitvoeringInfoLijst</ReturnType>
+<Implementation><![CDATA[
+	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	
+		}
+	}
+	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>
 </Class>