IMetabaseObject.CreateUpdateExParams

Синтаксис

CreateUpdateExParams: IMetabaseUpdateObjectExParams;

Описание

Метод CreateUpdateExParams создает параметры обновления объекта.

Пример

Для выполнения необходимо наличие в схеме репозитория справочника НСИ - «Dict_1».

Добавьте ссылки на системные сборки: Metabase, Rds.

Sub UserProc;
Var
    Mb: imetabase;
    MU: IMetabaseUpdate;
    Node: IMetabaseUpdateDataObjectNode;
    Object: IMetabaseObject;
    exParams: IMetabaseUpdateObjectExParams;
Begin
    Mb := MetabaseClass.Active;
    MU := Mb.CreateUpdate;
    Object := Mb.ItemById("Dict_1").Bind;
    Node := MU.RootFolder.Add(MetabaseUpdateNodeType.DataObject) As IMetabaseUpdateDataObjectNode;
    Node.Method := MetabaseUpdateMethod.All;
    exParams := Object.CreateUpdateExParams;
        If exParams Is IRdsDictionaryUpdateExParams Then
        (exParams As IRdsDictionaryUpdateExParams).PreserveAccessAttributes := True;
        End If;
    Node.ExtendedParams := exParams;
    Node.UpdatePart := MetabaseObjectUpdatePart.DataMetadata; //обновлять данные и метаданные
    Node.PreserveExistingData := True// оставлять элементы, отсутствующие в исходном объекте
    Node.Object := Object;
    MU.SaveToFileNF("C:\temp\Up1.pefx");
End Sub UserProc;

После выполнения примера будет создан файл обновления. В данное обновление будет включен справочник НСИ «Dict_1». Для справочника отключено обновление атрибутов, отвечающих за права доступа.

См. также:

IMetabaseObject