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