Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Front/WerklijstItemsMaker.cls.xml =================================================================== diff -u -r67206 -r67801 --- APPS/Halux/PPS/Activiteit/impl/TAOR/Front/WerklijstItemsMaker.cls.xml (.../WerklijstItemsMaker.cls.xml) (revision 67206) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/Front/WerklijstItemsMaker.cls.xml (.../WerklijstItemsMaker.cls.xml) (revision 67801) @@ -32,17 +32,18 @@ #dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = ..WerklijstItemMakerInputData.ProductieSequentieItem #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ProductieSequentieItem.GeefIngegevenKenmerken() #dim IsLadeKleurNietWalnutMediumBrown As %Boolean = $$$Not(IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).WalnutMediumBrown()) + #dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..LadeInfoAPI.GeefLade(ProductieSequentieItem.GeefHalffabItemsBoom(),IngegevenKenmerken) + #dim FrontIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Lade.GeefFronten()) - If IsLadeKleurNietWalnutMediumBrown { - #dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..LadeInfoAPI.GeefLade(ProductieSequentieItem.GeefHalffabItemsBoom(),IngegevenKenmerken) - #dim FrontIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Lade.GeefFronten()) - while FrontIterator.HasNext() { - #dim Front As DOM.PM.Maatwerk.LadeInfo.Front = FrontIterator.Next() - #dim FrontPlatenIterator As TECH.Iterator = Front.GeefPlatenIterator() - while FrontPlatenIterator.HasNext() { - #dim FrontPlaat As DOM.PM.Maatwerk.LadeInfo.FrontPlaat = FrontPlatenIterator.Next() - #dim VerwerkingID As %String = ..VerwerkingIDBepaler.BepaalVerwerkingID(FrontPlaat.GeefFront(),ProductieSequentieItem,..WerklijstItemMakerInputData.VerwerkingTeller) - do ..VoegToe(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Front.OpdeelzaagWerklijstItemMaker).%New(FrontPlaat),VerwerkingID) + while FrontIterator.HasNext() { + #dim Front As DOM.PM.Maatwerk.LadeInfo.Front = FrontIterator.Next() + #dim FrontPlatenIterator As TECH.Iterator = Front.GeefPlatenIterator() + while FrontPlatenIterator.HasNext() { + #dim FrontPlaat As DOM.PM.Maatwerk.LadeInfo.FrontPlaat = FrontPlatenIterator.Next() + #dim VerwerkingID As %String = ..VerwerkingIDBepaler.BepaalVerwerkingID(FrontPlaat.GeefFront(),ProductieSequentieItem,..WerklijstItemMakerInputData.VerwerkingTeller) + do ..VoegToe(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Front.OpdeelzaagWerklijstItemMaker).%New(FrontPlaat),VerwerkingID) + + If IsLadeKleurNietWalnutMediumBrown { do ..VoegToe(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Front.KantenbandWerklijstItemMaker).%New(FrontPlaat),VerwerkingID) } }