Index: APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml =================================================================== diff -u -r71498 -r71500 --- APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml (.../BatchNaarObjective.cls.xml) (revision 71498) +++ APPS/Halux/PPS/Document/impl/LBX/BatchNaarObjective.cls.xml (.../BatchNaarObjective.cls.xml) (revision 71500) @@ -1,7 +1,7 @@ -APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoLijstVerwerkerBasis,TECH.Mockable +APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoLijstVerwerkerBasis DOM.AKP.ToeleveringAPI @@ -18,6 +18,11 @@ 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 @@ -26,13 +31,26 @@ 1 + +1 +1 +APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.BatchNaarObjectiveDataGenerator + + + +1 +1 +APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGenerator + + Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst APPS.Halux.PPS.dto.UitvoeringResultaat @@ -53,26 +71,25 @@ 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 ToeleveringenIterator As TECH.Iterator = Batch.GeefToeleveringIterator() #dim UitvoeringInfoLijstIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst) #dim IndexToelevering As %Integer = 0 - If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), 1)) { + If (..MESService.IsActiefVoorMes(Batch.GeefLijn(), MesFaseActief)) { While ToeleveringenIterator.HasNext() { #dim ToeleveringId As %String = ToeleveringenIterator.Next().GeefID() #dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering(ToeleveringId) Set IndexToelevering = IndexToelevering + 1 + #dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerBatchDataVoorToelevering(Batch, Toelevering, IndexToelevering) Set BatchData.Opties = ##class(%ListOfObjects).%New() + Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..ToeleveringProductInfoOptiesGenerator.GenereerOptiesVoorLade(Toelevering)) - // LBX ! - Set ToeleveringProductInfoOptiesGenerator = ##class(APPS.Halux.PPS.Document.impl.LBX.BatchNaarObjective.OptieGenerator.ToeleveringProductInfoOptiesGeneratorLbx).%New() - Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ToeleveringProductInfoOptiesGenerator.GenereerOptiesVoorLade(Toelevering)) - While (UitvoeringInfoLijstIterator.HasNext()) { #dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijstIterator.Next() @@ -85,8 +102,13 @@ Do UitvoeringInfoLijstIterator.Reset() Do BatchDataLijst.Insert(BatchData) - } + } } + + /* + - Toelevering 2: Lade 1,2,3 --> Volgnummer 01 + - Toelevering 1: Lade 4,5,6 --> Volgnummer 02 + */ } Quit BatchDataLijst