IMetabaseObjectDescriptor.Children

Fore Syntax

Fore.NET Syntax

Children: Prognoz.Platform.Interop.Metabase.IMetabaseObjectDescriptors;

Description

The Children property returns a collection of descriptions of the child objects.

Comments

The property returns an empty collection if the object has no child objects. This property, unlike the IMetabaseObjectDescriptor.FetchChildren method, does not return a collection of source object descriptions for a shortcut.

Fore Example

Executing the example requires an MDM repository with the NSI identifier.

Add a link to the Metabase system assembly.

Sub UserProg;
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    MDescr: IMetabaseObjectDescriptors;
    i: integer;
Begin
    MB := MetabaseClass.Active;
    MDesc := Mb.ItemById("NSI");
    MDescr := MDesc.Children;
    If MDescr.Count <> 0 Then
    Debug.WriteLine(Child objects:);
    For i:=0 To MDescr.Count-1 Do
         MDesc:=MDescr.Item(i);
         Debug.WriteLine(Name: + MDesc.Name + "; Identifier: + MDesc.Id);
    End For;
    End If;
End Sub UserProg;

After executing this example, if there are child objects in the specified MDM repository, their names and identifiers are displayed in the development environment console.

Fore.NET Example

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

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    MDescr: IMetabaseObjectDescriptors;
    i: integer;
Begin
    MB := Params.Metabase;
    MDesc := Mb.ItemById["NSI"];
    MDescr := MDesc.Children;
    If MDescr.Count <> 0 Then
        System.Diagnostics.Debug.WriteLine(Child objects:);
        For i:=0 To MDescr.Count-1 Do
            MDesc:=MDescr.Item[i];
            System.Diagnostics.Debug.WriteLine(Name: + MDesc.Name + "; Identifier: + MDesc.Id);
        End For
    End If;
End Sub;