Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r57024 -r57025
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 57024)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 57025)
@@ -322,16 +322,16 @@
 </Method>
 
 <Method name="ZoekToelevering">
-<FormalSpec>ToeleveringID:%String</FormalSpec>
+<FormalSpec>ToeleveringID:%String,MagOnbestaandeToeleveringOpkuisen:%Boolean=1</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.ZoekToeleveringResultaat</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As APPS.Halux.Planning.dto.ZoekToeleveringResultaat = ##class(APPS.Halux.Planning.dto.ZoekToeleveringResultaat).%New()
 
-	If $$$Not(..ToeleveringAPI.BestaatToelevering(ToeleveringID)) {
+	If MagOnbestaandeToeleveringOpkuisen && ($$$Not(..ToeleveringAPI.BestaatToelevering(ToeleveringID))) {
 		#dim BatchToFix As APPS.Halux.common.Batch = ..BatchService.GeefBijhorendeBatchViaID(ToeleveringID)
 		If $IsObject(BatchToFix) {
 			Do BatchToFix.WisOnbestaandeToeleveringen()
-			Do ##class(TECH.Exceptions.InvalidUserInputException).Throw("Toelevering "_ToeleveringID_" bestaat niet. Werd gewist uit Batch "_ BatchToFix.GeefID()_" "_BatchToFix.GeefCategorie()_" "_BatchToFix.GeefGeplandOp())
+			Do ##class(TECH.Exceptions.InvalidUserInputException).Throw( "Toelevering "_ToeleveringID_" bestaat niet. Werd gewist uit Batch '"_ BatchToFix.GeefID()_"' - "_BatchToFix.GeefCategorie()_" "_$$FormatDateTime^vhLib("dd/mm/yyyy",BatchToFix.GeefGeplandOp()) )
 		}
 	}