ISharedParams.DefaultBehaviour

DefaultBehaviour: IDefaultBehaviour;

DefaultBehaviour: Prognoz.Platform.Interop.KeFore.DefaultBehaviour;

Sub UserProc;
Var
    Mb: IMetabase;
    SP: ISharedParams;
    DB: IDefaultBehaviour;
Begin
    // Get the current repository
    Mb := MetabaseClass.Active;
    // Select table display type for element card in default settings
    SP := Mb.SpecialObject(MetabaseSpecialObject.SharedParams).Edit As ISharedParams;
    //Determine default settings
    DB := SP.DefaultBehaviour;
    // Select table display type for element card in default settings
    DB.RDSElementCard := RdsElementCardStyle.PropertyList;
    // Select table display type for element card in default settings
    DB.TreatEmptySelectionAsFull := True;
    (SP As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.KeFore;
…
Public Shared Sub Main(Params: StartParams);
Var     
    Mb: IMetabase;     
    SP: ISharedParams;
    DB: IDefaultBehaviour;
Begin
    // Get the current repository
    Mb := Params.Metabase;    
    // Select table display type for element card in default settings
    SP := Mb.SpecialObject[Prognoz.Platform.Interop.Metabase.MetabaseSpecialObject.msoSharedParams].Edit() As ISharedParams;
    //Determine default settings
    DB := SP.DefaultBehaviour;
    // Select table display type for element card in default settings
    DB.RDSElementCard := RdsElementCardStyle.recsPropertyList;
    // Select table display type for element card in default settings
    DB.TreatEmptySelectionAsFull:= true;
    (SP As IMetabaseObject).Save();
End Sub;