IMetabaseUpdate.PriorDataLinkDependentsClear

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

Sub UserProc;
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    Root: IMetabaseUpdateFolderNode;
    TableObj: IMetabaseUpdateDataObjectNode;
    TableAsKeyObj: IMetabaseUpdateDataObjectNode;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Создадим обновление
    Update := MB.CreateUpdate;
    // Получим объект, содержащий структуру обновления
    Root := Update.RootFolder;
    // Добавим в обновление таблицу с идентификатором «TABLE_A»
    TableObj := Root.Add(MetabaseUpdateNodeType.DataObject) As IMetabaseUpdateDataObjectNode;
    TableObj.Object := MB.ItemById("TABLE_A");
    // Будем обновлять данные и метаданные таблицы
    TableObj.Method := MetabaseUpdateMethod.All;
    // Включим пересоздание объекта при обновлении
    TableObj.AlterType := MetabaseObjectAlterType.Recreate;
    // Добавим в обновление таблицу с идентификатором «TABLE_B»
    TableAsKeyObj := Root.Add(MetabaseUpdateNodeType.DataObject) As IMetabaseUpdateDataObjectNode;
    TableAsKeyObj.Object := MB.ItemById("TABLE_B");
    // Будем обновлять данные и метаданные таблицы
    TableAsKeyObj.Method := MetabaseUpdateMethod.All;
    // Отсортируем добавленные объекты
    Root.Sort(UpdateSortMode.ByDepends);
    // Включим пересоздание объекта при обновлении
    TableAsKeyObj.AlterType := MetabaseObjectAlterType.Recreate;
    // Установим флажок «Пересоздавать таблицы»
    Update.AlterType(MetabaseObjectClass.KE_CLASS_TABLE) := MetabaseObjectAlterType.Recreate;
    // Применим предварительную очистку объектов, зависимых по содержимому
    Update.PriorDataLinkDependentsClear := True;
    // Сохраним обновление в файл
    Update.SaveToFileNF("C:\Update.pefx");
End Sub UserProc;