DateBegin: DateTime;
The DateBegin property returns the date and time of record creation.
Executing the example requires a time series database with the OBJ_RUBRICATOR and OBJ_RUBRICATOR_SOUR identifiers. The databases must contain factors attributes COUNTRY and INDICATOR. Add links to the Metabase, Cubes and Dimensions system assemblies.
Sub UserProc;
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 := Copy factors;
Bindings := Copier.Bindings;
// Binding the COUNTRY attribute
Binding := Bindings.Add;
Binding.BindingType := CubeMetaCopierBindingType.Attribute;
Binding.DestinationAttribute := "COUNTRY";
Binding.SourceAttribute := "COUNTRY";
// Binding of the INDICATOR attribute
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(Date of the record creation: + LogEnt.DateBegin.ToString);
Debug.WriteLine(Field: + LogEnt.Field);
If LogEnt.IsWarning Then
Debug.WriteLine(Warning: + LogEnt.ErrorMessage);
Elseif LogEnt.IsError Then
Debug.WriteLine(Error: + LogEnt.ErrorMessage);
Debug.WriteLine(Error code: + LogEnt.ErrorCode.ToString);
Elseif LogEnt.IsMessage Then
Debug.WriteLine("Message: " + LogEnt.ErrorMessage);
End If;
Debug.WriteLine("----");
End For;
End Sub UserProc;
After executing the example factors of the OBJ_RUBRICATOR_SOUR database are copied to the OBJ_RUBRICATOR database. The console window displays the report about the copy results.
See also: