IMetabaseUpdateObjectNode.IncludeChildrenDependencies

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

Sub UserProc;
Var
    Mb: IMetabase;
    MDesc: IMetabaseObjectDescriptor;
    Upd: IMetabaseUpdate;
    Nd: IMetabaseUpdateObjectNode;
    RootFolder: IMetabaseUpdateFolderNode;
    NdFol: IMetabaseUpdateFolderNode;
Begin
    Mb := MetabaseClass.Active;
    Upd := Mb.CreateUpdate;
    MDesc := Mb.ItemById("STD_CUBE").Edit;
    RootFolder := Upd.RootFolder;
    Nd := RootFolder.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;
    Nd.Object := MDesc;
    Nd.IncludeChildrenDependencies := TriState.OnOption;
    NdFol := (Nd As IMetabaseUpdateFolderNode);
    Debug.WriteLine("Число зависимых объектов, добавленных в обновление для объекта '"
        + MDesc.Name + "': " + NdFol.Count.ToString);
    Upd.SaveToFileNF("C:\Update.pefx");
End Sub UserProc;