Index: DOM/ProdRes/dto/GereserveerdProduct.cls.xml
===================================================================
diff -u
--- DOM/ProdRes/dto/GereserveerdProduct.cls.xml	(revision 0)
+++ DOM/ProdRes/dto/GereserveerdProduct.cls.xml	(revision 2133)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.ProdRes.dto.GereserveerdProduct">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+</Property>
+</Class>
+</Export>
Index: DOM/ProdRes/impl/ReservatieImpl.cls.xml
===================================================================
diff -u -r2049 -r2133
--- DOM/ProdRes/impl/ReservatieImpl.cls.xml	(.../ReservatieImpl.cls.xml)	(revision 2049)
+++ DOM/ProdRes/impl/ReservatieImpl.cls.xml	(.../ReservatieImpl.cls.xml)	(revision 2133)
@@ -36,7 +36,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Reservaties">
+<Property name="KindReservaties">
 <Type>DOM.ProdRes.Reservatie</Type>
 <Collection>list</Collection>
 <Private>1</Private>
@@ -111,9 +111,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefReservatieIterator">
+<Method name="GeefKindReservatieIterator">
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..Reservaties)
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..KindReservaties)
 ]]></Implementation>
 </Method>
 
@@ -150,7 +150,7 @@
 <Method name="VoegToeReservatie">
 <FormalSpec>Reservatie:DOM.ProdRes.Reservatie</FormalSpec>
 <Implementation><![CDATA[
-	Do ..Reservaties.Insert(Reservatie)
+	Do ..KindReservaties.Insert(Reservatie)
 	Set ..IsLeaf = 0
 ]]></Implementation>
 </Method>
@@ -171,7 +171,7 @@
 	Set Object = ..%Open(oid)
 	If ($IsObject(Object))
 	{
-		Set ReservatieIterator = Object.GeefReservatieIterator()
+		Set ReservatieIterator = Object.GeefKindReservatieIterator()
 		While ($$$ISOK(Status) && ReservatieIterator.HasNext())
 		{
 			Set Reservatie = ReservatieIterator.Next()
@@ -218,6 +218,9 @@
 <Value name="10">
 <Value>IsLeaf</Value>
 </Value>
+<Value name="11">
+<Value>KindReservaties</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: CSC Reservaties.prj.xml
===================================================================
diff -u -r2048 -r2133
--- CSC Reservaties.prj.xml	(.../CSC Reservaties.prj.xml)	(revision 2048)
+++ CSC Reservaties.prj.xml	(.../CSC Reservaties.prj.xml)	(revision 2133)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Reservaties" LastModified="2011-09-13 10:29:58">
+<Project name="CSC Reservaties" LastModified="2011-09-19 14:49:54">
   <Items>
     <ProjectItem name="DOM.DomeinContext" type="CLS"/>
     <ProjectItem name="DOM.ProdRes.Reservatie" type="CLS"/>
@@ -10,6 +10,7 @@
     <ProjectItem name="DOM.ProdRes.VerwachteUitvoer" type="CLS"/>
     <ProjectItem name="DOM.ProdRes.VerwachteUitvoerAPI" type="CLS"/>
     <ProjectItem name="DOM.ProdRes.VerwachteUitvoeren" type="CLS"/>
+    <ProjectItem name="DOM.ProdRes.dto.GereserveerdProduct" type="CLS"/>
     <ProjectItem name="DOM.ProdRes.dto.Reservatie" type="CLS"/>
     <ProjectItem name="DOM.ProdRes.dto.ReservatieVoorVerwachteInvoer" type="CLS"/>
     <ProjectItem name="DOM.ProdRes.enu.InvoerUitvoerLinkStatus" type="CLS"/>
Index: DOM/ProdRes/dto/GereserveerdeProducten.cls.xml
===================================================================
diff -u
--- DOM/ProdRes/dto/GereserveerdeProducten.cls.xml	(revision 0)
+++ DOM/ProdRes/dto/GereserveerdeProducten.cls.xml	(revision 2133)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.ProdRes.dto.GereserveerdeProducten">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%ListOfObjects</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="ELEMENTTYPE">
+<Default>DOM.ProdRes.dto.GereserveerdProduct</Default>
+</Parameter>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+</Export>
Index: DOM/ProdRes/VerwachteUitvoerAPI.cls.xml
===================================================================
diff -u -r2048 -r2133
--- DOM/ProdRes/VerwachteUitvoerAPI.cls.xml	(.../VerwachteUitvoerAPI.cls.xml)	(revision 2048)
+++ DOM/ProdRes/VerwachteUitvoerAPI.cls.xml	(.../VerwachteUitvoerAPI.cls.xml)	(revision 2133)
@@ -52,10 +52,11 @@
 <Method name="GeefReservatieSamenvatting">
 <Description>
 Geeft een lijst van de basisreservaties die fysiek moeten uitgevoerd worden.
-Dit komt neer op alle halffabrikaten van een moederproduct.</Description>
+Dit komt neer op alle halffabrikaten van een moederproduct.
+Aggregeert alle producten over meerdere VerwachteUitvoerIDs.</Description>
 <Abstract>1</Abstract>
-<FormalSpec>VerwachteUitvoerID:%String</FormalSpec>
-<ReturnType>DOM.ProdRes.Reservaties</ReturnType>
+<FormalSpec>VerwachteUitvoerIDLijst:%ListOfDataTypes</FormalSpec>
+<ReturnType>DOM.ProdRes.dto.GereserveerdeProducten</ReturnType>
 </Method>
 </Class>
 </Export>
Index: DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml
===================================================================
diff -u -r2048 -r2133
--- DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 2048)
+++ DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml	(.../VerwachteUitvoerAPIimpl.cls.xml)	(revision 2133)
@@ -63,10 +63,6 @@
 	{
 		Set VerwachteUitvoer = ##class(DOM.ProdRes.impl.VerwachteUitvoerImpl).%OpenId(ResultSet.Data("ID"))
 	}
-	If (ResultSet.Next())
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Meerdere resultaten gevonden voor transactiereferentie '"_TransactieReferentie_"', transactielijnreferentie '"_TransactieLijnReferentie_"' en bedrijf '"_Bedrijf_"'"))
-	}
 	Quit VerwachteUitvoer
 ]]></Implementation>
 </Method>
