ResetResults;
ResetResults();
Метод ResetResults очищает историю выполнения задачи и переводит ее в состояние «Готова».
Для получения истории выполнения задачи используйте метод IScheduledTask.GetResults.
Для выполнения примера в репозитории предполагается наличие контейнера запланированных задач с идентификатором SCHEDULEDTASKSCONTAINER.
Добавьте ссылки на системные сборки: Fore, Metabase.
Sub UserProc;
Var
MB: IMetabase;
Cont: IScheduledTasksContainer;
Tasks: IMetabaseObjectDescriptors;
Task: IScheduledTask;
Results: IScheduledTaskResults;
Result: IScheduledTaskResult;
i: Integer;
Begin
// Получаем текущий репозиторий
MB := MetabaseClass.Active;
// Получаем контейнер запланированных задач
Cont := MB.ItemById("SCHEDULEDTASKSCONTAINER").Bind As IScheduledTasksContainer;
// Получаем первую задачу
Tasks := Cont.Tasks;
Task := Tasks.Item(0).Edit As IScheduledTask;
// Очищаем историю выполнения задачи
Task.ResetResults;
// Сохраняем изменения
(Task As IMetabaseObject).Save;
End Sub UserProc;
В результате выполнения примера история выполнения первой задачи будет сброшена, задача будет переведена в состояние «Готова».
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.KeFore;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Cont: IScheduledTasksContainer;
Tasks: IMetabaseObjectDescriptors;
Task: IScheduledTask;
Results: IScheduledTaskResults;
Result: IScheduledTaskResult;
i: Integer;
Begin
// Получаем текущий репозиторий
MB := Params.Metabase;
// Получаем контейнер запланированных задач
Cont := MB.ItemById["SCHEDULEDTASKSCONTAINER"].Bind() As IScheduledTasksContainer;
// Получаем первую задачу
Tasks := Cont.Tasks;
Task := Tasks.Item[0].Edit() As IScheduledTask;
// Очищаем историю выполнения задачи
Task.ResetResults();
// Сохраняем изменения
(Task As IMetabaseObject).Save();
End Sub;
См. также: