Index: vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService/GeefToeleveringenReedsInBatch/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService/GeefToeleveringenReedsInBatch/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/Dynamics/SalesOrderIn/Converter/ToeleveringService/GeefToeleveringenReedsInBatch/Test.cls.xml	(revision 57027)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService.GeefToeleveringenReedsInBatch.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Toeleveringen in batches gevonden">
+<Implementation><![CDATA[
+	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.VerwachtMethodCall("GeefProductOrderLijnIterator").DanReturn(..GeefProductOrderLijnIteratorVoorToeleveringIds("222222","222223"))
+	
+	Set BatchServiceMock = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
+	Do BatchServiceMock.VerwachtMethodCall("ZoekBijhorendeBatchIdVoorToelevering","222222").DanReturn("UT_12345")
+	Do BatchServiceMock.VerwachtMethodCall("ZoekBijhorendeBatchIdVoorToelevering","222223").DanReturn("UT_12346")
+	
+	Set ToeleveringService = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService).%New("", BatchServiceMock)
+	#dim ToeleveringenReedsInBatch As %ArrayOfDataTypes = ToeleveringService.GeefToeleveringenReedsInBatch(OrderMock)
+	
+	If $$$AssertEquals(ToeleveringenReedsInBatch.Count(),2) {
+		Do $$$AssertEquals(ToeleveringenReedsInBatch.GetAt("222222"),"UT_12345")
+		Do $$$AssertEquals(ToeleveringenReedsInBatch.GetAt("222223"),"UT_12346")
+	}
+	
+	Do OrderMock.Verifieer()
+	Do BatchServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Order met 2 Toeleveringen, maar niet in batch gevonden, dan lijst is leeg">
+<Implementation><![CDATA[
+	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.VerwachtMethodCall("GeefProductOrderLijnIterator").DanReturn(..GeefProductOrderLijnIteratorVoorToeleveringIds("222222","222223"))
+	
+	Set BatchServiceMock = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
+	Do BatchServiceMock.VerwachtMethodCall("ZoekBijhorendeBatchIdVoorToelevering","222222").DanReturn("")
+	Do BatchServiceMock.VerwachtMethodCall("ZoekBijhorendeBatchIdVoorToelevering","222223").DanReturn("")
+	
+	Set ToeleveringService = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService).%New("", BatchServiceMock)
+	#dim ToeleveringenReedsInBatch As %ArrayOfDataTypes = ToeleveringService.GeefToeleveringenReedsInBatch(OrderMock)
+	
+	Do $$$AssertEquals(ToeleveringenReedsInBatch.Count(),0)
+	
+	Do OrderMock.Verifieer()
+	Do BatchServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Order zonder productlijnen, dan lijst is leeg">
+<Implementation><![CDATA[
+	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.VerwachtMethodCall("GeefProductOrderLijnIterator").DanReturn(##class(vhTest.Utils.NullIterator).%New())
+	
+	Set ToeleveringService = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService).%New()
+	#dim ToeleveringenReedsInBatch As %ArrayOfDataTypes = ToeleveringService.GeefToeleveringenReedsInBatch(OrderMock)
+	
+	Do $$$AssertEquals(ToeleveringenReedsInBatch.Count(),0)
+	
+	Do OrderMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen Duplicate items in resultaat">
+<Implementation><![CDATA[
+	Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+	Do OrderMock.VerwachtMethodCall("GeefProductOrderLijnIterator").DanReturn(..GeefProductOrderLijnIteratorVoorToeleveringIds("222222","222222","222222"))
+	
+	Set BatchServiceMock = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
+	Do BatchServiceMock.VerwachtMethodCall("ZoekBijhorendeBatchIdVoorToelevering","222222").DanReturn("UT_12345")
+	
+	Set ToeleveringService = ##class(AXimpl.Dynamics.SalesOrderIn.Converter.ToeleveringService).%New("", BatchServiceMock)
+	#dim ToeleveringenReedsInBatch As %ArrayOfDataTypes = ToeleveringService.GeefToeleveringenReedsInBatch(OrderMock)
+	
+	If $$$AssertEquals(ToeleveringenReedsInBatch.Count(),1) {
+		Do $$$AssertEquals(ToeleveringenReedsInBatch.GetAt("222222"),"UT_12345")
+	}
+	
+	Do OrderMock.Verifieer()
+	Do BatchServiceMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOrderLijnIteratorVoorToeleveringIds">
+<FormalSpec>ToeleveringIds...:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductOrderLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	
+	Set ToeleveringIdIterator = ##class(TECH.ArrayOneDimIterator).%New(.ToeleveringIds)
+	While ToeleveringIdIterator.HasNext() {
+		#dim ToeleveringId As %String = ToeleveringIdIterator.Next()
+		Do ProductOrderLijnen.Insert(..GeefProductOrderLijnMock(ToeleveringId))
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(ProductOrderLijnen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductOrderLijnMock">
+<FormalSpec>ToeleveringId:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>vhTest.Mock.DOM.VKP.ProductOrderlijn</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductOrderLijnMock As vhTest.Mock.DOM.VKP.ProductOrderlijn = ##class(vhTest.Mock.DOM.VKP.ProductOrderlijn).%New()
+	
+	Do ProductOrderLijnMock.IndienMethodCall("GeefToeleveringID").DanReturn(ToeleveringId)
+
+	Quit ProductOrderLijnMock
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>