Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r60749 -r74853
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 60749)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 74853)
@@ -23,8 +23,43 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BatchService">
+<Type>APPS.Halux.common.impl.BatchService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PrinterFactory">
+<Type>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SequentieService">
+<Type>APPS.Halux.common.impl.SequentieService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WerklijstItemMaker">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Verwerker">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductLabel">
+<Type>CHUI.Prod.ProductLabel</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProjectSettingsAPI">
+<Type>DOM.common.ProjectSettingsAPI</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</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="",WerklijstItemMaker:APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker="",Verwerker:APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten="",ProductLabel:CHUI.Prod.ProductLabel="",ProjectSettingsAPI:DOM.common.ProjectSettingsAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -33,6 +68,13 @@
 	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	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 = $$$Inject(PrinterFactory, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New())
+	Set ..SequentieService = $$$Inject(SequentieService, ##class(APPS.Halux.common.impl.SequentieService).%New())
+	Set ..WerklijstItemMaker = WerklijstItemMaker
+	Set ..Verwerker = Verwerker
+	Set ..ProductLabel = $$$Inject(ProductLabel, ##class(CHUI.Prod.ProductLabel).%New())
+	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI, ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -50,16 +92,33 @@
 		}
 		
 		#dim DnaCodeIterator As TECH.Iterator = ..EtiketAfdrukkenHelper.MaakDnaCodeIteratorVanDnaCodeStringLijst(ProboxEtiketAfdrukkenRequest.DnaCodes)
-		#dim DnaCode As TECH.Iterator = DnaCodeIterator.Next()
-		Do DnaCodeIterator.Reset()
+		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
 		
-		#dim TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..EtiketAfdrukkenHelper.GeefWerkpost(DnaCode))
+		#dim TeGebruikenPrinter = ""
+		If $$$HasLength(ProboxEtiketAfdrukkenRequest.LijnWaaropGeprintMoetWorden) {
+			Set TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapLijnOpPrinter(ProboxEtiketAfdrukkenRequest.LijnWaaropGeprintMoetWorden)
+		} Else {
+			Set TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapWerkpostOpPrinter(..EtiketAfdrukkenHelper.GeefWerkpost(DnaCode))
+					
+			If (TeGebruikenPrinter = "Halux_LadeAfw_BWK") {
+				Set TeGebruikenPrinter = ..EtiketAfdrukkenHelper.VervangPrinterDoorLijnPrinter(TeGebruikenPrinter, DnaCode)
+			}
+		}
 		
+		Do DnaCodeIterator.Reset()
+		
 		If TeGebruikenPrinter = "" {
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor DnaCode '"_DnaCode.DnaCode_"'"))
 		}
+		
 		Do ..DocsV1.Init(,"",TeGebruikenPrinter,"","")
 		Do ..DocsV1.ProboxInhoudEtiket(DnaCodeIterator)
+		
+		Do DnaCodeIterator.Reset()
+		
+		#dim KlantId As TECH.String = DnaCode.KlantNummer
+		Set Klant = ##class(DOM.VKP.enu.Klant.AutoComplete).%New()
+		
 		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -80,33 +139,20 @@
 		If ProductEtiketAfdrukkenRequest.DnaCodes.Count() = 0 {
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen DnaCodes aangeleverd om af te drukken"))
 		}
-		#dim DnaCodeIterator As TECH.Iterator = ..EtiketAfdrukkenHelper.MaakDnaCodeIteratorVanDnaCodeStringLijst(ProductEtiketAfdrukkenRequest.DnaCodes)
-		#dim DnaCode As TECH.Iterator = DnaCodeIterator.Next()
-		Do DnaCodeIterator.Reset()
 		
-		#dim TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..EtiketAfdrukkenHelper.GeefWerkpost(DnaCode))
-		
-		If TeGebruikenPrinter = "" {
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor DnaCode '"_DnaCode.DnaCode_"'"))
-		}
-		
-		
-		// TODO iplementatie
+		#dim DnaCodeIterator As TECH.Iterator = ..EtiketAfdrukkenHelper.MaakDnaCodeIteratorVanDnaCodeStringLijst(ProductEtiketAfdrukkenRequest.DnaCodes)
+	
 		While DnaCodeIterator.HasNext() {
 			#dim DnaCodeInfo As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
-			//Set PRNr = DnaCodeInfo.ProductNummer
-			
-			//Do ##class(CHUI.Prod.ProductLabel).DoOne(DnaCodeInfo.ProductNummer) //PRNr
-			//Do ##class(CHUI.Prod.ProductLabel).PrintProductEtiketMetDnaCode(DnaCodeInfo) //PRNr
+			Do ..ProductLabel.PrintMaatwerkMetDnaCodes(DnaCodeInfo)
 		}
-						
+		
 		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
 		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
 	}
