IRubricatorInstance.RegenerateMnemo

Copy example

Sub UserProc;
Var
    Mb: IMetabase;
    Rubricator: IRubricator;
    DicEdit: IMetaDictionary;
    Nams: IMetaAttributeNamings;
    Nam: IMetaAttributeNaming;
    Ni, Nc: Integer;
    Atrs: IMetaAttributes;
    Atr: IMetaAttribute;
    Dims: ICubeModelDimensionsEx;
    Dim: ICubeModelDimensionEx;
    Di, Dc: Integer;
    
    RubI: IRubricatorInstance;
    Rev: IRubricatorRevision;
    FactorKeys: Array Of Integer;
    FactsLookup: IRubricatorFactsLookup;
Begin
    Mb := MetabaseClass.Active;
    Rubricator := Mb.ItemById("OBJ_RUBRICATOR").Edit As IRubricator;
    DicEdit := Rubricator.EditFacts;
    Nams := DicEdit.AttributeMnemoNamings;
    Atrs := DicEdit.Attributes;
    Dims := Rubricator.Dimensions;
    // Clear collection of names
    Nc := Nams.Count - 1;
    For Ni := Nc To 0 Step - 1 Do
        Nam := Nams.Item(Ni);
        Nams.Remove(Nam);
    End For;
    // Set suffix and prefix of mnemonic
    Dc := Dims.Count - 1;
    For Di := 0 To Dc Do
        Dim := Dims.Item(Di);
        Atr := Atrs.FindByValuesObject(Dim.DimensionO.Key);
        If Atr <> Null Then
            Nam := Nams.Add(Atr);
            nam.MnemoPrefix := "(";
            nam.MnemoSuffix := ")";
            nam.NamingFormat := "NAME";
        End If;
    End For;
    // Save changes
    (DicEdit As IMetabaseObject).Save;
    // Generate database mnemonics
    RubI := (Rubricator As IMetabaseObject).Open(Null) As IRubricatorInstance;
    Rev := RubI.OpenRevision("Revision");
    FactsLookup := RubI.CreateFactsLookup;
    FactorKeys := FactsLookup.LookupFactors;
    RubI.RegenerateMnemo(FactorKeys);
End Sub UserProc;