Index: vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/GeefAantalGereserveerd/Test.cls.xml
===================================================================
diff -u -r33225 -r33256
--- vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/GeefAantalGereserveerd/Test.cls.xml	(.../Test.cls.xml)	(revision 33225)
+++ vhUnitTest/DOM/ProdRes/VerwachteUitvoerAPI/GeefAantalGereserveerd/Test.cls.xml	(.../Test.cls.xml)	(revision 33256)
@@ -1,20 +1,13 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.DOM.ProdRes.VerwachteUitvoerAPI.GeefAantalGereserveerd.Test">
-<Super>vhUnitTest.TestCase</Super>
+<Super>vhUnitTest.DOM.ProdRes.VerwachteUitvoerAPI.Base</Super>
 
 <Parameter name="ProductID">
 <Type>%String</Type>
 <Default>UTPNr</Default>
 </Parameter>
 
-<Property name="Bedrijf">
-<Type>DOM.common.enu.Bedrijf</Type>
-<InitialExpression>##class(DOM.common.enu.Bedrijf).VanHoecke()</InitialExpression>
-<Private>1</Private>
-<ReadOnly>1</ReadOnly>
-</Property>
-
 <Property name="MaxDueOut">
 <Type>%TimeStamp</Type>
 <InitialExpression>##class(TECH.DateTime).MaxTimeStamp()</InitialExpression>
