CreateUpdateExParams: IMetabaseUpdateObjectExParams;
The CreateUpdateExParams method creates parameters of update of an object.
Executing the example requires that the repository contains an MDM dictionary with the Dict_1 identifier.
Add links to the Metabase, Rds system assemblies.
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; // Update data and metadata
Node.PreserveExistingData := True; // Keep elements that are missing in source object
Node.Object := Object;
MU.SaveToFileNF("C:\temp\Up1.pefx");
End Sub UserProc;
After executing the example the update file is created. The specified MDM dictionary is included in this update. Attributes update responsible for access permissions is disabled for the dictionary.
See also: