End_;
@End();
Метод End возобновляет изменение параметров объекта репозитория.
Данный метод используется после вызова метода IMetabaseObjectParams.BeginUpdate, который блокирует изменение параметров объекта репозитория.
Для выполнения примера в репозитории необходимо наличие экспресс-отчета с идентификатором «EXPRESS».
Добавьте ссылки на системные сборки: Express, Metabase.
Sub UserProc;
Var
MB: IMetabase;
Analyzer: IEaxAnalyzer;
Object: IMetabaseObject;
Upd: IMetabaseObjectParamsUpdate;
Prms: IEaxDataAreaParams;
Name: String;
Begin
// Получим репозиторий
MB := MetabaseClass.Active;
// Получим экспресс-отчет
Analyzer := MB.ItemById("EXPRESS").Edit As IEaxAnalyzer;
Object := Analyzer As IMetabaseObject;
// Добавим параметр в экспресс-отчет
Object.Params.Add;
// Установим запрет на изменение параметров
Upd := Object.Params.BeginUpdate;
// Получим коллекцию параметров экспресс-отчета
Prms := Analyzer.DataArea.Params;
// Получим наименование параметра и выведем его в окно консоли
Name := Prms.Item(0).Name;
Debug.WriteLine("Наименование параметра перед
его сменой - " + Name);
// Изменим наименование параметра
Object.Params.Item(0).Name := "Param";
// Применим изменения и выведем измененное наименование параметра в окно консоли
Upd.End_;
Debug.WriteLine("Наименование параметра после его
смены - " + Name);
End Sub UserProc;
После выполнения примера в окно консоли выведутся наименования параметра перед и после его смены.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Analyzer: IEaxAnalyzer;
Object: IMetabaseObject;
Upd: IMetabaseObjectParamsUpdate;
Prms: IEaxDataAreaParams;
Name: String;
Begin
// Получим репозиторий
MB := Params.Metabase;
// Получим экспресс-отчет
Analyzer := MB.ItemById["EXPRESS"].Edit() As IEaxAnalyzer;
Object := Analyzer As IMetabaseObject;
// Добавим параметр в экспресс-отчет
Object.Params.Add();
// установим запрет на изменение параметров
Upd := Object.Params.BeginUpdate();
// Получим коллекцию параметров экспресс-отчета
Prms := Analyzer.DataArea.Params;
// Получим наименование параметра и выведем его в окно консоли
Name := Prms.Item[0].Name;
System.Diagnostics.Debug.WriteLine("Наименование параметра до смены - " + Name);
// Изменим наименование параметра
Object.Params.Item[0].Name := "Param";
// Применим изменения и выведем измененное наименование параметра в окно консоли
Upd.@End();
System.Diagnostics.Debug.WriteLine("Наименование параметра после смены - " + Name);
End Sub;
См. также: