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>