Index: APPS/Halux/common/enu/Categorie/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/Halux/common/enu/Categorie/AutoComplete.cls.xml	(revision 0)
+++ APPS/Halux/common/enu/Categorie/AutoComplete.cls.xml	(revision 32564)
@@ -0,0 +1,141 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.common.enu.Categorie.AutoComplete">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Banco">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Banco"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="BuroboxLadeblok">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Burobox ladeblok"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Hoekkast">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Hoekkast"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="ILS">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"ILS"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="ISS">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"ISS"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Inpak">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Inpak"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Kaderdeur">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Kaderdeur"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Legrabox">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Legrabox"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="MDS">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"MDS"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Mat">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Mat"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Mondo">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Mondo"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Onbepaald">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Onbepaald"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="ProductOpMaat">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Product op maat"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Servodrive">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Servodrive"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="TAORbox">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"TAORbox"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Tandembox">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Tandembox"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Verlichting">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Verlichting"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Verlichtingsbodem">
+<Type>APPS.Halux.common.enu.Categorie</Type>
+<InitialExpression>"Verlichtingsbodem"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<StreamLocation>^APPS.Halux.co97D6.AutoCompleteS</StreamLocation>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking.cls.xml
===================================================================
diff -u -r30941 -r32564
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking.cls.xml	(.../Verpakking.cls.xml)	(revision 30941)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking.cls.xml	(.../Verpakking.cls.xml)	(revision 32564)
@@ -47,11 +47,13 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	do ##super()
-	Set ..ProductieSequentieWerklijstItemBewaarder = $$$Implementation(ProductieSequentieWerklijstItemBewaarder,##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder).%New())
+	Do ##super()
+	
+	Set ..ProductieSequentieWerklijstItemBewaarder = $$$Inject(ProductieSequentieWerklijstItemBewaarder, ##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder).%New())
 	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
-	Set ..WerklijstItemsMaker = $$$Implementation(WerklijstItemsMaker,##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New())
-	quit $$$OK
+	Set ..WerklijstItemsMaker = $$$Inject(WerklijstItemsMaker, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New())
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -63,16 +65,17 @@
 	Set ..ProductieSequentieWerklijstItemBewaarder = ##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder).%New()
 	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
 	Set ..WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
+	
 	Quit ##super()
 ]]></Implementation>
 </Method>
 
 <Method name="Init">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder).%ClassName(1), "TAOR.Verpakking.KartonSnijden")
-	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud).%ClassName(1), "TAOR.PalletInhoud")
-	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%ClassName(1), "TAOR.KlantEtiket")
+	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder).%ClassName($$$True), "TAOR.Verpakking.KartonSnijden")
+	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.PalletInhoud).%ClassName($$$True), "TAOR.PalletInhoud")
+	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%ClassName($$$True), "TAOR.KlantEtiket")
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Template.cls.xml
===================================================================
diff -u -r31730 -r32564
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Template.cls.xml	(.../Template.cls.xml)	(revision 31730)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Template.cls.xml	(.../Template.cls.xml)	(revision 32564)
@@ -16,11 +16,13 @@
 <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">
@@ -56,58 +58,62 @@
 <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()
+	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 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	
 	
-	#dim BatchID As TECH.String = Batch.GeefID()
+	While (GroepIterator.HasNext() && ($$$Not(PrintSpecifiekEtiket) || $$$Not(IsSpecifiekEtiketGeprint))) {
+		#dim GroepID As %String = GroepIterator.Next()
+		#dim DataIterator As TECH.Iterator = Groepering.GeefDataIterator(GroepID)
 
-	#dim Groepering As APPS.Halux.common.impl.ProductieSequentieGroepering = ..GeefGroepering(BatchID)
-	#dim GroepIt As TECH.Iterator = Groepering.GeefGroepIterator()
-	#dim IsSpecifiekEtiketGeprint As %Boolean = 0
-	while GroepIt.HasNext() && ('PrintSpecifiekEtiket || 'IsSpecifiekEtiketGeprint) {
-		#dim GroepID As %String = GroepIt.Next()
-		#dim DataIt As TECH.Iterator = Groepering.GeefDataIterator(GroepID)		
-		#dim Etiket As BL.Etiket.LadeKlantEtiket = ""
-		while DataIt.HasNext() && ('PrintSpecifiekEtiket || 'IsSpecifiekEtiketGeprint){
-			#dim SequenceInfo As APPS.Halux.common.dto.ProductieSequentie = DataIt.Next()
+		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 (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 = 1
+						Set IsSpecifiekEtiketGeprint = $$$True
 					}
 				}
-			}Else{
+			} Else {
 				Set AantalEtiketten = 1
 			}
+			
 			If (AantalEtiketten > 0) && ..IsPrintenNodig(ToeleveringLijn) {
-				Set Etiket = ..GeefEtiket(QueueID,BatchID,ToeleveringID,ToeleveringLijnID,AantalEtiketten,VoorkeurPrinter)			
+				#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)
+				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)
+				Do ..Etiketten.Insert(EtiketDataMetTussenEtiketTrigger)
 			}
 		}
 	}
