OnProgress(Progress: Integer);
Progress - процент загрузки данных.
Метод OnProgress реализует событие общего статуса загрузки данных из куба в куб. Данный метод должен быть переопределен в пользовательском классе.
Для выполнения примера предполагается наличие загрузчика данных с идентификатором "Load_Data", настроенного на загрузку данных из куба в куб.
Public Class LoadData: Object, ICubeProgress
Sub OnProgress(Progress: Integer);
Begin
Debug.WriteLine(Progress);
End Sub OnProgress;
End Class LoadData;
Sub Main;
Var
MB: IMetabase;
CubeLoadInst: ICubeLoaderInstance;
Sel: IDimSelectionSet;
i: Integer;
c: LoadData;
Begin
MB := MetabaseClass.Active;
CubeLoadInst := MB.ItemById("Load_Data").Open(Null) As ICubeLoaderInstance;
Sel := CubeLoadInst.Destination.CreateDimSelectionSet;
For i := 0 To Sel.Count - 1 Do
Sel.Item(i).SelectAll;
End For;
c := New LoadData.Create;
CubeLoadInst.Execute(Sel, c);
End Sub Main;
После выполнения примера будет осуществлена загрузка данных из куба в куб, указанных в параметрах загрузчика данных "Load_Data". Отслеживания статуса загрузки осуществляется в пользовательском классе "LoadData".
См. также: