FullScreenMode: Boolean;
FullScreenMode: boolean;
Свойство FullScreenMode определяет, будут ли блоки аналитической панели после публикации отображаться в полноэкранном режиме блоков.
Возможные значения:
True. Каждый блок аналитической панели будет отображаться на отдельном слайде;
False. По умолчанию. Все блоки аналитической панели будут отображаться на одном слайде.
Для выполнения примера в репозитории необходимо наличие контейнера мобильного приложения с идентификатором «MA_PUB_ADHOC», содержащего аналитическую панель с ключом «19799».
Добавьте ссылки на системные сборки: Metabase, Mobile.
Sub UserProc;
Var
MB: IMetabase;
Mobile: IMobileApplication;
Publicator: IMobileApplicationPublicator;
PubObjs: IMobileApplicationPublishObjects;
PubObj: IMobileApplicationPublishObject;
PObj: IMobilePublishObject;
AdhocPObj: IMobilePublishAdhocReport;
Res: MobilePublishObjectResult;
Begin
// Получим репозиторий
MB := MetabaseClass.Active;
// Получим мобильное приложение
Mobile := MB.ItemById("MA_PUB_ADHOC").Bind As IMobileApplication;
// Создадим публикатор мобильного приложения
Publicator := Mobile.CreatePublicator;
// Получим коллекцию публикуемых объектов
PubObjs := Publicator.Items;
// Получим публикуемую аналитическую панель по ключу
PubObj := PubObjs.ItemByKey(19869);
PObj := PubObj.PublishObject;
AdhocPObj := PObj As IMobilePublishAdhocReport;
{ Аналитическая панель будет открываться в полноэкранном режиме, начиная с первого блока,
после публикации на мобильном устройстве }
AdhocPObj.FullScreenMode := True;
{ Выведем в окно консоли
информацию о использовании в качестве источника данных для
аналитической панели}
If AdhocPObj.UseOnlyInAnalyticDashboard Then
Debug.WriteLine
("Публикуемая аналитическая панель используется в качестве источника данных для другой аналитической панели");
Else
Debug.WriteLine
("Публикуемая аналитическая панель не используется в качестве источника данных для другой аналитической панели");
End If;
// Зададим путь публикации
PObj.ExportPath := "C:\" + PObj.Object.Id + ".zip";
// Публикуем аналитическую панель
Res := PObj.Publish;
// Выведем результат в окно консоли
If (Res As Integer) = 0 Then Debug.WriteLine("Публикация выполнена успешно");
Debug.WriteLine("Путь публикации: " + PObj.ExportPath);
Else Debug.WriteLine("При публикации возникла ошибка");
End If;
End Sub UserProc;
После выполнения примера:
для контейнера мобильного приложения, содержащего аналитическую панель, выполнится публикация по заданному пути;
в окно консоли будет выведена информация о использовании аналитической панели в качестве источника данных для другой аналитической панели;
на мобильном устройстве каждый блок аналитической панели будет отображаться на отдельном слайде.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Mobile;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Mobile: IMobileApplication;
Publicator: IMobileApplicationPublicator;
PubObjs: IMobileApplicationPublishObjects;
PubObj: IMobileApplicationPublishObject;
PObj: IMobilePublishObject;
AdhocPObj: IMobilePublishAdhocReport;
Res: MobilePublishObjectResult;
Begin
// Получим репозиторий
MB := Params.Metabase;
// Получим мобильное приложение
Mobile := MB.ItemById["MA_PUB_ADHOC"].Bind() As IMobileApplication;
// Создадим публикатор мобильного приложения
Publicator := Mobile.CreatePublicator();
// Получим коллекцию публикуемых объектов
PubObjs := Publicator.Items;
// Получим публикуемую аналитическую панель по ключу
PubObj := PubObjs.ItemByKey[19799];
PObj := PubObj.PublishObject;
AdhocPObj := PObj As IMobilePublishAdhocReport;
{ Аналитическая панель будет открываться в полноэкранном режиме, начиная с первого блока,
после публикации на мобильном устройстве }
AdhocPObj.FullScreenMode := True;
{ Выведем в окно консоли информацию о использовании в качестве источника данных для
аналитической панели}
If AdhocPObj.UseOnlyInAnalyticDashboard Then
System.Diagnostics.Debug.WriteLine
("Публикуемая аналитическая панель используется в качестве источника данных для другой аналитической панели");
Else
System.Diagnostics.Debug.WriteLine
("Публикуемая аналитическая панель не используется в качестве источника данных для другой аналитической панели");
End If;
// Зададим путь публикации
PObj.ExportPath := "C:\" + PObj.Object.Id + ".zip";
// Публикуем аналитическую панель
Res := PObj.Publish(Null);
// Выведем результат в окно консоли
If (Res As Integer) = 0 Then System.Diagnostics.Debug.WriteLine("Публикация выполнена успешно");
System.Diagnostics.Debug.WriteLine("Путь публикации: " + PObj.ExportPath);
Else System.Diagnostics.Debug.WriteLine("При публикации возникла ошибка");
End If;
End Sub;
См. также: