Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » 1С (1C): Предприятие

Модерирует : gyra, Maz

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

ZlydenGL



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Код:
    Спис.Добавить ("
    |    СтарыеПараметры = Константы.ПараметрыЦентраМониторинга.Получить ().Получить ();
    |    Если (ТипЗнч (СтарыеПараметры) <> Тип (""Структура"")) Тогда
    |        СтарыеПараметры = Новый Структура;
    |    КонецЕсли;
    |    НовыеПараметры = Новый Структура;
    |    НовыеПараметры.Вставить (""ВключитьЦентрМониторинга"", Ложь);
    |    НовыеПараметры.Вставить (""ЦентрОбработкиИнформацииОПрограмме"", Ложь);
    |    НовыеПараметры.Вставить (""РегистрироватьИнформациюОСистеме"", Ложь);
    |    НовыеПараметры.Вставить (""РегистрироватьВерсииПодсистем"", Ложь);
    |    НовыеПараметры.Вставить (""РегистрироватьДампы"", Ложь);
    |    НовыеПараметры.Вставить (""РегистрироватьБизнесСтатистику"", Ложь);
    |    НовыеПараметры.Вставить (""РегистрироватьСтатистикуКонфигурации"", Ложь);
    |    НовыеПараметры.Вставить (""РегистрироватьНастройкуКонфигурации"", Ложь);
    |    НовыеПараметры.Вставить (""РегистрироватьПроизводительность"", Ложь);
    |    НовыеПараметры.Вставить (""РегистрироватьПроизводительностьТехнологическую"", Ложь);
    |    НовыеПараметры.Вставить (""ОтправлятьФайлыДампов"", 0);
    |    НовыеПараметры.Вставить (""СпрашиватьПередОтправкой"", Истина);
    |    НовыеПараметры.Вставить (""ПринудительнаяОтправкаМинидампов"", 9999);
    |    НовыеПараметры.Вставить (""ЗапросКонтактнойИнформации"", 0);
    |    НовыеПараметры.Вставить (""ОценкаПроизводительностиВключена"", 0);
    |    НовыеПараметры.Вставить (""ВыполнятьЗамерыПроизводительности"", Ложь);
    |    Для Каждого ТекПараметр Из НовыеПараметры Цикл
    |        Если НЕ СтарыеПараметры.Свойство (ТекПараметр.Ключ) Тогда
    |            СтарыеПараметры.Вставить (ТекПараметр.Ключ);
    |        КонецЕсли;
    |        СтарыеПараметры[ТекПараметр.Ключ] = ТекПараметр.Значение;
    |    КонецЦикла;
    |    Константы.ПараметрыЦентраМониторинга.Установить (Новый ХранилищеЗначения (СтарыеПараметры));
    |");
 

Всего записей: 4271 | Зарегистр. 22-06-2002 | Отправлено: 14:29 19-05-2021 | Исправлено: ZlydenGL, 14:30 19-05-2021
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » 1С (1C): Предприятие


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru