1 %RegisteredObject,TECH.Iterator 0 DOM.ProdRes.Reservatie list 1 DOM.ProdRes.Reservatie 1 DOM.ProdRes.impl.IReservatieIteratorEvaluator 1 Reservatie:DOM.ProdRes.Reservatie,ReservatieIteratorEvaluator:DOM.ProdRes.impl.IReservatieIteratorEvaluator 1 1 %Status Returns true if the iteration has more elements. %Boolean %CacheString 1 0) { Set Reservatie = ..TeVerwerken.GetAt(..TeVerwerken.Count()) Do ..TeVerwerken.RemoveAt(..TeVerwerken.Count()) Set KindReservatieIterator = Reservatie.GeefKindReservatieIterator() While (KindReservatieIterator.HasNext()) { Do ..TeVerwerken.Insert(KindReservatieIterator.Next()) } If (..ReservatieIteratorEvaluator.IsGeldigeReservatie(Reservatie)) { Set ..Volgende = Reservatie } Else { Do ..BepaalVolgende() } } ]]>