ExtendedParams: IMetabaseUpdateObjectExParams;
The ExtendedParams property determines additional parameters of the objects updating.
Executing the example requires that the scheme contains an MDM repository with the MDM identifier that contains the MDM dictionary Dict_1.
Sub UserProc;
Var
Mb : imetabase;
MU : IMetabaseUpdate;
Node : IMetabaseUpdateDataObjectNode;
Object: IMetabaseObject;
exParams: IMetabaseUpdateObjectExParams;
Begin
Mb := MetabaseClass.Active;
MU := Mb.CreateUpdate;
Object := Mb.ItemByIdNamespace("Dict_1", Mb.ItemById("RDS").Key).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; // ignore elements that do not exist in source object
Node.Object := Object;
MU.SaveToFileNF("C:\temp\Up1.pefx");
End Sub UserProc;
After executing this example file of update is created. The MDM dictionary Dict_1 is included in this update. Attributes update responsible for access permissions is disabled for a dictionary.
See also: