1 vhLib.Macro 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 TECH.Mail.MailAPI 1 APPS.Halux.Planning.Pitching.impl.BatchPitchExportedRepository 1 %Integer 0 1 %String 1 %Integer 1 1 %Integer 0 1 ToeleveringApi:DOM.AKP.ToeleveringAPI="",BatchNaarObjectiveDataGenerator:APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.BatchNaarObjectiveDataGenerator="",MailApi:TECH.Mail.MailAPI="" 1 1 %Status 1 1 1 APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.BatchNaarObjectiveDataGenerator Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters,ActieParameters:%ListOfDataTypes="",IsTriggerResetBatch:%Boolean=0 APPS.Halux.PPS.dto.UitvoeringResultaat MaximumAantalLadesProductieOrder) { Do ..ZendMailMaxAantalLadesOverschreden(UitvoeringInfo.BatchID) } #dim IsBatchAlGeexporteerd As %Boolean = $$$False If $IsObject(UitvoeringInfo) { Set IsBatchAlGeexporteerd = ..BatchPitchExportedRepository.IsBatchExported(UitvoeringInfo.BatchID) } #dim FilterToeleveringId As %String = "" If ($$$Not(IsTriggerResetBatch) && ((IsBatchAlGeexporteerd) && $$$Not(..BevatBatchVhoss(Lijst)))) { If ($$$Not(ActieParameters = "")) { Set ActieParameterIterator = ##class(TECH.ListIterator).%New(ActieParameters) If (ActieParameterIterator.HasNext()) { Set FilterToeleveringId = ActieParameterIterator.Next() } } Else { Set UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout() } } If $$$Not(UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Fout()) { #dim SuffixId As %String = "" #dim BatchData As %ListOfObjects = ..GenereerBatchDataVoorUitvoeringInfoLijst(Lijst, SuffixId, 1, FilterToeleveringId) Do ..ExporteerDataNaarXmlDocument(BatchData) Set UitvoeringStatus = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes() } Quit UitvoeringStatus ]]> UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,SuffixId:%String,UitvoeringLijstNummer:%Integer,FilterToeleveringId:%String="" %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, UitvoeringInfoLijst.Size, SuffixId, UitvoeringLijstNummer) } Else { Set BatchDataLijst = ..GeefStandaardBatchDataLijst(Batch, UitvoeringInfoLijstIterator, SuffixId, FilterToeleveringId) } } } Quit BatchDataLijst ]]> Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,AantalLades:%Integer,SuffixId:%String,UitvoeringLijstNummer:%Integer 1 UitvoeringInfoLijstIterator:TECH.Iterator TECH.Iterator Batch:APPS.Halux.common.Batch,UitvoeringInfoLijstIterator:TECH.Iterator,SuffixId:%String,FilterToeleveringId:%String="" 1 0) { Set ..IndexBestanden = ..IndexBestanden + 1 #dim BatchData As APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveData = ..BatchNaarObjectiveDataGenerator.GenereerDataVoorToelevering(Batch, Toelevering, ..IndexBestanden, AantalLadesInToelevering, SuffixId) Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..BatchNaarObjectiveDataGenerator.GenereerAlgemeneInfoOptiesVoorToelevering(Toelevering, Batch.GeefCategorie())) Do ##class(TECH.ListUtils).AppendList(BatchData.Opties, ..GeefOptiesVoorToelevering(Toelevering, UitvoeringInfoLijstIterator)) Do BatchDataLijst.Insert(BatchData) } } } Quit BatchDataLijst ]]> ToeleveringId:%String,UitvoeringInfoLijstIterator:TECH.Iterator 1 %Integer Toelevering:DOM.AKP.Toelevering,UitvoeringInfoLijstIterator:TECH.Iterator 1 BatchDataLijst:%ListOfObjects 1 BatchId:%String,BatchIndex:%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) } Quit BevatBatchVhoss ]]> 1 ProductId:%String 1 %Boolean BatchID:%String,MaximumAantalLadesProductieOrder:%Integer 1