Index: vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/MarkeerBatchAlsExportedNaarObjective/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/MarkeerBatchAlsExportedNaarObjective/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/MarkeerBatchAlsExportedNaarObjective/Test.cls.xml	(revision 71734)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.MarkeerBatchAlsExportedNaarObjective.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Indien er reeds een BatchPitchExported bestaat -&gt; &apos;IsExported&apos; wordt true">
+<Implementation><![CDATA[
+	#dim BatchId As String = "111111"
+	
+	Set DummyBatchExported = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitchExported).%New()
+	Set DummyBatchExported.BatchId = BatchId
+	Set DummyBatchExported.IsExported = $$$False
+	Set DummyBatchExported.LijnNummer = 1
+	Set DummyBatchExported.Volgnummer = 100
+	
+	Set BatchExportedLijst = ##class(%ListOfObjects).%New()
+	Do BatchExportedLijst.Insert(DummyBatchExported)
+	#dim BatchExportedIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BatchExportedLijst)
+	
+	Set BatchPitchExportedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New()
+	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", BatchId).DanReturn(BatchExportedIterator)
+	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("Bewaar", DummyBatchExported)
+	
+	Set BatchPitchExportedService = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService).%New(BatchPitchExportedRepositoryMock)
+	#dim Result As APPS.Halux.Planning.Pitching.dto.BatchPitchExported = BatchPitchExportedService.MarkeerBatchAlsExportedNaarObjective(BatchId)
+	
+	Do $$$AssertTrue(Result.IsExported)
+	Do $$$AssertEquals(Result.BatchId, BatchId)
+	Do $$$AssertEquals(Result.LijnNummer, 1)
+	Do $$$AssertEquals(Result.Volgnummer ,100)
+	
+	Do BatchPitchExportedRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien de BatchPitchExported niet bestaat -&gt; Error gooien">
+<Implementation><![CDATA[
+	#dim BatchId As String = "111111"
+	
+	#dim LegeBatchExportedIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())
+	
+	Set BatchPitchExportedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New()
+	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", BatchId).DanReturn(LegeBatchExportedIterator)
+	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("Bewaar", $$$ElkeWaarde).ExactAantalKeer(0)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Batch met id '111111' kan niet gemarkeerd worden als exported, aangezien deze niet voorkomt in de 'BatchPitchExported'-tabel")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException",Substrings))
+	
+	Set BatchPitchExportedService = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService).%New(BatchPitchExportedRepositoryMock)
+	#dim Result As APPS.Halux.Planning.Pitching.dto.BatchPitchExported = BatchPitchExportedService.MarkeerBatchAlsExportedNaarObjective(BatchId)
+	
+	Do BatchPitchExportedRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportHelper/BepaalVolgnummer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportHelper/BepaalVolgnummer/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportHelper/BepaalVolgnummer/Test.cls.xml	(revision 71734)
@@ -0,0 +1,208 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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">
+<Implementation><![CDATA[
+	#dim VerwachtVolgnummer = 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("")
+	
+	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 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>
+<ReturnType>vhTest.Mock.APPS.Halux.common.Batch</ReturnType>
+<Implementation><![CDATA[
+	Set BatchMock = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	
+	Do BatchMock.VerwachtMethodCall("GeefID").DanReturn(BatchId)
+	Do BatchMock.VerwachtMethodCall("GeefLijn").DanReturn(LijnNr)
+	
+	Quit BatchMock
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatchPitchedIterator">
+<FormalSpec>LijnNr:%Integer,Pitchorde:%Integer,Batch:APPS.Halux.common.Batch</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set PitchedBatch = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
+	Set PitchedBatch.LijnNr = LijnNr
+	Set PitchedBatch.Pitchorde = Pitchorde
+	Set PitchedBatch.Batch = Batch
+	
+	Set BatchPitchedLijst = ##class(%ListOfObjects).%New()
+	Do BatchPitchedLijst.Insert(PitchedBatch)
+	
+	Quit ##class(TECH.ListIterator).%New(BatchPitchedLijst)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>