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 vhLib.Logger 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)) { If (..BevatBatchVhoss(UitvoeringInfoLijst)) { Set BatchDataLijst = ..GeefVhossBatchDataLijst(Batch, UitvoeringInfoLijstIterator) } Else { Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator) } } } Quit BatchDataLijst ]]> Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator 1 Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator 1 AantalLades:%Integer,BatchId:%String,UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,ToeleveringId:%String="" 1 %Boolean AantalLadesToegestaan) { #dim ErrorBoodschap As %String = "Batch '" _ BatchId _ "'" Set:($$$Not(..BevatBatchVhoss(UitvoeringInfoLijst))) ErrorBoodschap = ErrorBoodschap _ " voor toelevering '" _ ToeleveringId _ "' " Set ErrorBoodschap = ErrorBoodschap _ "kan niet doorgestuurd worden naar Objective, want deze bevat '" _ AantalLades _ "' lades. Dit is meer dan het toegelaten maximum aantal lades ('" _ AantalLadesToegestaan _ "')." Set Exception = ##class(TECH.Exceptions.IllegalArgumentException).%New(ErrorBoodschap) Do ..Logger.Error("VerifieerIsAantalLadesToegestaan", Exception.GeefErrorInformatie()) Set IsToegestaan = $$$False } Quit IsToegestaan ]]> Toelevering:DOM.AKP.Toelevering,UitvoeringInfoLijstIterator:TECH.Iterator 1 BatchDataLijst:%ListOfObjects 1 BatchId:%String,Index:%Integer,Extensie:TECH.String 1 TECH.String UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst 1 %Boolean 0) { #dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo = UitvoeringInfoLijst.GetAt(1) #dim ProductId As %String = UitvoeringInfo.ProductID Set BevatBatchVhoss = ..BevatVhossVerpakking(ProductId) } Do ##class(Tools.Wlip).%New(26).String("BevatVhoss: " _ BevatBatchVhoss) Quit BevatBatchVhoss ]]> 1 ProductId:%String 1 %Boolean