@@ -133,10 +139,12 @@
 <Method name="VoegToeEtiketten">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set EtikettenIterator = ##class(TECH.ListIterator).%New(..Etiketten)
-	while EtikettenIterator.HasNext() {
+	#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)
+		
+		Do ..blLabelPrinter.Add(EtiketDataMetTussenEtiketTrigger.Etiket)
 	}
 ]]></Implementation>
 </Method>
@@ -145,17 +153,21 @@
 <Implementation><![CDATA[
 	#dim VorigTriggerKeyList As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
 	#dim i As TECH.Integer = 1
-	while i<=..Etiketten.Count() {
+	
+	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()
@@ -164,13 +176,15 @@
 					}
 				}
 			}
+			
 			#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
 	}
@@ -211,12 +225,6 @@
 <DefaultData>TemplateDefaultData</DefaultData>
 <Data name="TemplateDefaultData">
 <Subscript>"Template"</Subscript>
-<Value name="1">
-<Value>Etiketten</Value>
-</Value>
-<Value name="2">
-<Value>blLabelPrinter</Value>
-</Value>
 <Value name="3">
 <Value>EtiketLayout</Value>
 </Value>
Index: APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/Gemonteerd/EtiketPrinter.cls.xml
===================================================================
diff -u -r30135 -r32564
--- APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/Gemonteerd/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 30135)
+++ APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/Gemonteerd/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 32564)
@@ -23,6 +23,7 @@
 <Implementation><![CDATA[
 	Set ..SequentieService = ##class(APPS.Halux.common.impl.SequentieService).%New()
 	Set ..AssemblageKarRepository = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -31,15 +32,15 @@
 <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[	Quit ##class(APPS.Halux.Docs.EtiketBuilder).%New().MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID,ToeleveringLijnID,AantalEtiketten,VoorkeurPrinter)
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.Docs.EtiketBuilder).%New().MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID, ToeleveringLijnID, AantalEtiketten, VoorkeurPrinter)
 ]]></Implementation>
 </Method>
 
 <Method name="IsPrintenNodig">
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 1
+<Implementation><![CDATA[	Quit $$$True
 ]]></Implementation>
 </Method>
 
@@ -48,15 +49,16 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	Set SequenceGroepeerderImpl = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.Gemonteerd.ProductieSequentieGroepeerder).%New()
-	quit SequenceGroepeerderImpl.Groepeer(..SequentieService.GeefProductieSequentie(BatchID).GeefProductieSequentieItems())
+	#dim Groepeerder As APPS.Halux.common.ProductieSequentieGroepeerder = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.Gemonteerd.ProductieSequentieGroepeerder).%New()
+	
+	Quit Groepeerder.Groepeer(..SequentieService.GeefProductieSequentie(BatchID).GeefProductieSequentieItems())
 ]]></Implementation>
 </Method>
 
 <Method name="TussenEtiketNodig">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit 1
+<Implementation><![CDATA[	Quit $$$True
 ]]></Implementation>
 </Method>
 
@@ -66,14 +68,18 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	#dim KarVolgnummer As TECH.Integer = ..AssemblageKarRepository.GeefKarVolgnummerViaSequentieNr(Batch.GeefID(), SequenceInfo.SequenceNr)
-	If KarVolgnummer '= "" {
+	#dim TriggerKeyList As %ListOfDataTypes
+	
+	If $$$Not(KarVolgnummer = "") {
 		Set TriggerKeyList = ##class(%ListOfDataTypes).%New()
-		Do TriggerKeyList.Insert("Toelevering:"_SequenceInfo.ToeleveringID)
-		Do TriggerKeyList.Insert("Kar:"_KarVolgnummer)
-		Quit TriggerKeyList
+		
+		Do TriggerKeyList.Insert("Toelevering:" _ SequenceInfo.ToeleveringID)
+		Do TriggerKeyList.Insert("Kar:" _ KarVolgnummer)
 	} Else {
-		Quit ##super(Batch, SequenceInfo)
+		Set TriggerKeyList = ##super(Batch, SequenceInfo)
 	}
