Index: DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml
===================================================================
diff -u -r2195 -r2221
--- DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 2195)
+++ DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 2221)
@@ -87,5 +87,24 @@
 	Quit GereserveerdeProducten
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAantalGereserveerd">
+<FormalSpec>ProductID:%String,Bedrijf:DOM.common.enu.Bedrijf,ReservatieFases:%ListOfDataTypes(ELEMENTTYPE="DOM.ProdRes.enu.ReservatieFase"),MaxDueOut:%TimeStamp=##class(TECH.DateTime).MaxTimeStamp()</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set Aantal = 0
+	Set ResultSet = ##class(%ResultSet).%New()
+	Set SQL = "SELECT Sum(R.Aantal) As Aantal FROM DOM_ProdRes_impl.ReservatieImpl R"
+							_" JOIN DOM_ProdRes_impl.VerwachteUitvoerImpl V ON V.ID = R.VerwachteUitvoer"
+							_" WHERE R.ProductID = ? AND R.ReservatieFase IN ('"_##class(TECH.ListUtils).ListToPieces(ReservatieFases,"','")_"') AND (R.DueOut is null OR R.DueOut <= ?) AND V.Bedrijf = ?"
+	Do ResultSet.Prepare(SQL)
+	Do ResultSet.Execute(ProductID,MaxDueOut,Bedrijf)
+	If (ResultSet.Next())
+	{
+		Set Aantal = ResultSet.Data("Aantal")
+	}
+	Quit Aantal
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/ProdRes/impl/ReservatieImpl.cls.xml
===================================================================
diff -u -r2187 -r2221
--- DOM/ProdRes/impl/ReservatieImpl.cls.xml	(.../ReservatieImpl.cls.xml)	(revision 2187)
+++ DOM/ProdRes/impl/ReservatieImpl.cls.xml	(.../ReservatieImpl.cls.xml)	(revision 2221)
@@ -68,6 +68,15 @@
 <Properties>VerwachteUitvoer</Properties>
 </Index>
 
+<Index name="ProductIndex">
+<Properties>ProductID</Properties>
+</Index>
+
+<Index name="ReservatieFase">
+<Type>bitmap</Type>
+<Properties>ReservatieFase</Properties>
+</Index>
+
 <Method name="%OnNew">
 <FormalSpec>VerwachteUitvoer:DOM.ProdRes.VerwachteUitvoer,ProductID:%String,Aantal:%Float,DueOut:%TimeStamp,PrioriteitGroep:DOM.ProdRes.enu.PrioriteitGroep,IsTransferReservatie:%Boolean</FormalSpec>
 <Private>1</Private>
Index: DOM/ProdRes/VerwachteUitvoerAPI.cls.xml
===================================================================
diff -u -r2161 -r2221
--- DOM/ProdRes/VerwachteUitvoerAPI.cls.xml	(.../VerwachteUitvoerAPI.cls.xml)	(revision 2161)
+++ DOM/ProdRes/VerwachteUitvoerAPI.cls.xml	(.../VerwachteUitvoerAPI.cls.xml)	(revision 2221)
@@ -56,5 +56,11 @@
 <FormalSpec>VerwachteUitvoerIDLijst:%ListOfDataTypes</FormalSpec>
 <ReturnType>DOM.ProdRes.dto.GereserveerdeProducten</ReturnType>
 </Method>
+
+<Method name="GeefAantalGereserveerd">
+<Abstract>1</Abstract>
+<FormalSpec>ProductID:%String,Bedrijf:DOM.common.enu.Bedrijf,ReservatieFases:%ListOfDataTypes(ELEMENTTYPE="DOM.ProdRes.enu.ReservatieFase"),MaxDueOut:%TimeStamp=##class(TECH.DateTime).MaxTimeStamp()</FormalSpec>
+<ReturnType>%Float</ReturnType>
+</Method>
 </Class>
 </Export>
