Index: APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportedHelper.cls.xml
===================================================================
diff -u -r71728 -r71738
--- APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportedHelper.cls.xml	(.../BatchPitchExportedHelper.cls.xml)	(revision 71728)
+++ APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportedHelper.cls.xml	(.../BatchPitchExportedHelper.cls.xml)	(revision 71738)
@@ -40,8 +40,7 @@
 	#dim IsBatchVooraanToegevoegd As %Boolean = ..BepaalIsBatchVooraanToegevoegd(PitchedBatch)
 	#dim IsBatchAchteraanToegevoegd As %Boolean = ..BepaalIsBatchAchteraanToegevoegd(PitchedBatch)
 	
-	If (IsBatchVooraanToegevoegd)
-	{
+	If (IsBatchVooraanToegevoegd) {
 		Set Volgnummer = ..GeefVolgnummerVoorBatchVooraanToegevoegd(PitchedBatch)		
 	} ElseIf (IsBatchAchteraanToegevoegd) {	
 		Set Volgnummer = ..GeefVolgnummerVoorBatchAchteraanToegevoegd(PitchedBatch)
Index: vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportHelper/BepaalVolgnummer/Test.cls.xml
===================================================================
diff -u -r71734 -r71738
--- vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportHelper/BepaalVolgnummer/Test.cls.xml	(.../Test.cls.xml)	(revision 71734)
+++ vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportHelper/BepaalVolgnummer/Test.cls.xml	(.../Test.cls.xml)	(revision 71738)
@@ -3,19 +3,22 @@
 <Class name="vhUnitTest.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.BatchPitchExportHelper.BepaalVolgnummer.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Indien geen volgnummers aanwezig zijn -&gt; Volgnummer wordt 100">
+<Method name="Test: Indien er nog geen volgnummers bepaald zijn BatchPitched -&gt; Volgnummer is 100">
 <Implementation><![CDATA[
 	#dim VerwachtVolgnummer = 100
-	#dim Pitchorde As %Integer = 5
+	#dim Pitchorde As %Integer = 1
 	#dim LijnNr As %Integer = 1
+	#dim AantalBatchesPitched = 1
 	
  	Set DummyPitchedBatch = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
  	Set DummyPitchedBatch.Pitchorde = Pitchorde
  	Set DummyPitchedBatch.LijnNr = LijnNr
  	
  	#dim LegeIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())
 	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
+	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekViaPitchordeEnLijnNr", Pitchorde - 1, LijnNr).DanReturn(LegeIterator)
 	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekViaPitchordeEnLijnNr", Pitchorde + 1, LijnNr).DanReturn(LegeIterator)
+	Do BatchPitchedRepositoryMock.VerwachtMethodCall("GeefHoogstePitchordeVoorLijnNr", LijnNr).DanReturn(AantalBatchesPitched)
 	
 	Set BatchPitchExportedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New()	
 	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("GeefHoogsteVolgnummerVoorLijn", 1).DanReturn("")
@@ -30,148 +33,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Indien het hoogte volgnummer bepaald is -&gt; geef hoogste volgnummer + 100 terug">
-<Implementation><![CDATA[
-	#dim VerwachtVolgnummer As %Integer = 200
-	#dim HuidigHoogsteVolgnummer As %Integer = 100
-	#dim Pitchorde As %Integer = 5
-	#dim LijnNr As %Integer = 1
-	
- 	Set DummyPitchedBatch = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
- 	Set DummyPitchedBatch.Pitchorde = Pitchorde
- 	Set DummyPitchedBatch.LijnNr = LijnNr
- 	
- 	#dim LegeIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())
-	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
-	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekViaPitchordeEnLijnNr", Pitchorde + 1, LijnNr).DanReturn(LegeIterator)
-	
-	Set BatchPitchExportedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New()	
-	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("GeefHoogsteVolgnummerVoorLijn", 1).DanReturn(HuidigHoogsteVolgnummer)
-	
-	Set BatchPitchExportedHelper = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper).%New(BatchPitchedRepositoryMock, BatchPitchExportedRepositoryMock)
-	#dim Volgnummer = BatchPitchExportedHelper.BepaalVolgnummer(DummyPitchedBatch)
-	
-	Do $$$AssertEquals(Volgnummer, VerwachtVolgnummer)
-	
-	Do BatchPitchedRepositoryMock.Verifieer()
-	Do BatchPitchExportedRepositoryMock.Verifieer()
-]]></Implementation>
-</Method>
-
-<Method name="Test: Indien het gaat om een tussengevoegde batch -&gt; Geef middelste volgnummer terug">
-<Implementation><![CDATA[
-	#dim VerwachtVolgnummer = 125
-	#dim Pitchorde As %Integer = 5
-	#dim LijnNr As %Integer = 1
-	#dim VolgnummerVorigeExportedBatch As %Integer = 100
-	#dim VorigeBatchId As %String = "111111"
-	#dim VolgnummerVolgendeExportedBatch As %Integer = 150
-	#dim VolgendeBatchId As %String = "222222"
-	
-	#dim VorigeBatchMock As vhTest.Mock.APPS.Halux.common.Batch = ..GeefBatchMock(VorigeBatchId, LijnNr)
-	#dim VolgendeBatchMock As vhTest.Mock.APPS.Halux.common.Batch = ..GeefBatchMock(VolgendeBatchId, LijnNr)
-	
-	#dim VorigeBatchPitchedIterator As TECH.ListIterator = ..GeefBatchPitchedIterator(LijnNr, Pitchorde - 1, VorigeBatchMock)
-	#dim VolgendeBatchPitchedIterator As TECH.ListIterator = ..GeefBatchPitchedIterator(LijnNr, Pitchorde + 1, VolgendeBatchMock)
-	
-	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
-	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekViaPitchordeEnLijnNr", Pitchorde + 1, LijnNr).DanReturn(VolgendeBatchPitchedIterator)
-	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekViaPitchordeEnLijnNr", Pitchorde -1, LijnNr).DanReturn(VorigeBatchPitchedIterator)
- 	
-	Set BatchPitchExportedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New()
-	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("GeefVolgnummerVoorBatchIdEnLijnNummer", VorigeBatchId, LijnNr).DanReturn(VolgnummerVorigeExportedBatch)
-	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("GeefVolgnummerVoorBatchIdEnLijnNummer", VolgendeBatchId, LijnNr).DanReturn(VolgnummerVolgendeExportedBatch)
-	
-	Set DummyPitchedBatch = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
- 	Set DummyPitchedBatch.Pitchorde = Pitchorde
- 	Set DummyPitchedBatch.LijnNr = LijnNr
-	
-	Set BatchPitchExportedHelper = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper).%New(BatchPitchedRepositoryMock, BatchPitchExportedRepositoryMock)
-	#dim Volgnummer = BatchPitchExportedHelper.BepaalVolgnummer(DummyPitchedBatch)
-	
-	Do $$$AssertEquals(Volgnummer, VerwachtVolgnummer)
-	
-	Do VorigeBatchMock.Verifieer()
-	Do VolgendeBatchMock.Verifieer()
-	Do BatchPitchedRepositoryMock.Verifieer()
-	Do BatchPitchExportedRepositoryMock.Verifieer()
-]]></Implementation>
-</Method>
-
-<Method name="Test: Indien het tussenliggend volgnummer een kommagetal is -&gt; afronden naar beneden">
-<Implementation><![CDATA[
-	#dim VerwachtVolgnummer = 100
-	#dim Pitchorde As %Integer = 5
-	#dim LijnNr As %Integer = 1
-	#dim VolgnummerVorigeExportedBatch As %Integer = 100
-	#dim VorigeBatchId As %String = "111111"
-	#dim VolgnummerVolgendeExportedBatch As %Integer = 101
-	#dim VolgendeBatchId As %String = "222222"
-	
-	#dim VorigeBatchMock As vhTest.Mock.APPS.Halux.common.Batch = ..GeefBatchMock(VorigeBatchId, LijnNr)
-	#dim VolgendeBatchMock As vhTest.Mock.APPS.Halux.common.Batch = ..GeefBatchMock(VolgendeBatchId, LijnNr)
-	
-	#dim VorigeBatchPitchedIterator As TECH.ListIterator = ..GeefBatchPitchedIterator(LijnNr, Pitchorde - 1, VorigeBatchMock)
-	#dim VolgendeBatchPitchedIterator As TECH.ListIterator = ..GeefBatchPitchedIterator(LijnNr, Pitchorde + 1, VolgendeBatchMock)
-	
-	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
-	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekViaPitchordeEnLijnNr", Pitchorde + 1, LijnNr).DanReturn(VolgendeBatchPitchedIterator)
-	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekViaPitchordeEnLijnNr", Pitchorde -1, LijnNr).DanReturn(VorigeBatchPitchedIterator)
- 	
-	Set BatchPitchExportedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New()
-	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("GeefVolgnummerVoorBatchIdEnLijnNummer", VorigeBatchId, LijnNr).DanReturn(VolgnummerVorigeExportedBatch)
-	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("GeefVolgnummerVoorBatchIdEnLijnNummer", VolgendeBatchId, LijnNr).DanReturn(VolgnummerVolgendeExportedBatch)
-	
-	Set DummyPitchedBatch = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
- 	Set DummyPitchedBatch.Pitchorde = Pitchorde
- 	Set DummyPitchedBatch.LijnNr = LijnNr
-	
-	Set BatchPitchExportedHelper = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper).%New(BatchPitchedRepositoryMock, BatchPitchExportedRepositoryMock)
-	#dim Volgnummer = BatchPitchExportedHelper.BepaalVolgnummer(DummyPitchedBatch)
-	
-	Do $$$AssertEquals(Volgnummer, VerwachtVolgnummer)
-	
-	Do VorigeBatchMock.Verifieer()
-	Do VolgendeBatchMock.Verifieer()
-	Do BatchPitchedRepositoryMock.Verifieer()
-	Do BatchPitchExportedRepositoryMock.Verifieer()
-]]></Implementation>
-</Method>
-
-<Method name="Test: Indien er vooraan de lijst iets wordt toegevoegd en lijst is gevuld -&gt; volgnummer wordt hoogste">
-<Implementation><![CDATA[
-	#dim VerwachtVolgnummer = 262
-	#dim Pitchorde As %Integer = 1
-	#dim LijnNr As %Integer = 1
-	#dim VolgnummerVorigeExportedBatch As %Integer = 250
-	#dim VolgnummerVolgendeExportedBatch As %Integer = 275
-	#dim VolgendeBatchId As %String = "222222"
-	
-	#dim VolgendeBatchMock As vhTest.Mock.APPS.Halux.common.Batch = ..GeefBatchMock(VolgendeBatchId, LijnNr)
-	#dim VolgendeBatchPitchedIterator As TECH.ListIterator = ..GeefBatchPitchedIterator(LijnNr, Pitchorde + 1, VolgendeBatchMock)
-	
-	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
-	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekViaPitchordeEnLijnNr", Pitchorde + 1, LijnNr).DanReturn(VolgendeBatchPitchedIterator)
- 	
-	Set BatchPitchExportedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New()
-	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("GeefVolgnummerVoorBatchIdEnLijnNummer", VolgendeBatchId, LijnNr).DanReturn(VolgnummerVolgendeExportedBatch)
-	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("GeefHoogsteTussenliggendeVolgnummerVoorLijn", LijnNr, VolgnummerVolgendeExportedBatch).DanReturn(VolgnummerVorigeExportedBatch)
-	
-	Set DummyPitchedBatch = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
- 	Set DummyPitchedBatch.Pitchorde = Pitchorde
- 	Set DummyPitchedBatch.LijnNr = LijnNr
-	
-	Set BatchPitchExportedHelper = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper).%New(BatchPitchedRepositoryMock, BatchPitchExportedRepositoryMock)
-	#dim Volgnummer = BatchPitchExportedHelper.BepaalVolgnummer(DummyPitchedBatch)
-	
-	Do $$$AssertEquals(Volgnummer, VerwachtVolgnummer)
-	
-	Do VolgendeBatchMock.Verifieer()
-	Do BatchPitchedRepositoryMock.Verifieer()
-	Do BatchPitchExportedRepositoryMock.Verifieer()
-]]></Implementation>
-</Method>
-
 <Method name="GeefBatchMock">
 <FormalSpec>BatchId:%String,LijnNr:%Integer</FormalSpec>
 <Private>1</Private>