IMetabaseUpdateObjectNode.KeepNativeNames

KeepNativeNames: Boolean;

KeepNativeNames: boolean;

Sub UserProc;
Var
    Mb: IMetabase;
    rds: IMetabaseObjectDescriptor;
    metaDict: IMetaDictionary;
    Attrs: IMetaAttributes;
    Obj: IMetabaseObjectDescriptor;
    Upd: IMetabaseUpdate;
    Nd: IMetabaseUpdateObjectNode;
    RootFolder: IMetabaseUpdateFolderNode;
    NdFol: IMetabaseUpdateFolderNode;
Begin
    // Get repository
    Mb := MetabaseClass.Active;
    // Get MDM dictionary
    rds := mb.ItemById("RDS");
    metaDict := rds.Bind As IMetaDictionary;
    // Get dictionary attributes
    Attrs := metaDict.Attributes;
    // Determine table name use on updating repository
    Attrs.KeepTableNativeNameOnMetabaseUpdate := True;
    // Create an update object
    Upd := Mb.CreateUpdate;
    // Create an update structure object
    RootFolder := Upd.RootFolder;
    // Get MDM dictionary table
    Obj := Mb.ItemById("RDS").Children.Item(0).Edit;
    // Rename table
    Obj.Name := "123Table";
    // Add table the update structure
    Nd := RootFolder.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;
    Nd.Object := Obj;
    // Save physical table name on update
    Nd.KeepNativeNames := True;
    // Add MDM dictionary to the update structure
    Nd := RootFolder.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;
    Nd.Object := rds;
    NdFol := (Nd As IMetabaseUpdateFolderNode);
    // Save update to the file
    Upd.SaveToFileNF("C:\Update.pefx");
End Sub UserProc;

Imports Prognoz.Platform.Interop.Rds;
…
Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    rds: IMetabaseObjectDescriptor;
    metaDict: IMetaDictionary;
    Attrs: IMetaAttributes;
    Obj: IMetabaseObjectDescriptor;
    Upd: IMetabaseUpdate;
    Nd: IMetabaseUpdateObjectNode;
    RootFolder: IMetabaseUpdateFolderNode;
    NdFol: IMetabaseUpdateFolderNode;
Begin
    // Get repository
    Mb := Params.Metabase;
    // Get MDM dictionary
    rds := mb.ItemById["RDS"];
    metaDict := rds.Bind() As IMetaDictionary;
    // Get dictionary attributes
    Attrs := metaDict.Attributes;
    // Determine table name use on updating repository
    Attrs.KeepTableNativeNameOnMetabaseUpdate := True;
    // Create an update object
    Upd := Mb.CreateUpdate();
    // Create an update structure object
    RootFolder := Upd.RootFolder;
    // Get MDM dictionary table
    Obj := Mb.ItemById["RDS"].Children.Item[0].Edit();
    // Rename table
    Obj.Name := "123Table";
    // Add table the update structure
    Nd := RootFolder.Add(MetabaseUpdateNodeType.untObject) As IMetabaseUpdateObjectNode;
    Nd.Object := Obj;
    // Save physical table name on update
    Nd.KeepNativeNames := True;
    // Add MDM dictionary to the update structure
    Nd := RootFolder.Add(MetabaseUpdateNodeType.untObject) As IMetabaseUpdateObjectNode;
    Nd.Object := rds;
    NdFol := (Nd As IMetabaseUpdateFolderNode);
    // Save update to the file
    Upd.SaveToFileNF("C:\" + "Update.pefx");
End Sub;