IRdsDatabase.ElementCardStyle

ElementCardStyle: RdsElementCardStyle;

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

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 := "MDM repository";
        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 := "MDM repository";
        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;