IPrxMapDataAdapter.AdapterType

Синтаксис Fore

AdapterType: PrxMapAdapter;

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

AdapterType: Prognoz.Platform.Interop.Report.PrxMapAdapter;

Описание

Свойство AdapterType возвращает тип адаптера данных для карты.

Пример Fore

Для выполнения примера предполагается наличие таблицы с данными по каким-либо регионам и карты со слоем «Regions» в регламентном отчёте с идентификатором REGULAR_REPORT.

Добавьте ссылки на системные сборки: Dimensions, Map, Metabase, Report, Tab.

Sub UserProc;
Var
    Mb: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    Tab: ITabSheet;
    Map: IMap;
    BarVisual: IMapBarVisual;
    PrxDA: IPrxMapDataAdapter;
    Slice: IPrxSlice;
    MapDAdapt: IPrxMapDataAdapter;
    i, j: Integer;
Begin
    Mb := MetabaseClass.Active;
    MObj := Mb.ItemById("REGULAR_REPORT").Edit;
    Report := MObj As IPrxReport;
    Tab := (Report.ActiveSheet As IPrxTable).TabSheet;
    Map := Tab.Objects.Item(0).Extension As IMap;
    MapDAdapt := Map.Layers.FindByName("Regions").TextDataAdapter As IPrxMapDataAdapter;
    i := MapDAdapt.AdapterType As Integer;
    If i = 0 Then
       Debug.WriteLine(" - Тип адаптера не определен.");
    Else If i = 1 Then
            Debug.WriteLine(" - Тип адаптера cтатический.");
         Else If i = 2 Then
                 Debug.WriteLine(" - Тип адаптера динамический.");
              Else If i = 3 Then
                      Debug.WriteLine(" - Адаптер для областей слоя.");
                   Else If i = 4 Then
                           Debug.WriteLine(" - Адаптер для расшифровки территорий.");
                        End If;
                   End If;
              End If;
         End If;
    End If;
    j := MapDAdapt.AdapterDataType As Integer;
    If j = 0 Then
       Debug.WriteLine(" - Источник данных не определён.");
    Else If j = 1 Then
            Debug.WriteLine(" - Данные берутся из среза.");
         Else If j = 2 Then
                 Debug.WriteLine(" - Данные берутся из заданного диапазона значений.");
              End If;
         End If;
    End If;
End Sub UserProc;

В окно консоли будет выведен тип адаптера и источник исходных данных для карты.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Map;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Imports Prognoz.Platform.Interop.Dimensions;

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    Tab: ITabSheet;
    Map: IMap;
    BarVisual: IMapBarVisual;
    PrxDA: IPrxMapDataAdapter;
    Slice: IPrxSlice;
    MapDAdapt: IPrxMapDataAdapter;
    i, j: Integer;
Begin
    Mb := Params.Metabase;
    MObj := Mb.ItemById["REGULAR_REPORT"].Edit();
    Report := MObj As IPrxReport;
    Tab := (Report.ActiveSheet As IPrxTable).TabSheet;
    Map := Tab.Objects.Item[0].Extension As IMap;
    MapDAdapt := Map.Layers.FindByName["Regions"].TextDataAdapter As IPrxMapDataAdapter;
    i := MapDAdapt.AdapterType As Integer;
    If i = 0 Then
       System.Diagnostics.Debug.WriteLine(" - Тип адаптера не определен.");
    Else If i = 1 Then
           System.Diagnostics.Debug.WriteLine(" - Тип адаптера cтатический.");
         Else If i = 2 Then
                 System.Diagnostics.Debug.WriteLine(" - Тип адаптера динамический.");
              Else If i = 3 Then
                      System.Diagnostics.Debug.WriteLine(" - Адаптер для областей слоя.");
                   Else If i = 4 Then
                           System.Diagnostics.Debug.WriteLine(" - Адаптер для расшифровки территорий.");
                        End If;
                   End If;
              End If;
         End If;
    End If;
    j := MapDAdapt.AdapterDataType As Integer;
    If j = 0 Then
       System.Diagnostics.Debug.WriteLine(" - Источник данных не определён.");
    Else If j = 1 Then
            System.Diagnostics.Debug.WriteLine(" - Данные берутся из среза.");
         Else If j = 2 Then
                 System.Diagnostics.Debug.WriteLine(" - Данные берутся из заданного диапазона значений.");
              End If;
         End If;
    End If;
End Sub;

См. также:

IPrxMapDataAdapter