Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r31189 -r31215
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 31189)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 31215)
@@ -157,8 +157,11 @@
 			try { 
 				#dim BronBatch As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatch(Toelevering)
 				
-				do ..VerwijderToeleveringVanBatch(BronBatch, Toelevering)
-				do GewijzigdeBatches.SetAt(BronBatch, BronBatch.GeefID())
+				if ($IsObject(BronBatch)) {
+					do BronBatch.VerwijderToelevering(Toelevering)
+					do GewijzigdeBatches.SetAt(BronBatch, BronBatch.GeefID())
+					do BronBatch.Save()
+				}
 
 				#dim WasLegeBatch As %Boolean = (Batch.GeefToeleveringen().Count() = 0)
 				
@@ -190,17 +193,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwijderToeleveringVanBatch">
-<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	if ($IsObject(Batch)) {
-		do Batch.VerwijderToelevering(Toelevering)
-		do Batch.Save()
-	}
-]]></Implementation>
-</Method>
-
 <Method name="GeefInitieleLijnVoorToelevering">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <ReturnType>TECH.String</ReturnType>