Map: IPrxMap;
Свойство Map определяет карту регламентного отчета, для которой делается расшифровка территорий.
Для выполнения примера предполагается наличие регламентного отчета с идентификатором «REGULAR_REPORT», на листе которого расположена карта с исходными данными и легенда. Подключите к модулю системные сборки: Metabase, Report, Tab.
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
MapTerInfo: IPrxMapTerritoryInfo;
Map: IPrxMap;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
MapTerInfo := Report.ActiveSheet.Table.Objects.Item(1).Extension As IPrxMapTerritoryInfo;
Map := MapTerInfo.Map;
(Report As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера в переменной «Map» будет содержаться карта регламентного отчета, для которой делается расшифровка территорий.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Report: IPrxReport;
MapTerInfo: IPrxMapTerritoryInfo;
Map: IPrxMap;
Begin
MB := Params.Metabase;
Report := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
MapTerInfo := Report.ActiveSheet.Table.Objects.Item[1].Extension As IPrxMapTerritoryInfo;
Map := MapTerInfo.Map;
(Report As IMetabaseObject).Save();
End Sub;
См. также: