ElementCardStyle: RdsElementCardStyle;
ElementCardStyle: Prognoz.Platform.Interop.ForeSystem.RdsElementCardStyle;
Свойство ElementCardStyle определяет тип отображения карточки элемента.
По умолчанию используется значение RdsElementCardStyle.Standart.
Для выполнения примера:
добавьте ссылки на системные сборки: Db, ForeSystem (для Fore.NET), Metabase, Rds;
в репозитории должна быть база данных с идентификатором «NSI_BD».
Sub Main;
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 Main;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Rds;
Imports Prognoz.Platform.Interop.Db;
Imports Prognoz.Platform.Interop.ForeSystem;
…
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.ForeSystem.RdsElementCardStyle.recsStandard;
(NSI As IMetabaseObject).Save();
End Sub;
В результате выполнения примера в корневом каталоге репозитория будет создан новый репозиторий НСИ с идентификатором «NSI_1». Будет установлен табличный тип отображения карточки элемента.
См. также: