IDtUserConsumerEx.CustomConsumer

Синтаксис Fore

Синтаксис Fore.NET

CustomConsumer: Prognoz.Platform.Interop.Dt.IDtCustomConsumer;

Описание

Свойство CustomConsumer возвращает приёмник данных, полученный с помощью пользовательского алгоритма.

Пример Fore

Для выполнения примера предполагается наличие модуля с идентификатором «CUSTOM_EXPORT», содержащего класс «MyDtCustomConsumer». Добавьте ссылки на системные сборки «Metabase», «Dt», «Dal».

Sub UserProc_ImplClass;
Var
    Consumer: IDtUserConsumerEx;
    Fields: IDtFieldDefinitions;
    Field: IDtFieldDefinition;
    v: Array;
    customCons: IDtCustomConsumer;
Begin
//Массив экспортируемых значений
    v := New Variant[3, 4];
    v[0, 0] := "Греча"; v[1, 0] := 10; v[2, 0] := 313.12;
    v[0, 1] := "Молоко"; v[1, 1] := 20; v[2, 1] := 301.53;
    v[0, 2] := "Сахар"; v[1, 2] := 30; v[2, 2] := 254.13;
    v[0, 3] := "Хлеб"; v[1, 3] := 40; v[2, 3] := 404.11;
    Consumer := New DtUserConsumerEx.Create;
    Consumer.Metabase := MetabaseClass.Active;
    Consumer.ImplClass := "CUSTOM_EXPORT.MyDtCustomConsumer";
    Fields := Consumer.Fields;
    Field := Fields.Add;
    Field.DataType := DbDataType.String;
    Field.Name := "Наименование";
    Field := Fields.Add;
    Field.DataType := DbDataType.Integer;
    Field.Name := "Идентификатор";
    Field := Fields.Add;
    Field.DataType := DbDataType.Float;
    Field.Name := "Значение";
    Consumer.Open;
    Consumer.Clear;
    customCons := Consumer.CustomConsumer;
    If customCons.ImplementPut Then
        Consumer.Put(v);
        Debug.WriteLine("Число записанных строк: " + Consumer.WritingRowsCount.ToString);
    Else
        Debug.WriteLine("Выгрузка двумерных массивов недоступна");
    End If;
    Consumer.Close;
End Sub UserProc_ImplClass;

После выполнения примера данные выгружаются в приёмник с помощью пользовательского алгоритма.

Пример Fore.NET

Для выполнения примера предполагается наличие .NET сборки с идентификатором «CUSTOM_EXPOR_NET», содержащей класс «MyDtCustomConsumer».

Imports Prognoz.Platform.Interop.Dt;
Imports Prognoz.Platform.Interop.Dal;
…
Public Shared Sub Main(Params: StartParams);
Var
    Consumer: IDtUserConsumerEx;
    Fields: IDtFieldDefinitions;
    Field: IDtFieldDefinition;
    v: Array;
    customCons: IDtCustomConsumer;
Begin
//Массив экспортируемых значений
    v := New object[4, 3];
    v[0, 0] := "Греча"; v[0, 1] := 10; v[0, 2] := 313.12;
    v[1, 0] := "Молоко"; v[1, 1] := 20; v[1, 2] := 301.53;
    v[2, 0] := "Сахар"; v[2, 1] := 30; v[2, 2] := 254.13;
    v[3, 0] := "Хлеб"; v[3, 1] := 40; v[3, 2] := 404.11;
    Consumer := New DtUserConsumerEx.Create();
    Consumer.Metabase := Params.Metabase;
    Consumer.ImplClass := "CUSTOM_EXPORT_NET.MyDtCustomConsumer";
    Fields := Consumer.Fields;
    Field := Fields.Add();
    Field.DataType := DbDataType.ddtString;
    Field.Name := "Наименование";
    Field := Fields.Add();
    Field.DataType := DbDataType.ddtInteger;
    Field.Name := "Идентификатор";
    Field := Fields.Add();
    Field.DataType := DbDataType.ddtFloat;
    Field.Name := "Значение";
    Consumer.Open();
    Consumer.Clear();
    customCons := Consumer.CustomConsumer;
    If customCons.ImplementPut() Then
        Consumer.Put(v);
        System.Diagnostics.Debug.WriteLine("Число записанных строк: " + Consumer.WritingRowsCount().ToString());
    Else
        System.Diagnostics.Debug.WriteLine("Выгрузка двумерных массивов недоступна");
    End If;
    Consumer.Close();
End Sub;