Index: APPS/Halux/common/impl/BatchImpl.cls.xml
===================================================================
diff -u -r57003 -r57034
--- APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 57003)
+++ APPS/Halux/common/impl/BatchImpl.cls.xml	(.../BatchImpl.cls.xml)	(revision 57034)
@@ -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>
@@ -374,7 +380,7 @@
 <Method name="WisOnbestaandeToeleveringen">
 <Implementation><![CDATA[
 	#dim Logger As vhLib.Logger = ##class(vhLib.Logger).%New("")
-	#dim MagToeleveringenWissen As %Boolean = $$$Not( ##class(TECH.StringUtils).Equals(..Status, ##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten(), ##class(APPS.Halux.common.enu.BatchStatus).Gestart()) )
+	#dim MagToeleveringenWissen As %Boolean = $$$Not( ..IsReedsGestart() )
 	
 	If MagToeleveringenWissen {
 		Set Iterator = ##class(TECH.ListIterator).%New(..Toeleveringen)
@@ -387,6 +393,9 @@
 		}
 		Do ..Save()
 	}
+	Else {
+		Do Logger.Warning("WisOnbestaandeToeleveringen","Toelevering '"_ToeleveringId_"' kon NIET gewist worden, want Batch '"_..GeefID()_"' is reeds gestart.")
+	}
 ]]></Implementation>
 </Method>