Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml =================================================================== diff -u -r71348 -r71350 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml (.../BatchNaarObjective.cls.xml) (revision 71348) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml (.../BatchNaarObjective.cls.xml) (revision 71350) @@ -59,17 +59,35 @@ #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchId) #dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator() - 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) - } + 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