IMetaAttributeTranslations.Name

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;

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;