@@ -29,6 +22,53 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Method name="TestGeefAantalGereserveerd">
+<Implementation><![CDATA[
+	#dim TimeStamp As %TimeStamp = "2011-09-29 11:05:40"
+	#dim VerwachteUitvoerAPI As DOM.ProdRes.VerwachteUitvoerAPI = ##class(DOM.ProdRes.impl.VerwachteUitvoerAPIimpl).%New()
+		
+	// ======== EERSTE VERWACHTE UITVOER ========	
+	#dim VerwachteUitvoerInfo1 As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakVerwachteUitvoerInfo("Unittest referentie 1", "Unittest lijnreferentie 1")
+	Set VerwachteUitvoerInfo1.Reservatie = ..MaakUitvoerReservatie("Unittest product 1", 10, TimeStamp)
+	
+	Do VerwachteUitvoerInfo1.Reservatie.KindReservaties.Insert(..MaakUitvoerReservatie("Unittest product 2", 9, TimeStamp))
+	Do VerwachteUitvoerInfo1.Reservatie.KindReservaties.GetAt(1).KindReservaties.Insert(..MaakUitvoerReservatie("Unittest product 3", 8, TimeStamp))
+	Do VerwachteUitvoerInfo1.Reservatie.KindReservaties.Insert(..MaakUitvoerReservatie("Unittest product 3", 7, TimeStamp))
+	Do VerwachteUitvoerInfo1.Reservatie.KindReservaties.Insert(..MaakUitvoerReservatie("Unittest product 3", 6, "2011-09-30 11:05:40"))
+
+	#dim VerwachteUitvoer1 As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(VerwachteUitvoerInfo1)
+	
+	// ======== TWEEDE VERWACHTE UITVOER ========	
+	#dim VerwachteUitvoerInfo2 As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakVerwachteUitvoerInfo("Unittest referentie 2", "Unittest lijnreferentie 2")
+	Set VerwachteUitvoerInfo2.Reservatie = ..MaakUitvoerReservatie("Unittest product 3", 5, TimeStamp, $$$True)
+	
+	#dim VerwachteUitvoer2 As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(VerwachteUitvoerInfo2)
+	
+	// ======== DERDE VERWACHTE UITVOER ========	
+	#dim VerwachteUitvoerInfo3 As DOM.ProdRes.dto.VerwachteUitvoerInfo = ..MaakVerwachteUitvoerInfo("Unittest referentie 3", "Unittest lijnreferentie 3", ..Bedrijf.Halux)
+	Set VerwachteUitvoerInfo3.Reservatie = ..MaakUitvoerReservatie("Unittest product 3", 4, TimeStamp)
+	
+	#dim VerwachteUitvoer3 As DOM.ProdRes.VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(VerwachteUitvoerInfo3)
+
+	// ASSERT
+	#dim ReservatieFases As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.ProdRes.enu.ReservatieFase).InOrder())
+	#dim Aantal As %Float
+	
+	Set Aantal = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3", ..Bedrijf.VanHoecke, ReservatieFases, $$$True, "2011-09-29 11:05:41")
+	Do $$$AssertEquals(Aantal, 8 + 7 + 5, "Er zijn 20 producten gereserveerd die voldoen aan de eisen")
+	
+	Set Aantal = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3", ..Bedrijf.VanHoecke, ReservatieFases, $$$True)
+	Do $$$AssertEquals(Aantal, 8 + 7 + 5 + 6, "Er zijn 26 producten gereserveerd die voldoen aan de eisen")
+	
+	Set Aantal = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3", ..Bedrijf.VanHoecke, ReservatieFases, $$$False, "2011-09-29 11:05:41")
+	Do $$$AssertEquals(Aantal, 8 + 7, "Er zijn 15 producten gereserveerd die voldoen aan de eisen")
+	
+	Do VerwachteUitvoer1.Delete()
+	Do VerwachteUitvoer2.Delete()
+	Do VerwachteUitvoer3.Delete()
+]]></Implementation>
+</Method>
+
 <Method name="Test: Query wordt geprepared">
 <Implementation><![CDATA[
 	#dim QueryAPIFake As vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI = ##class(vhTest.Fake.TECH.Query.PrepareOnlyQueryAPI).%New()
@@ -49,7 +89,7 @@
 	#dim DataTransferObjectMatcher As Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher = ##class(Tools.Mock.ArgumentMatchers.DataTransferObjectMatcher).%New(Query)
 	
 	Do QueryAPIMock.VerwachtMethodCall("GetResultSet", DataTransferObjectMatcher).DanReturn(##class(TECH.ResultSet).%New())
-	Do VerwachteUitvoerAPI.GeefAantalGereserveerd(..#ProductID, ..Bedrijf, ..GeefReservatieFasen(), ..InclusiefTransferReservatie, ..MaxDueOut)
+	Do VerwachteUitvoerAPI.GeefAantalGereserveerd(..#ProductID, ..Bedrijf.VanHoecke, ..GeefReservatieFasen(), ..InclusiefTransferReservatie, ..MaxDueOut)
 	Do QueryAPIMock.Verifieer()
 ]]></Implementation>
 </Method>
@@ -76,14 +116,14 @@
 	
 	Set Statement = Statement _ "SELECT Sum(Reservatie.Aantal) As Aantal FROM DOM_ProdRes_impl.UitvoerReservatieImpl Reservatie "
 	Set Statement = Statement _ "WHERE Reservatie.ProductID = ? "
-	Set Statement = Statement _ "AND Reservatie.ReservatieFase IN ('?') "
+	Set Statement = Statement _ "AND Reservatie.ReservatieFase IN ('" _ ##class(TECH.ListUtils).ListToPieces(..GeefReservatieFasen(), "', '") _ "') "
 	Set Statement = Statement _ "AND (Reservatie.DueOut is null OR Reservatie.DueOut <= ?) "
 	Set Statement = Statement _ "AND Reservatie.Bedrijf = ? "
 	Set Statement = Statement _ "AND (? = 1 OR IsTransferReservatie = 0) "
 	Set Statement = Statement _ "AND Reservatie.Aantal > 0 "
 	
 	Set Query.Statement = Statement
-	Set Query.Parameters = $ListBuild(..#ProductID, ##class(TECH.ListUtils).ListToPieces(..GeefReservatieFasen(), "', '"), ..MaxDueOut, ..Bedrijf, ..InclusiefTransferReservatie)
+	Set Query.Parameters = $ListBuild(..#ProductID, ..MaxDueOut, ..Bedrijf.VanHoecke, ..InclusiefTransferReservatie)
 	
 	Quit Query
 ]]></Implementation>