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[