ExtendedParams: IMetabaseUpdateObjectExParams;
The ExtendedParams property determines additional parameters of objects update.
Executing the example requires that the repository contains an MDM dictionary with the Dict_1 identifier.
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;
// Update data and metadata
Node.UpdatePart := MetabaseObjectUpdatePart.DataMetadata;
// Keep elements that are missing in source object
Node.BatchMode := ObjectUpdateDataBatchMode.UpdateInsert;
Node.Object := MObj;
MU.SaveToFileNF("C:\Update.pefx");
End Sub UserProc;
After executing the example an update file is created. The specified MDM dictionary is included in this update. The update of attributes responsible for access permissions is disabled for a dictionary.
See also: