Index: vhUnitTest/DOM/ProdRes/TestVerwachteUitvoerAPI.cls.xml
===================================================================
diff -u -r2161 -r2221
--- vhUnitTest/DOM/ProdRes/TestVerwachteUitvoerAPI.cls.xml	(.../TestVerwachteUitvoerAPI.cls.xml)	(revision 2161)
+++ vhUnitTest/DOM/ProdRes/TestVerwachteUitvoerAPI.cls.xml	(.../TestVerwachteUitvoerAPI.cls.xml)	(revision 2221)
@@ -243,6 +243,126 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGeefAantalGereserveerd">
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	
+	// ======== EERSTE VERWACHTE UITVOER ========
+	
+	Set ReservatieVoorVerwachteUitvoer = ##class(DOM.ProdRes.dto.ReservatieVoorVerwachteUitvoer).%New()
+	Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = "Unittest referentie"
+	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = "Unittest lijnreferentie"
+	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	
+	// Reservatiestructuur:
+	// - product 1 								2011-09-29 11:05:40
+	// 		- product 2 						2011-09-29 11:05:40
+	// 				- product 3 				2011-09-29 11:05:40
+	// 		- product 3 						2011-09-29 11:05:40
+	// 		- product 3 						2011-09-30 11:05:40
+	
+	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+	Set Reservatie.ProductID = "Unittest product 1"
+	Set Reservatie.DueOut = "2011-09-29 11:05:40"
+	Set Reservatie.Aantal = 10
+	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
+	Set Reservatie.IsTransferReservatie = 0
+	
+	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
+	
+	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+	Set Reservatie.ProductID = "Unittest product 2"
+	Set Reservatie.DueOut = "2011-09-29 11:05:40"
+	Set Reservatie.Aantal = 9
+	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
+	Set Reservatie.IsTransferReservatie = 0
+	
+	Do ReservatieVoorVerwachteUitvoer.Reservatie.Reservaties.Insert(Reservatie)
+	
+	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+	Set Reservatie.ProductID = "Unittest product 3"
+	Set Reservatie.DueOut = "2011-09-29 11:05:40"
+	Set Reservatie.Aantal = 8
+	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
+	Set Reservatie.IsTransferReservatie = 0
+	
+	Do ReservatieVoorVerwachteUitvoer.Reservatie.Reservaties.GetAt(1).Reservaties.Insert(Reservatie)
+	
+	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+	Set Reservatie.ProductID = "Unittest product 3"
+	Set Reservatie.DueOut = "2011-09-29 11:05:40"
+	Set Reservatie.Aantal = 7
+	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
+	Set Reservatie.IsTransferReservatie = 0
+	
+	Do ReservatieVoorVerwachteUitvoer.Reservatie.Reservaties.GetAt(1).Reservaties.Insert(Reservatie)
+	
+	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+	Set Reservatie.ProductID = "Unittest product 3"
+	Set Reservatie.DueOut = "2011-09-30 11:05:40"
+	Set Reservatie.Aantal = 6
+	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
+	Set Reservatie.IsTransferReservatie = 0
+	
+	Do ReservatieVoorVerwachteUitvoer.Reservatie.Reservaties.Insert(Reservatie)
+
+	Set VerwachteUitvoer1 = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer)
+	
+	// ======== TWEEDE VERWACHTE UITVOER ========
+	
+	Set ReservatieVoorVerwachteUitvoer = ##class(DOM.ProdRes.dto.ReservatieVoorVerwachteUitvoer).%New()
+	Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = "Unittest referentie 2"
+	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = "Unittest lijnreferentie 2"
+	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	
+	// Reservatiestructuur:
+	// - product 3								2011-09-29 11:05:40
+
+	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+	Set Reservatie.ProductID = "Unittest product 3"
+	Set Reservatie.DueOut = "2011-09-29 11:05:40"
+	Set Reservatie.Aantal = 5
+	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
+	Set Reservatie.IsTransferReservatie = 0
+	
+	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
+	
+	Set VerwachteUitvoer2 = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer)
+	
+	// ======== DERDE VERWACHTE UITVOER ========
+	
+	Set ReservatieVoorVerwachteUitvoer = ##class(DOM.ProdRes.dto.ReservatieVoorVerwachteUitvoer).%New()
+	Set ReservatieVoorVerwachteUitvoer.TransactieReferentie = "Unittest referentie 2"
+	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = "Unittest lijnreferentie 2"
+	// Ander bedrijf instellen
+	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).Halux()
+	
+	// Reservatiestructuur:
+	// - product 3								2011-09-29 11:05:40
+
+	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+	Set Reservatie.ProductID = "Unittest product 3"
+	Set Reservatie.DueOut = "2011-09-29 11:05:40"
+	Set Reservatie.Aantal = 4
+	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
+	Set Reservatie.IsTransferReservatie = 0
+	
+	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
+	
+	Set VerwachteUitvoer3 = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteUitvoer)
+	
+	Set Aantal = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3",##class(DOM.common.enu.Bedrijf).VanHoecke(),##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.ProdRes.enu.ReservatieFase).InOrder()),"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",##class(DOM.common.enu.Bedrijf).VanHoecke(),##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.ProdRes.enu.ReservatieFase).InOrder()))
+	Do $$$AssertEquals(Aantal,8+7+5+6,"Er zijn 26 producten gereserveerd die voldoen aan de eisen")
+	
+	Do VerwachteUitvoer1.%DeleteId(VerwachteUitvoer1.%Id())
+	Do VerwachteUitvoer2.%DeleteId(VerwachteUitvoer2.%Id())
+	Do VerwachteUitvoer3.%DeleteId(VerwachteUitvoer3.%Id())
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[