IPrxDataIsland.Revert

Синтаксис Fore

Revert;

Синтаксис Fore.NET

Revert();

Описание

Метод Revert отменяет изменения, внесенные в область данных.

Комментарии

Отмена изменений возможна только для области данных, которую начали редактировать через метод IPrxDataIsland.Edit.

Пример Fore

Для выполнения примера в репозитории предполагается наличие регламентного отчета, содержащего область данных, с идентификатором «REPORT_IPRXDATAISLAND».

Добавьте ссылки на системные сборки: Metabase, Report.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    DI: IPrxDataIsland;
    Report: IPrxReport;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим регламентный отчет
    MObj := MB.ItemById("REPORT_IPRXDATAISLAND").Edit;
    Report := MObj As IPrxReport;
    DI := Report.DataIslands.Item(0).Edit;
    // Изменяем имя
    DI.Name := "DI";
    // Выводим новое имя в окно консоли
    Debug.WriteLine(DI.Name);
    // Отменяем изменение имени
    DI.Revert;
    // Выводим прежнее имя в окно консоли и сохраняем
    Debug.WriteLine(DI.Name);
    DI.Save;
    // Сохраняем отчет
    MObj.Save;
End Sub UserProc;

После выполнения примера в окне консоли будет выведено новое имя области данных, затем имя после отмены переименования.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Report;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    DI: IPrxDataIsland;
    Report: IPrxReport;
Begin
    // Получим репозиторий
    MB := Params.Metabase;
    // Получим регламентный отчет
    MObj := MB.ItemById["REPORT_IPRXDATAISLAND"].Edit();
    Report := MObj As IPrxReport;
    DI := Report.DataIslands.Item[0].Edit();
    // Изменяем имя
    DI.Name := "DI";
    // Выводим новое имя в окно консоли
    System.Diagnostics.Debug.WriteLine(DI.Name);
    // Отменяем изменение имени
    DI.Revert();
    // Выводим прежнее имя в окно консоли и сохраняем
    System.Diagnostics.Debug.WriteLine(DI.Name);
    DI.Save();
    // Сохраняем отчет  
    MObj.Save();
End Sub;

См. также:

IPrxDataIsland