Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r56853 -r57121
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 56853)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 57121)
@@ -324,6 +324,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsReedsGestart">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Equals(..Status, ##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten(), ##class(APPS.Halux.common.enu.BatchStatus).Gestart(), ##class(APPS.Halux.common.enu.BatchStatus).StartenGefaald())
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderToelevering">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
@@ -371,6 +377,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="WisOnbestaandeToeleveringen">
+<Implementation><![CDATA[
+	#dim Logger As vhLib.Logger = ##class(vhLib.Logger).%New("")
+	#dim MagToeleveringenWissen As %Boolean = $$$Not( ..IsReedsGestart() )
+	
+	If MagToeleveringenWissen {
+		Set Iterator = ##class(TECH.ListIterator).%New(..Toeleveringen)
+		While (Iterator.HasNext()) {
+			#dim ToeleveringId As %String = Iterator.Next()
+			If $$$Not(##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().BestaatToelevering(ToeleveringId)) {
+				Do ..VerwijderToeleveringViaID(ToeleveringId)
+				Do Logger.Warning("WisOnbestaandeToeleveringen","In Batch '"_..GeefID()_"' werd toelevering '"_ToeleveringId_"' gewist uit lijst van toeleveringen.")
+			}
+		}
+		Do ..Save()
+	}
+	Else {
+		Do Logger.Warning("WisOnbestaandeToeleveringen","Toeleveringen in Batch '"_..GeefID()_"' kunnen NIET gewist worden, want batch is reeds gestart.")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderAlleToeleveringen">
 <Implementation><![CDATA[
 	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()