-	
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -126,23 +172,9 @@
 		#dim DnaCode As TECH.Iterator = DnaCodeIterator.Next()
 		Do DnaCodeIterator.Reset()
 		
-				
-		//#dim TeGebruikenPrinter = ..EtiketAfdrukkenHelper.MapProductieLijnOpPrinter(..EtiketAfdrukkenHelper.GeefWerkpost(DnaCode))		
-		//If TeGebruikenPrinter = "" {
-		//	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Geen printer gevonden voor DnaCode '"_DnaCode.DnaCode_"'"))
-		//}
+		Do ..VerwerkKlantEtiketAfdrukken(DnaCodeIterator)		
 		
-		// TODO iplementatie
-		#dim resultaat = ..VerwerkKlantEtiketAfdrukken(DnaCodeIterator)
-		
-		If (resultaat = "") {
-			Set Response.Header.Status = "200"
-		} Else {
-			Set Response.Header.Status = "422"
-			Set Response.Header.Omschrijving = "resultaat"
-		}
-		
-		
+		Set Response.Header.Status = "200"
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set Response.Header.Status = Exception.GeefExceptionCode()
@@ -153,21 +185,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BevatDnaCode">
-<FormalSpec>aantalDnaCodes:%Integer</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
 <Method name="VerwerkKlantEtiketAfdrukken">
 <FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
-<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	// !!!!!!!!!!!!!!!!!!! ---  TODO   ------  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  
-	// !!!!!!!!!! Refactoren en checken of alle dna codes in dezelfde batch zitten want per batch moet er een apart bestand zijn.
-	// !!!!!!!!!! Wlips weg doen
-	
-	#dim ErrorMessage As %String = ""
-
 	#dim KaderdeurDnaCodesLijst = ##class(%ListOfDataTypes).%New()
 	#dim MatDnaCodesLijst = ##class(%ListOfDataTypes).%New()
 	#dim InpakDnaCodesLijst = ##class(%ListOfDataTypes).%New()
@@ -177,36 +197,38 @@
 	#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)
-	
-	Quit ErrorMessage
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBatchVoorDnaCode">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.Batch</ReturnType>
+<Implementation><![CDATA[
+	#dim BatchId As %Integer = DnaCode.BatchId
+	#dim BestaatBatch As %Boolean = ..BatchService.BestaatBatch(BatchId)
+
+	If ($$$Not(BestaatBatch)) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Batch ("_DnaCode.BatchId_") niet gevonden voor Dnacode ("_DnaCode.DnaCode_")"))
+	}
+	Quit ..BatchService.GeefBatch(BatchId)
+]]></Implementation>
+</Method>
+
 <Method name="GeefDnaCodeLijstenPerCategorie">
 <FormalSpec>DnaCodeIterator:TECH.Iterator,KaderdeurDnaCodesLijst:%ListOfDataTypes,MatDnaCodesLijst:%ListOfDataTypes,InpakDnaCodesLijst:%ListOfDataTypes,OnbepaaldDnaCodesLijst:%ListOfDataTypes,ProductOpMaatDnaCodesLijst:%ListOfDataTypes,KastDnaCodesLijst:%ListOfDataTypes,TAORboxDnaCodesLijst:%ListOfDataTypes,MaatwerkDnaCodesLijst:%ListOfDataTypes</FormalSpec>
 <Implementation><![CDATA[
 	Do DnaCodeIterator.Reset()
 	While DnaCodeIterator.HasNext() {
-		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
-		#dim BatchId As %Integer = DnaCode.BatchId
-		#dim BestaatBatch As %Boolean = ##class(APPS.Halux.common.impl.BatchService).%New().BestaatBatch(BatchId)
-
-		If ($$$Not(BestaatBatch)) {
-			#dim ErrorMessage As %String = ""
-			Set ErrorMessage = ErrorMessage_" Batch ("_DnaCode.BatchId_")niet gevonden voor Dnacode ("_DnaCode.DnaCode_")"
-			Quit
-		}		
-		
-		#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchId)
+		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()		
+		#dim Batch As APPS.Halux.common.Batch = ..GeefBatchVoorDnaCode(DnaCode)
 		If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Kaderdeur()) {
-			Do ##class(Tools.Wlip).%New(43).String("kaderdeur category")
 			Do KaderdeurDnaCodesLijst.Insert(DnaCode)
 		} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Mat()) {
-			Do ##class(Tools.Wlip).%New(43).String("mat category")
 			Do MatDnaCodesLijst.Insert(DnaCode)
 		} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Inpak()) {
 			Do InpakDnaCodesLijst.Insert(DnaCode)
@@ -215,22 +237,19 @@
 		} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).ProductOpMaat()) {
 			Do ProductOpMaatDnaCodesLijst.Insert(DnaCode)
 		} ElseIf (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {			
-			Do ##class(Tools.Wlip).%New(43).String("kast category")
 			Do KastDnaCodesLijst.Insert(DnaCode)
 		} ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
-			Do ##class(Tools.Wlip).%New(43).String("toar category")
 			Do TAORboxDnaCodesLijst.Insert(DnaCode)
 		} Else {
-			Do ##class(Tools.Wlip).%New(43).String("Maatwerk category")
 			Do MaatwerkDnaCodesLijst.Insert(DnaCode)
 		} 	
