IDtUserConsumerEx.Module

Module: IMetabaseObjectDescriptor;

Module: Prognoz.Platform.Interop.Metabase.IMetabaseObjectDescriptor;

Sub UserProc;
Var
    MB: IMetabase;
    Consumer: IDtUserConsumerEx;
    Fields: IDtFieldDefinitions;
    Field: IDtFieldDefinition;
    v: Array;
    CustomCons: IDtCustomConsumer;
Begin
    MB := MetabaseClass.Active;
    //Массив экспортируемых значений
    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 := MB;
    Consumer.Module := MB.ItemById("CUSTOM_EXPORT");
    Consumer.Macro := "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;

Imports Prognoz.Platform.Interop.Dal;
Imports Prognoz.Platform.Interop.Dt;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Consumer: IDtUserConsumerEx;
    Fields: IDtFieldDefinitions;
    Field: IDtFieldDefinition;
    v: Array;
    customCons: IDtCustomConsumer;
Begin
    MB := Params.Metabase;
    //Массив экспортируемых значений
    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 := MB;
    Consumer.Module := MB.ItemById["CUSTOM_EXPORT_NET"];
    Consumer.Macro := "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;