IDefaultBehaviour.RDSElementCard

RDSElementCard: RdsElementCardStyle;

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

Sub UserProc;
Var
    Mb: IMetabase;
    SP: ISharedParams;
Begin
    // Получим текущий репозиторий
    Mb := MetabaseClass.Active;
    // Установим табличный тип отображения карточки элемента справочника НСИ в настройках по умолчанию
    SP := Mb.SpecialObject(MetabaseSpecialObject.SharedParams).Edit As ISharedParams;
    SP.DefaultBehaviour.RDSElementCard := RdsElementCardStyle.PropertyList;
    (SP As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;
Imports Prognoz.Platform.Interop.KeFore;
…
Public Shared Sub Main(Params: StartParams);
Var     
    Mb: IMetabase;     
    SP: ISharedParams;
Begin
    // Получим текущий репозиторий
    Mb := Params.Metabase;     
    // Установим табличный тип отображения карточки элемента в настройках по умолчанию
    SP := Mb.SpecialObject[Prognoz.Platform.Interop.Metabase.MetabaseSpecialObject.msoSharedParams].Edit() As ISharedParam
    SP.DefaultBehaviour.RDSElementCard := RdsElementCardStyle.recsPropertyList;
    (SP As IMetabaseObject).Save();
End Sub;