@@ -94,23 +90,23 @@
 </Method>
 
 <Method name="GeefReservatieSamenvatting">
-<FormalSpec>VerwachteUitvoerID:%String</FormalSpec>
-<ReturnType>DOM.ProdRes.Reservaties</ReturnType>
+<FormalSpec>VerwachteUitvoerIDLijst:%ListOfDataTypes</FormalSpec>
+<ReturnType>DOM.ProdRes.dto.GereserveerdeProducten</ReturnType>
 <Implementation><![CDATA[
-	Set Reservaties = ##class(DOM.ProdRes.Reservaties).%New()
+	Set GereserveerdeProducten = ##class(DOM.ProdRes.dto.GereserveerdeProducten).%New()
 	
-	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(VerwachteUitvoerID)
-	
 	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT ID FROM DOM_ProdRes_impl.ReservatieImpl WHERE VerwachteUitvoer = ? AND IsLeaf = 1")
-	Do ResultSet.Execute(VerwachteUitvoerID)
+	Do ResultSet.Prepare("SELECT ProductID, Sum(Aantal) As Aantal FROM DOM_ProdRes_impl.ReservatieImpl WHERE VerwachteUitvoer IN ("_##class(TECH.ListUtils).ListToPieces(VerwachteUitvoerIDLijst,",")_") AND IsLeaf = 1 GROUP BY ProductID")
+	Do ResultSet.Execute()
 	While (ResultSet.Next())
 	{
-		Set Reservatie = ##class(DOM.ProdRes.impl.ReservatieImpl).%OpenId(ResultSet.Data("ID"))
-		Do Reservaties.Insert(Reservatie)
+		Set GereserveerdProduct = ##class(DOM.ProdRes.dto.GereserveerdProduct).%New()
+		Set GereserveerdProduct.ProductID = ResultSet.Data("ProductID")
+		Set GereserveerdProduct.Aantal = ResultSet.Data("Aantal")
+		Do GereserveerdeProducten.Insert(GereserveerdProduct)
 	}
 	
-	Quit Reservaties
+	Quit GereserveerdeProducten
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml
===================================================================
diff -u -r2049 -r2133
--- DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml	(.../VerwachteUitvoerImpl.cls.xml)	(revision 2049)
+++ DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml	(.../VerwachteUitvoerImpl.cls.xml)	(revision 2133)
@@ -35,10 +35,6 @@
 <Properties>TransactieReferentie</Properties>
 </Index>
 
-<Index name="TransactieLijnRefIndex">
-<Properties>TransactieLijnReferentie</Properties>
-</Index>
-
 <Index name="UniekeTransactie">
 <Properties>Bedrijf,TransactieReferentie,TransactieLijnReferentie</Properties>
 <Unique>1</Unique>
Index: vhUnitTest/DOM/ProdRes/TestVerwachteUitvoerAPI.cls.xml
===================================================================
diff -u -r2130 -r2133
--- vhUnitTest/DOM/ProdRes/TestVerwachteUitvoerAPI.cls.xml	(.../TestVerwachteUitvoerAPI.cls.xml)	(revision 2130)
+++ vhUnitTest/DOM/ProdRes/TestVerwachteUitvoerAPI.cls.xml	(.../TestVerwachteUitvoerAPI.cls.xml)	(revision 2133)
@@ -79,7 +79,11 @@
 	Do $$$AssertTrue($IsObject(Reservatie1),"De reservatie werd opgeslagen")
 	Do $$$AssertEquals(Reservatie1.GeefProductID(),"Unittest product 1")
 	Do $$$AssertEquals(Reservatie1.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InOrder(),"De beginfase van een reservatie")
+	Do Reservatie1.ZetReservatieFase(##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering())
+	Do $$$AssertEquals(Reservatie1.GeefReservatieFase(),##class(DOM.ProdRes.enu.ReservatieFase).InUitvoering(),"De reservatiefase werd gewijzigd")
 	Do $$$AssertEquals(Reservatie1.GeefAantal(),10,"Het aantal producten")
+	Do Reservatie1.ZetAantal(11)
+	Do $$$AssertEquals(Reservatie1.GeefAantal(),11,"Het aantal producten na de zet")
 	Do $$$AssertTrue($Length(Reservatie1.GeefDueOut())>0,"De dueout is ingesteld")
 	Do $$$AssertEquals(Reservatie1.GeefPrioriteitGroep(),##class(DOM.ProdRes.enu.PrioriteitGroep).Halux(),"De prioriteitsgroep")
 	Do $$$AssertTrue($Length(Reservatie1.GeefAangemaaktOp())>0,"De aanmaakdatum is ingevuld")
@@ -103,38 +107,35 @@
 	Do $$$AssertEquals(Reservatie3.GeefProductID(),"Unittest product 3")
 	Do $$$AssertTrue(Reservatie3.IsLeaf,"De reservatie is een blad")
 	
-	Set Reservaties = VerwachteUitvoerAPI.GeefReservatieSamenvatting(VerwachteUitvoer.%Id())
+	Set ReservatieVoorVerwachteInvoer2 = ..MaakReservatieVerwachteInvoer()
+	Set VerwachteUitvoer2 = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteInvoer2)
 	
-	Do $$$AssertEquals(Reservaties.Count(),2,"Er zijn 2 'blad'reservaties")
-	Do $$$AssertEquals(Reservaties.GetAt(1).GeefProductID(),"Unittest product 4","De eerste echte fysieke reservatie")
-	Do $$$AssertEquals(Reservaties.GetAt(2).GeefProductID(),"Unittest product 3","De tweede echte fysieke reservatie")
+	Set VerwachteUitvoerIDs = ##class(%ListOfDataTypes).%New()
+	Do VerwachteUitvoerIDs.Insert(VerwachteUitvoer.%Id())
+	Do VerwachteUitvoerIDs.Insert(VerwachteUitvoer2.%Id())
+	Set GereserveerdeProducten = VerwachteUitvoerAPI.GeefReservatieSamenvatting(VerwachteUitvoerIDs)
 	
+	Do $$$AssertEquals(GereserveerdeProducten.Count(),2,"Er zijn 2 producten te verwachten")
+	Do $$$AssertEquals(GereserveerdeProducten.GetAt(1).ProductID,"Unittest product 3","De tweede echte fysieke reservatie")
+	Do $$$AssertEquals(GereserveerdeProducten.GetAt(1).Aantal,18,"18 stuks van product 3")
+	Do $$$AssertEquals(GereserveerdeProducten.GetAt(2).ProductID,"Unittest product 4","De eerste echte fysieke reservatie")
+	Do $$$AssertEquals(GereserveerdeProducten.GetAt(2).Aantal,7,"7 stuks van product 4")
+	
 	Do VerwachteUitvoer.%DeleteId(VerwachteUitvoer.%Id())
 	Do Reservatie1.%DeleteId(Reservatie1.%Id())
 	Do Reservatie2.%DeleteId(Reservatie2.%Id())
 	Do Reservatie3.%DeleteId(Reservatie3.%Id())
 	Do Reservatie4.%DeleteId(Reservatie4.%Id())
+	Do VerwachteUitvoer2.%DeleteId(VerwachteUitvoer2.%Id())
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefViaReferentie">
 <Implementation><![CDATA[
 	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
 	
-	Set ReservatieVoorVerwachteInvoer = ##class(DOM.ProdRes.dto.ReservatieVoorVerwachteInvoer).%New()
-	Set ReservatieVoorVerwachteInvoer.TransactieReferentie = "Unittest referentie"
-	Set ReservatieVoorVerwachteInvoer.TransactieLijnReferentie = "Unittest lijnreferentie"
-	Set ReservatieVoorVerwachteInvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	Set ReservatieVoorVerwachteInvoer = ..MaakReservatieVerwachteInvoer()
 	
-	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 1"
-	Set Reservatie.DueOut = ##class(TECH.DateTime).CurrentTimeStamp()
-	Set Reservatie.Aantal = 10
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Set ReservatieVoorVerwachteInvoer.Reservatie = Reservatie
-	
 	Set VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteInvoer)
 	
 	Set VerwachteUitvoerenGevonden = VerwachteUitvoerAPI.ZoekUitvoerenViaTransactieRef(ReservatieVoorVerwachteInvoer.TransactieReferentie, ReservatieVoorVerwachteInvoer.Bedrijf)
@@ -156,20 +157,8 @@
 <Implementation><![CDATA[
 	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
 	
-	Set ReservatieVoorVerwachteInvoer = ##class(DOM.ProdRes.dto.ReservatieVoorVerwachteInvoer).%New()
-	Set ReservatieVoorVerwachteInvoer.TransactieReferentie = "Unittest referentie"
-	Set ReservatieVoorVerwachteInvoer.TransactieLijnReferentie = "Unittest lijnreferentie"
-	Set ReservatieVoorVerwachteInvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	Set ReservatieVoorVerwachteInvoer = ..MaakReservatieVerwachteInvoer()
 	
-	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 1"
-	Set Reservatie.DueOut = ##class(TECH.DateTime).CurrentTimeStamp()
-	Set Reservatie.Aantal = 10
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Set ReservatieVoorVerwachteInvoer.Reservatie = Reservatie
-	
 	Set VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteInvoer)
 	
 	Set VerwachteUitvoerID = VerwachteUitvoer.%Id()
@@ -187,20 +176,8 @@
 <Implementation><![CDATA[
 	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
 	
-	Set ReservatieVoorVerwachteInvoer = ##class(DOM.ProdRes.dto.ReservatieVoorVerwachteInvoer).%New()
-	Set ReservatieVoorVerwachteInvoer.TransactieReferentie = "Unittest referentie"
-	Set ReservatieVoorVerwachteInvoer.TransactieLijnReferentie = "Unittest lijnreferentie"
-	Set ReservatieVoorVerwachteInvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	Set ReservatieVoorVerwachteInvoer = ..MaakReservatieVerwachteInvoer()
 	
-	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
-	Set Reservatie.ProductID = "Unittest product 1"
-	Set Reservatie.DueOut = ##class(TECH.DateTime).CurrentTimeStamp()
-	Set Reservatie.Aantal = 10
-	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
-	Set Reservatie.IsTransferReservatie = 0
-	
-	Set ReservatieVoorVerwachteInvoer.Reservatie = Reservatie
-	
 	Set VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(ReservatieVoorVerwachteInvoer)
 	
 	Set VerwachteUitvoerID = VerwachteUitvoer.%Id()
@@ -214,12 +191,32 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakReservatieVerwachteInvoer">
+<Implementation><![CDATA[
+	Set ReservatieVoorVerwachteInvoer = ##class(DOM.ProdRes.dto.ReservatieVoorVerwachteInvoer).%New()
+	Set ReservatieVoorVerwachteInvoer.TransactieReferentie = "Unittest referentie 2"
+	Set ReservatieVoorVerwachteInvoer.TransactieLijnReferentie = "Unittest lijnreferentie 2"
+	Set ReservatieVoorVerwachteInvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
+	
+	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
+	Set Reservatie.ProductID = "Unittest product 3"
+	Set Reservatie.DueOut = ##class(TECH.DateTime).CurrentTimeStamp()
+	Set Reservatie.Aantal = 10
+	Set Reservatie.PrioriteitGroep = ##class(DOM.ProdRes.enu.PrioriteitGroep).Halux()
+	Set Reservatie.IsTransferReservatie = 0
+	
+	Set ReservatieVoorVerwachteInvoer.Reservatie = Reservatie
+	
+	Quit ReservatieVoorVerwachteInvoer
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	// eventueel resterende data proberen wissen
 	Set ResultSet = ##class(%ResultSet).%New()
-	Do ResultSet.Prepare("SELECT ID FROM DOM_ProdRes_impl.VerwachteUitvoerImpl WHERE TransactieReferentie = 'Unittest referentie'")
+	Do ResultSet.Prepare("SELECT ID FROM DOM_ProdRes_impl.VerwachteUitvoerImpl WHERE TransactieReferentie Like 'Unittest referentie%'")
 	Do ResultSet.Execute()
 	If (ResultSet.Next())
 	{