Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator.cls.xml =================================================================== diff -u -r68454 -r68455 --- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator.cls.xml (.../OptimalisatieBestandenGenerator.cls.xml) (revision 68454) +++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/Opdeelzaag/OptimalisatieBestandenGenerator.cls.xml (.../OptimalisatieBestandenGenerator.cls.xml) (revision 68455) @@ -232,8 +232,17 @@ Set OptimalisatieDataLijstNormaal = ##class(APPS.Halux.Machine.OpdeelZaag.dto.OptimalisatieDataLijst).%New() Set OptimalisatieDataLijstSpecialWorkshop = ##class(APPS.Halux.Machine.OpdeelZaag.dto.OptimalisatieDataLijst).%New() + Set OptimalisatieDataLijstIterator = ##class(TECH.ListIterator).%New(..OptimalisatieDataLijst) + While (OptimalisatieDataLijstIterator.HasNext()) { + #dim OptimalisatieData As APPS.Halux.Machine.OpdeelZaag.dto.OptimalisatieData = OptimalisatieDataLijstIterator.Next() + + If (..IsOptimalisatieDataVoorSpecialWorkshop(OptimalisatieData)) { + Do OptimalisatieDataLijstSpecialWorkshop.Insert(OptimalisatieData) + } Else { + Do OptimalisatieDataLijstNormaal.Insert(OptimalisatieData) + } + } - Quit:VoorSpecialWorkshop OptimalisatieDataLijstSpecialWorkshop Quit OptimalisatieDataLijstNormaal ]]>