IMetabaseObjectDescriptor.Params

Params: IMetabaseObjectParams;

Params: Prognoz.Platform.Interop.Metabase.IMetabaseObjectParams;

Sub UserProc;
Var
    MB: IMetabase;
    Desc: IMetabaseObjectDescriptor;
    ObjParams: IMetabaseObjectParams;
    Param: IMetabaseObjectParam;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    Desc := Mb.ItemById("CUBE");
    ObjParams := Desc.Params;
    Debug.WriteLine("Количество параметров объекта: " + ObjParams.Count.ToString);
    Debug.WriteLine("Параметры объекта: ");
    Debug.Indent;
    For i:=0 To ObjParams.Count-1 Do
        Param := ObjParams.Item(i);
        Debug.WriteLine((i+1).ToString + ". " + Param.Name);
    End For;
    Debug.Unindent;
End Sub UserProc;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Desc: IMetabaseObjectDescriptor;
    ObjParams: IMetabaseObjectParams;
    Param: IMetabaseObjectParam;
    i: integer;
Begin
    MB := Params.Metabase;
    Desc := Mb.ItemById["CUBE"];
    ObjParams := Desc.Params;
    System.Diagnostics.Debug.WriteLine("Количество параметров объекта: " + ObjParams.Count.ToString());
    System.Diagnostics.Debug.WriteLine("Параметры объекта: ");
    System.Diagnostics.Debug.Indent();
    For i:=0 To ObjParams.Count-1 Do
        Param := ObjParams.Item[i];
        System.Diagnostics.Debug.WriteLine((i+1).ToString() + ". " + Param.Name);
    End For;
    System.Diagnostics.Debug.Unindent();
End Sub;