Index: APPS/Halux/common/impl/BatchService.cls.xml
===================================================================
diff -u -r56864 -r57036
--- APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 56864)
+++ APPS/Halux/common/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 57036)
@@ -118,6 +118,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderToeleveringenUitBatches">
+<FormalSpec>TeVerwijderenToeleveringenInBatch:%ArrayOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	#dim Logger As vhLib.Logger = ##class(vhLib.Logger).%New("")
+	Set ToeleveringIterator = ##class(TECH.ListIterator).%New(TeVerwijderenToeleveringenInBatch)
+	While ToeleveringIterator.HasNext() {
+		#dim BatchId As %String = ToeleveringIterator.Next()
+		#dim Batch As APPS.Halux.common.Batch = ..GeefBatch(BatchId)
+		If $IsObject(Batch) {
+			#dim ToeleveringId As %String = ToeleveringIterator.Key()
+			If Batch.IsReedsGestart() {
+				Do Logger.Warning("VerwijderToeleveringenUitBatches","Toelevering '"_ToeleveringId_"' kan NIET gewist worden, want Batch '"_Batch.GeefID()_"' is reeds gestart.")
+			}
+			Else {
+				Do Batch.VerwijderToeleveringViaID(ToeleveringId)
+				Do Batch.Save()
+				Do Logger.Warning("VerwijderToeleveringenUitBatches","In Batch '"_Batch.GeefID()_"' werd toelevering '"_ToeleveringId_"' gewist uit lijst van toeleveringen.")
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderBatchesOuderDan">
 <FormalSpec>AantalDagen:%Integer=30</FormalSpec>
 <Implementation><![CDATA[