Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r31232 -r31259
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 31232)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 31259)
@@ -578,12 +578,15 @@
 <FormalSpec>BatchID:%String</FormalSpec>
 <ReturnType>APPS.Halux.Planning.dto.BatchOverzicht</ReturnType>
 <Implementation><![CDATA[
-	#dim Batch As APPS.Halux.common.Batch  = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID)
-	#dim BatchStarter As APPS.Halux.Planning.BatchStarter = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchStarter()
+	#dim BackgroundProcessStarter As TECH.impl.BackgroundProcessStarter = ##class(TECH.Context).Instance().GeefBackgroundJobAPI().GeefBackgroundProcessStarter()
+	set DataBuilder = ##class(TECH.BackgroundProcess.impl.DataBuilder).%New()
+	do DataBuilder.SetClassName(##class(APPS.Halux.Planning.impl.BatchStarter).%ClassName(1))
+	do DataBuilder.SetMethodName("StartBatchAsync")
+	Do DataBuilder.VoegToeDataType(BatchID)
 	
-	do BatchStarter.StartBatch(Batch)
+	do BackgroundProcessStarter.StartProcess(DataBuilder.GetData())
 	
-	quit BatchStarter.GeefBatchOverzicht(..GeefMaatwerkBatch(Batch))
+	Quit "" ;Er wordt met deze waarde niets gedaan aan de client
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Planning/impl/BatchStarter.cls.xml
===================================================================
diff -u -r29986 -r31259
--- APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 29986)
+++ APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 31259)
@@ -32,15 +32,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StartBatchAsync">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+	Set BatchStarter = ##class(APPS.Halux.Planning.impl.BatchStarter).%New()
+	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchID)
+	Do BatchStarter.StartBatch(Batch)
+	Do BatchStarter.GeefBatchOverzicht(Batch)
+]]></Implementation>
+</Method>
+
 <Method name="StartBatch">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Implementation><![CDATA[
 	do ..ControleerBatchStatus(Batch)
 	
 	try {
-		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Gestart())
+		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).BezigMetStartenEnBerekenen())
 		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())
 	}
 	catch {
Index: vhUnitTest/APPS/Halux/Planning/impl/BatchStarter/StartBatch/Test.cls.xml
===================================================================
diff -u -r29943 -r31259
--- vhUnitTest/APPS/Halux/Planning/impl/BatchStarter/StartBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 29943)
+++ vhUnitTest/APPS/Halux/Planning/impl/BatchStarter/StartBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 31259)
@@ -44,13 +44,13 @@
 	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn(..#BatchID)
 	Do BatchStub.IndienMethodCall("GeefStatus").DanReturn(##class(APPS.Halux.common.enu.BatchStatus).Gecontroleerd())
+	Do BatchStub.IndienMethodCall("ZetStatus", ##class(APPS.Halux.common.enu.BatchStatus).BezigMetStartenEnBerekenen()).DanDoeNiks()
 	Do BatchStub.IndienMethodCall("ZetStatus", ##class(APPS.Halux.common.enu.BatchStatus).Gestart()).DanDoeNiks()
 	
 	#dim EventRaiserSpy As vhTest.Spy.TECH.PubSub.EventRaiser = ##class(vhTest.Spy.TECH.PubSub.EventRaiser).PushedInstance()
 		
-	Set BatchBewaarderMock = ##class(vhTest.Mock.APPS.Halux.Planning.BatchBewaarder).%New()
-	Do BatchBewaarderMock.VerwachtMethodCall("BewaarBatch", BatchStub)
-	set ..BatchBewaarder = BatchBewaarderMock
+	Set BatchBewaarderSpy = ##class(vhTest.Spy.APPS.Halux.Planning.impl.BatchBewaarder).%New()
+	set ..BatchBewaarder = BatchBewaarderSpy
 	
 	Set SequentieServiceMock = ##class(vhUnitTest.APPS.Halux.Planning.impl.BatchStarter.StartBatch.SequentieServiceMock).%New()
 	Do SequentieServiceMock.VerwachtMethodCall("GenereerSequentie", BatchStub)
@@ -59,7 +59,7 @@
 	do ..InitImplementation()
 	do ..BatchStarterImpl.StartBatch(BatchStub)
 	
-	Do BatchBewaarderMock.Verifieer()
+	Do $$$AssertEquals(BatchBewaarderSpy.BewaarBatchAantalKeerOpgeroepen,2)
 	Do SequentieServiceMock.Verifieer()
 	Do $$$AssertEquals(EventRaiserSpy.IsEventGeraised("BatchGeslotenEvent"),"")
 ]]></Implementation>
@@ -86,6 +86,7 @@
 	
 	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
 	Do BatchStub.IndienMethodCall("GeefStatus").DanReturn(##class(APPS.Halux.common.enu.BatchStatus).Gecontroleerd())
+	Do BatchStub.IndienMethodCall("ZetStatus", ##class(APPS.Halux.common.enu.BatchStatus).BezigMetStartenEnBerekenen()).DanDoeNiks()
 	Do BatchStub.IndienMethodCall("ZetStatus",##class(APPS.Halux.common.enu.BatchStatus).Gestart()).DanDoeNiks()
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn($$$DummyString)
 	Do BatchStub.IndienMethodCall("ZetStatus",##class(APPS.Halux.common.enu.BatchStatus).Gecontroleerd()).DanDoeNiks()
@@ -110,6 +111,7 @@
 	
 	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
 	Do BatchStub.IndienMethodCall("GeefStatus").DanReturn(##class(APPS.Halux.common.enu.BatchStatus).Gecontroleerd())
+	Do BatchStub.IndienMethodCall("ZetStatus", ##class(APPS.Halux.common.enu.BatchStatus).BezigMetStartenEnBerekenen()).DanDoeNiks()
 	Do BatchStub.IndienMethodCall("ZetStatus",##class(APPS.Halux.common.enu.BatchStatus).Gestart()).DanDoeNiks()
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn($$$DummyString)
 	Do BatchStub.IndienMethodCall("ZetStatus",##class(APPS.Halux.common.enu.BatchStatus).Gecontroleerd()).DanDoeNiks()
Index: vhTest/Spy/APPS/Halux/Planning/impl/BatchBewaarder.cls.xml
===================================================================
diff -u
--- vhTest/Spy/APPS/Halux/Planning/impl/BatchBewaarder.cls.xml	(revision 0)
+++ vhTest/Spy/APPS/Halux/Planning/impl/BatchBewaarder.cls.xml	(revision 31259)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Spy.APPS.Halux.Planning.impl.BatchBewaarder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.Planning.impl.BatchBewaarder</Super>
+
+<Property name="BewaarBatchAantalKeerOpgeroepen">
+<Type>TECH.Integer</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Method name="BewaarBatch">
+<FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
+<Implementation><![CDATA[	Set ..BewaarBatchAantalKeerOpgeroepen = ..BewaarBatchAantalKeerOpgeroepen + 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/common/enu/BatchStatus.cls.xml
===================================================================
diff -u -r29059 -r31259
--- APPS/Halux/common/enu/BatchStatus.cls.xml	(.../BatchStatus.cls.xml)	(revision 29059)
+++ APPS/Halux/common/enu/BatchStatus.cls.xml	(.../BatchStatus.cls.xml)	(revision 31259)
@@ -5,7 +5,7 @@
 <Super>%String</Super>
 
 <Parameter name="VALUELIST">
-<Default>;Nieuw;Auto;Manueel;Gecontroleerd;Gestart</Default>
+<Default>;Nieuw;Auto;Manueel;Gecontroleerd;Gestart;BezigMetStartenEnBerekenen</Default>
 </Parameter>
 
 <Method name="Nieuw">
@@ -42,6 +42,13 @@
 <Implementation><![CDATA[	Quit "Gestart"
 ]]></Implementation>
 </Method>
+
+<Method name="BezigMetStartenEnBerekenen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.common.enu.BatchStatus</ReturnType>
+<Implementation><![CDATA[	Quit "BezigMetStartenEnBerekenen"
+]]></Implementation>
+</Method>
 </Class>