IMetaHierarchy.WhereIsEmpty

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    RubrObj: IMetabaseObject;
    CatInst: IRubricatorInstance;
    DictInst: IMetaDictionaryInstance;
    HierarchyInst: IMetaHierarchyInstance;
    Mems: IMetaMembersSet;
Begin
    Mb := MetabaseClass.Active;
    RubrObj := Mb.ItemById("FC_IS_EMPTY").Bind;
    CatInst := RubrObj.Open(Null) As IRubricatorInstance;
    DictInst := CatInst.GetDictionary(RubricatorDictionary.Facts);
    HierarchyInst := DictInst.DefaultHierarchy;
    HierarchyInst.WhereIsEmpty := TriState.OnOption;
    HierarchyInst.Build;
    Mems := HierarchyInst.GetRootMembers;
    ShowMembers(Mems);
End Sub UserProc;

Sub ShowMembers(Mems: IMetaMembersSet);
Var
    Mem: IMetaMember;
    Ml: IMetaMemberLeaf;
Begin
    If Not Mems.Eof Then
        Repeat
            Mem := Mems.Current;
            If Mem.IsLeaf Then
                Ml := Mem As IMetaMemberLeaf;
                Debug.WriteLine("  " + Mem.Name + " IsEmpty = " + Ml.IsEmpty.ToString);
            Else
                Debug.WriteLine(Mem.Name);
                If Not Mem.Children.IsEmpty Then
                    ShowMembers(Mem.Children.GetMembers);
                End If;
            End If;
            Mems.Next;
        Until Mems.Eof;
    End If;
End Sub ShowMembers;