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 object for import of 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 is imported     importObject.SourceType := ImportRequestSourceType.Provider;     // Set time series database, to which data is imported     importObject.DestinationRubricator := desc.Bind As IRubricator;     // Set import parameters     params := importObject.ProviderParams;     // Disable restriction for 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 refers     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;     // Specify that data for attribute is taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.Index;     // Specify field number     importBinding.Field := "0";     // Get dictionary, to which the INDICATOR attribute refers     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;     // Specify that data for attribute is taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.Index;     // 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 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;     // Specify that set value is taken as attribute value     importBinding.FieldType := CubeMetaLoaderFieldType.ConstValue;     // Set attribute value     importBinding.FieldValue := 1 As Variant;     // Create calendar binding     importBinding := Bindings.Add;     importBinding.BindingType := CubeMetaLoaderBindingType.Calendar;     importBinding.ByColumns := False;     importBinding.CalendarDateFormatEx(DimCalendarLevel.Year) := "$Year$";     importBinding.CalendarOptions.Levels := DimCalendarLevelSet.Year;     // Specify that data for calendar is taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.Index;     // Specify field number     importBinding.Field := "2";     // Create binding for time series values     importBinding := Bindings.Add;     importBinding.BindingType := CubeMetaLoaderBindingType.Value;     // Specify that values are taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.Index;     // Specify field number     importBinding.Field := "3";     // Set up data source     Try         excel := New DtExcelProviderEx.Create;         // Set parameters of the file, from which data is 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;         // Output 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 ? "Error: " :(Entry.IsMessage ? "Message: " : "Warning: ")) +                 + Entry.ErrorMessage;             Debug.WriteLine(LogStr);             Debug.Indent;             Debug.WriteLine("Record number = " + Entry.RecordNumber.ToString);             Debug.WriteLine("Record value = " + Entry.ValueRecordNumber.ToString);             Debug.WriteLine("Data source field = " + Entry.Field);             Debug.WriteLine("Record number in data source = " + Entry.SourceRecord.ToString);             Debug.WriteLine("Field number in data source = " + Entry.SourceField.ToString);             Debug.WriteLine("Record number in data consumer = " + Entry.DestRecord.ToString);             Debug.WriteLine("Field number 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 object for time series import     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 data source type, from which data is imported     importObject.SourceType := ImportRequestSourceType.irstProvider;     // Set time series, to which data is imported     importObject.DestinationRubricator := desc.Bind() As IRubricator;     // Set import parameters     ImportParams := importObject.ProviderParams;     // Disable restriction for 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 the COUNTRY attribute refers     desc := Attributes.FindById("COUNTRY").ValuesObject;     rdsDictionary := desc.Bind() As IRdsDictionary;     // Create 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 attribute data is taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.cmlftIndex;     // Specify field number     importBinding.Field := "0";     // Get dictionary, to which the INDICATOR attribute refers     desc := Attributes.FindById("INDICATOR").ValuesObject;     rdsDictionary := desc.Bind() As IRdsDictionary;     // Create 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 attribute  data is 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 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 set value is taken attribute data     importBinding.FieldType := CubeMetaLoaderFieldType.cmlftConstValue;     // Set attribute value     importBinding.FieldValue := 1 As object;     // Create calendar binding     importBinding := Bindings.Add();     importBinding.BindingType := CubeMetaLoaderBindingType.cmlbtCalendar;     importBinding.ByColumns := False;     importBinding.CalendarDateFormatEx[DimCalendarLevel.dclYear] := "$Year$";     importBinding.CalendarOptions.Levels := DimCalendarLevelSet.dclsYear;     // Specify that calendar data is taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.cmlftIndex;     // Specify field number     importBinding.Field := "2";     // Create binding for time series values     importBinding := Bindings.Add();     importBinding.BindingType := CubeMetaLoaderBindingType.cmlbtValue;     // Specify that values are taken by field number in data source     importBinding.FieldType := CubeMetaLoaderFieldType.cmlftIndex;     // Specify field number     importBinding.Field := "3";     // Set up data source     Try         excel := New DtExcelProviderEx.Create();         // Set parameters of the file, from which data is 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 load         importResult := instance.ImportResult;         Log := importResult.Log;         count := Log.Count;         // Output 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("Record number 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