IMetabaseObjectDescriptor.Children

Синтаксис Fore

Children: IMetabaseObjectDescriptors;

Синтаксис Fore.NET

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

Описание

Свойство Children возвращает коллекцию описаний дочерних объектов.

Комментарии

Свойство возвращает пустую коллекцию, если объект не имеет дочерних объектов. Данное свойство, в отличие от метода IMetabaseObjectDescriptor.FetchChildren, для ярлыка не возвращает коллекцию описаний исходного объекта.

Пример Fore

Для выполнения примера предполагается наличие репозитория НСИ с идентификатором «NSI».

Добавьте ссылку на системную сборку «Metabase».

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("Дочерние объекты:");
    For i:=0 To MDescr.Count-1 Do
         MDesc:=MDescr.Item(i);
         Debug.WriteLine("Наименование:" + MDesc.Name + "; Идентификатор:" + MDesc.Id);     
    End For;
    End If;
End Sub UserProg;

После выполнения примера, если в указанном репозитории НСИ имеются дочерние объекты, то их наименования и идентификаторы будут выведены в консоль среды разработки.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

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("Дочерние объекты:");
        For i:=0 To MDescr.Count-1 Do
            MDesc:=MDescr.Item[i];
            System.Diagnostics.Debug.WriteLine("Наименование:" + MDesc.Name + "; Идентификатор:" + MDesc.Id);       
        End For
    End If;
End Sub;

См. также:

IMetabaseObjectDescriptor | IMetabaseObjectDescriptor.FetchChildren