APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoLijstVerwerkerBasis DOM.AKP.ToeleveringAPI 1 DOM.VKP.OrderAPI 1 DOM.PARTIJ.PartijAPI 1 ToeleveringApi:DOM.AKP.ToeleveringAPI="",OrderApi:DOM.VKP.OrderAPI="",PartijApi:DOM.PARTIJ.PartijAPI="" 1 1 %Status 1 Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst APPS.Halux.PPS.dto.UitvoeringResultaat UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData" 0) { #dim BatchId As %String = UitvoeringInfoLijst.GetAt(1).BatchID #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchId) #dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator() If (..IsActiefVoorMES(Batch.GeefLijn())) { While ToeleveringenIterator.HasNext() { #dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringenIterator.Next().GeefID()) #dim BatchData As APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData = ..GeefDataVoorUitvoeringInfo(Batch, Toelevering) Do BatchDataLijst.Insert(BatchData) } } } Quit BatchDataLijst ]]> ProductieLijn:%String 1 %Boolean 0 && ##class(TECH.ListUtils).Contains(MESProductieLijnenActiefLijst, ProductieLijn)) { Set IsActief = $$$True } ]]> Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering 1 APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData BatchDataLijst:%ListOfObjects 1 %String BatchId:%String,Index:%Integer,Extensie:TECH.String 1 TECH.String