IMetaAttributeTranslations.Name

To execute this example, add links to the Metabase, Cubes and Rds system assemblies. The repository must contain a time series database with the TSDB identifier.

Class TestForm: Form
    Button1: Button;
    Button2: Button;
    Button3: Button;
    Button4: Button;
    Mb: IMetabase;
    Mobj: IMetabaseObject;
    TSDB: IMetaDictionary;
    Attr: IMetaAttribute;
    MDT: IMetaDictionaryTranslations;

    Sub OBJ1466FormOnCreate(Sender: Object; Args: IEventArgs);
    Begin
        Mb := MetabaseClass.Active;
        Mobj:= MB.ItemById("TSDB").Bind;
    End Sub OBJ1466FormOnCreate;

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Var Rubr: IRubricator;
    Begin
        Rubr := Mobj.Edit As IRubricator;
        TSDB := Rubr.EditFacts;
        MDT := TSDB.Translations;
        MDT.IsOn := True;
        MDT.AddLocale(LocaleCodeID.English);
        MDT.AddLocale(LocaleCodeID.Japanese);
        MDT.AddLocale(LocaleCodeID.French_France);
        (Rubr as IMetabaseObject).Save;
    End Sub Button1OnClick;

    Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
    Var Rubr: IRubricator;
    Begin
        Rubr := Mobj.Edit As IRubricator;
        TSDB := Rubr.EditFacts;
        MDT := TSDB.Translations;
        MDT.IsOn := True;
        MDT.RemoveLocale(LocaleCodeID.English);
        (Rubr as IMetabaseObject).Save;
    End Sub Button2OnClick;

    Sub Button3OnClick(Sender: Object; Args: IMouseEventArgs);
    Var Rubr: IRubricator;
    Begin
        Rubr := Mobj.Edit As IRubricator;
        TSDB := Rubr.EditFacts;
        MDT := TSDB.Translations;
        MDT.IsOn := True;
        MDT.RemoveAllLocales;
        (Rubr as IMetabaseObject).Save;
    End Sub Button3OnClick;

    Sub Button4OnClick(Sender: Object; Args: IMouseEventArgs);
    Var Rubr: IRubricator;
    Begin
        Rubr := Mobj.Edit As IRubricator;
        TSDB := Rubr.EditFacts;
        Attr := TSDB.Attributes.FindById("Key");
        Attr.Translations.Name(LocaleCodeID.French_France) := "Clef";
        (Rubr as IMetabaseObject).Save;
    End Sub Button4OnClick;
End Class TestForm;

After clicking the Button1 button the collection of settings includes settings for the English, French and Japanese languages. After clicking the Button2 button, the English language is removed from the collection. After clicking the Button3 button, all the languages except for the language, in which the time series database dictionary is created, are removed from the collection. After clicking the Button4 button, name of the attribute with the Key identifier is translated as Clef in French.

Fore.NET Example

To execute this example, add links to the Metabase, Cubes, ForeSystem, and Rds system assemblies. The repository must contain a time series database with the TSDB identifier.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Rds;
Imports Prognoz.Platform.Interop.ForeSystem;

Public Partial Class TestForm: Prognoz.Platform.Forms.Net.ForeNetForm
    Mb: IMetabase;
    TSDB: IMetaDictionary;
    Attr: IMetaAttribute;
    MDT: IMetaDictionaryTranslations;
    Mobj: IMetabaseObject;

    Public Constructor OBJ1475Form();
    Begin
        InitializeComponent();
    End Constructor;

    Private Sub OBJ1475Form_Activated(sender: System.Object; e: System.EventArgs);
    Begin
        Mb := Self.Metabase;
        Mobj:= MB.ItemById["TSDB"].Bind();
    End Sub;

    Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
    Var Rubr: IRubricator;
    Begin
        Rubr := Mobj.Edit() As IRubricator;
        TSDB := Rubr.EditFacts;
        MDT := TSDB.Translations;
        MDT.IsOn := True;
        MDT.AddLocale(Prognoz.Platform.Interop.ForeSystem.LocaleCodeID.lcidEnglish);
        MDT.AddLocale(Prognoz.Platform.Interop.ForeSystem.LocaleCodeID.lcidJapanese);
        MDT.AddLocale(Prognoz.Platform.Interop.ForeSystem.LocaleCodeID.lcidFrench_France);
        (Rubr as IMetabaseObject).Save();
    End Sub;

    Private Sub button2_Click(sender: System.Object; e: System.EventArgs);
    Var Rubr: IRubricator;
    Begin
        Rubr := Mobj.Edit() As IRubricator;
        TSDB := Rubr.EditFacts;
        MDT := TSDB.Translations;
        MDT.IsOn := True;
        MDT.RemoveLocale(Prognoz.Platform.Interop.ForeSystem.LocaleCodeID.lcidEnglish);
        (Rubr As IMetabaseObject).Save();
    End Sub;

    Private Sub button3_Click(sender: System.Object; e: System.EventArgs);
    Var Rubr: IRubricator;
    Begin
        Rubr := Mobj.Edit() As IRubricator;
        TSDB := Rubr.EditFacts;
        MDT := TSDB.Translations;
        MDT.IsOn := True;
        MDT.RemoveAllLocales();
        (Rubr As IMetabaseObject).Save();
    End Sub;

    Private Sub button4_Click(sender: System.Object; e: System.EventArgs);
    Var Rubr: IRubricator;
    Begin
        Rubr := Mobj.Edit() As IRubricator;
        TSDB := Rubr.EditFacts;
        Attr := TSDB.Attributes.FindById("Key");
        Attr.Translations.Name[Prognoz.Platform.Interop.ForeSystem.LocaleCodeID.lcidFrench_France] := "Clef";
        (Rubr As IMetabaseObject).Save();
    End Sub;
End Class;

After clicking the button1 button, new settings for the English, French and Japanese languages become available in the collection. After clicking the button2 button, the English language is removed from the collection of settings. After clicking the button3 button, all the languages except for the language, in which the time series database dictionary is created, are removed from the collection of settings. After clicking the button4 button, name of the attribute with the Key identifier is translated as Clef in French.

IMetaAttributeTranslations.Name

Fore Syntax

Fore.NET Syntax

Parameters

Description

Fore Example

Fore.NET Example