Index: DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml
===================================================================
diff -u -r2256 -r2279
--- DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml (.../VerwachteUitvoerImpl.cls.xml) (revision 2256)
+++ DOM/ProdRes/impl/VerwachteUitvoerImpl.cls.xml (.../VerwachteUitvoerImpl.cls.xml) (revision 2279)
@@ -134,6 +134,12 @@
]]>
+
+TECH.Iterator
+
+
+
Index: vhConsistency/Checks/InvoerUitvoerLinken.cls.xml
===================================================================
diff -u -r2274 -r2279
--- vhConsistency/Checks/InvoerUitvoerLinken.cls.xml (.../InvoerUitvoerLinken.cls.xml) (revision 2274)
+++ vhConsistency/Checks/InvoerUitvoerLinken.cls.xml (.../InvoerUitvoerLinken.cls.xml) (revision 2279)
@@ -99,11 +99,30 @@
If ('$IsObject(VerwachteUitvoer))
{
Set VerwachteUitvoer = VerwachteUitvoerAPI.RegistreerReservaties(OrderUitvoeringService.MaakReservatieStructuur(Order,ProductLijn))
-
+ Set ReservatieFase = ..GeefReservatieFase(Order,ProductLijn)
+ Set ReservatieIterator = VerwachteUitvoer.GeefReservatieIterator()
+ While (ReservatieIterator.HasNext())
+ {
+ Set Reservatie = ReservatieIterator.Next()
+ Do Reservatie.ZetReservatieFase(ReservatieFase)
+ }
+ Do VerwachteUitvoer.Save()
Do ..VoegMeldingToe("Verwachte uitvoer aangemaakt (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr())
}
Else
{
+ If (VerwachteUitvoer.GeefReservatie().GeefReservatieFase() '= ..GeefReservatieFase(Order, ProductLijn))
+ {
+ Do ..VoegMeldingToe("Verwachte uitvoer heeft verschillend aantal (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr())
+ Set ReservatieFase = ..GeefReservatieFase(Order,ProductLijn)
+ Set ReservatieIterator = VerwachteUitvoer.GeefReservatieIterator()
+ While (ReservatieIterator.HasNext())
+ {
+ Set Reservatie = ReservatieIterator.Next()
+ Do Reservatie.ZetReservatieFase(ReservatieFase)
+ }
+ Do VerwachteUitvoer.Save()
+ }
If (VerwachteUitvoer.GeefReservatie().GeefAantal() '= ProductLijn.GeefAantal())
{
Do ..VoegMeldingToe("Verwachte uitvoer heeft verschillend aantal (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr())
@@ -271,5 +290,18 @@
}
]]>
+
+
+Order:DOM.OV.Order,ProductLijn:DOM.OV.ProductOrderlijn
+DOM.ProdRes.enu.ReservatieFase
+
+
Index: DOM/ProdRes/VerwachteUitvoer.cls.xml
===================================================================
diff -u -r2195 -r2279
--- DOM/ProdRes/VerwachteUitvoer.cls.xml (.../VerwachteUitvoer.cls.xml) (revision 2195)
+++ DOM/ProdRes/VerwachteUitvoer.cls.xml (.../VerwachteUitvoer.cls.xml) (revision 2279)
@@ -41,6 +41,11 @@
DOM.ProdRes.Reservatie
+
+1
+TECH.Iterator
+
+
Geeft een iterator terug die reservaties teruggeeft voor het opgegeven product id (incl alle kindreservaties)