Index: vhPowerTools/APPS/Halux/PPS/BatchPowerService.cls.xml
===================================================================
diff -u -r29059 -r48100
--- vhPowerTools/APPS/Halux/PPS/BatchPowerService.cls.xml	(.../BatchPowerService.cls.xml)	(revision 29059)
+++ vhPowerTools/APPS/Halux/PPS/BatchPowerService.cls.xml	(.../BatchPowerService.cls.xml)	(revision 48100)
@@ -75,6 +75,48 @@
 <Implementation><![CDATA[		Quit "BatchID: " _ Batch.GeefID() _ " Categorie: " _ Batch.GeefCategorie() _ " Dueout: " _ ##class(TECH.DateTime).GeefDatumInPuntNotatieLang(Batch.GeefGeplandOp()) _ " Status: " _ Batch.GeefStatus()
 ]]></Implementation>
 </Method>
+
+<Method name="DesactiveerAlleBatches">
+<Description>
+Do ##class(vhPowerTools.APPS.Halux.PPS.BatchPowerService).DesactiveerAlleBatches()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#Dim UserInput As %String
+	Write "Druk Enter om ALLE BATCHES op Manueel te zetten en te ontstarten, of Ctrl-C om niets te doen en dit programma te verlaten.",!
+	Read UserInput
+	
+	#Dim AansturingService As APPS.Halux.PPS.AansturingService = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchAansturingService()
+	#Dim Logger As vhLib.Logger = ##class(vhLib.Logger).%New()
+	
+	#Dim Batches As TECH.Iterator = ##class(APPS.Halux.common.impl.BatchService).%New().GeefActieveBatchIterator()
+	While Batches.HasNext() {
+		Try {
+			#Dim Batch As APPS.Halux.common.Batch = Batches.Next()
+			Do Logger.Info("Begin ontstarten batch", Batch.GeefID())
+			Do Batch.ZetStatus("Manueel")
+			Do Batch.Save()
+			Do AansturingService.ResetAansturingStatusVoorBatch(Batch.GeefID())		
+			Do Logger.Info("Einde ontstarten batch", Batch.GeefID())
+		} Catch {
+			Do Logger.LogExceptie(##class(TECH.ExceptionHandler).Catch())
+			Do Logger.Info("Error bij ontstarten batch", Batch.GeefID())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderAlleBatches">
+<Description>
+Do ##class(vhPowerTools.APPS.Halux.PPS.BatchPowerService).VerwijderAlleBatches()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#Dim UserInput As %String
+	Write "Druk Enter om ALLE BATCHES te VERWIJDEREN, of Ctrl-C om niets te doen en dit programma te verlaten.",!
+	Read UserInput
+	
+	Do ##class(APPS.Halux.common.impl.BatchService).%New().VerwijderBatchesOuderDan(-1)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/common/impl/BatchService.cls.xml
===================================================================
diff -u -r38152 -r48100
--- APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 38152)
+++ APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 48100)
@@ -103,11 +103,13 @@
 <Method name="VerwijderBatchesOuderDan">
 <FormalSpec>AantalDagen:%Integer=30</FormalSpec>
 <Implementation><![CDATA[
+	#Dim Logger As vhLib.Logger = ##class(vhLib.Logger).%New()
 	Set ResultSet = ##class(%ResultSet).%New()
 	Do ResultSet.Prepare("SELECT ID FROM APPS_Halux_common_impl.BatchImpl WHERE DATEDIFF('dd',AanmaakTijdStip,CURRENT_TIMESTAMP) > ? AND IsActief = 0")
 	set ResultSet.RuntimeMode = ##class(TECH.enu.ResultSetRuntimeMode).Logical()
 	Do ResultSet.Execute(AantalDagen)
 	While (ResultSet.Next()) {
+		Do Logger.Info("Verwijderen batch", ResultSet.Data("ID"))
 		Do ##class(APPS.Halux.common.impl.BatchImpl).%DeleteId(ResultSet.Data("ID"))
 	}
 ]]></Implementation>