-		
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="GeefIteratorVanDnaCodeIterators">
 <FormalSpec>KaderdeurDnaCodesLijst:%ListOfDataTypes,MatDnaCodesLijst:%ListOfDataTypes,InpakDnaCodesLijst:%ListOfDataTypes,OnbepaaldDnaCodesLijst:%ListOfDataTypes,ProductOpMaatDnaCodesLijst:%ListOfDataTypes,KastDnaCodesLijst:%ListOfDataTypes,TAORboxDnaCodesLijst:%ListOfDataTypes,MaatwerkDnaCodesLijst:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	#dim KaderdeurDnaCodesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(KaderdeurDnaCodesLijst)
@@ -252,38 +271,98 @@
 	Do DnaCodesIteratorLijsten.Insert(TaorIterator)
 	Do DnaCodesIteratorLijsten.Insert(MaatwerkDnaCodesIterator)
 	
-	#dim IteratorVanDnaCodesIterators As TECH.Iterator = ##class(TECH.ListIterator).%New(DnaCodesIteratorLijsten)
-	
-	Quit IteratorVanDnaCodesIterators
+	Quit ##class(TECH.ListIterator).%New(DnaCodesIteratorLijsten)
 ]]></Implementation>
 </Method>
 
 <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()
 	#dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
+	#dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten
 	
 	While IteratorVanDnaCodesIterators.HasNext() {
 		#dim DnaCodeIterator As TECH.Iterator = IteratorVanDnaCodesIterators.Next()
 		
 		If (DnaCodeIterator.HasNext()){
-			Do DnaCodeIterator.Reset()			
-			While DnaCodeIterator.HasNext() {				
-				#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)	
+			#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)
+			If $$$Not(Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) {
+				Set Printer = ..PrinterFactory.GeefKlantEtiketPrinter(Batch)
+				Set Parameters = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Parameters).%New(##class(%ListOfDataTypes).%New())
+				Do Parameters.ZetIsHerafdruk($$$True)
+				Do Printer.PrintKlantEtiket(Batch,Parameters,DnaCodeIterator)
+			} Else {
+				Set LabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
+				Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New()
+				Set AssemblageKarRepository = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
+				Set Verwerker = $$$LazyLoad(..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 = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Halux.PPS.AansturingService.Printer.TAX")
+				
+				#dim Lijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = ..MaakKlantEtiketUitvoeringInfoVanDnaCodeIterator(DnaCodeIterator)
+				
+				Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,ActiviteitParameters)
 			}
-			
-			Set Printer = PrinterFactory.GeefKlantEtiketPrinter(Batch)
-			Do Printer.PrintKlantEtiket(,,DnaCodeIterator)
-		} Else {
-			Do ##class(Tools.Wlip).%New(43).String("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 DnaCodeIterator.Reset()
+	Set Lijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
+	While DnaCodeIterator.HasNext(){
+		#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)
+		
+		#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() {
+			Set ProductieSequentieItem = ProductieSequentieItemsIterator.Next()
+			If (ProductieSequentieItem.SequentieNummer = DnaCode.SequentieNummer) {
+				Quit	
+			}
+		}
+		
+		#dim WerklijstItemMaker As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker
+		Set WerklijstItemMakerInput = ##class(APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput).%New(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking).%New(),ProductieSequentieItem)
+	    
+	    Set KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New()
+	    Set KlantEtiketInput.VoorkeurPrinter = "HALUX"
+	    Set KlantEtiketInput.AantalInDoos = 1
+	    Set KlantEtiketInput.Herafdruk = $$$True
+	    
+		Set WerklijstItemMaker = $$$LazyLoad(..WerklijstItemMaker,##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(KlantEtiketInput))
+		#dim ProductieSequentieWerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = WerklijstItemMaker.MaakWerklijstItem(WerklijstItemMakerInput)
+		#dim KlantEtiketUitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo = ProductieSequentieWerklijstItem.UitvoeringInfo
+		Set KlantEtiketUitvoeringInfo.HerafdrukEtiket = $$$True
+		Do Lijst.Insert(KlantEtiketUitvoeringInfo)
+	}
+	Quit Lijst
+]]></Implementation>
+</Method>
+
+<Method name="IsDnaCodeVoorLbxOfTbx">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode, ##class(DOM.PM.enu.ProductTypePrefix).Legrabox()) ||
+		 ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode, ##class(DOM.PM.enu.ProductTypePrefix).Tandembox())
+]]></Implementation>
+</Method>
 </Class>