IWebApplication.FolderViewType

Синтаксис Fore

FolderViewType: WebApplicationListViewType;

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

FolderViewType: Prognoz.Platform.Interop.Web.WebApplicationListViewType;

Описание

Свойство FolderViewType определяет вид отображения объектов в папке веб-приложения при открытии приложения.

Пример Fore

Для выполнения примера предполагается наличие в репозитории веб-приложения с идентификатором «MyWeb» и регламентного отчета с идентификатором «Report». Перед выполнением примера необходимо добавить ссылки на системные сборки «Metabase» и «Web».

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    WebApp: IWebApplication;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("MyWeb").Edit;
    WebApp := MObj As IWebApplication;
    WebApp.TextAbout := "Веб-приложение «Форсайт. Аналитическая платформа»";
    WebApp.RootFolderName := "Документы";
    WebApp.FolderViewType := WebApplicationListViewType.Icons;
    WebApp.InstanceCacheMode := WebApplicationInstanceCacheMode.FlushOnJump;
    WebApp.ShowSearchFolder := TriState.OnOption;
    WebApp.ResponseHeaderEncoding := "windows-1251";
    WebApp.StartPage := MB.ItemById("Report");
    MObj.Save;
End Sub UserProc;

После выполнения примера для веб-приложения будут заданы настройки. Для отображения настроек в веб-приложении необходимо перезапустить службу Internet Information Services.

Пример Fore.NET

Для выполнения примера предполагается наличие в репозитории веб-приложения с идентификатором «MyWeb». Указанная в примере процедура является точкой входа для какой-либо .Net-сборки.

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    WebApp: IWebApplication;
Begin
    MB := Params.Metabase;
    MObj := MB.ItemById["MyWeb"].Edit();
    WebApp := MObj As IWebApplication;
    WebApp.TextAbout := "Веб-приложение «Форсайт. Аналитическая платформа»";
    WebApp.RootFolderName := "Документы";
    WebApp.FolderViewType := WebApplicationListViewType.webapplisvietypIcons;
    WebApp.InstanceCacheMode := WebApplicationInstanceCacheMode.webappinscacmodFlushOnJump;
    WebApp.ShowSearchFolder := TriState.tsOnOption;
    WebApp.ResponseHeaderEncoding := "utf-8";
    WebApp.StartPage := MB.ItemById["Report"];
    MObj.Save();
End Sub;

См. также: