IRdsDatabase.ElementCardStyle

Синтаксис Fore

ElementCardStyle : RdsElementCardStyle;

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

ElementCardStyle : Prognoz.Platform.Interop.Rds.RdsElementCardStyle;

Описание

Свойство ElementCardStyle определяет тип отображения карточки элемента.

Комментарии

По умолчанию используется значение RdsElementCardStyle.Standart.

Пример Fore

Для выполнения примера подключите системные сборки Metabase, Rds и Db. В репозитории должна быть база данных с идентификатором «NSI_BD».

Sub UserProc;
Var
      MB: IMetabase;
      NSI: IRdsDatabase;
      CrInfo: IMetabaseObjectCreateInfo;
Begin
      MB := MetabaseClass.Active;
          CrInfo := MB.CreateCreateInfo;
          CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_RDS_DATABASE;
          CrInfo.Id := "NSI_1";
          CrInfo.Name := "Репозиторий НСИ";
          CrInfo.Parent := Null;
      NSI := MB.CreateObject(CrInfo).Edit As IRdsDatabase;
      NSI.Database := MB.ItemById("NSI_BD").Bind As IDatabase;
      NSI.ElementCardStyle := RdsElementCardStyle.PropertyList;
(NSI As IMetabaseObject).Save;
End Sub UserProc;

После выполнения примера в корневом каталоге репозитория будет создан новый репозиторий НСИ с идентификатором «NSI_1». Будет установлен табличный тип отображения карточки элемента.

Пример Fore.NET

Указанная процедура является точкой входа для .NET-сборки. Для выполнения примера подключите системные сборки Rds и Db. В репозитории необходимо создать базу данных с идентификатором «NSI_BD».

Imports System;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Rds;
Imports Prognoz.Platform.Interop.Db;

Public Class Program

    [STAThread]
    Public Shared Sub Main(Params : StartParams);
Var
      MB: IMetabase;
      NSI: IRdsDatabase;
      CrInfo: IMetabaseObjectCreateInfo;
      MO : IMetabaseObject;
Begin
      MB := Params.Metabase;
          CrInfo := MB.CreateCreateInfo();
          CrInfo.ClassID := Prognoz.Platform.Interop.Metabase.MetabaseObjectClass.KE_CLASS_RDS_DATABASE As Integer
          CrInfo.Id := "NSI_0";
          CrInfo.Name := "Репозиторий НСИ";
          CrInfo.Parent := Null;
      MO := MB.CreateObject(CrInfo).Edit();
      NSI := MO As IRdsDatabase;
      NSI.Database := MB.ItemById["NSI_BD"].Bind() As IDatabase;
      NSI.ElementCardStyle := Prognoz.Platform.Interop.Rds.RdsElementCardStyle.recsStandard ;
     (NSI As IMetabaseObject).Save();

End Sub;

End Class;

После выполнения примера в корневом каталоге репозитория будет создан новый репозиторий НСИ с идентификатором «NSI_1». Будет установлен стандартный тип отображения карточки элемента.

См. также:

IRdsDatabase