Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/MaatwerkEtiketPrinter.cls.xml
===================================================================
diff -u -r59252 -r59962
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/MaatwerkEtiketPrinter.cls.xml	(.../MaatwerkEtiketPrinter.cls.xml)	(revision 59252)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/MaatwerkEtiketPrinter.cls.xml	(.../MaatwerkEtiketPrinter.cls.xml)	(revision 59962)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkEtiketPrinter">
-<Super>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Template</Super>
+<Super>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinter</Super>
 
 <Method name="GeefEtiket">
 <FormalSpec>QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String</FormalSpec>
Index: APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/GeenEtiketPrinter.cls.xml
===================================================================
diff -u -r32621 -r59962
--- APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/GeenEtiketPrinter.cls.xml	(.../GeenEtiketPrinter.cls.xml)	(revision 32621)
+++ APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/GeenEtiketPrinter.cls.xml	(.../GeenEtiketPrinter.cls.xml)	(revision 59962)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.GeenEtiketPrinter">
-<Super>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Template</Super>
+<Super>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinter</Super>
 
 <Method name="IsPrintenNodig">
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/MaatwerkInVHOSSEtiketPrinter.cls.xml
===================================================================
diff -u -r32580 -r59962
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/MaatwerkInVHOSSEtiketPrinter.cls.xml	(.../MaatwerkInVHOSSEtiketPrinter.cls.xml)	(revision 32580)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/MaatwerkInVHOSSEtiketPrinter.cls.xml	(.../MaatwerkInVHOSSEtiketPrinter.cls.xml)	(revision 59962)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkInVHOSSEtiketPrinter">
-<Super>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Template</Super>
+<Super>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinter</Super>
 
 <Method name="GeefEtiket">
 <FormalSpec>QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String</FormalSpec>
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml
===================================================================
diff -u -r59957 -r59962
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59957)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket.cls.xml	(.../KlantEtiket.cls.xml)	(revision 59962)
@@ -51,7 +51,7 @@
 			Do ActieParameters.RemoveAt(1)		
 		}
 
