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)