APPS.Halux.Planning.BatchStarter,TECH.RegisteredObject APPS.Halux.Planning.impl.BatchSequentieVerwijderaar 1 APPS.Halux.Planning.BatchBewaarder 1 APPS.Halux.common.impl.SequentieService 1 vhLib.Logger 1 APPS.Halux.AAP.DnaCodeService 1 APPS.Halux.PPS.MatService 1 APPS.Halux.PPS.DocumentGeneratorService 1 APPS.Halux.common.impl.BatchService 1 APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter 1 APPS.Halux.PPS.MES.MESService 1 BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar,Logger:vhLib.Logger,DnaCodeService:APPS.Halux.AAP.DnaCodeService,MatService:APPS.Halux.PPS.MatService,DocumentGeneratorService:APPS.Halux.PPS.DocumentGeneratorService,BatchService:APPS.Halux.common.impl.BatchService="",BatchPitchDataExporter:APPS.Halux.Planning.Pitching.impl.BatchPitchDataExporter="",MESService:APPS.Halux.PPS.MES.MESService="" 1 1 %Status 1 1 BatchID:TECH.String Batch:APPS.Halux.common.Batch,IsTriggerResetBatch:%Boolean=0 1)) { Do ..UpdateSalesLineStatusNaarKlaargezet(Batch) } } Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Gestart()) Do ..BatchBewaarder.BewaarBatch(Batch) Do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchGeslotenEvent(Batch.GeefID()) } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).StartenGefaald()) Do ..BatchBewaarder.BewaarBatch(Batch) Do ..BatchSequentieVerwijderaar.VerwijderBatchSequentie(Batch) Do ..DnaCodeService.VerwijderDnaCodesVoorBatch(Batch) Do ..MatService.VerwijderMattenInfo(Batch.GeefID()) Do ..DocumentGeneratorService.VerwijderDocumenten(Batch.GeefID()) Do ..Logger.Error("StartBatch", "Starten van batch ("_Batch.GeefID()_") is mislukt."_$$$CRLF_$$$CRLF_"Exception:"_$$$CRLF_Exception.ToString()) Do ##class(TECH.ExceptionHandler).Throw(Exception) } ]]> Batch:APPS.Halux.common.Batch 1 %Boolean Batch:APPS.Halux.common.Batch 1 %Boolean 1) { Do ..Logger.ErrorMail("StartBatch","Batch "_Batch.GeefID()_" kan niet starten want toelevering " _ Toelevering.GeefID() _ "zit in meerdere batchen, dit zorgt voor fouten. Zie query SELECT ID as BatchID FROM APPS_Halux_common_impl.BatchImpl WHERE FOR SOME %ELEMENT(Toeleveringen) (%VALUE = )") Set Result = $$$False } } Quit Result ]]> MaatWerkBatch:APPS.Halux.Planning.dto.MaatwerkBatch APPS.Halux.Planning.dto.BatchOverzicht BatchID:%String,IsTriggerResetBatch:%Boolean 1 Batch:APPS.Halux.common.Batch 1 1) && $$$Not(..IsTestRunTimeContext())) { #dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator() While ToeleveringIterator.HasNext() { #dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next() #dim ToeleveringLijnIterator As DOM.AKP.impl.DataM.DataMToeleveringLijnIterator = Toelevering.GeefToeleveringLijnIterator() While (ToeleveringLijnIterator.HasNext()) { #dim ProductToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = ToeleveringLijnIterator.Next() Set ProductToeleveringLijnKlaargezetVoorProductieEventData = ##class(BL.Legacy.HaluxProductieOpvolging.ProductToeleveringLijnKlaargezetVoorProductieEventData).%New(Toelevering.GeefID()_";"_ProductToeleveringLijn.GeefID(), "Klaargezet") Set ProductToeleveringLijnKlaargezetVoorProductieEvent = ##class(BL.Legacy.HaluxProductieOpvolging.ProductToeleveringLijnKlaargezetVoorProductieEvent).%New(ProductToeleveringLijnKlaargezetVoorProductieEventData) Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(ProductToeleveringLijnKlaargezetVoorProductieEvent) } } } ]]> 1 %Boolean