Object.History

Назначение

Вызов стандартного окна истории изменений объекта.

Параметры использования

Отсутствуют

Особенности применения

При выполнении команды для объектов будет выведено окно изменения объекта. Если объект добавлен в систему управления версиями, то будет выведено окно, содержащее историю публикаций объекта.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием "Button1" и модуля с идентификатором "UserFunction".

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        Mb: IMetabase;
        ObjDes: IMetabaseObjectDescriptor;
        Target: IUiCommandTarget;
    Begin
        MB := MetabaseClass.Active;
        ObjDes := MB.ItemById("UserFunction");
        Target := WinApplication.Instance.GetObjectTarget(ObjDes);
        Target.Execute("Object.History", Null);
    End Sub Button1OnClick;

При нажатии на кнопку будет выведено стандартное окно изменений модуля. Если модуль добавлен в систему управления версиями, то будет выведено окно, содержащее историю публикаций модуля.

Пример Fore.NET

Для выполнения примера предполагается наличие .NET-формы, расположенной на ней кнопки с наименованием "Button1" и модуля с идентификатором "UserFunction".

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Fore;
Imports Prognoz.Platform.Interop.Ui;

    Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
    Var
        Mb: IMetabase;
        ObjDes: IMetabaseObjectDescriptor;
        WinApp: WinApplicationClassClass = New WinApplicationClassClass();
        Svc: IForeServices;
        RunContext: ForeRuntimeContext;
        Target: IUiCommandTarget;
    Begin
        MB := Self.Metabase;
        ObjDes := MB.ItemById["UserFunction"];
        Svc := MB As IForeServices;
        RunContext := Svc.GetRuntime().Context;
        Target := WinApp.Instance[RunContext].GetObjectTarget(ObjDes);
        Target.Execute("Object.History", Null, RunContext);
    End Sub;

См. также:

IUiCommandTarget.Execute