Подключение карты в экспресс-отчет

Копировать пример

Sub SetTopobase;
Var
    MB: IMetabase;
    Analyzer: IEaxAnalyzer;
    DataArea: IEaxDataArea;
    Slice: IEaxDataAreaSlice;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчет
    Analyzer := MB.ItemById("ExpReport").Edit As IEaxAnalyzer;
    // Получим область данных
    DataArea := Analyzer.DataArea;
    // Получим срез данных
    Slice := DataArea.Slices.Item(0);
    // Определим топооснову
    Slice.Topobase := MB.ItemById("New_Map_1").Bind As ITopobase;
    Analyzer.MapChart.Visible := True;
    // Сохраним изменения
    (Analyzer As IMetabaseObject).Save;
End Sub SetTopobase;