persistent 1 APPS.Halux.common.Batch,TECH.Persistent Lijn Status index GeplandOp bitmap Categorie Toeleveringen(ELEMENTS) APPS.Halux.common.enu.ProductieLijn %TimeStamp APPS.Halux.common.enu.ProductieGroep %Integer array 1 %Integer list 1 %TimeStamp 1 Set {*}=##class(APPS.Halux.common.impl.BatchImpl).%OpenId({ID}).GeefVroegsteDueOut() 1 %Boolean 1 1 Set {*}=##class(APPS.Halux.common.impl.BatchImpl).%OpenId({ID}).IsActief() 1 %Integer array 1 1 %Integer array 1 1 APPS.Halux.common.enu.BatchStatus %Date APPS.Halux.common.enu.Categorie %Integer %Integer 1 APPS.Halux.Planning.enu.ToeleveringSorteerType Lijn:APPS.Halux.common.enu.ProductieLijn="" 1 1 %Status %String %Integer Volgnummer:%Integer GeplandOp:%Date %Date Categorie:APPS.Halux.common.enu.Categorie APPS.Halux.common.enu.Categorie %TimeStamp ProductieLijn:APPS.Halux.common.enu.ProductieLijn TECH.Iterator ELEMENTTYPE="DOM.AKP.Toelevering" %ListOfDataTypes APPS.Halux.common.enu.ProductieGroep APPS.Halux.common.enu.ProductieLijn Toelevering:DOM.AKP.Toelevering %ListOfDataTypes Toelevering:DOM.AKP.Toelevering 0) { Set MaakBatchError = ##class(APPS.Halux.common.impl.BatchError).%New() Set MaakBatchError.ToeleveringNummer = Toelevering.GeefID() Set MaakBatchError.Boodschappen = Bezwaren Set MaakBatchErrorLijst = ##class(%ListOfObjects).%New() Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.Halux.common.impl.ToeleveringException).%New(MaakBatchError)) } Do ..ToeleveringenIndex.SetAt(1,Toelevering.GeefID()) Do ..Toeleveringen.Insert(Toelevering.GeefID()) If ('..NieuwVerwijderdeToeleveringen.IsDefined(Toelevering.GeefID())) { Do ..NieuwToegevoegdeToeleveringen.SetAt(1,Toelevering.GeefID()) } Else { Do ..NieuwVerwijderdeToeleveringen.RemoveAt(Toelevering.GeefID()) } Set ..ProductieGroep = ##class(APPS.Halux.Planning.impl.BatchService.Utils).%New().GeefProductieGroepen(Toelevering).GetAt(1) Do ..ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Manueel()) Try { Do ##class(APPS.Halux.AAP.DnaCodeService).%New().DnaCodeBijwerkenMetBatchGegevens($this) } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() Do ##class(vhLib.Logger).%New().Error("DnaCode","DnaCodes konden niet worden bijgewerkt vanuit batch"_$C(13,10)_Exception.GeefOmschrijving()) } If (..GeefGeplandOp() = "") Do ..ZetGeplandOpVroegsteGeplandVanToelevering() Do ..SorteerToeleveringenAutomatischIndienNodig() ]]> 1 %TimeStamp 1 %TimeStamp %Boolean Toelevering:DOM.AKP.Toelevering %Boolean ToeleveringID:%String %Boolean ..Toeleveringen.Count())) { If (..Toeleveringen.GetAt(i) = ToeleveringID) { Do ..Toeleveringen.RemoveAt(i) Set Gevonden = 1 } Set i = i + 1 } If (..Toeleveringen.Count() = 0) { Do ..CleanUp() } Set Removed = 1 Do ..ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Manueel()) Quit Removed ]]> 1 Toelevering:DOM.AKP.Toelevering 1 %Boolean Order:DOM.VKP.Order 1 %String %Boolean 0 ) ]]> APPS.Halux.common.enu.BatchStatus Status:APPS.Halux.common.enu.BatchStatus do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchRemovedEvent({ID}) DELETE 1 AFTER insert:%Boolean 1 %Status 1 insert:%Boolean 1 %Status 1 %Integer %Integer APPS.Halux.Planning.enu.ToeleveringSorteerType SorteerType:APPS.Halux.Planning.enu.ToeleveringSorteerType 1 Toelevering:DOM.AKP.Toelevering %Boolean ToeleveringID:%String %Boolean ToeleveringID:%String,VolgNr:%Integer Toeleveringen:%ListOfObjects(ELEMENTTYPE="DOM.AKP.Toelevering") Status:APPS.Halux.common.enu.BatchStatus oid:%ObjectIdentity %Status %Boolean Klanten die wegwerppalletten willen worden apart in batches gestoken If (ToeleveringIterator.HasNext()) { #dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next() #dim Klant As DOM.VKP.Klant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(Toelevering.GeefKlantID()) #dim KlantOrderInstellingen As DOM.VKP.KlantOrderInstellingen = Klant.GeefKlantOrderInstellingen() If (KlantOrderInstellingen.MoetOpWegwerppallet()) { Set IsWegwerppallet = $$$True } } Quit IsWegwerppallet ]]> %Library.CacheStorage ^APPS.Halux.common.BatchD BatchImplDefaultData ^APPS.Halux.common.BatchD ^APPS.Halux.common.BatchI ^APPS.Halux.common.BatchS %%CLASSNAME "BatchImpl" AanmaakTijdstip Lijn ProductieGroep Toeleveringen Status GeplandOp Categorie Volgnummer AantalProductenBijStart ToeleveringSorteerType ToeleveringenIndex subnode "ToeleveringenIndex"