Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/DataVoorToeleveringGenerator/GenereerData/Test.cls.xml	(revision 71489)
@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator.GenereerData.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Test standaardgedrag met conversie horolog">
+<Implementation><![CDATA[
+	#dim DummyHorolog As %String = "66704,63010"
+	#dim VerwachtTijdstipGeformatteerd = "2023-08-18T17:30:10Z"
+	#dim DummyBatchId As %String = 12345
+	#dim DummyBatchPitchedId As %String = ""
+	#dim DummySequentieNummerToelevering As %Integer = 1
+	#dim DummyVerzendingWijze As %String = "OD3;1`OD3;3"
+	#dim VerwachteVerzendingWijzeGeformateerd = "OD3"
+	
+	#dim BatchMock As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(2).DanReturn(DummyBatchId)
+	Do BatchMock.VerwachtMethodCall("GeefLijn").ExactAantalKeer(1).DanDoeNiks()
+	
+	#dim ToeleveringMock As vhTest.Mock.DOM.AKP.Toelevering = ##class(vhTest.Utils.DOM.AKP.Toelevering).ToeleveringMetLijn()	
+	Do ToeleveringMock.VerwachtMethodCall("GeefAantalProducten").ExactAantalKeer(1).DanDoeNiks()
+	Do ToeleveringMock.VerwachtMethodCall("GeefDueOutTime").ExactAantalKeer(2).DanReturn(DummyHorolog)
+	Do ToeleveringMock.VerwachtMethodCall("GeefOrderID").ExactAantalKeer(1).DanReturn(1)
+	
+	Set DummyDocumentReferenties = ##class(DOM.VKP.DocumentReferenties).%New()
+	Set DummyDocumentReferenties.KlantOrderNummer = 5
+	
+	Set BatchPitched = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
+	Set BatchPitchedLijst = ##class(%ListOfObjects).%New()
+	Do BatchPitchedLijst.Insert(BatchPitched)
+	#dim BatchPitchedIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BatchPitchedLijst)
+	
+	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
+	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", DummyBatchId).ExactAantalKeer(1).DanReturn(BatchPitchedIterator)
+	
+	#dim OrderMock As vhTest.Mock.DOM.VKP.Order = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.VerwachtMethodCall("GeefAxSalesId").ExactAantalKeer(1).DanDoeNiks()
+	Do OrderMock.VerwachtMethodCall("GeefOrderReferentie").ExactAantalKeer(1).DanDoeNiks()
+	Do OrderMock.VerwachtMethodCall("GeefCommissieReferentie").ExactAantalKeer(1).DanDoeNiks()
+	Do OrderMock.VerwachtMethodCall("GeefVerzendingWijze").ExactAantalKeer(1).DanReturn(DummyVerzendingWijze)
+	Do OrderMock.VerwachtMethodCall("GeefDocumentReferenties").ExactAantalKeer(1).DanReturn(DummyDocumentReferenties)
+
+	#dim OrderApiMock As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiMock.VerwachtMethodCall("GeefOrder", 1).ExactAantalKeer(1).DanReturn(OrderMock)
+	
+	Set PartijAPIMock = ##class(vhTest.Mock.DOM.PARTIJ.PartijAPI).%New()
+	Set PartijMock = ##class(vhTest.Mock.DOM.PARTIJ.Partij).%New()
+	#dim Partij As DOM.PARTIJ.Partij = ##class(vhTest.Utils.DOM.PARTIJ.Partij).StandaardPartij()
+	Do PartijAPIMock.VerwachtMethodCall("GeefPartij", "K||1234").DanReturn(Partij)
+	Set LegacyPartijApiMock = ##class(vhTest.Mock.DOM.PARTIJ.LegacyPartijAPI).%New()
+	Do LegacyPartijApiMock.VerwachtMethodCall("GeefKlantNummerVoorPartijID", "K||1234").ExactAantalKeer(1).DanDoeNiks()
+		
+	Set DataVoorToeleveringGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator).%New(BatchPitchedRepositoryMock, OrderApiMock, PartijAPIMock, LegacyPartijApiMock)
+	#dim BatchNaarObjectiveData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = DataVoorToeleveringGenerator.GenereerData(BatchMock, ToeleveringMock, DummySequentieNummerToelevering)
+	
+	Do $$$AssertEquals(BatchNaarObjectiveData.DueBefore, VerwachtTijdstipGeformatteerd)
+	Do $$$AssertEquals(BatchNaarObjectiveData.DueOut, VerwachtTijdstipGeformatteerd)
+	Do $$$AssertEquals(BatchNaarObjectiveData.Verzendwijze, VerwachteVerzendingWijzeGeformateerd)
+	Do $$$AssertEquals(BatchNaarObjectiveData.Rangorde, DummyBatchPitchedId _ "_0000" _ DummySequentieNummerToelevering)
+	
+	Do BatchMock.Verifieer()
+	Do ToeleveringMock.Verifieer()
+	Do OrderApiMock.Verifieer()
+	Do OrderMock.Verifieer()
+	Do PartijAPIMock.Verifieer()
+	Do LegacyPartijApiMock.Verifieer()
+	Do BatchPitchedRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Rangorde kan niet bepaald worden aangezien deze leeg is -&gt; error gooien">
+<Implementation><![CDATA[
+	#dim DummyBatchId As %String = 12345
+	#dim DummySequentieNummerToelevering As %Integer = 1
+	
+	Set BatchPitchedLijst = ##class(%ListOfObjects).%New()
+	#dim BatchPitchedIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BatchPitchedLijst)
+	
+	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
+	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", DummyBatchId).ExactAantalKeer(1).DanReturn(BatchPitchedIterator)
+	
+	#dim BatchMock As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(1).DanReturn(DummyBatchId)
+	Do BatchMock.VerwachtMethodCall("GeefLijn").ExactAantalKeer(1).DanDoeNiks()
+	
+	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("Rangorde kan niet gevonden worden aangezien de batch nog niet gepitcht is.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException",Substring))
+	Set DataVoorToeleveringGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator).%New(BatchPitchedRepositoryMock,)
+	#dim BatchNaarObjectiveData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = DataVoorToeleveringGenerator.GenereerData(BatchMock, "", DummySequentieNummerToelevering)
+	
+	Do BatchPitchedRepositoryMock.Verifieer()
+	Do BatchMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Meerdere objecten worden gevonden -&gt; error gooien">
+<Implementation><![CDATA[
+	#dim DummyBatchId As %String = 12345
+	#dim DummySequentieNummerToelevering As %Integer = 1
+	
+	Set BatchPitched1 = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
+	Set BatchPitched2 = ##class(APPS.Halux.Planning.Pitching.dto.BatchPitched).%New()
+	Set BatchPitchedLijst = ##class(%ListOfObjects).%New()
+	Do BatchPitchedLijst.Insert(BatchPitched1)
+	Do BatchPitchedLijst.Insert(BatchPitched2)
+	#dim BatchPitchedIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(BatchPitchedLijst)
+	
+	Set BatchPitchedRepositoryMock = ##class(vhTest.Mock.APPS.Halux.Planning.Pitching.impl.BatchPitchedRepository).%New()
+	Do BatchPitchedRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", DummyBatchId).ExactAantalKeer(1).DanReturn(BatchPitchedIterator)
+	
+	#dim BatchMock As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchMock.VerwachtMethodCall("GeefID").ExactAantalKeer(1).DanReturn(DummyBatchId)
+	Do BatchMock.VerwachtMethodCall("GeefLijn").ExactAantalKeer(1).DanDoeNiks()
+	
+	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("De rangorde kan niet worden bepaald, aangezien er meerdere batches zijn gepitcht.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataCorruptException",Substring))
+	Set DataVoorToeleveringGenerator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.DataVoorToeleveringGenerator).%New(BatchPitchedRepositoryMock,)
+	#dim BatchNaarObjectiveData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = DataVoorToeleveringGenerator.GenereerData(BatchMock, "", DummySequentieNummerToelevering)
+	
+	Do BatchPitchedRepositoryMock.Verifieer()
+	Do BatchMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>