Index: APPS/Halux/common/enu/BatchStatus.cls.xml
===================================================================
diff -u -r31260 -r31262
--- APPS/Halux/common/enu/BatchStatus.cls.xml	(.../BatchStatus.cls.xml)	(revision 31260)
+++ APPS/Halux/common/enu/BatchStatus.cls.xml	(.../BatchStatus.cls.xml)	(revision 31262)
@@ -5,7 +5,7 @@
 <Super>%String</Super>
 
 <Parameter name="VALUELIST">
-<Default>;Nieuw;Auto;Manueel;Gecontroleerd;Gestart</Default>
+<Default>;Nieuw;Auto;Manueel;Gecontroleerd;Gestart;BezigMetStarten</Default>
 </Parameter>
 
 <Method name="Nieuw">
@@ -42,6 +42,13 @@
 <Implementation><![CDATA[	Quit "Gestart"
 ]]></Implementation>
 </Method>
+
+<Method name="BezigMetStarten">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.common.enu.BatchStatus</ReturnType>
+<Implementation><![CDATA[	Quit "BezigMetStarten"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/Planning/impl/BatchStarter.cls.xml
===================================================================
diff -u -r31260 -r31262
--- APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 31260)
+++ APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 31262)
@@ -49,6 +49,8 @@
 	do ..ControleerBatchStatus(Batch)
 	
 	try {
+		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)
Index: vhUnitTest/APPS/Halux/Planning/impl/BatchStarter/StartBatch/Test.cls.xml
===================================================================
diff -u -r31260 -r31262
--- vhUnitTest/APPS/Halux/Planning/impl/BatchStarter/StartBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 31260)
+++ vhUnitTest/APPS/Halux/Planning/impl/BatchStarter/StartBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 31262)
@@ -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).BezigMetStarten()).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).BezigMetStarten()).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).BezigMetStarten()).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()