+	
+	Quit TriggerKeyList
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/OnGemonteerd/EtiketPrinter.cls.xml
===================================================================
diff -u -r30928 -r32564
--- APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/OnGemonteerd/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 30928)
+++ APPS/Halux/PPS/impl/AansturingActie/Taorbox/KlantEtiket/OnGemonteerd/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 32564)
@@ -28,6 +28,7 @@
 <Implementation><![CDATA[
 	Set ..SequentieService = ##class(APPS.Halux.common.impl.SequentieService).%New()
 	Set ..AssemblageKarRepository = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -36,15 +37,15 @@
 <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[	Quit ##class(APPS.Halux.Docs.EtiketBuilder).%New().MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID,ToeleveringLijnID,AantalEtiketten,VoorkeurPrinter)
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.Docs.EtiketBuilder).%New().MaakMaatwerkProductViaToeleveringEnLijnID(ToeleveringID, ToeleveringLijnID, AantalEtiketten, VoorkeurPrinter)
 ]]></Implementation>
 </Method>
 
 <Method name="IsPrintenNodig">
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 1
+<Implementation><![CDATA[	Quit $$$True
 ]]></Implementation>
 </Method>
 
@@ -53,15 +54,16 @@
 <Private>1</Private>
 <ReturnType>APPS.Halux.common.impl.ProductieSequentieGroepering</ReturnType>
 <Implementation><![CDATA[
-	Set SequenceGroepeerderImpl = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerder).%New()
-	quit SequenceGroepeerderImpl.GroepeerPerToelevering(BatchID)
+	#dim Groepeerder As APPS.Halux.common.ProductieSequentieGroepeerder = ##class(APPS.Halux.common.impl.ProductieSequentieGroepeerder).%New()
+	
+	Quit Groepeerder.GroepeerPerToelevering(BatchID)
 ]]></Implementation>
 </Method>
 
 <Method name="TussenEtiketNodig">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit 1
+<Implementation><![CDATA[	Quit $$$True
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/LadeEigenschappenEtiketAanvuller.cls.xml
===================================================================
diff -u -r30874 -r32564
--- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/LadeEigenschappenEtiketAanvuller.cls.xml	(.../LadeEigenschappenEtiketAanvuller.cls.xml)	(revision 30874)
+++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/LadeEigenschappenEtiketAanvuller.cls.xml	(.../LadeEigenschappenEtiketAanvuller.cls.xml)	(revision 32564)
@@ -39,13 +39,16 @@
 <Implementation><![CDATA[
 	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefMaatwerkProduct(ProductID)
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken()
+	
 	Set ..Etiket.Breedte = ..Etiket.Breedte_IngegevenKenmerken.CorpusBinnenbreedte
 	Set ..Etiket.Diepte = ..Etiket.Diepte_IngegevenKenmerken.LadeDiepte
-	If IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte {
+	
+	If (IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte) {
 		Set ..Etiket.WandDikte = ""
-	}Else{
+	} Else {
 		Set ..Etiket.WandDikte = ..Etiket.WandDikte_IngegevenKenmerken.GUIKenmerken.WandDikte
 	}
+	
 	Set ..Etiket.LadeCode = IngegevenKenmerken.GeefLadeCode()
 	
 	If (IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()) {
@@ -54,21 +57,25 @@
 		Set ..Etiket.Layout = "MaatwerkProduct 8x11"
 	}
 	
-	If ##class(TECH.StringUtils).Equals(IngegevenKenmerken.VerpakkingType, ##class(DOM.PM.enu.TAORVerpakkingType).V1(), ##class(DOM.PM.enu.TAORVerpakkingType).Probox(), ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()) {
+	If (##class(TECH.StringUtils).Equals(IngegevenKenmerken.VerpakkingType, ##class(DOM.PM.enu.TAORVerpakkingType).V1(), ##class(DOM.PM.enu.TAORVerpakkingType).Probox(), ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())) {
 		Set Kleuren = ##class(%ListOfDataTypes).%New()
 		#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..LadeInfoAPI.GeefLade(MaatwerkProduct.GeefHalffabItemsBoom(), IngegevenKenmerken)
 		#dim Zijkanten As %ListOfObjects = Lade.GeefZijkanten()
+		
 		If Zijkanten.Count() > 0 {
 			#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant = Zijkanten.GetAt(1)
 			#dim ZijkantKleuren As %ArrayOfDataTypes = Zijkant.GeefKleuren()
 			Do Kleuren.Insert(ZijkantKleuren.GetAt(2))
 			Do Kleuren.Insert(ZijkantKleuren.GetAt(1))
 		}
+		
 		#dim Bodems As %ListOfObjects = Lade.GeefBodems()
+		
 		If Bodems.Count() > 0 {
 			#dim Bodem As DOM.PM.Maatwerk.LadeInfo.impl.TAX.Zijkant = Bodems.GetAt(1)
 			Do Kleuren.Insert(Bodem.GeefKleur())
 		}
+		
 		Set ..Etiket.Kleur = ##class(TECH.ListUtils).ListToPieces(Kleuren, "/")
 	}
 	
Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r32007 -r32564
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 32007)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 32564)
@@ -36,6 +36,7 @@
 <Property name="FrequentieTabel">
 <Type>TECH.FrequentieTabel</Type>
 <Private>1</Private>
+<Transient>1</Transient>
 </Property>
 
 <Index name="idxBatchID">
@@ -197,13 +198,14 @@
 	
 	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
-		
+
 		Kill Sortering
 		
 		#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
 		
 		While (ProductLijnIterator.HasNext()) {
 			#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+
 			// TODOPA vertaling van ProductID As %String naar DOM.common.ProductID
 			#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
 			#dim ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn)
@@ -418,9 +420,6 @@
 <Value name="4">
 <Value>SequentieItems</Value>
 </Value>
-<Value name="5">
-<Value>FrequentieTabel</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/common/impl/SequentieService.cls.xml
===================================================================
diff -u -r29938 -r32564
--- APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 29938)
+++ APPS/Halux/common/impl/SequentieService.cls.xml	(.../SequentieService.cls.xml)	(revision 32564)
@@ -5,6 +5,16 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.common.SequentieService,TECH.RegisteredObject</Super>
 
+<Property name="ProductieGroep">
+<Type>APPS.Halux.common.enu.ProductieGroep.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Categorie">
+<Type>APPS.Halux.common.enu.Categorie.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefSequentieIterator">
 <FormalSpec>BatchID:%Integer</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
@@ -30,6 +40,7 @@
 	// enkel voor productiesequentie new style
 	#dim SequentieID As %String = ..GeefSequentieIDVoorBatch(BatchID)
 	#dim Sequentie As APPS.Halux.common.ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).OpenId(SequentieID)
+	
 	Quit Sequentie
 ]]></Implementation>
 </Method>
@@ -40,13 +51,14 @@
 <Implementation><![CDATA[
 	#dim HeeftProductieSequentie As %Boolean = 0
 	#dim Query As %String = "SELECT COUNT(ID) FROM APPS_Halux_common.ProductieSequentie WHERE BatchID = ? "
-	#dim QueryParams As %List = $listbuild(BatchID)
-	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query,QueryParams)
+	#dim QueryParams As %List = $ListBuild(BatchID)
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, QueryParams)
 	
-	if ResultSet.Next() {
-		set HeeftProductieSequentie = ( ResultSet.GetData(1) > 0 )
+	If (ResultSet.Next()) {
+		Set HeeftProductieSequentie = (ResultSet.GetData(1) > 0)
 	}
-	quit HeeftProductieSequentie
+	
+	Quit HeeftProductieSequentie
 ]]></Implementation>
 </Method>
 
