1 APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoLijstVerwerkerBasis DOM.AKP.ToeleveringAPI 1 APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.BatchNaarObjectiveDataGenerator 1 APPS.Halux.PPS.MES.MESService 1 APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator 1 ToeleveringApi:DOM.AKP.ToeleveringAPI="",BatchNaarObjectiveDataGenerator:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.BatchNaarObjectiveDataGenerator="" 1 1 %Status 1 1 1 APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.BatchNaarObjectiveDataGenerator Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst APPS.Halux.PPS.dto.UitvoeringResultaat UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.Document.impl.common.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 UitvoeringInfoLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) { Set BatchDataLijst = ..GeefBatchDataLijstVoorNietVhoss(Batch, UitvoeringInfoLijstIterator) } } Quit BatchDataLijst ]]> Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator 1 Toelevering:DOM.AKP.Toelevering,UitvoeringInfoLijstIterator:TECH.Iterator 1 BatchDataLijst:%ListOfObjects 1 BatchId:%String,Index:%Integer,Extensie:TECH.String 1 TECH.String