ICubeMetaLoaderLogEntry.DestField

Executing the example requires that the repository contains a time series database with the TSDB_UNPIVOT identifier containing time series attributes with the COUNTRY and INDICATOR identifiers. The COUNTRY attribute must be a link to MDM dictionary, and the INDICATOR attribute must be a link to MDM table dictionary.

The file system must contain the file D:\Indicator_Data.xlsx containing a data sheet named Sheet1.

	A	B	C	D	E	F	G	H	I
1				Current account balance
2				BCA
3		Country Key	Indicator Key	2001	2001A	2002	2002A	2003	2003A
4	Albania	11	204181	10	g	11	w	12	q
5	Afghanistan	19	204181	20	h	21	t	22	w
6	Angola	47	204181	30	y	31	b	32	e

TIP. To manually execute the example, create the Indicator_Data.xlsx file. To do this, copy data from the table above and save it by means of Microsoft Excel on the D disc using the required name.

Sub UserProc; Var     mb: IMetabase;     desc: IMetabaseObjectDescriptor;     importObject: IImportRequestDefinition;     createInfo: IMetabaseObjectCreateInfo;     params: IImportRequestProviderParams;     importBinding: ICubeMetaLoaderBinding;     Bindings: ICubeMetaLoaderBindings;     rdsDictionary: IRdsDictionary;     excel: IDtExcelProviderEx;     instance: IImportRequestInstance;     importResult: IImportRequestResult;     Log: ICubeMetaLoaderLog;     LogStr: String;     count, i: Integer;     entry: ICubeMetaLoaderLogEntry;     rub: IRubricator;     Unpivot: IDtUnpivotProvider;     Attributes: IMetaAttributes; Begin     MB := MetabaseClass.Active;     // Get and clear time series database     desc := mb.ItemById("TSDB_UNPIVOT");     rub := desc.Bind As IRubricator;     rub.Truncate;     // Create an object to import time series     createInfo := mb.CreateCreateInfo;     createInfo.ClassId := MetabaseObjectClass.KE_CLASS_IMPORTREQUEST;     // Set object parameters     createInfo.Name := "Import from file";     createInfo.KeepEdit := True;     createInfo.Permanent := False;     createInfo.Parent := desc;     importObject := mb.CreateObject(createInfo) As IImportRequestDefinition;     // Set source type from which data will be imported     importObject.SourceType := ImportRequestSourceType.Provider;     // Set time series databse to which data will be imported     importObject.DestinationRubricator := desc.Bind As IRubricator;     // Set import parameters     params := importObject.ProviderParams;     // Deselect constraint to maximum number of errors in report about data import     (params As ICubeMetaLoader).Log.MaxErrors := -1;     // Get attribute bindings     Bindings := params.Bindings;     // Get time series attributes;     Attributes := rub.Facts.Attributes;     // Get dictionary to which the COUNTRY attribute is referenced     desc := Attributes.FindById("COUNTRY").ValuesObject;     rdsDictionary := desc.Bind As IRdsDictionary;     // Create binding for the COUNTRY attribute     importBinding := Bindings.Add;     importBinding.BindingType := CubeMetaLoaderBindingType.Attribute;     importBinding.Attribute := "COUNTRY";     importBinding.Dimension := rdsDictionary As IDimensionModel;     importBinding.KeyAttribute := rdsDictionary.Attributes.Key.Id;     importBinding.Index := rdsDictionary.UniqueKeys.Item(0).Id;     // Determine that data for attribute will be taken by filed number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.Index;     // Determine filed number     importBinding.Field := "0";     // Get dictionary to which references the INDICATOR attribute     desc := Attributes.FindById("INDICATOR").ValuesObject;     rdsDictionary := desc.Bind As IRdsDictionary;     // Create binding for the INDICATOR attribute     importBinding := Bindings.Add;     importBinding.BindingType := CubeMetaLoaderBindingType.Attribute;     importBinding.Attribute := "INDICATOR";     importBinding.Dimension := rdsDictionary As IDimensionModel;     importBinding.KeyAttribute := rdsDictionary.Attributes.Key.Id;     importBinding.Index := rdsDictionary.UniqueKeys.Item(1).Id;     // Determine that data for the attribute will be taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.Index;     // Determine field number     importBinding.Field := "1";     // Get dictionary to which references the UNIT attribute     desc := Attributes.FindById("UNIT").ValuesObject;     rdsDictionary := desc.Bind As IRdsDictionary;     // Create binding for the UNIT attribute     importBinding := Bindings.Add;     importBinding.BindingType := CubeMetaLoaderBindingType.Unit;     importBinding.Dimension := rdsDictionary As IDimensionModel;     importBinding.KeyAttribute := rdsDictionary.Attributes.Key.Id;     importBinding.Index := rdsDictionary.UniqueKeys.Item(0).Id;     // Determine that specified value will be taken as attribute data     importBinding.FieldType := CubeMetaLoaderFieldType.ConstValue;     // Set attribute value     importBinding.FieldValue := 1 As Variant;     // Create binding for calendar     importBinding := Bindings.Add;     importBinding.BindingType := CubeMetaLoaderBindingType.Calendar;     importBinding.ByColumns := False;     importBinding.CalendarDateFormatEx(DimCalendarLevel.Year) := "$Year$";     importBinding.CalendarOptions.Levels := DimCalendarLevelSet.Year;     // Determine that data for calendar will be taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.Index;     // Determine field number     importBinding.Field := "2";     // Create binding for time series variables     importBinding := Bindings.Add;     importBinding.BindingType := CubeMetaLoaderBindingType.Value;     // Determine that values will be taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.Index;     // Determine field number     importBinding.Field := "3";     // Set data source     Try         excel := New DtExcelProviderEx.Create;         // Set parameters of the file from which data will be imported         excel.File := "D:\Indicator_Data.xlsx";         excel.Sheet := "Лист1";         excel.Format := "XLSX";         Excel.HasHeader := False;         // Set data area location in source file         Unpivot := New DtUnpivotProvider.Create;         Unpivot.Provider := Excel;         Unpivot.LeftEnd := 2;         Unpivot.DataWidth := 2;         Unpivot.DataTop := 3;         Unpivot.DataBottom := 5;         Unpivot.HeadBottom := 2;         Unpivot.DataRight := 8;         Unpivot.HeadColumn := 1;         Unpivot.LeftBegin := 1;         Unpivot.HeadTop := 2;         // Load data         Unpivot.Open;         count := Unpivot.Fields.Count;         importObject.ProviderParams.Provider := Unpivot As IDatasetDataProvider;         instance := (importObject As IMetabaseObject).Open(Null) As IImportRequestInstance;         Instance.LoadData;         // Get report about data loading         importResult := instance.ImportResult;         Log := importResult.Log;         count := Log.Count;         // Display report to console window         Debug.WriteLine("Number of records  = " + Count.ToString);         For i := 0 To Count - 1 Do             Entry := Log.Item(i);             LogStr := i.ToString + ": "                 + (Entry.IsError ? "Ошибка: " :(Entry.IsMessage ? "Сообщение: " : "Warning: ")) +                 + Entry.ErrorMessage;             Debug.WriteLine(LogStr);             Debug.Indent;             Debug.WriteLine("Record number = " + Entry.RecordNumber.ToString);             Debug.WriteLine("Record value = " + Entry.ValueRecordNumber.ToString);             Debug.WriteLine("Field in data source = " + Entry.Field);             Debug.WriteLine("Number of record in data source = " + Entry.SourceRecord.ToString);             Debug.WriteLine("Number of field in data source = " + Entry.SourceField.ToString);             Debug.WriteLine("Number of record in data consumer = " + Entry.DestRecord.ToString);             Debug.WriteLine("Number of field in data consumer = " + Entry.DestField.ToString);             Debug.Unindent;         End For;     Except On e: Exception Do         Debug.WriteLine(e.Message);     Finally     End Try; End Sub UserProc;

