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>