Index: vhTest/Fake/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService.cls.xml	(revision 71729)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService">
+<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</Super>
+
+<Method name="BepaalVolgnummerEnBewaar">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<ReturnType>APPS.Halux.Planning.Pitching.dto.BatchPitchExported</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="MarkeerBatchAlsExportedNaarObjective">
+<FormalSpec>BatchId:%String</FormalSpec>
+<ReturnType>APPS.Halux.Planning.Pitching.dto.BatchPitchExported</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaBatchId">
+<FormalSpec>BatchId:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService.cls.xml	(revision 71729)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService">
+<Super>TECH.Mockable</Super>
+
+<Property name="BatchPitchExportedRepository">
+<Type>APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BatchPitchExportedHelper">
+<Type>APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BatchPitchExportedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository="",BatchPitchExportedHelper:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BatchPitchExportedRepository = $$$Inject(BatchPitchExportedRepository, ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New())
+	Set ..BatchPitchExportedHelper = $$$Inject(BatchPitchExportedHelper, ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVolgnummerEnBewaar">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<ReturnType>APPS.Halux.Planning.Pitching.dto.BatchPitchExported</ReturnType>
+<Implementation><![CDATA[
+	Set BatchPitchExportedDto = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitchExported).%New()
+	
+	If ($$$Not(..BatchPitchExportedRepository.BestaatViaBatchId(PitchedBatch.Batch.GeefID()))) {
+		#dim Volgnummer As %Integer = ..BatchPitchExportedHelper.BepaalVolgnummer(PitchedBatch)
+		
+		Set BatchPitchExportedDto = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitchExported).%New()
+		Set BatchPitchExportedDto.BatchId = PitchedBatch.Batch.GeefID()
+		Set BatchPitchExportedDto.IsExported = $$$False
+		Set BatchPitchExportedDto.LijnNummer = PitchedBatch.LijnNr
+		Set BatchPitchExportedDto.Volgnummer = Volgnummer
+		
+		Do ..BatchPitchExportedRepository.Bewaar(BatchPitchExportedDto)	
+	}
+	
+	
+	Quit BatchPitchExportedDto
+]]></Implementation>
+</Method>
+
+<Method name="MarkeerBatchAlsExportedNaarObjective">
+<FormalSpec>BatchId:%String</FormalSpec>
+<ReturnType>APPS.Halux.Planning.Pitching.dto.BatchPitchExported</ReturnType>
+<Implementation><![CDATA[
+	#dim BatchPitchesExportedLijst As %ListOfObjects = ..ZoekViaBatchId(BatchId)
+	#dim BatchPitchExportedDto As APPS.Halux.Planning.Pitching.dto.BatchPitchExported
+	
+	If ($$$Not(BatchPitchesExportedLijst.Size = 1)) {
+		Set DataNotFoundException = ##class(TECH.Exceptions.DataNotFoundException).%New("Batch met id '"_ BatchId _"' kan niet gemarkeerd worden als exported, aangezien deze niet voorkomt in de 'BatchPitchExported'-tabel")
+		Do ##class(TECH.ExceptionHandler).Throw(DataNotFoundException)
+	}
+	
+	Set BatchPitchExportedDto = BatchPitchesExportedLijst.GetAt(1)
+	Set BatchPitchExportedDto.IsExported = $$$True	
+	Do ..BatchPitchExportedRepository.Bewaar(BatchPitchExportedDto)
+	
+	Quit BatchPitchExportedDto
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaBatchId">
+<FormalSpec>BatchId:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim BatchPitchExportedIterator As TECH.Iterator = ..BatchPitchExportedRepository.ZoekViaBatchId(BatchId)
+	
+	Quit ##class(TECH.ListUtils).IteratorToList(BatchPitchExportedIterator)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/Planning/Pitching/impl/BatchPitchExportedService.cls.xml	(revision 71729)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService">
+<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,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<FormalSpec>BatchPitchExportedRepository:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository="",BatchPitchExportedHelper:APPS.Halux.Planning.Pitching.impl.BatchPitchExportedService.BatchPitchExportedHelper=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVolgnummerEnBewaar">
+<FormalSpec>PitchedBatch:APPS.Halux.Planning.Pitching.dto.BatchPitched</FormalSpec>
+<ReturnType>APPS.Halux.Planning.Pitching.dto.BatchPitchExported</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalVolgnummerEnBewaar",PitchedBatch)
+]]></Implementation>
+</Method>
+
+<Method name="MarkeerBatchAlsExportedNaarObjective">
+<FormalSpec>BatchId:%String</FormalSpec>
+<ReturnType>APPS.Halux.Planning.Pitching.dto.BatchPitchExported</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MarkeerBatchAlsExportedNaarObjective",BatchId)
+]]></Implementation>
+</Method>
+
+<Method name="ZoekViaBatchId">
+<FormalSpec>BatchId:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ZoekViaBatchId",BatchId)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>