Consumer: Object;
Consumer: object;
Свойство Consumer возвращает объект, являющийся приёмником данных.
Для работы с возвращенным объектом приведите его к одному из интерфейсов приёмников данных.
Для выполнения примера предполагается наличие базы данных временных рядов с идентификатором «FC_COMM», содержащим объект экспорта в текстовый файл с идентификатором «EXP_OBJ». Добавьте ссылки на системные сборки «Metabase», «Cubes», «Dt».
Sub UserProc;
Var
mb: IMetabase;
RubKey: Integer;
Inst: IExportRequestInstance;
Consumer: IDtTextConsumer;
Begin
mb := MetabaseClass.Active;
RubKey := mb.GetObjectKeyById("FC_COMM");
Inst := mb.ItemByIdNamespace("EXP_OBJ", RubKey).Open(Null) As IExportRequestInstance;
Consumer := Inst.Consumer As IDtTextConsumer;
Debug.WriteLine(Consumer.File);
End Sub UserProc;
После выполнения примера в окно консоли будет выведено наименование текстового файла, используемого объектом экспорта.
Для выполнения примера предполагается наличие базы данных временных рядов с идентификатором «FC_COMM», содержащим объект экспорта в текстовый файл с идентификатором «EXP_OBJ».
Imports Prognoz.Platform.Interop.Cubes;
Imports Prognoz.Platform.Interop.Dt;
…
Public Shared Sub Main(Params: StartParams);
Var
mb: IMetabase;
RubKey: uinteger;
Inst: IExportRequestInstance;
Consumer: IDtTextConsumer;
Begin
mb := Params.Metabase;
RubKey := mb.GetObjectKeyById("FC_COMM");
Inst := mb.ItemByIdNamespace["EXP_OBJ", RubKey].Open(Null) As IExportRequestInstance;
Consumer := Inst.Consumer As IDtTextConsumer;
System.Diagnostics.Debug.WriteLine(Consumer.File);
End Sub;
После выполнения примера в окно консоли будет выведено наименование текстового файла, используемого объектом экспорта.
См. также: