Index: APPS/Halux/Planning/impl/BatchStarter.cls.xml
===================================================================
diff -u -r47982 -r50955
--- APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 47982)
+++ APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 50955)
@@ -24,16 +24,16 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar</FormalSpec>
+<FormalSpec>BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar,Logger:vhLib.Logger</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..BatchBewaarder = $$$Implementation(BatchBewaarder,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchBewaarder())
-	set ..BatchSequentieService = $$$Implementation(BatchSequentieService,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchSequentieService())
-	set ..BatchSequentieVerwijderaar = $$$Implementation(BatchSequentieVerwijderaar,##class(APPS.Halux.Planning.impl.BatchSequentieVerwijderaar).%New()) 
-	Set ..Logger = ##class(vhLib.Logger).%New()
+	Set ..BatchBewaarder = $$$Implementation(BatchBewaarder,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchBewaarder())
+	Set ..BatchSequentieService = $$$Implementation(BatchSequentieService,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchSequentieService())
+	Set ..BatchSequentieVerwijderaar = $$$Implementation(BatchSequentieVerwijderaar,##class(APPS.Halux.Planning.impl.BatchSequentieVerwijderaar).%New()) 
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -52,35 +52,39 @@
 <Method name="StartBatch">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Implementation><![CDATA[
-	do ..ControleerBatchStatus(Batch)
+	Quit:$$$Not(..ControleerBatchStatus(Batch))
 	
-	try {
+	Try {
 		Do ..Logger.Info("StartBatch", "Starten van batch ("_Batch.GeefID()_") is begonnen.")
 		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten())
 		Do ..BatchBewaarder.BewaarBatch(Batch)
 		Do ..BatchSequentieService.GenereerSequentie(Batch)
 		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Gestart())
 		Do ..BatchBewaarder.BewaarBatch(Batch)
-		do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchGeslotenEvent(Batch.GeefID())
+		Do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchGeslotenEvent(Batch.GeefID())
 	}
-	catch {
+	Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).StartenGefaald())
+		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).StartenGefaald())
 		Do ..BatchBewaarder.BewaarBatch(Batch)
-		do ..BatchSequentieVerwijderaar.VerwijderBatchSequentie(Batch)	
+		Do ..BatchSequentieVerwijderaar.VerwijderBatchSequentie(Batch)	
 		Do ..Logger.Error("StartBatch", "Starten van batch ("_Batch.GeefID()_") is mislukt."_$$$CRLF_$$$CRLF_"Exception:"_$$$CRLF_Exception.ToString())
-		do ##class(TECH.ExceptionHandler).Throw(Exception)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="ControleerBatchStatus">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	#dim Result As %Boolean = $$$True
 	If ##class(TECH.StringUtils).Equals(Batch.GeefStatus(),##class(APPS.Halux.common.enu.BatchStatus).Gestart(),##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten()) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Batch "_Batch.GeefID()_" is reeds gestart"))
+		Do ..Logger.Warning("StartBatch","Batch "_Batch.GeefID()_" is reeds gestart")
+		Set Result = $$$False
 	}
+	Quit Result
 ]]></Implementation>
 </Method>