Index: vhTest/Fake/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportedHelper.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportedHelper.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportedHelper.cls.xml	(revision 71728)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper">
+<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.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper</Super>
+
+<Method name="BepaalVolgnummer">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefPitchedBatchUitLijst">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolgnummerVoorBatchAchteraanToegevoegd">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolgnummerVoorBatchVooraanToegevoegd">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportedHelper.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportedHelper.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportedHelper.cls.xml	(revision 71728)
@@ -0,0 +1,222 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper">
+<Super>TECH.Mockable</Super>
+
+<Property name="BatchPitchedRepository">
+<Type>APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BatchPitchExportedRepository">
+<Type>APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="VolgnummerPrecisie">
+<Type>%Integer</Type>
+<Default>100</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<FormalSpec>BatchPitchedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository="",BatchPitchExportedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BatchPitchedRepository = $$$Inject(BatchPitchedRepository, ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New())
+	Set ..BatchPitchExportedRepository = $$$Inject(BatchPitchExportedRepository, ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVolgnummer">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Volgnummer As %Integer = 0
+	#dim IsBatchVooraanToegevoegd As %Boolean = ..BepaalIsBatchVooraanToegevoegd(PitchedBatch)
+	#dim IsBatchAchteraanToegevoegd As %Boolean = ..BepaalIsBatchAchteraanToegevoegd(PitchedBatch)
+	
+	If (IsBatchVooraanToegevoegd)
+	{
+		Set Volgnummer = ..GeefVolgnummerVoorBatchVooraanToegevoegd(PitchedBatch)		
+	} ElseIf (IsBatchAchteraanToegevoegd) {	
+		Set Volgnummer = ..GeefVolgnummerVoorBatchAchteraanToegevoegd(PitchedBatch)
+	} Else {
+		Set Volgnummer = ..GeefVolgnummerVoorBatchTussenliggend(PitchedBatch)
+	}
+	
+	Quit ##class(TECH.Math).Floor(Volgnummer)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalIsBatchVooraanToegevoegd">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsBatchVooraanToegevoegd As %Boolean = $$$False
+	
+	#dim VorigePitchorde As %Integer = PitchedBatch.Pitchorde - 1
+	#dim VorigeGeptichteBatch As APPS.Halux.Planning.Pitching.dto.BatchPitched = ..GeefBatchPitchedViaPitchordeEnLijnNummer(VorigePitchorde, PitchedBatch.LijnNr)
+	
+	If (VorigeGeptichteBatch = "") {
+		Set IsBatchVooraanToegevoegd = $$$True
+	}
+	
+	Quit IsBatchVooraanToegevoegd
+]]></Implementation>
+</Method>
+
+<Method name="BepaalIsBatchAchteraanToegevoegd">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsBatchAchteraanToegevoegd As %Boolean = $$$False
+	
+	#dim VolgendePitchorde As %Integer = PitchedBatch.Pitchorde + 1
+	#dim VolgendeGeptichteBatch As APPS.Halux.Planning.Pitching.dto.BatchPitched = ..GeefBatchPitchedViaPitchordeEnLijnNummer(VolgendePitchorde, PitchedBatch.LijnNr)
+	
+	If (VolgendeGeptichteBatch = "") {
+		Set IsBatchAchteraanToegevoegd = $$$True
+	}
+	
+	Quit IsBatchAchteraanToegevoegd
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolgnummerVoorBatchVooraanToegevoegd">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Volgnummer As %Integer = 0
+	
+	#dim VolgendeBatchPitchExported As APPS.Halux.Planning.Pitching.dto.BatchPitchExported = ""
+	#dim HoogstePitchorde = ..BatchPitchedRepository.GeefHoogstePitchordeVoorLijnNr(PitchedBatch.LijnNr)
+	#dim VolgendePitchorde As %Integer = PitchedBatch.Pitchorde + 1
+		
+	While ((VolgendePitchorde <= HoogstePitchorde) && (VolgendeBatchPitchExported = "")) {
+		#dim VolgendeGeptichteBatch As APPS.Halux.Planning.Pitching.dto.BatchPitched = ..GeefBatchPitchedViaPitchordeEnLijnNummer(VolgendePitchorde, PitchedBatch.LijnNr)
+		Set VolgendeBatchPitchExported = ..GeefBatchExportedViaBatchId(VolgendeGeptichteBatch.Batch.GeefID())
+
+		Set VolgendePitchorde = VolgendePitchorde + 1
+	}
+	
+	If (VolgendeBatchPitchExported = "") {
+		Set Volgnummer = ..GeefVolgendVolgnummer(PitchedBatch.LijnNr)
+	} Else {
+		#dim VolgendVolgnummer As %Integer = ..BatchPitchExportedRepository.GeefVolgnummerVoorBatchIdEnLijnNummer(VolgendeGeptichteBatch.Batch.GeefID(), VolgendeGeptichteBatch.Batch.GeefLijn())	
+		#dim VorigeVolgnummer As %Integer = ..BatchPitchExportedRepository.GeefHoogsteTussenliggendeVolgnummerVoorLijn(VolgendeGeptichteBatch.LijnNr, VolgendVolgnummer)
+		
+		Set Volgnummer = (VorigeVolgnummer + VolgendVolgnummer) / 2
+	}
+	
+	Quit Volgnummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolgnummerVoorBatchAchteraanToegevoegd">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Volgnummer As %Integer = 0
+	Set Volgnummer = ..GeefVolgendVolgnummer(PitchedBatch.LijnNr)
+		
+	Quit Volgnummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolgnummerVoorBatchTussenliggend">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Volgnummer As %Integer = 0
+	
+	#dim VolgendeBatchPitchExported As APPS.Halux.Planning.Pitching.dto.BatchPitchExported = ""
+	#dim HoogstePitchorde = ..BatchPitchedRepository.GeefHoogstePitchordeVoorLijnNr(PitchedBatch.LijnNr)
+	#dim VolgendePitchorde As %Integer = PitchedBatch.Pitchorde + 1
+		
+	While ((VolgendePitchorde <= HoogstePitchorde) && (VolgendeBatchPitchExported = "")) {
+		#dim VolgendeGeptichteBatch As APPS.Halux.Planning.Pitching.dto.BatchPitched = ..GeefBatchPitchedViaPitchordeEnLijnNummer(VolgendePitchorde, PitchedBatch.LijnNr)
+		Set VolgendeBatchPitchExported = ..GeefBatchExportedViaBatchId(VolgendeGeptichteBatch.Batch.GeefID())
+
+		Set VolgendePitchorde = VolgendePitchorde + 1
+	}
+	
+	#dim VorigePitchorde As %Integer = PitchedBatch.Pitchorde - 1
+	#dim VorigeGeptichteBatch As APPS.Halux.Planning.Pitching.dto.BatchPitched = ..GeefBatchPitchedViaPitchordeEnLijnNummer(VorigePitchorde, PitchedBatch.LijnNr)
+	#dim VorigeBatchPitchExported As APPS.Halux.Planning.Pitching.dto.BatchPitchExported = ..GeefBatchExportedViaBatchId(VorigeGeptichteBatch.Batch.GeefID())
+	
+	If (VolgendeBatchPitchExported = "") {
+		Set Volgnummer = ..GeefVolgendVolgnummer(PitchedBatch.LijnNr)
+	} Else {
+		Set Volgnummer = (VorigeBatchPitchExported.Volgnummer + VolgendeBatchPitchExported.Volgnummer) / 2
+	}
+	
+	Quit Volgnummer
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolgendVolgnummer">
+<FormalSpec>LijnNummer:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim VolgendVolgnummer As %Integer
+	Set VolgendVolgnummer = ..BatchPitchExportedRepository.GeefHoogsteVolgnummerVoorLijn(LijnNummer)
+	
+	If ($$$Not($$$HasLength(VolgendVolgnummer))) {
+		Set VolgendVolgnummer = 0
+	}
+	
+	Quit VolgendVolgnummer + ..#VolgnummerPrecisie
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatchPitchedViaPitchordeEnLijnNummer">
+<FormalSpec>PitchOrde:%Integer,LijnNummer:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.Planning.Pitching.dto.BatchPitched</ReturnType>
+<Implementation><![CDATA[
+	#dim GepitchteBatch As APPS.Halux.Planning.Pitching.dto.BatchPitched = ""
+	#dim GepitchteBatchesIterator As TECH.Iterator = ..BatchPitchedRepository.ZoekViaPitchordeEnLijnNr(PitchOrde, LijnNummer)
+	#dim GepitchteBatchesLijst As %ListOfObjects = ##class(TECH.ListUtils).IteratorToList(GepitchteBatchesIterator)
+	
+	If (GepitchteBatchesLijst.Size = 1) {
+		Set GepitchteBatch = GepitchteBatchesLijst.GetAt(1)
+	} ElseIf (GepitchteBatchesLijst.Size > 1 ) {
+		// Error gooien
+	}
+	
+	Quit GepitchteBatch
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatchExportedViaBatchId">
+<FormalSpec>BatchId:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.Planning.Pitching.dto.BatchPitchExported</ReturnType>
+<Implementation><![CDATA[
+	#dim BatchPitchExported As APPS.Halux.Planning.Pitching.dto.BatchPitchExported = ""
+	#dim BatchPitchExportedIterator As TECH.Iterator = ..BatchPitchExportedRepository.ZoekViaBatchId(BatchId)
+	#dim BatchPitchExportedLijst As %ListOfObjects = ##class(TECH.ListUtils).IteratorToList(BatchPitchExportedIterator)
+	
+	If (BatchPitchExportedLijst.Size = 1) {
+		Set BatchPitchExported = BatchPitchExportedLijst.GetAt(1)
+	} ElseIf (BatchPitchExportedLijst.Size > 1 ) {
+		// Error gooien
+	}
+	
+	Quit BatchPitchExported
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportedHelper.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportedHelper.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService/BatchPitchExportedHelper.cls.xml	(revision 71728)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+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.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>BatchPitchedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository="",BatchPitchExportedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVolgnummer">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalVolgnummer",PitchedBatch)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolgnummerVoorBatchVooraanToegevoegd">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefVolgnummerVoorBatchVooraanToegevoegd",PitchedBatch)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>