Index: vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightService/Test.cls.xml
===================================================================
diff -u -r37425 -r37435
--- vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightService/Test.cls.xml	(.../Test.cls.xml)	(revision 37425)
+++ vhUnitTest/WSimpl/Halux/PPS/Verpakking/TAXFlatpackV1Controle/BijladenPickToLightService/Test.cls.xml	(.../Test.cls.xml)	(revision 37435)
@@ -3,11 +3,16 @@
 <Class name="vhUnitTest.WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightService.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="ProductId">
+<Parameter name="ProductId1">
 <Type>%Integer</Type>
 <Default>1000</Default>
 </Parameter>
 
+<Parameter name="ProductId2">
+<Type>%Integer</Type>
+<Default>1001</Default>
+</Parameter>
+
 <Parameter name="RandomBarcode">
 <Type>%String</Type>
 <Default>RandomBarcode</Default>
@@ -16,45 +21,73 @@
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- 	Do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(..#ProductId, ..#ProductId)
+ 	Do ##class(vhUnitTest.DOM.PM.TestData).%New().CreeerTestData(..#ProductId1, ..#ProductId2)
  	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- 	Do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(..#ProductId, ..#ProductId)
+ 	Do ##class(vhUnitTest.DOM.PM.TestData).%New().VerwijderTestData(..#ProductId1, ..#ProductId2)
  	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Repositories worden opgeroepen">
 <Implementation><![CDATA[
 	#dim RandomLocatie As TECH.String = "RandomLocatie"
-	#dim Product As Prod.Product = ##class(Prod.Product).%OpenId(..#ProductId)
+	#dim Product As Prod.Product = ##class(Prod.Product).%OpenId(..#ProductId1)
 	#dim ProductIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Product)
 	
-	#dim OnderdeelLocatie As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie).%New()
-	Set OnderdeelLocatie.Locatie = RandomLocatie	
+	#dim OnderdeelLocatie As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie = ..GeefOnderdeelLocatie(..#ProductId1, RandomLocatie)
 	
 	#dim ProductRepositoryMock As vhTest.Mock.Prod.ProductRepository = ##class(vhTest.Mock.Prod.ProductRepository).%New()
 	Do ProductRepositoryMock.VerwachtMethodCall("ZoekViaBarcode", ..#RandomBarcode).DanReturn(ProductIterator)
 	
 	#dim OnderdeelLocatieRepositoryMock As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
-	Do OnderdeelLocatieRepositoryMock.VerwachtMethodCall("BestaatViaID", ..#ProductId).DanReturn($$$True)
-	Do OnderdeelLocatieRepositoryMock.VerwachtMethodCall("GeefViaID", ..#ProductId).DanReturn(OnderdeelLocatie)
+	Do OnderdeelLocatieRepositoryMock.VerwachtMethodCall("BestaatViaID", ..#ProductId1).DanReturn($$$True)
+	Do OnderdeelLocatieRepositoryMock.VerwachtMethodCall("GeefViaID", ..#ProductId1).DanReturn(OnderdeelLocatie)
 	
 	#dim Service As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightService = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightService).%New(ProductRepositoryMock, OnderdeelLocatieRepositoryMock)
 	#dim Locatie As TECH.String = Service.GeefLocatie(..#RandomBarcode)
 	
-	Do $$$AssertEquals(Locatie, OnderdeelLocatie.Locatie)
+	Do $$$AssertEquals(Locatie, RandomLocatie)
 	
 	Do ProductRepositoryMock.Verifieer()
 	Do OnderdeelLocatieRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Indien meerdere producten gevonden worden voor een opgegeven Barcode wordt de locatie teruggegeven van de eerst gevonden OnderdeelLocatie">
+<Implementation><![CDATA[
+	#dim RandomLocatie1 As TECH.String = "RandomLocatie1"
+	#dim RandomLocatie2 As TECH.String = "RandomLocatie2"
+	#dim Product1 As Prod.Product = ##class(Prod.Product).%OpenId(..#ProductId1)
+	#dim Product2 As Prod.Product = ##class(Prod.Product).%OpenId(..#ProductId2)
+	#dim ProductIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Product1, Product2)
+	
+	#dim OnderdeelLocatie1 As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie = ..GeefOnderdeelLocatie(..#ProductId1, RandomLocatie1)
+	#dim OnderdeelLocatie2 As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie = ..GeefOnderdeelLocatie(..#ProductId2, RandomLocatie2)
+	
+	#dim ProductRepositoryStub As vhTest.Mock.Prod.ProductRepository = ##class(vhTest.Mock.Prod.ProductRepository).%New()
+	Do ProductRepositoryStub.IndienMethodCall("ZoekViaBarcode", ..#RandomBarcode).DanReturn(ProductIterator)
+	
+	#dim OnderdeelLocatieRepositoryMock As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do OnderdeelLocatieRepositoryMock.VerwachtMethodCall("BestaatViaID", ..#ProductId1).DanReturn($$$True)
+	Do OnderdeelLocatieRepositoryMock.VerwachtMethodCall("GeefViaID", ..#ProductId1).DanReturn(OnderdeelLocatie1)
+	Do OnderdeelLocatieRepositoryMock.VerwachtMethodCall("BestaatViaID", ..#ProductId2).Nooit()
+	Do OnderdeelLocatieRepositoryMock.VerwachtMethodCall("GeefViaID", ..#ProductId2).Nooit()
+	
+	#dim Service As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightService = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightService).%New(ProductRepositoryStub, OnderdeelLocatieRepositoryMock)
+	#dim Locatie As TECH.String = Service.GeefLocatie(..#RandomBarcode)
+	
+	Do $$$AssertEquals(Locatie, RandomLocatie1)
+	
+	Do OnderdeelLocatieRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Exceptie wordt geraised indien geen Product gevonden wordt voor een opgegeven Barcode">
 <Implementation><![CDATA[
 	#dim ProductIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects()
@@ -72,22 +105,36 @@
 
 <Method name="Test: Exceptie wordt geraised indien geen OnderdeelLocatie gevonden wordt voor een opgegeven ProductId">
 <Implementation><![CDATA[
-	#dim Product As Prod.Product = ##class(Prod.Product).%OpenId(..#ProductId)
+	#dim Product As Prod.Product = ##class(Prod.Product).%OpenId(..#ProductId1)
 	#dim ProductIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(Product)
 	
 	#dim ProductRepositoryStub As vhTest.Mock.Prod.ProductRepository = ##class(vhTest.Mock.Prod.ProductRepository).%New()
 	Do ProductRepositoryStub.IndienMethodCall("ZoekViaBarcode", ..#RandomBarcode).DanReturn(ProductIterator)
 	
 	#dim OnderdeelLocatieRepositoryStub As vhTest.Mock.TECH.Persistentie.Repository = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
-	Do OnderdeelLocatieRepositoryStub.IndienMethodCall("BestaatViaID", ..#ProductId).DanReturn($$$False)
+	Do OnderdeelLocatieRepositoryStub.IndienMethodCall("BestaatViaID", ..#ProductId1).DanReturn($$$False)
 	
-	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen OnderdeelLocatie gevonden met ProductId", ..#ProductId)	
+	#dim Omschrijvingen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen OnderdeelLocatie gevonden met ProductId", ..#ProductId1)	
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Omschrijvingen))
 	
 	#dim Service As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightService = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.BijladenPickToLightService).%New(ProductRepositoryStub, OnderdeelLocatieRepositoryStub)
 	#dim Locatie As TECH.String = Service.GeefLocatie(..#RandomBarcode)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOnderdeelLocatie">
+<FormalSpec>ProductId:TECH.String,Locatie:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie</ReturnType>
+<Implementation><![CDATA[
+	#dim OnderdeelLocatie As WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie = ##class(WSimpl.Halux.PPS.Verpakking.TAXFlatpackV1Controle.data.OnderdeelLocatie).%New()
+	
+	Set OnderdeelLocatie.ProductId = ProductId
+	Set OnderdeelLocatie.Locatie = Locatie
+	
+	Quit OnderdeelLocatie
+]]></Implementation>
+</Method>
 </Class>