IMetabaseObjectDescriptor.Params

Fore Syntax

Fore.NET Syntax

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

Description

The Params property returns a collection of the parameters for the repository object.

Comments

The Params property is not used to work with MDM dictionaries. To work with MDM dictionaries, use the IRdsParams interface.

Fore Example

Executing the example requires a repository object with the CUBE identifier.

Add a link to the Metabase system assembly.

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("Number of object parameters: " + ObjParams.Count.ToString);
    Debug.WriteLine("Object parameters: ");
    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;

After executing the example the console window displays:

Number of repository object parameters.
Names of repository object parameters.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

Imports Prognoz.Platform.Interop.Metabase;
…
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("Number of object parameters: " + ObjParams.Count.ToString());
    System.Diagnostics.Debug.WriteLine("Object parameters: ");
    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;