-		#dim KlantEtiketPrinter As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.Template
+		#dim KlantEtiketPrinter As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinter
 		If (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) {			
 			Set KlantEtiketPrinter = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.MaatwerkInVHOSSEtiketPrinter).%New()
 		} Else {
FishEye: Tag 59962 refers to a dead (removed) revision in file `APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Template.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(revision 0)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(revision 59962)
@@ -0,0 +1,225 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketPrinter">
+<ClassType>persistent</ClassType>
+<Modified>0</Modified>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.impl.AansturingActie</Super>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="Etiketten">
+<Type>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="blLabelPrinter">
+<Type>BL.Sys.LabelPrinter</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="DueOutFormatter">
+<Type>APPS.Halux.PPS.impl.BatchDueOutFormatter</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Method name="GeefEtiket">
+<Abstract>1</Abstract>
+<FormalSpec>QueueID:%String,BatchID:%String,ToeleveringID:%String,ToeleveringLijnID:%String,AantalEtiketten:%Integer,VoorkeurPrinter:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.common.Print.AbstractLabel</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="IsPrintenNodig">
+<Abstract>1</Abstract>
+<FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="TussenEtiketNodig">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="PrintKlantEtiket">
+<FormalSpec>Batch:APPS.Halux.common.Batch,PrintSpecifiekEtiket:%Boolean,GewensteToeleveringID:%String,GewensteDossiercode:%String,GewenstAantal:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set ..DueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New()
+	Set ..blLabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
+	
+	Do ..BepaalEtiketten(Batch, PrintSpecifiekEtiket, GewensteToeleveringID, GewensteDossiercode, GewenstAantal)
+	Do:(..TussenEtiketNodig()) ..VoegToeTussenEtiketten()
+	Do ..VoegToeEtiketten()
+	Do ..blLabelPrinter.Print2Bartender()
+]]></Implementation>
+</Method>
+
+<Method name="BepaalEtiketten">
+<FormalSpec>Batch:APPS.Halux.common.Batch,PrintSpecifiekEtiket:%Boolean,GewensteToeleveringID:%String,GewensteDossiercode:%String,GewenstAantal:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	#dim VoorkeurPrinter As %String = "HALUX"	
+	#dim BatchID As TECH.String = Batch.GeefID()
+	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = ..GeefGroepering(BatchID)
+	#dim GroepIterator As TECH.Iterator = Groepering.GeefGroepIterator()
+	#dim IsSpecifiekEtiketGeprint As %Boolean = $$$False
+
+	Set ..Batch = Batch	
+	
+	While (GroepIterator.HasNext() && ($$$Not(PrintSpecifiekEtiket) || $$$Not(IsSpecifiekEtiketGeprint))) {
+		#dim GroepID As %String = GroepIterator.Next()
+		#dim DataIterator As TECH.Iterator = Groepering.GeefDataIterator(GroepID)
+
+		While (DataIterator.HasNext() && ($$$Not(PrintSpecifiekEtiket) || $$$Not(IsSpecifiekEtiketGeprint))) {
+			#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie = DataIterator.Next()
+			#dim ToeleveringID As %String = SequenceInfo.ToeleveringID
+			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringID)			
+			#dim QueueID As %String = SequenceInfo.QueueID
+			#dim ToeleveringLijnID As %String = SequenceInfo.ToeleveringLijnID
+			#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.GeefToeleveringLijn(ToeleveringLijnID)
+			#dim AantalEtiketten As %Integer = 0
+
+			If (PrintSpecifiekEtiket) {
+				If (ToeleveringID = GewensteToeleveringID) {
+					#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(SequenceInfo.ProductID)
+					#dim DossierCode As %String = Product.GeefDossierNr()
+					
+					If (DossierCode = GewensteDossiercode) {
+						Set AantalEtiketten = GewenstAantal	
+						Set IsSpecifiekEtiketGeprint = $$$True
+					}
+				}
+			} Else {
+				Set AantalEtiketten = 1
+			}
+			
+			If (AantalEtiketten > 0) && ..IsPrintenNodig(ToeleveringLijn) {
+				#dim Etiket As BL.Etiket.LadeKlantEtiket = ..GeefEtiket(QueueID, BatchID, ToeleveringID, ToeleveringLijnID, AantalEtiketten, VoorkeurPrinter)			
+				
+				Set EtiketDataMetTussenEtiketTrigger = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger).%New()
+				Set EtiketDataMetTussenEtiketTrigger.Etiket = Etiket
+				Set EtiketDataMetTussenEtiketTrigger.TussenEtiketTriggerKeyList = ..GeefTussenEtiketTriggerKeyList(Batch, SequenceInfo)
+				
+				Do ..Etiketten.Insert(EtiketDataMetTussenEtiketTrigger)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefTussenEtiketTriggerKeyList">
+<FormalSpec>Batch:APPS.Halux.common.Batch,SequenceInfo:APPS.Halux.common.dto.ProductieSequentie</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListUtils).CreateListOfDataTypes(SequenceInfo.ToeleveringID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefGroepering">
+<Abstract>1</Abstract>
+<FormalSpec>BatchID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VoegToeEtiketten">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim EtikettenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..Etiketten)
+	
+	While (EtikettenIterator.HasNext()) {
+		#dim EtiketDataMetTussenEtiketTrigger As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger = EtikettenIterator.Next()
+		
+		Do ..blLabelPrinter.Add(EtiketDataMetTussenEtiketTrigger.Etiket)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeTussenEtiketten">
+<Implementation><![CDATA[
+	#dim VorigTriggerKeyList As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim i As TECH.Integer = 1
+	
+	While (i <= ..Etiketten.Count()) {
+		#dim EtiketDataMetTussenEtiketTrigger As APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger = ..Etiketten.GetAt(i)
+		#dim TriggerKeyList As %ListOfDataTypes = EtiketDataMetTussenEtiketTrigger.TussenEtiketTriggerKeyList
+		
+		if ##class(TECH.ListUtils).ListToPieces(VorigTriggerKeyList) '= ##class(TECH.ListUtils).ListToPieces(TriggerKeyList)  {
+			#dim DisplayKeys As %ListOfDataTypes
+			
+			If VorigTriggerKeyList.Count() '= TriggerKeyList.Count() {
+				Set DisplayKeys = EtiketDataMetTussenEtiketTrigger.TussenEtiketTriggerKeyList
+			} Else  {
+				Set DisplayKeys = ##class(%ListOfDataTypes).%New()
+				Set VorigTriggerKeyListIt = ##class(TECH.ListIterator).%New(VorigTriggerKeyList)
+				Set TriggerKeyListIt = ##class(TECH.ListIterator).%New(TriggerKeyList)
+				
+				While VorigTriggerKeyListIt.HasNext() && TriggerKeyListIt.HasNext() {
+					#dim VorigTriggerKey As TECH.String = VorigTriggerKeyListIt.Next()
+					#dim TriggerKey As TECH.String = TriggerKeyListIt.Next()
+					If VorigTriggerKey '= TriggerKey {
+						Do DisplayKeys.Insert(TriggerKey)
+					}
+				}
+			}
+			
+			#dim Info As TECH.String = ##class(TECH.ListUtils).ListToPieces(DisplayKeys, ", ")
+			#dim Layout As TECH.String = EtiketDataMetTussenEtiketTrigger.Etiket.Layout
+			#dim Device As TECH.String = EtiketDataMetTussenEtiketTrigger.Etiket.Device
+			
+			Do ..Etiketten.InsertAt(..GeefTussenEtiketData(Info, EtiketDataMetTussenEtiketTrigger.Etiket), ..BepaalTussenEtiketPositie(i))
+			Set i = i + 1
+		}
+		
+		set VorigTriggerKeyList = TriggerKeyList
+		Set i = i + 1
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalTussenEtiketPositie">
+<FormalSpec>HuidigePositieInLijst:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit HuidigePositieInLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefTussenEtiketData">
+<FormalSpec>Info:TECH.String,Etiket:BL.Sys.pxProductLabel</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger</ReturnType>
+<Implementation><![CDATA[
+	Set EtiketData = ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.EtiketDataMetTussenEtiketTrigger).%New()
+	Set EtiketData.Etiket = Etiket.%New("")
+	set EtiketData.Etiket.Info1 = Info
+	Set EtiketData.Etiket.Info2 = "Batch:"_..Batch.GeefID()_", "_..DueOutFormatter.GeefGeformatteerdeDueOut(..Batch)
+	set EtiketData.Etiket.Layout = Etiket.Layout
+	set EtiketData.Etiket.Device = Etiket.Device
+	Quit EtiketData
+]]></Implementation>
+</Method>
+
+<Method name="GeefResultaatOmschrijving">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Aantal klantetiketten: '" _ ..Etiketten.Count() _ "'."
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>