ICubeOperationResult.Error

Синтаксис

Error: IException;

Описание

Свойство Error определяет исключительную ситуацию, возникшую при загрузке данных.

Пример

Для выполнения примера предполагается наличие загрузчика данных с идентификатором «CUBE_LOAD», настроенного на передачу данных из куба-источника в куб-приемник.

Sub Main;

Var

MB: IMetabase;

CubLoadInst: ICubeLoaderInstance;

DimSS: IDimSelectionSet;

i: Integer;

Result: ICubeOperationResult;

Begin

MB := MetabaseClass.Active;

CubLoadInst := MB.ItemById("CUBE_LOAD").Open(Null) As ICubeLoaderInstance;

DimSS := CubLoadInst.Destination.CreateDimSelectionSet;

For i := 0 To DimSS.Count - 1 Do

DimSS.Item(i).SelectAll;

End For;

Result := CubLoadInst.Execute(DimSS, Null, AutoCubeUpdateOption.NoCheckDuplicates Or AutoCubeUpdateOption.GetResult);

Debug.WriteLine("Наименование загрузчика: " + Result.Name);

Debug.WriteLine("Идентификатор загрузчика: " + Result.Id);

Debug.WriteLine("Начало загрузки: " + Result.TimeStart.ToString);

Debug.WriteLine("Окончание загрузки: " + Result.TimeFinish.ToString);

If Result.Succeeded

Then

Debug.WriteLine("Загрузка данных завершилась успешно");

Debug.WriteLine("Обработано записей: " + Result.RecordsProcessed.ToString);

Else

Debug.WriteLine("Ошибка при загрузке данных");

Debug.WriteLine("Ошибка: " + Result.Error.Message);

End If;

WinApplication.InformationBox(Result.FormattedMessage);

End Sub Main;

После выполнения примера, будет осуществлена загрузка данных в куб. Результаты загрузки будут выведены в окно консоли и в информационном сообщении.

См. также:

ICubeOperationResult