Count: Integer;
The Count property returns the number of records in a report.
Executing the example requires a time series database with the OBJ_RUBRICATOR and OBJ_RUBRICATOR_SOUR identifiers. The bases must contain factors attributes COUNTRY and 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;
// Copying parameters
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 := "Factors copying";
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;
// Copy factors and display report
Copier.Copy;
Log := Copier.Log;
For i := 0 To Log.Count - 1 Do
LogEnt := Log.Item(i);
Debug.WriteLine("Record number: " + LogEnt.RecordNumber.ToString);
Debug.WriteLine("Record creation date: " + LogEnt.DateBegin.ToString);
Debug.WriteLine("Field: " + LogEnt.Field);
If LogEnt.IsWarning Then
Debug.WriteLine("Warning: " + LogEnt.ErrorMessage);
End If;
If LogEnt.IsError Then
Debug.WriteLine("Error: " + LogEnt.ErrorMessage);
Debug.WriteLine("Error code: " + LogEnt.ErrorCode.ToString);
End If;
Debug.WriteLine("----");
End For;
End Sub Main;
After executing the example factors of the OBJ_RUBRICATOR_SOUR database are copied to the OBJ_RUBRICATOR database. The report about the copy results is displayed in the console window.
See also: