IDefaultBehaviour.ResetSelectionColors

ResetSelectionColors;

ResetSelectionColors();

Sub UserProc;
Var
    Mb: IMetabase;
    SP: ISharedParams;
    DB: IDefaultBehaviour;
Begin
    // Текущий репозиторий
    Mb := MetabaseClass.Active;
    SP := Mb.SpecialObject(MetabaseSpecialObject.SharedParams).Edit As ISharedParams;
    // Настройки по умолчанию
    DB := SP.DefaultBehaviour;
    // Если изменены настройки оформления в отчётах, то сброс этих настроек
    If Not DB.IsSelectionColorDefault Then
        DB.ResetSelectionColors;
    End If;
    // Сохранение изменений
    (SP As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.KeFore;
Imports Prognoz.Platform.Interop.Metabase;

Public Shared Sub Main(Params: StartParams);
Var
    Mb: IMetabase;
    SP: ISharedParams;
    DB: IDefaultBehaviour;
Begin
    // Текущий репозиторий
    Mb := Params.Metabase;
    SP := Mb.SpecialObject[MetabaseSpecialObject.msoSharedParams].Edit() As ISharedParams;
    // Настройки по умолчанию
    DB := SP.DefaultBehaviour;
    // Если изменены настройки оформления в отчётах, то сброс этих настроек
    If Not DB.IsSelectionColorDefault() Then
        DB.ResetSelectionColors();
    End If;
    // Сохранение изменений
    (SP As IMetabaseObject).Save();
End Sub;