Index: vhPowerTools/APPS/Halux/PPS/BatchPowerService.cls.xml
===================================================================
diff -u -r48122 -r52135
--- vhPowerTools/APPS/Halux/PPS/BatchPowerService.cls.xml	(.../BatchPowerService.cls.xml)	(revision 48122)
+++ vhPowerTools/APPS/Halux/PPS/BatchPowerService.cls.xml	(.../BatchPowerService.cls.xml)	(revision 52135)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhPowerTools.APPS.Halux.PPS.BatchPowerService">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="AskDesactiveerBatch">
 <Description>
@@ -120,6 +120,58 @@
 	Do ##class(APPS.Halux.common.impl.BatchService).%New().VerwijderBatchesOuderDan(-1)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderToeleveringUitBatch">
+<Description>
+Powertool om een Toelevering te wissen uit een Batch.  
+Ideaal als de toelevering reeds verwijderd is maar toch nog aanwezig is in de lijst (index) van Toelev in Batch.
+Oproepen via: 
+   Do ##class(vhPowerTools.APPS.Halux.PPS.BatchPowerService).VerwijderToeleveringUitBatch(ToeleveringID) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	#dim ToeleveringLabel As %String = "Toelevering"
+	If ToeleveringAPI.BestaatToelevering(ToeleveringID) {
+		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringID)
+		Write !,"Toelevering "_ToeleveringID_" voor klantID '"_Toelevering.GeefKlantID()_"'."   ; " en  ProductieGroep '"_Toelevering.??? _"'."
+		
+	}
+	Else {
+		Write !,"Toelevering "_ToeleveringID_" bestaat niet (meer)."
+		Set ToeleveringLabel = "(Onbestaande) Toelevering"
+	}
+
+	#dim Batch As APPS.Halux.common.impl.BatchImpl = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBijhorendeBatchViaID(ToeleveringID)
+	If ($IsObject(Batch)) {
+		Write !,ToeleveringLabel_" in Batch '"_Batch.GeefID()_"  ProductieGroep '"_Batch.GeefCategorie()_"'."
+		Write !,"Status van de Batch : "_Batch.GeefStatus()
+		If (ToeleveringAPI.BestaatToelevering(ToeleveringID)) && (##class(TECH.StringUtils).Equals(Batch.GeefStatus(), ##class(APPS.Halux.common.enu.BatchStatus).Gestart(), ##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten(), ##class(APPS.Halux.common.enu.BatchStatus).StartenGefaald())) {
+			Write !,"In deze status kan de toelevering niet verwijderd worden."
+			Write !,"Er is niks veranderd."
+		}
+		Else {
+			#dim Key As %String = ""
+			Write !!,ToeleveringLabel_" '"_ToeleveringID_"' zal verwijderd worden uit Batch '"_Batch.GeefID()_"'. Ben je zeker [J/N] ? "
+			Read Key
+			If $$$UCase(Key) = "J" {
+				Write !,"Toelevering wordt verwijderd."
+
+				Do Batch.VerwijderToeleveringViaID(ToeleveringID)
+				Do Batch.Save()
+
+				Write !,"Toelevering is verwijderd. De Batch is ge-saved."
+			}
+			Else {
+				Write !,"Toelevering is NIET verwijderd uit de batch. Er is niks veranderd."
+			}
+		}
+	}
+	Else {
+		Write !,"Er is geen bijhorende batch gevonden voor deze toelevering. Er is dus niks verwijderd."
+	}
+]]></Implementation>
+</Method>
 </Class>