TECH.RegisteredObject APPS.Halux.PPS.Activiteit.impl.WerklijstItemStatusUpdater 1 APPS.Halux.PPS.Activiteit.impl.ActiviteitWerklijstItemRepository 1 WerklijstItemStatusUpdater:APPS.Halux.PPS.Activiteit.impl.WerklijstItemStatusUpdater,WerklijstItemRepository:APPS.Halux.PPS.Activiteit.impl.ActiviteitWerklijstItemRepository 1 1 %Status 1 Activiteit:APPS.Halux.PPS.Activiteit.Activiteit,WerklijstItemIDs:%ListOfDataTypes,VerwerkerParameter:%CacheString="" MatLijst() Deze methode stelt ook de "Picking: onderdelen" lijst van onderandere TAX op]]> UitvoeringInfoLijstPerInformatieID:%ArrayOfObjects,Activiteit:APPS.Halux.PPS.Activiteit.Activiteit,VerwerkerParameter:%CacheString="" 1 APPS.Halux.PPS.dto.UitvoeringResultaat 0 && ObjectIsMat) { Set SamengesteldeLijstIterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst) #dim LijstVanToeleveringIDs As %ListOfDataTypes = ..GeefLijstVanToeleveringNummersVanMattenlijst(SamengesteldeLijstIterator) Do SamengesteldeLijstIterator.Reset() Set SamengesteldeLijstPerToelevering = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New() Set ToeleveringIDIterator = ##class(TECH.ListIterator).%New(LijstVanToeleveringIDs) While ToeleveringIDIterator.HasNext() { #dim ToeleveringID As %Integer = ToeleveringIDIterator.Next() #dim TotaalAantalMattenInToelevering As %Integer = 0 Set SamengesteldeLijstPerToelevering = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New() While SamengesteldeLijstIterator.HasNext() { Set Mat = SamengesteldeLijstIterator.Next() If (Mat.ToeleveringID = ToeleveringID) { Set Mat.TotaalAantalMattenInToelevering = "" Do SamengesteldeLijstPerToelevering.Insert(Mat) Set TotaalAantalMattenInToelevering = TotaalAantalMattenInToelevering + Mat.Aantal } } Set Mat = SamengesteldeLijstPerToelevering.GetAt(SamengesteldeLijstPerToelevering.Count()) Set Mat.TotaalAantalMattenInToelevering = TotaalAantalMattenInToelevering Set UitvoeringResultaat = Verwerker.VerwerkUitvoeringInfoLijst(SamengesteldeLijstPerToelevering,ActiviteitParameters) Do SamengesteldeLijstIterator.Reset() } Do UitvoeringLijstIterator.Reset() #dim i = 1 While UitvoeringLijstIterator.HasNext() { #dim TeCorrigerenMat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = UitvoeringLijstIterator.Next() Set TeCorrigerenMat.Aantal = LijstAantallen.GetAt(i) Do TeCorrigerenMat.Save() Set i = i+1 } } else { Set UitvoeringResultaat = Verwerker.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst,ActiviteitParameters) } } } quit UitvoeringResultaat ]]> UitvoeringLijstIterator:TECH.ListIterator 1 SamengesteldeLijstIterator:TECH.ListIterator 1 %ListOfDataTypes UitvoeringInfoIterator:TECH.ListIterator 1 VorigeUI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo,UI:BL.PPS.TBX.DocSynchroStangInkortLijst.dto.SynchroStangInkortenUitvoeringInfo 1 %Boolean Object:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo 1 %Boolean WerklijstItemIDs:%ListOfDataTypes %ArrayOfObjects ActiviteitWerklijstItem:APPS.Halux.PPS.Activiteit.dto.ActiviteitWerklijstItem 1 UitvoeringInfoLijstArray:%ArrayOfObjects,InformatieID:%String,UitvoeringInfo:APPS.Halux.PPS.dto.UitvoeringInfo 1 Batch:APPS.Halux.common.Batch 1 %Boolean Batch:APPS.Halux.common.Batch 1 %Boolean