ICubeMetaUpdateEx.ResultRubricator

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    RubUpdateEx: ICubeMetaUpdateEx;
    Rub: IRubricator;
    CrInfo: IMetabaseObjectCreateInfo;
    RubRes: IMetabaseObject;
    s: String;
Begin
    Mb := MetabaseClass.Active;
    RubUpdateEx := New CubeMetaUpdateClass.Create As ICubeMetaUpdateEx;
    Rub := Mb.ItemById("FC").Bind As IRubricator;
    RubUpdateEx.Rubricator := Rub;
    RubUpdateEx.Metabase := Mb;
    CrInfo := RubUpdateEx.CreateInfo;
    CrInfo.Parent := Mb.Root;
    s := Mb.GenerateId("FC_COPY");
    CrInfo.Id := s;
    CrInfo.Name := s;
    RubUpdateEx.CopyData := True;
    RubUpdateEx.CopyExtraObjects := True;
    RubUpdateEx.RdsDatabase := Rub.Database;
    RubUpdateEx.Apply(Null);
    RubRes := RubUpdateEx.ResultRubricator As IMetabaseObject;
    Debug.WriteLine(RubRes.Key);
End Sub UserProc;