Index: vhUnitTest/DOM/ProdRes/TestVerwachteUitvoerAPI.cls.xml
===================================================================
diff -u -r2256 -r2262
--- vhUnitTest/DOM/ProdRes/TestVerwachteUitvoerAPI.cls.xml (.../TestVerwachteUitvoerAPI.cls.xml) (revision 2256)
+++ vhUnitTest/DOM/ProdRes/TestVerwachteUitvoerAPI.cls.xml (.../TestVerwachteUitvoerAPI.cls.xml) (revision 2262)
@@ -323,7 +323,7 @@
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 Reservatie.IsTransferReservatie = 1
Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
@@ -351,15 +351,22 @@
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")
+ Set InclusiefTransferReservaties = 1
+
+ Set Aantal = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3",##class(DOM.common.enu.Bedrijf).VanHoecke(),##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.ProdRes.enu.ReservatieFase).InOrder()),InclusiefTransferReservaties,"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()))
+ Set Aantal = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3",##class(DOM.common.enu.Bedrijf).VanHoecke(),##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.ProdRes.enu.ReservatieFase).InOrder()),InclusiefTransferReservaties)
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())
+ Set InclusiefTransferReservaties = 0
+
+ Set Aantal = VerwachteUitvoerAPI.GeefAantalGereserveerd("Unittest product 3",##class(DOM.common.enu.Bedrijf).VanHoecke(),##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.ProdRes.enu.ReservatieFase).InOrder()),InclusiefTransferReservaties,"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()
]]>
Index: DOM/ProdRes/VerwachteUitvoerAPI.cls.xml
===================================================================
diff -u -r2221 -r2262
--- DOM/ProdRes/VerwachteUitvoerAPI.cls.xml (.../VerwachteUitvoerAPI.cls.xml) (revision 2221)
+++ DOM/ProdRes/VerwachteUitvoerAPI.cls.xml (.../VerwachteUitvoerAPI.cls.xml) (revision 2262)
@@ -59,7 +59,7 @@
1
-ProductID:%String,Bedrijf:DOM.common.enu.Bedrijf,ReservatieFases:%ListOfDataTypes(ELEMENTTYPE="DOM.ProdRes.enu.ReservatieFase"),MaxDueOut:%TimeStamp=##class(TECH.DateTime).MaxTimeStamp()
+ProductID:%String,Bedrijf:DOM.common.enu.Bedrijf,ReservatieFases:%ListOfDataTypes(ELEMENTTYPE="DOM.ProdRes.enu.ReservatieFase"),InclusiefTransferReservatie:%Boolean=1,MaxDueOut:%TimeStamp=##class(TECH.DateTime).MaxTimeStamp()
%Float
Index: DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml
===================================================================
diff -u -r2252 -r2262
--- DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml (.../VerwachteUitvoerAPIimpl.cls.xml) (revision 2252)
+++ DOM/ProdRes/impl/VerwachteUitvoerAPIimpl.cls.xml (.../VerwachteUitvoerAPIimpl.cls.xml) (revision 2262)
@@ -89,14 +89,14 @@
-ProductID:%String,Bedrijf:DOM.common.enu.Bedrijf,ReservatieFases:%ListOfDataTypes(ELEMENTTYPE="DOM.ProdRes.enu.ReservatieFase"),MaxDueOut:%TimeStamp=##class(TECH.DateTime).MaxTimeStamp()
+ProductID:%String,Bedrijf:DOM.common.enu.Bedrijf,ReservatieFases:%ListOfDataTypes(ELEMENTTYPE="DOM.ProdRes.enu.ReservatieFase"),InclusiefTransferReservatie:%Boolean=1,MaxDueOut:%TimeStamp=##class(TECH.DateTime).MaxTimeStamp()
%Float