IMetabaseUpdateObjectNode.ExtendedParams

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

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