Index: vhUnitTest/DOM/ProdRes/TestVerwachteInvoerAPI.cls.xml
===================================================================
diff -u -r2169 -r2221
--- vhUnitTest/DOM/ProdRes/TestVerwachteInvoerAPI.cls.xml	(.../TestVerwachteInvoerAPI.cls.xml)	(revision 2169)
+++ vhUnitTest/DOM/ProdRes/TestVerwachteInvoerAPI.cls.xml	(.../TestVerwachteInvoerAPI.cls.xml)	(revision 2221)
@@ -312,6 +312,82 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestGeefAantalVerwacht">
+<Implementation><![CDATA[
+	Set Service = ##class(DOM.DomeinContext).Instance().GeefVerwachteInvoerAPI()
+	
+	Set VerwachteInvoerInfo = ##class(DOM.ProdRes.dto.VerwachteInvoerInfo).%New()
+	Set VerwachteInvoerInfo.Aantal = 1
+	Set VerwachteInvoerInfo.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	Set VerwachteInvoerInfo.DueIn = "2011-09-29 11:52:21"
+	Set VerwachteInvoerInfo.ProductID = "Product1"
+	Set VerwachteInvoerInfo.TransactieReferentie = "UT Transactieref 1"
+	Set VerwachteInvoerInfo.TransactieLijnReferentie = "UT Transactielijnref"
+	Set VerwachteInvoer1 = Service.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
+	
+	Set VerwachteInvoerInfo = ##class(DOM.ProdRes.dto.VerwachteInvoerInfo).%New()
+	Set VerwachteInvoerInfo.Aantal = 2
+	Set VerwachteInvoerInfo.Bedrijf = ##class(DOM.common.enu.Bedrijf).Halux()
+	Set VerwachteInvoerInfo.DueIn = "2011-09-29 11:52:21"
+	Set VerwachteInvoerInfo.ProductID = "Product1"
+	Set VerwachteInvoerInfo.TransactieReferentie = "UT Transactieref 2"
+	Set VerwachteInvoerInfo.TransactieLijnReferentie = "UT Transactielijnref"
+	Set VerwachteInvoer2 = Service.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
+	
+	Set VerwachteInvoerInfo = ##class(DOM.ProdRes.dto.VerwachteInvoerInfo).%New()
+	Set VerwachteInvoerInfo.Aantal = 3
+	Set VerwachteInvoerInfo.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	Set VerwachteInvoerInfo.DueIn = "2011-09-30 11:52:21"
+	Set VerwachteInvoerInfo.ProductID = "Product1"
+	Set VerwachteInvoerInfo.TransactieReferentie = "UT Transactieref 3"
+	Set VerwachteInvoerInfo.TransactieLijnReferentie = "UT Transactielijnref"
+	Set VerwachteInvoer3 = Service.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
+	
+	Set VerwachteInvoerInfo = ##class(DOM.ProdRes.dto.VerwachteInvoerInfo).%New()
+	Set VerwachteInvoerInfo.Aantal = 4
+	Set VerwachteInvoerInfo.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	Set VerwachteInvoerInfo.DueIn = "2011-09-29 11:52:21"
+	Set VerwachteInvoerInfo.ProductID = "Product1"
+	Set VerwachteInvoerInfo.TransactieReferentie = "UT Transactieref 4"
+	Set VerwachteInvoerInfo.TransactieLijnReferentie = "UT Transactielijnref"
+	Set VerwachteInvoer4 = Service.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
+	
+	Set VerwachteInvoerInfo = ##class(DOM.ProdRes.dto.VerwachteInvoerInfo).%New()
+	Set VerwachteInvoerInfo.Aantal = 5
+	Set VerwachteInvoerInfo.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	Set VerwachteInvoerInfo.DueIn = "2011-09-29 11:52:21"
+	Set VerwachteInvoerInfo.ProductID = "Product1"
+	Set VerwachteInvoerInfo.TransactieReferentie = "UT Transactieref 5"
+	Set VerwachteInvoerInfo.TransactieLijnReferentie = "UT Transactielijnref"
+	Set VerwachteInvoer5 = Service.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
+	
+	Set InclusiefGelinkt = 1
+	Set AantalVerwacht = Service.GeefAantalVerwacht("Product1",##class(DOM.common.enu.Bedrijf).VanHoecke(),InclusiefGelinkt,"2011-09-29 11:52:22")
+	Do $$$AssertEquals(AantalVerwacht,1+4+5,"Er zijn 10 verwachte producten die voldoen aan de eisen")
+	
+	Set AantalVerwacht = Service.GeefAantalVerwacht("Product1",##class(DOM.common.enu.Bedrijf).VanHoecke(),InclusiefGelinkt)
+	Do $$$AssertEquals(AantalVerwacht,1+4+5+3,"Er zijn 13 verwachte producten die voldoen aan de eisen")
+	
+	// een invoer-uitvoer-link plaatsen op verwachte invoer 5
+	Set AantalProducten = 3
+	Set InvoerUitvoerLink = ##class(DOM.ProdRes.impl.InvoerUitvoerLinkImpl).%New(AantalProducten)
+	Do InvoerUitvoerLink.Save()
+	Do VerwachteInvoer5.RegistreerInvoerUitvoerLink(InvoerUitvoerLink)
+	Do VerwachteInvoer5.Save()
+	
+	Set InclusiefGelinkt = 0
+	Set AantalVerwacht = Service.GeefAantalVerwacht("Product1",##class(DOM.common.enu.Bedrijf).VanHoecke(),InclusiefGelinkt,"2011-09-29 11:52:22")
+	Do $$$AssertEquals(AantalVerwacht,1+4+5-3,"Er zijn 7 verwachte producten die voldoen aan de eisen")
+	
+	Do VerwachteInvoer1.Delete()
+	Do VerwachteInvoer2.Delete()
+	Do VerwachteInvoer3.Delete()
+	Do VerwachteInvoer4.Delete()
+	Do VerwachteInvoer5.Delete()
+	Do InvoerUitvoerLink.Delete()
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
Index: DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml
===================================================================
diff -u -r2195 -r2221
--- DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml	(.../VerwachteInvoerAPIimpl.cls.xml)	(revision 2195)
+++ DOM/ProdRes/impl/VerwachteInvoerAPIimpl.cls.xml	(.../VerwachteInvoerAPIimpl.cls.xml)	(revision 2221)
@@ -284,5 +284,29 @@
 	Do ##class(TECH.ExceptionHandler).Rethrow(Exceptie)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAantalVerwacht">
+<FormalSpec>ProductID:%String,Bedrijf:DOM.common.enu.Bedrijf,InclusiefGelinkte:%Boolean,MaxDueIn:%TimeStamp=##class(TECH.DateTime).MaxTimeStamp()</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set AantalVerwacht = 0
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT sum(Aantal) Aantal, COALESCE(sum(AantalProducten),0) As AantalGelinkt FROM DOM_ProdRes_impl.VerwachteInvoerImpl I"
+							_" LEFT JOIN DOM_ProdRes_impl.VerwachteInvoerImpl_InvoerUitvoerLinken L ON L.VerwachteInvoerImpl = I.ID"
+							_" LEFT JOIN DOM_ProdRes_impl.InvoerUitvoerLinkImpl IL ON IL.ID = L.element_key"
+							_" WHERE ProductID = ? AND Bedrijf = ? AND (DueIn is null OR DueIn < ?)"
+							_" GROUP BY ProductID")
+	Do ResultSet.Execute(ProductID, Bedrijf, MaxDueIn)
+	If (ResultSet.Next())
+	{
+		Set AantalVerwacht = ResultSet.Data("Aantal")
+		If ('InclusiefGelinkte)
+		{
+			Set AantalVerwacht = AantalVerwacht - ResultSet.Data("AantalGelinkt")
+		}
+	}
+	Quit AantalVerwacht
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/ProdRes/VerwachteInvoerAPI.cls.xml
===================================================================
diff -u -r2169 -r2221
--- DOM/ProdRes/VerwachteInvoerAPI.cls.xml	(.../VerwachteInvoerAPI.cls.xml)	(revision 2169)
+++ DOM/ProdRes/VerwachteInvoerAPI.cls.xml	(.../VerwachteInvoerAPI.cls.xml)	(revision 2221)
@@ -67,5 +67,11 @@
 <FormalSpec>VerwachteInvoerIDs:%ListOfDataTypes,DueIn:%TimeStamp,TransactieReferentie:%String,TransactieLijnReferentie:%String</FormalSpec>
 <ReturnType>DOM.ProdRes.VerwachteInvoer</ReturnType>
 </Method>
+
+<Method name="GeefAantalVerwacht">
+<Abstract>1</Abstract>
+<FormalSpec>ProductID:%String,Bedrijf:DOM.common.enu.Bedrijf,InclusiefGelinkte:%Boolean,MaxDueIn:%TimeStamp=##class(TECH.DateTime).MaxTimeStamp()</FormalSpec>
+<ReturnType>%Float</ReturnType>
+</Method>
 </Class>
 </Export>
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[