After executing the example data is imported from the file D:\Indicator_Data.xlsx into the TSDB_UNPIVOT time series database. Import errors are displayed in the console window.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Db;
Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Dt;
Imports Prognoz.Platform.Interop.Rds;

Public Shared Sub Main(Params: StartParams); Var     mb: IMetabase;     desc: IMetabaseObjectDescriptor;     importObject: IImportRequestDefinition;     createInfo: IMetabaseObjectCreateInfo;     ImportParams: IImportRequestProviderParams;     importBinding: ICubeMetaLoaderBinding;     Bindings: ICubeMetaLoaderBindings;     rdsDictionary: IRdsDictionary;     excel: IDtExcelProviderEx;     instance: IImportRequestInstance;     importResult: IImportRequestResult;     Log: ICubeMetaLoaderLog;     LogStr: String;     count, i: Integer;     entry: ICubeMetaLoaderLogEntry;     rub: IRubricator;     Unpivot: IDtUnpivotProvider;     Attributes: IMetaAttributes; Begin     MB := Params.Metabase;     // Get and clear time series database     desc := mb.ItemById["TSDB_UNPIVOT"];     rub := desc.Bind() As IRubricator;     rub.Truncate();     // Create an object to import time series database     createInfo := mb.CreateCreateInfo();     createInfo.ClassId := MetabaseObjectClass.KE_CLASS_IMPORTREQUEST As integer;     // Set object parameters     createInfo.Name := "Import from file";     createInfo.KeepEdit := True;     createInfo.Permanent := False;     createInfo.Parent := desc;     importObject := mb.CreateObject(createInfo) As IImportRequestDefinition;     // Set source type from which data will be imported     importObject.SourceType := ImportRequestSourceType.irstProvider;     // Set time series database where data will be imported     importObject.DestinationRubricator := desc.Bind() As IRubricator;     // Set import parameters     ImportParams := importObject.ProviderParams;     // Remove a restriction to get a maximum number of errors in data import report     (ImportParams As ICubeMetaLoader).Log.MaxErrors := -1;     // Get attribute bindings     Bindings := ImportParams.Bindings;     // Get time series attributes;     Attributes := rub.Facts.Attributes;     // Get dictionary to which refers the COUNTRY attribute     desc := Attributes.FindById("COUNTRY").ValuesObject;     rdsDictionary := desc.Bind() As IRdsDictionary;     // Create a binding for the COUNTRY attribute     importBinding := Bindings.Add();     importBinding.BindingType := CubeMetaLoaderBindingType.cmlbtAttribute;     importBinding.Attribute := "COUNTRY";     importBinding.Dimension := rdsDictionary As IDimensionModel;     importBinding.KeyAttribute := rdsDictionary.Attributes.Key.Id;     importBinding.Index := rdsDictionary.UniqueKeys.Item[0].Id;     // Specify that data for attribute will be taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.cmlftIndex;     // Specify field number     importBinding.Field := "0";     // Get dictionary to which refers the INDICATOR attribute     desc := Attributes.FindById("INDICATOR").ValuesObject;     rdsDictionary := desc.Bind() As IRdsDictionary;     // Create a binding for the INDICATOR attribute     importBinding := Bindings.Add();     importBinding.BindingType := CubeMetaLoaderBindingType.cmlbtAttribute;     importBinding.Attribute := "INDICATOR";     importBinding.Dimension := rdsDictionary As IDimensionModel;     importBinding.KeyAttribute := rdsDictionary.Attributes.Key.Id;     importBinding.Index := rdsDictionary.UniqueKeys.Item[1].Id;     // Specify that data for attribute will be taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.cmlftIndex;     // Specify field number     importBinding.Field := "1";     // Get dictionary to which the UNIT attribute refers     desc := Attributes.FindById("UNIT").ValuesObject;     rdsDictionary := desc.Bind() As IRdsDictionary;     // Create a binding for the UNIT attribute     importBinding := Bindings.Add();     importBinding.BindingType := CubeMetaLoaderBindingType.cmlbtUnit;     importBinding.Dimension := rdsDictionary As IDimensionModel;     importBinding.KeyAttribute := rdsDictionary.Attributes.Key.Id;     importBinding.Index := rdsDictionary.UniqueKeys.Item[0].Id;     // Specify that the specifed value will be taken as attribute value     importBinding.FieldType := CubeMetaLoaderFieldType.cmlftConstValue;     // Set attribute value     importBinding.FieldValue := 1 As object;     // Create a binding for calendar     importBinding := Bindings.Add();     importBinding.BindingType := CubeMetaLoaderBindingType.cmlbtCalendar;     importBinding.ByColumns := False;     importBinding.CalendarDateFormatEx[DimCalendarLevel.dclYear] := "$Year$";     importBinding.CalendarOptions.Levels := DimCalendarLevelSet.dclsYear;     // Specify that data for calendar will be taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.cmlftIndex;     // Set field number     importBinding.Field := "2";     // Create a binding for time series values     importBinding := Bindings.Add();     importBinding.BindingType := CubeMetaLoaderBindingType.cmlbtValue;     // Soecify that values will be taken by field number in&data source     importBinding.FieldType := CubeMetaLoaderFieldType.cmlftIndex;     // Specify field number     importBinding.Field := "3";     // Set data source     Try         excel := New DtExcelProviderEx.Create();         // Set parameters of the file from which data will be imported         excel.File := "D:\Indicator_Data.xlsx";         excel.Sheet := "Sheet1";         excel.Format := "XLSX";         Excel.HasHeader := False;         // Set location of data areas in source file         Unpivot := New DtUnpivotProvider.Create();         Unpivot.Provider := Excel;         Unpivot.LeftEnd := 2;         Unpivot.DataWidth := 2;         Unpivot.DataTop := 3;         Unpivot.DataBottom := 5;         Unpivot.HeadBottom := 2;         Unpivot.DataRight := 8;         Unpivot.HeadColumn := 1;         Unpivot.LeftBegin := 1;         Unpivot.HeadTop := 2;         // Load data         Unpivot.Open();         count := Unpivot.Fields.Count;         importObject.ProviderParams.Provider := Unpivot As IDatasetDataProvider;         instance := (importObject As IMetabaseObject).Open(Null) As IImportRequestInstance;         Instance.LoadData();         // Get report about data loading         importResult := instance.ImportResult;         Log := importResult.Log;         count := Log.Count;         // Display report to console window         System.Diagnostics.Debug.WriteLine("Number of records  = " + Count.ToString());         For i := 0 To Count - 1 Do             Entry := Log.Item[i];             LogStr := i.ToString() + ": "                 + (Entry.IsError ? "Error: " :(Entry.IsMessage ? "Message: " : "Warning: "))                 + Entry.ErrorMessage;             System.Diagnostics.Debug.WriteLine(LogStr);             System.Diagnostics.Debug.Indent();             System.Diagnostics.Debug.WriteLine("Record number = " + Entry.RecordNumber.ToString());             System.Diagnostics.Debug.WriteLine("Record value = " + Entry.ValueRecordNumber.ToString());             System.Diagnostics.Debug.WriteLine("Field in data source = " + Entry.Field);             System.Diagnostics.Debug.WriteLine("Number of record in data source = " + Entry.SourceRecord.ToString());             System.Diagnostics.Debug.WriteLine("Field number in data source = " + Entry.SourceField.ToString());             System.Diagnostics.Debug.WriteLine("Record number in data consumer = " + Entry.DestRecord.ToString());             System.Diagnostics.Debug.WriteLine("Field number in data consumer = " + Entry.DestField.ToString());             System.Diagnostics.Debug.Unindent();         End For;     Except On e: Exception Do         System.Diagnostics.Debug.WriteLine(e.Message);     Finally     End Try; End Sub;

ICubeMetaLoaderLogEntry.DestField

Fore Syntax

Fore.NET Syntax

Description

Comments

Fore Example

Fore.NET Example