Index: APPS/Halux/PPS/impl/Aansturing/AansturingActieUitvoerder/AsyncUitvoerder.cls.xml
===================================================================
diff -u -r29059 -r61061
--- APPS/Halux/PPS/impl/Aansturing/AansturingActieUitvoerder/AsyncUitvoerder.cls.xml	(.../AsyncUitvoerder.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/impl/Aansturing/AansturingActieUitvoerder/AsyncUitvoerder.cls.xml	(.../AsyncUitvoerder.cls.xml)	(revision 61061)
@@ -12,8 +12,8 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BatchID:%String,ActiviteitGroepID:%String,AansturingActieIDs:%ListOfDataTypes,ActieParametersLijst:APPS.Halux.PPS.dto.ActieParametersLijst</FormalSpec>
 <Implementation><![CDATA[
-	do ..%New().VoerUitAansturingActies(BatchID,ActiviteitGroepID,AansturingActieIDs,ActieParametersLijst)
-	quit
+	Do ..%New().VoerUitAansturingActies(BatchID,ActiviteitGroepID,AansturingActieIDs,ActieParametersLijst)
+	Quit
 ]]></Implementation>
 </Method>
 
@@ -24,7 +24,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..AansturingActieUitvoerder = $$$Implementation(AansturingActieUitvoerder,##class(APPS.Halux.PPS.impl.Aansturing.AansturingActieUitvoerder).%New())
+	Set ..AansturingActieUitvoerder = $$$Implementation(AansturingActieUitvoerder,##class(APPS.Halux.PPS.impl.Aansturing.AansturingActieUitvoerder).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -33,15 +33,103 @@
 <FormalSpec>BatchID:%String,ActiviteitGroepID:%String,ActieIDs:%ListOfDataTypes,ActieParametersLijst:APPS.Halux.PPS.dto.ActieParametersLijst=##class(APPS.Halux.PPS.dto.ActieParametersLijst).%New()</FormalSpec>
 <ReturnType>APPS.Halux.PPS.dto.ActiviteitGroepAansturingStatus</ReturnType>
 <Implementation><![CDATA[
-	set itActiesIDs = ##class(TECH.ListIterator).%New(ActieIDs)
+	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID) 
+	#dim BatchCategorie As APPS.Halux.common.enu.Categorie = Batch.GeefCategorie()
+	
+	Set itActiesIDs = ##class(TECH.ListIterator).%New(ActieIDs)
+	
+	If (..IsTAXLade(BatchCategorie) || ..IsTBXofLBXlade(BatchCategorie)) { 
+		Do ..VerkrijgLock(BatchCategorie, BatchID)
+	}		
+
 	while itActiesIDs.HasNext() {
 		#dim ActieID As %String = itActiesIDs.Next()
 		#dim ActieParameters As %ListOfDataTypes = ""
-		set ActieParameters = ..AansturingActieUitvoerder.GeefActieParametersVoorActieID(ActieParametersLijst,ActieID)
-		do ..AansturingActieUitvoerder.VoerUitAansturingActieVoorBatch(BatchID,ActiviteitGroepID,ActieID,ActieParameters)
+		Set ActieParameters = ..AansturingActieUitvoerder.GeefActieParametersVoorActieID(ActieParametersLijst,ActieID)
+		Do ..AansturingActieUitvoerder.VoerUitAansturingActieVoorBatch(BatchID,ActiviteitGroepID,ActieID,ActieParameters)
 	}
+	
+	If (..IsTAXLade(BatchCategorie) || ..IsTBXofLBXlade(BatchCategorie)) { 
+		Do ..Verwijderlock(BatchCategorie)
+	}
 ]]></Implementation>
 </Method>
+
+<Method name="VerkrijgLock">
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie,BatchID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Wachtinterval As %Double = 1.0		
+	#dim IsLockVerkregen As %Boolean = ..ZetLock(Categorie, Wachtinterval)
+	
+	while IsLockVerkregen {
+		Set Wachtinterval = ..GeefVolgendWachtinterval(Wachtinterval)
+		Set IsLockVerkregen = ..ZetLock(Categorie, Wachtinterval)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZetLock">
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie,Wachtinterval:%Double</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	If ..IsTBXofLBXlade(Categorie){
+		Lock (^Backgroundjob("Afdrukken aansturingsacties op printer van TBX en LBX")):Wachtinterval
+	}
+	
+	If ..IsTAXLade(Categorie) {
+		Lock (^Backgroundjob("Afdrukken aansturingsacties op printer van TAX")):Wachtinterval
+	}
+	
+	Quit $$$Not($Test)
+]]></Implementation>
+</Method>
+
+<Method name="Verwijderlock">
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
+<Implementation><![CDATA[
+	If ..IsTBXofLBXlade(Categorie){
+		Lock -(^Backgroundjob("Afdrukken aansturingsacties op printer van TBX en LBX")):0
+	} 
+	
+	If ..IsTAXLade(Categorie) {
+		Lock -(^Backgroundjob("Afdrukken aansturingsacties op printer van TAX")):0
+	}
+	
+	Quit $$$Not($Test)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolgendWachtinterval">
+<FormalSpec>Basisgetal:%Double</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Double</ReturnType>
+<Implementation><![CDATA[
+	#dim IncrementeelGetal As %Double 
+	
+	If Basisgetal < 40.0 {
+		Set IncrementeelGetal = (Basisgetal/2)+Basisgetal
+	} Else {
+		Set IncrementeelGetal = Basisgetal
+	}
+	
+	Quit IncrementeelGetal
+]]></Implementation>
+</Method>
+
+<Method name="IsTBXofLBXlade">
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((##class(APPS.Halux.common.enu.Categorie).Tandembox() = Categorie) || (##class(APPS.Halux.common.enu.Categorie).Legrabox() = Categorie))
+]]></Implementation>
+</Method>
+
+<Method name="IsTAXLade">
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (##class(APPS.Halux.common.enu.Categorie).TAORbox() = Categorie)
+]]></Implementation>
+</Method>
 </Class>