ICubeMetaCopierBinding.Value

Синтаксис

Value: Variant;

Описание

Свойство Value определяет копируемое значение атрибута.

Комментарии

Данное свойство учитывается, если свойство ICubeMetaCopierBinding.BindingType имеет значение CubeMetaCopierBindingType.Const_.

Пример

Для выполнения примера предполагается наличие баз данных временных рядов с идентификаторами «OBJ_RUBRICATOR» и «OBJ_RUBRICATOR_SOUR». В данных базах должны присутствовать атрибуты показателей «COUNTRY» и «INDICATOR».

Sub Main;

Var

MB: IMetabase;

Copier: ICubeMetaCopier;

Bindings: ICubeMetaCopierBindings;

Binding: ICubeMetaCopierBinding;

Log: ICubeMetaLoaderLog;

LogEnt: ICubeMetaLoaderLogEntry;

i: Integer;

Begin

MB := MetabaseClass.Active;

Copier := New CubeMetaCopierClass.Create;

 

// Параметры копирования

Copier.CalendarLevelSet := DimCalendarLevelSet.Year;

Copier.DestinationRubricator := MB.ItemById("OBJ_RUBRICATOR").Bind As IRubricator;

Copier.SourceRubricator := MB.ItemById("OBJ_RUBRICATOR_SOUR").Bind As IRubricator;

Copier.ImportObjectKey := MB.ItemById("OBJ_RUBRICATOR").Key;

Copier.NewRevisionName := "Копирование показателей";

Bindings := Copier.Bindings;

 

Binding := Bindings.Add;

Binding.BindingType := CubeMetaCopierBindingType.Attribute;

Binding.DestinationAttribute := "COUNTRY";

Binding.SourceAttribute := "COUNTRY";

 

Binding := Bindings.Add;

Binding.BindingType := CubeMetaCopierBindingType.Const_;

Binding.DestinationAttribute := "INDICATOR";

Binding.SourceAttribute := "INDICATOR";

Binding.Value := 1009;

 

// Копирование показателей и вывод отчета

Copier.Copy;

Log := Copier.Log;

For i := 0 To Log.Count - 1 Do

LogEnt := Log.Item(i);

Debug.WriteLine("Номер записи: " + LogEnt.RecordNumber.ToString);

Debug.WriteLine("Дата создания записи: " + LogEnt.DateBegin.ToString);

Debug.WriteLine("Поле: " + LogEnt.Field);

If LogEnt.IsWarning Then

Debug.WriteLine("Предупреждение: " + LogEnt.ErrorMessage);

End If;

If LogEnt.IsError Then

Debug.WriteLine("Ошибка: " + LogEnt.ErrorMessage);

Debug.WriteLine("Код ошибки: " + LogEnt.ErrorCode.ToString);

End If;

Debug.WriteLine("----");

End For;

End Sub Main;

После выполнения примера показатели из базы «OBJ_RUBRICATOR_SOUR» будут скопированы в базу «OBJ_RUBRICATOR». В окно консоли будет выведен отчет о результатах копирования.

См. также:

ICubeMetaCopierBinding