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». Для справочника отключено обновление атрибутов, отвечающих за права доступа.
См. также: