CreateCustomClass

Sub UserProc;
Var
    Target: IUiCommandTarget;
    Context: IUiCommandExecutionContext;
    Result: Integer;
Begin
    Target := WinApplication.Instance.GetPluginTarget("Std");
    Context := Target.CreateExecutionContext;
    Context.Data := MetabaseClass.Active;
    Result := Target.Execute("CreateCustomClass", Context);
    Debug.WriteLine(Result);
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Ui;
Imports Prognoz.Platform.Interop.Fore;
…
Public Shared Sub Main(Params: StartParams);
Var
    Target: IUiCommandTarget;
    Context: IUiCommandExecutionContext;
    Result: Object;
    Svc: IForeServices;
    RunContext: ForeRuntimeContext;
    WinApp: WinApplicationClassClass = New WinApplicationClassClass();
Begin
    Svc := Params.Metabase As IForeServices;
    RunContext := Svc.GetRuntime().Context;
    Target := WinApp.Instance[RunContext].GetPluginTarget("Std");
    Context := Target.CreateExecutionContext();
    Context.Data := Params.Metabase;
    Result := Target.Execute("CreateCustomClass", Context, RunContext);
    System.Diagnostics.Debug.WriteLine(Result);
End Sub;