Index: vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter/ExporteerBatchPitchedDataNaarObjective/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter/ExporteerBatchPitchedDataNaarObjective/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Planning/Pitching/impl/BatchPitchDataExporter/ExporteerBatchPitchedDataNaarObjective/Test.cls.xml	(revision 71506)
@@ -0,0 +1,217 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter.ExporteerBatchPitchedDataNaarObjective.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Indien gepitchte batch nog niet verzonden maar ook nog niet gestart -&gt; geen trigger aansturingactie">
+<Implementation><![CDATA[
+	#dim DummyBatchId As %Integer = 12345
+	#dim IsReedsGestart As %Boolean = $$$False
+	
+	Set BatchMock = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").ExactAantalKeer(1).DanReturn(IsReedsGestart)
+	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(0).DanReturn(DummyBatchId)
+	
+	Set DummyBatchPitchedDto = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
+	Set DummyBatchPitchedDto.Batch = BatchMock
+	
+	Set BatchesPitchedLijst = ##class(%ListOfObjects).%New()
+	Do BatchesPitchedLijst.Insert(DummyBatchPitchedDto)	
+	Set BatchesPitched = ##class(TECH.ListIterator).%New(BatchesPitchedLijst)
+	
+	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
+	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekAlle").ExactAantalKeer(1).DanReturn(BatchesPitched)
+	
+	Set BatchPitchDataExporter = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter).%New(BatchPitchedRepositoryMock)
+	Do BatchPitchDataExporter.ExporteerBatchPitchedDataNaarObjective()
+	
+	Do BatchMock.Verifieer()
+	Do BatchPitchedRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien gepitchte batch gestart en reeds verzonden -&gt; geen trigger aansturingactie">
+<Implementation><![CDATA[
+	#dim DummyBatchId = 12345
+	#dim IsReedsGestart As %Boolean = $$$True
+	#dim IsExported As %Boolean = $$$True
+	
+	Set BatchMock = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").ExactAantalKeer(1).DanReturn(IsReedsGestart)
+	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(1).DanReturn(DummyBatchId)
+	Do BatchMock.VerwachtMethodCall("GeefCategorie").ExactAantalKeer(0)
+	
+	Set DummyBatchPitchedDto = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
+	Set DummyBatchPitchedDto.Batch = BatchMock
+	
+	Set BatchesPitchedLijst = ##class(%ListOfObjects).%New()
+	Do BatchesPitchedLijst.Insert(DummyBatchPitchedDto)	
+	Set BatchesPitched = ##class(TECH.ListIterator).%New(BatchesPitchedLijst)
+	
+	Set BatchExportedDto = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitchExported).%New()
+	Set BatchExportedDto.BatchId = DummyBatchId
+	Set BatchExportedDto.IsExported = IsExported
+	
+	Set BatchesExportedLijst = ##class(%ListOfObjects).%New()
+	Do BatchesExportedLijst.Insert(BatchExportedDto)
+	Set BatchesExported = ##class(TECH.ListIterator).%New(BatchesExportedLijst)
+	
+	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
+	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekAlle").ExactAantalKeer(1).DanReturn(BatchesPitched)
+	
+	Set BatchPitchExportRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New()	
+	Do BatchPitchExportRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", DummyBatchId).ExactAantalKeer(1).DanReturn(BatchesExported)
+	
+	Set BatchPitchDataExporter = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter).%New(BatchPitchedRepositoryMock, BatchPitchExportRepositoryMock)
+	Do BatchPitchDataExporter.ExporteerBatchPitchedDataNaarObjective()
+	
+	Do BatchMock.Verifieer()
+	Do BatchPitchedRepositoryMock.Verifieer()
+	Do BatchPitchExportRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien gepitchte batch nog niet verzonden maar wel gestart -&gt; trigger aansturingactie">
+<Implementation><![CDATA[
+	#dim DummyBatchId = 12345
+	#dim IsReedsGestart As %Boolean = $$$True
+	#dim IsExported As %Boolean = $$$False
+	
+	Set BatchMock = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").ExactAantalKeer(1).DanReturn(IsReedsGestart)
+	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(3).DanReturn(DummyBatchId)
+	Do BatchMock.VerwachtMethodCall("GeefCategorie").ExactAantalKeer(1).DanReturn("Legrabox")
+	
+	Set DummyBatchPitchedDto = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
+	Set DummyBatchPitchedDto.Batch = BatchMock
+	
+	Set BatchesPitchedLijst = ##class(%ListOfObjects).%New()
+	Do BatchesPitchedLijst.Insert(DummyBatchPitchedDto)	
+	Set BatchesPitched = ##class(TECH.ListIterator).%New(BatchesPitchedLijst)
+	
+	Set BatchExportedDto = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitchExported).%New()
+	Set BatchExportedDto.BatchId = DummyBatchId
+	Set BatchExportedDto.IsExported = IsExported
+	
+	Set BatchesExportedLijst = ##class(%ListOfObjects).%New()
+	Do BatchesExportedLijst.Insert(BatchExportedDto)
+	Set BatchesExported = ##class(TECH.ListIterator).%New(BatchesExportedLijst)
+	
+	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
+	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekAlle").ExactAantalKeer(1).DanReturn(BatchesPitched)
+	
+	Set BatchPitchExportedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New()	
+	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", DummyBatchId).ExactAantalKeer(1).DanReturn(BatchesExported)
+	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("Bewaar", $$$ElkeWaarde).ExactAantalKeer(1).DanDoeNiks()
+	
+	Set UitvoeringInfoLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
+	Set UitvoeringInfoIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	Set BatchNaarObjectiveUitvoeringInfoRepositoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfoRepository).%New()
+	Do BatchNaarObjectiveUitvoeringInfoRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", DummyBatchId).ExactAantalKeer(1).DanReturn(UitvoeringInfoIterator)
+	
+	Set BatchPitchDataExporter = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter).%New(BatchPitchedRepositoryMock, BatchPitchExportedRepositoryMock, BatchNaarObjectiveUitvoeringInfoRepositoryMock)
+	Do BatchPitchDataExporter.ExporteerBatchPitchedDataNaarObjective()
+	
+	Do BatchMock.Verifieer()
+	Do BatchPitchedRepositoryMock.Verifieer()
+	Do BatchPitchExportedRepositoryMock.Verifieer()
+	Do BatchNaarObjectiveUitvoeringInfoRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien gepitchte batch nog niet aanwezig in &apos;BatchPitchExported&apos; tabel, maar batch is wel gestart -&gt; trigger aansturingactie">
+<Implementation><![CDATA[
+	#dim DummyBatchId = 12345
+	#dim IsReedsGestart As %Boolean = $$$True
+	#dim IsExported As %Boolean = $$$False
+	
+	Set BatchMock = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").ExactAantalKeer(1).DanReturn(IsReedsGestart)
+	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(3).DanReturn(DummyBatchId)
+	Do BatchMock.VerwachtMethodCall("GeefCategorie").ExactAantalKeer(1).DanReturn("Legrabox")
+	
+	Set DummyBatchPitchedDto = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
+	Set DummyBatchPitchedDto.Batch = BatchMock
+	
+	Set BatchesPitchedLijst = ##class(%ListOfObjects).%New()
+	Do BatchesPitchedLijst.Insert(DummyBatchPitchedDto)	
+	Set BatchesPitched = ##class(TECH.ListIterator).%New(BatchesPitchedLijst)
+	
+	Set BatchesExportedLijst = ##class(%ListOfObjects).%New()
+	Set BatchesExported = ##class(TECH.ListIterator).%New(BatchesExportedLijst)
+	
+	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
+	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekAlle").ExactAantalKeer(1).DanReturn(BatchesPitched)
+	
+	Set BatchPitchExportedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New()	
+	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", DummyBatchId).ExactAantalKeer(1).DanReturn(BatchesExported)
+	Do BatchPitchExportedRepositoryMock.VerwachtMethodCall("Bewaar", $$$ElkeWaarde).ExactAantalKeer(1).DanDoeNiks()
+	
+	Set UitvoeringInfoLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
+	Set UitvoeringInfoIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	Set BatchNaarObjectiveUitvoeringInfoRepositoryMock = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfoRepository).%New()
+	Do BatchNaarObjectiveUitvoeringInfoRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", DummyBatchId).ExactAantalKeer(1).DanReturn(UitvoeringInfoIterator)
+	
+	Set BatchPitchDataExporter = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter).%New(BatchPitchedRepositoryMock, BatchPitchExportedRepositoryMock, BatchNaarObjectiveUitvoeringInfoRepositoryMock)
+	Do BatchPitchDataExporter.ExporteerBatchPitchedDataNaarObjective()
+	
+	Do BatchMock.Verifieer()
+	Do BatchPitchedRepositoryMock.Verifieer()
+	Do BatchPitchExportedRepositoryMock.Verifieer()
+	Do BatchNaarObjectiveUitvoeringInfoRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien meerdere verzonden batches -&gt; error gooien">
+<Implementation><![CDATA[
+	#dim DummyBatchId = 12345
+	#dim IsReedsGestart As %Boolean = $$$True
+	#dim IsExported As %Boolean = $$$False
+	
+	Set BatchMock = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("IsReedsGestart").ExactAantalKeer(1).DanReturn(IsReedsGestart)
+	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(1).DanReturn(DummyBatchId)
+	Do BatchMock.VerwachtMethodCall("GeefCategorie").ExactAantalKeer(0)
+	
+	Set DummyBatchPitchedDto = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
+	Set DummyBatchPitchedDto.Batch = BatchMock
+	
+	Set BatchesPitchedLijst = ##class(%ListOfObjects).%New()
+	Do BatchesPitchedLijst.Insert(DummyBatchPitchedDto)	
+	Set BatchesPitched = ##class(TECH.ListIterator).%New(BatchesPitchedLijst)
+	
+	Set BatchExportedDto1 = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitchExported).%New()
+	Set BatchExportedDto1.BatchId = DummyBatchId
+	Set BatchExportedDto1.IsExported = IsExported
+	Set BatchExportedDto2 = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitchExported).%New()
+	Set BatchExportedDto2.BatchId = DummyBatchId
+	Set BatchExportedDto2.IsExported = IsExported
+	
+	Set BatchesExportedLijst = ##class(%ListOfObjects).%New()
+	Do BatchesExportedLijst.Insert(BatchExportedDto1)
+	Do BatchesExportedLijst.Insert(BatchExportedDto2)
+	Set BatchesExported = ##class(TECH.ListIterator).%New(BatchesExportedLijst)
+	
+	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
+	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekAlle").ExactAantalKeer(1).DanReturn(BatchesPitched)
+	
+	Set BatchPitchExportRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository).%New()	
+	Do BatchPitchExportRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", DummyBatchId).ExactAantalKeer(1).DanReturn(BatchesExported)
+	
+	Set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New()
+	Do LoggerMock.VerwachtMethodCall("Error", "IsBatchExported", "De batch kan niet naar Objective verzonden worden aangezien er reeds meerdere zijn verzonden voor BatchId '12345'.", $$$False).DanDoeNiks()
+	
+	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("De batch kan niet naar Objective verzonden worden aangezien er reeds meerdere zijn verzonden voor BatchId '12345'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataCorruptException",Substring))
+	Set BatchPitchDataExporter = ##class(APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter).%New(BatchPitchedRepositoryMock, BatchPitchExportRepositoryMock,, LoggerMock)
+	Do BatchPitchDataExporter.ExporteerBatchPitchedDataNaarObjective()
+	
+	Do BatchMock.Verifieer()
+	Do BatchPitchedRepositoryMock.Verifieer()
+	Do BatchPitchExportRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>