1 TECH.RegisteredObject,APPS.Halux.common.BatchService vhLib.Logger 1 Logger:vhLib.Logger="" 1 1 %Status 1 BatchID:%Integer %Boolean BatchID:%Integer APPS.Halux.common.Batch BatchID:%Integer APPS.Halux.common.enu.ProductieGroep GeplandOp:%Date,Categorie:APPS.Halux.common.enu.Categorie APPS.Halux.common.Batch TECH.Iterator ELEMENTTYPE="APPS.Halux.common.Batch" Datum:%Date TECH.Iterator BatchID:%String %Status Geeft de batch waar een toelevering in zit. Indien niet in een batch dan geeft het leeg terug Toelevering:DOM.AKP.Toelevering APPS.Halux.common.Batch ToeleveringID:%String APPS.Halux.common.Batch ToeleveringID:%String %String TeVerwijderenToeleveringenInBatch:%ArrayOfDataTypes AantalDagen:%Integer=30 ? AND IsActief = 0") set ResultSet.RuntimeMode = ##class(TECH.enu.ResultSetRuntimeMode).Logical() Do ResultSet.Execute(AantalDagen) While (ResultSet.Next()) { Do ..Logger.Info("Verwijderen batch", ResultSet.Data("ID")) Do ##class(APPS.Halux.common.impl.BatchImpl).%DeleteId(ResultSet.Data("ID")) } ]]> Datum:%Date TECH.Iterator ELEMENTTYPE="APPS.Halux.common.Batch"