ICubeMetaLoaderLog.Count

Syntax

Count: Integer;

Description

The Count property returns the number of records in a report.

Example

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:

ICubeMetaLoaderLog