@@ -55,13 +67,15 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Query As %String = "SELECT ID FROM APPS_Halux_common.ProductieSequentie WHERE BatchID = ? "
+	#dim SequentieID As %String
+	
 	Try {
-		#dim SequentieID As %String = ##class(TECH.ResultSet).GeefIDVanEersteRecord(Query, $LB(BatchID))
-	}
-	Catch {
+		Set SequentieID = ##class(TECH.ResultSet).GeefIDVanEersteRecord(Query, $ListBuild(BatchID))
+	} Catch {
 		Do ##class(TECH.ResultSet).CatchNoRecordException()
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen ProductieSequentieID gevonden voor Batch "_BatchID_"."))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen ProductieSequentieID gevonden voor Batch " _ BatchID _ "."))
 	}
+	
 	Quit SequentieID
 ]]></Implementation>
 </Method>
@@ -71,23 +85,32 @@
 xxxSequence = oldSchool , xxxSequentie = newSchool</Description>
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Implementation><![CDATA[
-	If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Tandembox()) {
-		do ..MaakTBXSequence(Batch)
-	} elseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()){
+	If (Batch.GeefCategorie() = ..Categorie.Tandembox) {
+		Do ..MaakTBXSequence(Batch)
+	} ElseIf (Batch.GeefCategorie() = ..Categorie.TAORbox){
 		Do ..MaakTAORSequence(Batch)
 	}
 	
 	If (..GebruiktProductieSequentie(Batch)) { 
 		#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
-		try {
-			#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..GenereerProductieSequentie(Batch)
-			do OperatieScope.Gelukt()
-		} catch {
+		#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie
+		
+		Try {			
+			Set ProductieSequentie = ..GenereerProductieSequentie(Batch)
+			Do OperatieScope.Gelukt()
+		} Catch {
 			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-			$$$IfThen(Exception.IsMajor(),OperatieScope.Gefaald(),OperatieScope.Gelukt())
-			do ##class(TECH.ExceptionHandler).Throw(Exception)
+			
+			If (Exception.IsMajor()) { 
+				Do OperatieScope.Gefaald() 
+			} Else { 
+				Do OperatieScope.Gelukt()
+			}
+			
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)
 		}
-		do ..MaakActiviteiten(Batch,ProductieSequentie)
+		
+		Do ..MaakActiviteiten(Batch, ProductieSequentie)
 	}
 ]]></Implementation>
 </Method>
@@ -97,26 +120,26 @@
 <ReturnType>APPS.Halux.common.ProductieSequentie</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ..GeefNieuweProductieSequentie(Batch)
-	if (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) 
-		|| (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).Plus())  
-		|| (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).LBXSpoelbakVHoss())  
-		{		
-		do ProductieSequentie.MaakVHossSequentie()
-	} else{
-		do ProductieSequentie.MaakStandaardSequentie()
+	
+	If ((Batch.GeefProductieGroep() = ..ProductieGroep.Kast) || (Batch.GeefProductieGroep() = ..ProductieGroep.Plus) || (Batch.GeefProductieGroep() = ..ProductieGroep.LBXSpoelbakVHoss)) {		
+		Do ProductieSequentie.MaakVHossSequentie()
+	} Else {
+		Do ProductieSequentie.MaakStandaardSequentie()
 	}
 	
-	do ProductieSequentie.Save()	
-	quit ProductieSequentie
+	Do ProductieSequentie.Save()	
+	
+	Quit ProductieSequentie
 ]]></Implementation>
 </Method>
 
 <Method name="MaakActiviteiten">
 <FormalSpec>Batch:APPS.Halux.common.Batch,ProductieSequentie:APPS.Halux.common.ProductieSequentie</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set AansturingService = ##class(APPS.Halux.PPS.impl.AansturingService).%New()
+	#dim AansturingService As APPS.Halux.PPS.AansturingService = ##class(APPS.Halux.PPS.impl.AansturingService).%New()
 	#dim ActiviteitGroepLijst As List of APPS.Halux.PPS.dto.ActiviteitGroepData = AansturingService.GeefActiviteitGroepen(Batch.GeefCategorie())
+	
 	Do ..VerwerkActiviteitGroepen(ActiviteitGroepLijst, ProductieSequentie, Batch.GeefID())
 ]]></Implementation>
 </Method>
@@ -127,23 +150,33 @@
 <Implementation><![CDATA[
 	#dim OperatieScope As TECH.OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
 	
-	try {
+	Try {
 		#dim QtyLade,QtyEmpty,QtyVHoss,SkippedTekst
 		#dim blSequencer As BL.PPS.TBX.Sequencer = ##class(BL.PPS.TBX.Sequencer).Instantiate()
-		Do blSequencer.Init(Batch.GeefID(),Batch.GeefProductieGroep())
-		if (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) || (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).Plus()) {
+		
+		Do blSequencer.Init(Batch.GeefID(), Batch.GeefProductieGroep())
+		
+		If (Batch.GeefProductieGroep() = ..ProductieGroep.Kast) || (Batch.GeefProductieGroep() = ..ProductieGroep.Plus) {
 			Do blSequencer.BldVHossSequence(.QtyLade, .QtyEmpty, .QtyVHoss, .SkippedTekst)
-			If $L($G(SkippedTekst)) {
-				#dim MeldingVoorGebruiker As %String = $$REPLACE^vhRtn1(SkippedTekst,">CR<",$C(13,10))
-				Do ##class(vhLib.Logger).%New("HALUX.VHOSS").Warning("BouwProductSequence","Batch " _ Batch.GeefID() _ ": volgende lades zijn niet opgenomen in de productiesequentie: " _ MeldingVoorGebruiker)
+			
+			If ($Length($Get(SkippedTekst))) {
+				#dim MeldingVoorGebruiker As %String = $$REPLACE^vhRtn1(SkippedTekst, ">CR<", $Char(13, 10))
+				Do ##class(vhLib.Logger).%New("HALUX.VHOSS").Warning("BouwProductSequence", "Batch " _ Batch.GeefID() _ ": volgende lades zijn niet opgenomen in de productiesequentie: " _ MeldingVoorGebruiker)
 			}
-		} else {
+		} Else {
 			Do blSequencer.BldLeanV1Sequence(.QtyLade)
 		}
-		do OperatieScope.Gelukt()
-	} catch {
+		
+		Do OperatieScope.Gelukt()
+	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		$$$IfThen(Exception.IsMajor(),OperatieScope.Gefaald(),OperatieScope.Gelukt())
+		
+		If (Exception.IsMajor()) { 
+			Do OperatieScope.Gefaald() 
+		} Else { 
+			Do OperatieScope.Gelukt()
+		}
+			
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 ]]></Implementation>
@@ -153,24 +186,28 @@
 <FormalSpec>ActiviteitGroepDataLijst:%ListOfObjects,ProductieSequentie:APPS.Halux.common.ProductieSequentie,BatchID:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim ActiviteitGroepDataIterator = ##class(TECH.ListIterator).%New(ActiviteitGroepDataLijst)
-		
 	#dim ExceptieLijst As TECH.ExceptionList = ##class(TECH.ExceptionList).%New()
+	
 	While (ActiviteitGroepDataIterator.HasNext()) {
 		#dim ActiviteitGroepData As APPS.Halux.PPS.dto.ActiviteitGroepData = ActiviteitGroepDataIterator.Next()
 		#dim ActiviteitGroep As APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteitGroep = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefActiviteitGroep(ActiviteitGroepData.ID)
+		
 		Try {
 			/// Old style ProductieSequentie overslaan.
-			If ActiviteitGroep.%ClassName(1) '= "APPS.Halux.PPS.Activiteit.ActiviteitGroep" {
+			If $$$Not(ActiviteitGroep.%ClassName(1) = "APPS.Halux.PPS.Activiteit.ActiviteitGroep") {
 				Do ActiviteitGroep.VerwerkProductieSequentie(ProductieSequentie)
 			}
 		} Catch {
 			Do ExceptieLijst.Insert(##class(TECH.ExceptionHandler).Catch())
 		}
 	}
-	If ExceptieLijst.Count() {
-		Set Exceptie = ##class(APPS.Halux.common.impl.VerwerkProductieSequentieExceptie).%New(##class(TECH.enu.ExceptionCode).GeneralError(), "Er is een fout opgetreden bij het verwerken van de productieSequentie")
+	
+	If (ExceptieLijst.Count()) {
+		#dim Exceptie As APPS.Halux.common.impl.VerwerkProductieSequentieExceptie = ##class(APPS.Halux.common.impl.VerwerkProductieSequentieExceptie).%New(##class(TECH.enu.ExceptionCode).GeneralError(), "Er is een fout opgetreden bij het verwerken van de productieSequentie")
+		
 		Do Exceptie.ZetBatchID(BatchID)
 		Do Exceptie.ZetInnerExcepties(ExceptieLijst)
+		
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>
@@ -180,9 +217,7 @@
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Quit ((Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox())
-		|| (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()))
+<Implementation><![CDATA[	Quit ((Batch.GeefCategorie() = ..Categorie.Legrabox) || (Batch.GeefCategorie() = ..Categorie.TAORbox))
 ]]></Implementation>
 </Method>
 
@@ -192,31 +227,31 @@
 <ReturnType>APPS.Halux.common.ProductieSequentie</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductieSequentie As APPS.Halux.common.ProductieSequentie = ""
-	If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Legrabox()){
+	
+	If (Batch.GeefCategorie() = ..Categorie.Legrabox) {
 		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Legrabox).%New(Batch)
-	}ElseIf (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()){
+	} ElseIf (Batch.GeefCategorie() = ..Categorie.TAORbox) {
 		Set ProductieSequentie = ##class(APPS.Halux.common.impl.ProductieSequentie.Taor).%New(Batch)
-	}Else{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kan geen ProductieSequentie-klasse maken voor categorie "_Batch.GeefCategorie()_" (Batch "_Batch.GeefID()_")"))
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kan geen ProductieSequentie-klasse maken voor categorie " _ Batch.GeefCategorie() _ " (Batch " _ Batch.GeefID() _ ")"))
 	}
+	
 	Quit ProductieSequentie
 ]]></Implementation>
 </Method>
 
 <Method name="VerwijderSequentie">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Implementation><![CDATA[
-	If (Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Tandembox()
-		||	Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).TAORbox()
-		)
-	{
+	If ((Batch.GeefCategorie() = ..Categorie.Tandembox) || (Batch.GeefCategorie() = ..Categorie.TAORbox)) {
 		// Old style
 		#dim blSequencer As BL.PPS.TBX.Sequencer = ##class(BL.PPS.TBX.Sequencer).Instantiate()
-		Do blSequencer.Init(Batch.GeefID(),Batch.GeefProductieGroep())	 
+		
+		Do blSequencer.Init(Batch.GeefID(), Batch.GeefProductieGroep())	 
 		Do blSequencer.DeleteBatch()
 	}
 	
-	If ..GebruiktProductieSequentie(Batch) {
+	If (..GebruiktProductieSequentie(Batch)) {
 		// New style
 		Do ##class(APPS.Halux.common.ProductieSequentie).WisVoorBatchID(Batch.GeefID())
 	}
@@ -228,45 +263,57 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do ##class(vhLib.OldSchool).InitVars()
+	
 	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	
 	Do ..VerwijderSequentie(Batch)
 	
 	#dim SequenceNr As %Integer = 0
 	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
-	While (ToeleveringIterator.HasNext())
-	{
+	
+	While (ToeleveringIterator.HasNext()) {		
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
+
 		#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Toelevering.GeefKlantID())
 		#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
-		While (ProductLijnIterator.HasNext())
-		{
+		
+		While (ProductLijnIterator.HasNext()) {
 			#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
-			If (ProductTypeAPI.IsTAORboxProduct(ProductLijn.GeefProductID()))
-			{
+
+			If (ProductTypeAPI.IsTAORboxProduct(ProductLijn.GeefProductID())) {
 				#dim TAORbox As DOM.PM.TAORProduct.TAORLade = ProductTypeAPI.GeefTAORboxProduct(ProductLijn.GeefProductID())
 				#dim WPLosOnderdeel As DS.PPS.TBX.sub.emWPLosOnderdeel = ..GeefWPLosOnderdeel(TAORbox.GeefID())
 				#dim WPVerpak As DS.PPS.TBX.sub.emWPVerpak = ..GeefWPVerpak(TAORbox.GeefID())
 				#dim i As %Integer
-				For i=1:1:ProductLijn.GeefAantal()
-				{
-					Set oQ=##class(DS.PPS.TBX.Queue).%New()
-					Do oQ.ProductSetObjectId(TAORbox.GeefID()), oQ.KlantSetObjectId(KlantNr)
-					Set oQ.TOENr=Toelevering.GeefID(), oQ.TLUNr=ProductLijn.GeefID()
-					Set oQ.DOSNr=TAORbox.GeefDossierNr(), oQ.Sequence=$I(SequenceNr)
-					Set oQ.TotaalAantal=ProductLijn.GeefAantal()
-					Set oQ.DeelAantal=i, oQ.BatchID=Batch.GeefID()
-					Set oQ.Status="W"
-					Set oQ.WPLosOnderdeel = WPLosOnderdeel
-					Set oQ.WPVerpak = WPVerpak
-					Do oQ.Save()
+				
+				For i=1:1:ProductLijn.GeefAantal() {
+					#dim Queue As DS.PPS.TBX.Queue = ##class(DS.PPS.TBX.Queue).%New()
+					
+					Do Queue.ProductSetObjectId(TAORbox.GeefID())
+					Do Queue.KlantSetObjectId(KlantNr)
+					
+					Set Queue.TOENr = Toelevering.GeefID()
+					Set Queue.TLUNr = ProductLijn.GeefID()
+					Set Queue.DOSNr = TAORbox.GeefDossierNr()
+					Set Queue.Sequence = $Increment(SequenceNr)
+					Set Queue.TotaalAantal = ProductLijn.GeefAantal()
+					Set Queue.DeelAantal = i
+					Set Queue.BatchID = Batch.GeefID()
+					Set Queue.Status = "W"
+					Set Queue.WPLosOnderdeel = WPLosOnderdeel
+					Set Queue.WPVerpak = WPVerpak
+					
+					Do Queue.Save()
 				}
-				Do ##class(BL.Legacy.HaluxProductieOpvolging).MARKPR(##class(BL.Legacy.HaluxProductieOpvolging).FABKEYT(Toelevering.GeefID(),ProductLijn.GeefID()),"B",ProductLijn.GeefAantal(),ProductLijn.GeefAantal(),$H)
+				
+				#dim FabKey As %String = ##class(BL.Legacy.HaluxProductieOpvolging).FABKEYT(Toelevering.GeefID(), ProductLijn.GeefID())
+				Do ##class(BL.Legacy.HaluxProductieOpvolging).MARKPR(FabKey, "B", ProductLijn.GeefAantal(), ProductLijn.GeefAantal(), $Horolog)
 			}
 		}
 	}
 	
-	#dim Prebuild As BL.PPS.TBX.Prebuild =##class(BL.PPS.TBX.Prebuild).Instantiate()
+	#dim Prebuild As BL.PPS.TBX.Prebuild = ##class(BL.PPS.TBX.Prebuild).Instantiate()
+	
 	Do Prebuild.Init(Batch.GeefID())
 ]]></Implementation>
 </Method>
@@ -276,14 +323,15 @@
 <Private>1</Private>
 <ReturnType>DS.PPS.TBX.sub.emWPLosOnderdeel</ReturnType>
 <Implementation><![CDATA[
-	#dim oWP As DS.PPS.TBX.sub.emWPLosOnderdeel = "" 
-	If (##class(BL.PPS.WPLosOnderdeel).GeefWPOptiboxInstantie(ProductID).HeeftProductVerpakking())
-	{
-		Set oWP=##class(DS.PPS.TBX.sub.emWPLosOnderdeel).%New()
-		Set oWP.WPStatus="W"
-		Set oWP.SnijStatus="W"
+	#dim WPLosOnderdeel As DS.PPS.TBX.sub.emWPLosOnderdeel = "" 
+	
+	If (##class(BL.PPS.WPLosOnderdeel).GeefWPOptiboxInstantie(ProductID).HeeftProductVerpakking()) {
+		Set WPLosOnderdeel = ##class(DS.PPS.TBX.sub.emWPLosOnderdeel).%New()
+		Set WPLosOnderdeel.WPStatus = "W"
+		Set WPLosOnderdeel.SnijStatus = "W"
 	}
-	Quit oWP
+	
+	Quit WPLosOnderdeel
 ]]></Implementation>
 </Method>
 
@@ -292,14 +340,15 @@
 <Private>1</Private>
 <ReturnType>DS.PPS.TBX.sub.emWPVerpak</ReturnType>
 <Implementation><![CDATA[
-	#dim oWP As DS.PPS.TBX.sub.emWPVerpak = "" 
-	If (##class(BL.PPS.WPVerpak).GeefWPOptiboxInstantie(ProductID).HeeftProductVerpakking())
-	{
-		Set oWP=##class(DS.PPS.TBX.sub.emWPVerpak).%New()
-		Set oWP.WPStatus="W"
-		Set oWP.SnijStatus="W"
+	#dim WPVerpak As DS.PPS.TBX.sub.emWPVerpak = "" 
+	
+	If (##class(BL.PPS.WPVerpak).GeefWPOptiboxInstantie(ProductID).HeeftProductVerpakking()) {
+		Set WPVerpak = ##class(DS.PPS.TBX.sub.emWPVerpak).%New()
+		Set WPVerpak.WPStatus = "W"
+		Set WPVerpak.SnijStatus = "W"
 	}
-	Quit oWP
+	
+	Quit WPVerpak
 ]]></Implementation>
 </Method>
 
@@ -322,15 +371,19 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim IsActief As %Boolean = $$$Not(..BestaatProductieSequentieItem(ProductieSequentieItemID))
-	if IsActief {
+	
+	If (IsActief) {
 		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = ..GeefProductieSequentieItem(ProductieSequentieItemID)	
 		#dim BatchID As %String = ProductieSequentieItem.BatchID
 		#dim BatchService As APPS.Halux.common.BatchService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService()
-		If BatchService.BestaatBatch(BatchID) {
+		
+		If (BatchService.BestaatBatch(BatchID)) {
 			#dim Batch As APPS.Halux.common.Batch = BatchService.GeefBatch(BatchID)
-			set IsActief = Batch.IsActief()	
+			
+			Set IsActief = Batch.IsActief()	
 		}	
 	}
+	
 	Quit IsActief
 ]]></Implementation>
 </Method>
Index: APPS/Halux/common/enu/ProductieGroep/Verwerker.cls.xml
===================================================================
diff -u -r30702 -r32564
--- APPS/Halux/common/enu/ProductieGroep/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 30702)
+++ APPS/Halux/common/enu/ProductieGroep/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 32564)
@@ -67,7 +67,7 @@
 	} ElseIf ProductieGroep = "S" {
 		Do ..VerwerkStuk()
 	} Else {
-		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(ProductieGroep,"APPS.Halux.common.enu.ProductieGroep")
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(ProductieGroep,"APPS.Halux.common.enu.ProductieGroep",$classname())
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 ]]></Implementation>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Front.cls.xml
===================================================================
diff -u -r29059 -r32564
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Front.cls.xml	(.../Front.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Front.cls.xml	(.../Front.cls.xml)	(revision 32564)
@@ -20,11 +20,13 @@
 <Property name="ProductieSequentieWerklijstItemBewaarder">
 <Type>APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder</Type>
 <Private>1</Private>
+<Transient>1</Transient>
 </Property>
 
 <Property name="WerklijstItemsMaker">
 <Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Front.WerklijstItemsMaker</Type>
 <Private>1</Private>
+<Transient>1</Transient>
 </Property>
 
 <Method name="MaakActiviteit">
@@ -49,10 +51,12 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	do ##super()
-	Set ..ProductieSequentieWerklijstItemBewaarder = $$$Implementation(ProductieSequentieWerklijstItemBewaarder,##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder).%New())
-	Set ..WerklijstItemsMaker = $$$Implementation(WerklijstItemsMaker,##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Front.WerklijstItemsMaker).%New())
-	quit $$$OK
+	Do ##super()
+	
+	Set ..ProductieSequentieWerklijstItemBewaarder = $$$Inject(ProductieSequentieWerklijstItemBewaarder, ##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder).%New())
+	Set ..WerklijstItemsMaker = $$$Inject(WerklijstItemsMaker, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Front.WerklijstItemsMaker).%New())
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -63,22 +67,13 @@
 <Implementation><![CDATA[
 	Set ..ProductieSequentieWerklijstItemBewaarder = ##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder).%New()
 	Set ..WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Front.WerklijstItemsMaker).%New()
+	
 	Quit ##super()
 ]]></Implementation>
 </Method>
 
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
-<DefaultData>FrontDefaultData</DefaultData>
-<Data name="FrontDefaultData">
-<Subscript>"Front"</Subscript>
-<Value name="1">
-<Value>ProductieSequentieWerklijstItemBewaarder</Value>
-</Value>
-<Value name="2">
-<Value>WerklijstItemsMaker</Value>
-</Value>
-</Data>
 </Storage>
 </Class>