Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml =================================================================== diff -u -r71364 -r71368 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml (.../BatchNaarObjective.cls.xml) (revision 71364) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml (.../BatchNaarObjective.cls.xml) (revision 71368) @@ -52,10 +52,9 @@ #dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(BatchId) #dim ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator() #dim UitvoeringInfoLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) - #dim SequentieNummerBinnenToelevering As %Integer = 0 If (..IsActiefVoorMES(Batch.GeefLijn())) { - While ToeleveringenIterator.HasNext() { + While ToeleveringenIterator.HasNext() { #dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID() #dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId) #dim BatchData As APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerBatchDataVoorToelevering(Batch, Toelevering) @@ -65,11 +64,9 @@ #dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.DetailBladUitvoeringInfo = UitvoeringInfoLijstIterator.Next() If (UitvoeringInfo.ToeleveringID = ToeleveringId) { - Set SequentieNummerBinnenToelevering = SequentieNummerBinnenToelevering + 1 - #dim OptiesVoorAlleLades As %ListOfObjects = ..BatchNaarObjectiveDataGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo, SequentieNummerBinnenToelevering) + #dim OptiesVoorAlleLades As %ListOfObjects = ..BatchNaarObjectiveDataGenerator.GenereerOptiesVoorLade(Toelevering, UitvoeringInfo) + Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, OptiesVoorAlleLades) - } Else { - Set SequentieNummerBinnenToelevering = 0 } }