ExtendedParams: IMetabaseUpdateObjectExParams;
The ExtendedParams property determines additional parameters of objects update.
Executing the example requires that the schema contains an MDM repository with the RDS identifier that contains the Dict_1 MDM dictionary.
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; // keep elements that do not exist in source object
Node.Object := Object;
MU.SaveToFileNF("C:\temp\Up1.pefx");
End Sub UserProc;
After executing the example an update file is created. The Dict_1 MDM dictionary is included in this update. The update of attributes responsible for access permissions is disabled for a dictionary.
See also: